Commit to testwork

2018-07-03 13:42:31 +02:00 · 2018-07-03 13:42:31 +02:00 · 1b88f41112
commit 1b88f41112
parent 03074d370c
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@ -162,7 +162,7 @@ homeUser uid = do
                                toWidget (tickmark :: Text)
                            ) dbrow
        ]
-  let validator = def & defaultSorting [("done",SortDesc),("deadline",SortDesc)]
+  let validator = def & defaultSorting [("done",SortDesc), ("deadline",SortDesc)]
  sheetTable <- dbTable validator $ DBTable
    { dbtSQLQuery  = tableData
    , dbtColonnade = colonnade