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

leading zero date format fixed

Browse Source
This commit is contained in:
SJost 2018-06-21 10:27:09 +02:00
parent 710ace42bf
commit 67927742bb
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Sheet.hs
View File

@ -221,7 +221,7 @@ getSShowR tid csh shn = do
{ dbtSQLQuery = fileData { dbtSQLQuery = fileData
, dbtColonnade = colonnadeFiles , dbtColonnade = colonnadeFiles
, dbtAttrs = tableDefault , dbtAttrs = tableDefault
-- , dbtFilter = Map.empty -- TODO: Just for Testing. Gregor needs to explain what is needed here. , dbtFilter = Map.empty
, dbtIdent = "files" :: Text , dbtIdent = "files" :: Text
-- TODO: Add column for and visibility date -- TODO: Add column for and visibility date
, dbtSorting = [ ( "type" , dbtSorting = [ ( "type"

2
src/Handler/Utils/Form.hs
View File

@ -366,7 +366,7 @@ utcTimeField = Field
where where
fieldTimeFormat :: String fieldTimeFormat :: String
--fieldTimeFormat = "%e.%m.%y %k:%M" --fieldTimeFormat = "%e.%m.%y %k:%M"
fieldTimeFormat = "%Y-%m-%eT%H:%M" fieldTimeFormat = "%Y-%m-%dT%H:%M"
readTime :: Text -> Either FormMessage UTCTime readTime :: Text -> Either FormMessage UTCTime
readTime t = readTime t =

2
src/Utils.hs
View File

@ -99,8 +99,6 @@ instance DisplayAble Text where
instance DisplayAble String where instance DisplayAble String where
display = pack display = pack
instance DisplayAble a => DisplayAble (Maybe a) where instance DisplayAble a => DisplayAble (Maybe a) where
display Nothing = "" display Nothing = ""
display (Just x) = display x display (Just x) = display x