From 1b88f41112f37b9fedaaf30569823094deb462b2 Mon Sep 17 00:00:00 2001 From: SJost Date: Tue, 3 Jul 2018 13:42:31 +0200 Subject: [PATCH] Commit to testwork --- src/Handler/Home.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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