From f87cf7a378ec2641ed3a9a13182b39b170f61c1f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 30 Apr 2020 11:50:46 +0200 Subject: [PATCH] fix(submission-groups): prevent deleting group before insert --- src/Handler/Utils/Course.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Handler/Utils/Course.hs b/src/Handler/Utils/Course.hs index 699f96aa5..a595c37ca 100644 --- a/src/Handler/Utils/Course.hs +++ b/src/Handler/Utils/Course.hs @@ -64,6 +64,7 @@ setUsersSubmissionGroup cid uids (Just grp) = do E.delete . E.from $ \submissionGroup -> E.where_ $ submissionGroup E.^. SubmissionGroupCourse E.==. E.val cid E.&&. E.not_ (E.exists . E.from $ \submissionGroupUser -> E.where_ $ submissionGroupUser E.^. SubmissionGroupUserSubmissionGroup E.==. submissionGroup E.^. SubmissionGroupId) + E.&&. submissionGroup E.^. SubmissionGroupId E.!=. E.val gId fmap getSum . flip foldMapM uids $ \uid -> do didSet <- fmap (is _Just) . insertUnique $ SubmissionGroupUser gId uid when didSet $