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

Commit to testwork

Browse Source
This commit is contained in:
SJost 2018-07-03 13:42:31 +02:00
parent 03074d370c
commit 1b88f41112
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Home.hs
View File

@ -162,7 +162,7 @@ homeUser uid = do
toWidget (tickmark :: Text) toWidget (tickmark :: Text)
) dbrow ) dbrow
] ]
let validator = def & defaultSorting [("done",SortDesc),("deadline",SortDesc)] let validator = def & defaultSorting [("done",SortDesc), ("deadline",SortDesc)]
sheetTable <- dbTable validator $ DBTable sheetTable <- dbTable validator $ DBTable
{ dbtSQLQuery = tableData { dbtSQLQuery = tableData
, dbtColonnade = colonnade , dbtColonnade = colonnade