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