From 67927742bb9adb60118791212159a00f6e73ad24 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 21 Jun 2018 10:27:09 +0200
Subject: [PATCH] leading zero date format fixed

---
 src/Handler/Sheet.hs      | 2 +-
 src/Handler/Utils/Form.hs | 2 +-
 src/Utils.hs              | 2 --
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 54617fa19..772fa3b20 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -221,7 +221,7 @@ getSShowR tid csh shn = do
     { dbtSQLQuery = fileData
     , dbtColonnade = colonnadeFiles
     , dbtAttrs = tableDefault
-    -- , dbtFilter = Map.empty -- TODO: Just for Testing. Gregor needs to explain what is needed here.
+    , dbtFilter = Map.empty
     , dbtIdent = "files" :: Text
     -- TODO: Add column for and visibility date
     , dbtSorting = [ ( "type"
diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 231af6a5c..9182d4c34 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -366,7 +366,7 @@ utcTimeField = Field
   where
     fieldTimeFormat :: String
     --fieldTimeFormat = "%e.%m.%y %k:%M"
-    fieldTimeFormat = "%Y-%m-%eT%H:%M"
+    fieldTimeFormat = "%Y-%m-%dT%H:%M"
 
     readTime :: Text -> Either FormMessage UTCTime
     readTime t =
diff --git a/src/Utils.hs b/src/Utils.hs
index b06986864..56e714d81 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -99,8 +99,6 @@ instance DisplayAble Text where
 instance DisplayAble String where
   display = pack
 
-
-
 instance DisplayAble a => DisplayAble (Maybe a) where
   display Nothing  = ""
   display (Just x) = display x