fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(build): Update ParticipantInvite.hs

Browse Source
This commit is contained in:
Steffen Jost 2023-10-11 13:56:47 +00:00
parent fa4f9b2447
commit f888da3ab0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course/ParticipantInvite.hs
View File

@ -56,7 +56,7 @@ tutorialDefaultName (Just ttyp) =
formatDayForTutName :: Day -> CI Text -- "%yy_%mm_%dd" -- Do not use user date display setting, since tutorial default names must be universal regardless of user formatDayForTutName :: Day -> CI Text -- "%yy_%mm_%dd" -- Do not use user date display setting, since tutorial default names must be universal regardless of user
-- formatDayForTutName = CI.mk . formatTime' "%y_%m_%d" -- we don't want to go monadic for this -- formatDayForTutName = CI.mk . formatTime' "%y_%m_%d" -- we don't want to go monadic for this
formatDayForTutName d = CI.mk . Text.map d2u . Text.drop 2 . tshow formatDayForTutName = CI.mk . Text.map d2u . Text.drop 2 . tshow
where where
d2u '-' = '_' d2u '-' = '_'
d2u c = c d2u c = c