From 65c85e7607a8252bc9ebb9f94ae714f013482ed0 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 10 Aug 2020 11:54:16 +0200 Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s) --- src/Utils/Course.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Utils/Course.hs b/src/Utils/Course.hs index 55dc4f005..8d7e0062d 100644 --- a/src/Utils/Course.hs +++ b/src/Utils/Course.hs @@ -144,7 +144,7 @@ courseAllocationRegistrationOpen now cid maid = E.exists . E.from $ \(allocation E.true (\registerTo -> E.val now E.<=. registerTo) (allocation E.^. AllocationRegisterTo) - E.&&. maybe (E.val True) (\aid -> aid E.==. allocation E.^. AllocationId) maid + E.&&. maybe E.true (\aid -> aid E.==. allocation E.^. AllocationId) maid numCourseParticipants :: E.SqlExpr (E.Value CourseId) -> E.SqlExpr (E.Value Int)