From 460144df6ae1db9320a554a53bccd6c5f5577b7f Mon Sep 17 00:00:00 2001 From: SJost Date: Fri, 3 Aug 2018 16:10:05 +0200 Subject: [PATCH] Fix #146 --- src/Handler/Course.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index efcd9cdcf..f65c92a73 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -145,10 +145,8 @@ makeCourseTable whereClause colChoices psValidator = do , ( "schoolshort", SortColumn $ \(_course `E.InnerJoin` school) -> school E.^. SchoolShorthand) , ( "register-from", SortColumn $ \(course `E.InnerJoin` _school) -> course E.^. CourseRegisterFrom) , ( "register-to", SortColumn $ \(course `E.InnerJoin` _school) -> course E.^. CourseRegisterTo) - , ( "participants", SortColumn $ course2Participants - ) - , ( "registered", SortColumn $ course2Registered muid - ) + , ( "participants", SortColumn $ course2Participants ) + , ( "registered", SortColumn $ course2Registered muid) ] , dbtFilter = Map.fromList -- OverloadedLists does not work with the templates here [ ( "course", FilterColumn $ \(course `E.InnerJoin` _school:: CourseTableExpr) criterias -> if