From 06796269d4da73f9c31c978fc2e05e32fbe04b2f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 8 May 2020 13:11:43 +0200 Subject: [PATCH] fix(submission-groups): wrong sql query for finding buddies --- src/Handler/Submission.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index a36e25127..ce9d657bb 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -368,6 +368,7 @@ submissionHelper tid ssh csh shn mcid = do buddies <- E.select . E.from $ \(submissionGroup `E.InnerJoin` user) -> do E.on . E.exists . E.from $ \submissionGroupUser -> E.where_ $ submissionGroupUser E.^. SubmissionGroupUserUser E.==. user E.^. UserId + E.&&. submissionGroupUser E.^. SubmissionGroupUserSubmissionGroup E.==. submissionGroup E.^. SubmissionGroupId E.where_ $ submissionGroup E.^. SubmissionGroupCourse E.==. E.val sheetCourse E.where_ . E.exists . E.from $ \submissionGroupUser -> E.where_ $ submissionGroupUser E.^. SubmissionGroupUserUser E.==. E.val uid