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

chore(lms): add dd-mm-yyyy date format specified in lms interface

Browse Source
This commit is contained in:
Steffen Jost 2022-02-24 12:37:02 +01:00
parent 7aa0494de6
commit c1d0f63620
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/DateTime.hs
View File

@ -167,6 +167,8 @@ validDateTimeFormats _ SelFormatDate = Set.fromList
, DateTimeFormat "%A %d.%m.%Y" , DateTimeFormat "%A %d.%m.%Y"
, DateTimeFormat "%Y-%m-%d" , DateTimeFormat "%Y-%m-%d"
, DateTimeFormat "%y-%m-%d" , DateTimeFormat "%y-%m-%d"
, DateTimeFormat "%d-%m-%Y"
, DateTimeFormat "%d-%m-%y"
] ]
validDateTimeFormats TimeLocale{..} SelFormatTime = Set.fromList . concat . catMaybes $ validDateTimeFormats TimeLocale{..} SelFormatTime = Set.fromList . concat . catMaybes $
[ Just [ Just
@ -336,7 +338,7 @@ instance Csv.FromField ZonedTime where
return $ utcToZonedTime _ltuResult return $ utcToZonedTime _ltuResult
parseFormats = do parseFormats = do
date <- ["%Y-%m-%d", "%d.%m.%Y"] date <- ["%Y-%m-%d", "%d.%m.%Y", "%d-%m-%Y"]
sep <- ["T", " "] sep <- ["T", " "]
doZone <- [True, False] doZone <- [True, False]
let zone = bool "" "%z" doZone let zone = bool "" "%z" doZone