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_ $