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

CourseList standardized

Browse Source
This commit is contained in:
SJost 2019-01-16 10:46:02 +01:00
parent b25d542f6b
commit 54a1ea612d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Course.hs
View File

@ -189,10 +189,11 @@ getCourseListR = do
muid <- maybeAuthId muid <- maybeAuthId
let colonnade = widgetColonnade $ mconcat let colonnade = widgetColonnade $ mconcat
[ colCourseDescr [ colCourseDescr
, colCShort , colSchoolShort
, colTerm , colTerm
, colCShort
, maybe mempty (const colRegistered) muid , maybe mempty (const colRegistered) muid
, colSchool
] ]
whereClause = const $ E.val True whereClause = const $ E.val True
validator = def validator = def