From b98a5c2aa7dfe98e2d885503802f780dc2a45eb6 Mon Sep 17 00:00:00 2001 From: SJost Date: Tue, 11 Sep 2018 17:02:55 +0200 Subject: [PATCH] minor --- src/Handler/Profile.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs index 32004395a..987f472ce 100644 --- a/src/Handler/Profile.hs +++ b/src/Handler/Profile.hs @@ -174,13 +174,12 @@ getProfileDataR = do -- mr <- getMessageRender -- Tabelle mit eigenen Kursen - (Any hasRows, ownCourseTable) <- do -- TODO: only display when non-empty + (Any hasRows, ownCourseTable) <- do let withType :: ((E.SqlExpr (Entity Course) `E.InnerJoin` E.SqlExpr (Entity Lecturer)) -> a) -> ((E.SqlExpr (Entity Course) `E.InnerJoin` E.SqlExpr (Entity Lecturer)) -> a) withType = id - validator = def - & defaultSorting [("term",SortDesc),("school",SortAsc),("course",SortAsc)] + validator = def & defaultSorting [("term",SortDesc),("school",SortAsc),("course",SortAsc)] dbTableWidget validator $ DBTable { dbtIdent = "courseOwnership" :: Text