From 18bd29b746a066b8285acb9e5ed84ca880715660 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 10 Aug 2020 11:53:07 +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 e6c6c93db..6f6b4554c 100644 --- a/src/Utils/Course.hs +++ b/src/Utils/Course.hs @@ -98,7 +98,7 @@ isCourseParticipant muid AuthTagActive{..} cid = E.exists . E.from $ \coursePart E.just (courseParticipant E.^. CourseParticipantUser) E.==. E.val muid E.&&. courseParticipant E.^. CourseParticipantCourse E.==. cid E.&&. courseParticipant E.^. CourseParticipantState E.==. E.val CourseParticipantActive - E.&&. E.val (authTagIsActive AuthCourseRegistered) -- TODO is this the auth tag I want here? + E.&&. E.val (authTagIsActive AuthCourseRegistered) isCourseApplicant :: Maybe UserId -> AuthTagActive -> E.SqlExpr (E.Value CourseId) -> Maybe (E.SqlExpr (E.Value AllocationId)) -> E.SqlExpr (E.Value Bool) isCourseApplicant muid AuthTagActive{..} cid maid = E.exists . E.from $ \courseApplication -> E.where_ $