diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index a7a67244f..f69555d1d 100644 --- 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