fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor

Browse Source
This commit is contained in:
SJost 2018-09-11 17:02:55 +02:00
parent b230ba870d
commit b98a5c2aa7
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Profile.hs
View File

@ -174,13 +174,12 @@ getProfileDataR = do
-- mr <- getMessageRender -- mr <- getMessageRender
-- Tabelle mit eigenen Kursen -- 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) let withType :: ((E.SqlExpr (Entity Course) `E.InnerJoin` E.SqlExpr (Entity Lecturer)) -> a)
-> ((E.SqlExpr (Entity Course) `E.InnerJoin` E.SqlExpr (Entity Lecturer)) -> a) -> ((E.SqlExpr (Entity Course) `E.InnerJoin` E.SqlExpr (Entity Lecturer)) -> a)
withType = id withType = id
validator = def validator = def & defaultSorting [("term",SortDesc),("school",SortAsc),("course",SortAsc)]
& defaultSorting [("term",SortDesc),("school",SortAsc),("course",SortAsc)]
dbTableWidget validator $ DBTable dbTableWidget validator $ DBTable
{ dbtIdent = "courseOwnership" :: Text { dbtIdent = "courseOwnership" :: Text