leading zero date format fixed

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"

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 =

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