From c1d0f636201ba95b675625c4d620430c975eb4cd Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 24 Feb 2022 12:37:02 +0100
Subject: [PATCH] chore(lms): add dd-mm-yyyy date format specified in lms
 interface

---
 src/Handler/Utils/DateTime.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Utils/DateTime.hs b/src/Handler/Utils/DateTime.hs
index 14693fe6a..edcfbdc42 100644
--- a/src/Handler/Utils/DateTime.hs
+++ b/src/Handler/Utils/DateTime.hs
@@ -167,6 +167,8 @@ validDateTimeFormats _ SelFormatDate = Set.fromList
   , DateTimeFormat "%A %d.%m.%Y"
   , DateTimeFormat "%Y-%m-%d"
   , DateTimeFormat "%y-%m-%d"
+  , DateTimeFormat "%d-%m-%Y"
+  , DateTimeFormat "%d-%m-%y"
   ]
 validDateTimeFormats TimeLocale{..} SelFormatTime = Set.fromList . concat . catMaybes $
   [ Just
@@ -336,7 +338,7 @@ instance Csv.FromField ZonedTime where
                  return $ utcToZonedTime _ltuResult
 
       parseFormats = do
-        date <- ["%Y-%m-%d", "%d.%m.%Y"]
+        date <- ["%Y-%m-%d", "%d.%m.%Y", "%d-%m-%Y"]
         sep <- ["T", " "]
         doZone <- [True, False]
         let zone = bool "" "%z" doZone