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