CourseList standardized

2019-01-16 10:46:02 +01:00 · 2019-01-16 10:46:02 +01:00 · 54a1ea612d
commit 54a1ea612d
parent b25d542f6b
1 changed files with 3 additions and 2 deletions
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@ -189,10 +189,11 @@ getCourseListR = do
  muid <- maybeAuthId
  let colonnade = widgetColonnade $ mconcat
        [ colCourseDescr
-        , colCShort
+        , colSchoolShort
        , colTerm
+        , colCShort
        , maybe mempty (const colRegistered) muid
-        , colSchool
+
        ]
      whereClause = const $ E.val True
      validator = def