From 139d848292e68f0659a1721cf51e30a76e748bf9 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 10 Aug 2020 11:53:19 +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 6f6b4554c..37024a169 100644 --- a/src/Utils/Course.hs +++ b/src/Utils/Course.hs @@ -105,7 +105,7 @@ isCourseApplicant muid AuthTagActive{..} cid maid = E.exists . E.from $ \courseA E.just (courseApplication E.^. CourseApplicationUser) E.==. E.val muid E.&&. courseApplication E.^. CourseApplicationCourse E.==. cid E.&&. E.val (authTagIsActive AuthApplicant) - E.&&. maybe (E.val True) + E.&&. maybe E.true (\aid -> E.just aid E.==. courseApplication E.^. CourseApplicationAllocation) maid