fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(submission-groups): prevent deleting group before insert

Browse Source
This commit is contained in:
Gregor Kleen 2020-04-30 11:50:46 +02:00
parent bf74eb5122
commit f87cf7a378
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Handler/Utils/Course.hs
View File

@ -64,6 +64,7 @@ setUsersSubmissionGroup cid uids (Just grp) = do
E.delete . E.from $ \submissionGroup -> E.delete . E.from $ \submissionGroup ->
E.where_ $ submissionGroup E.^. SubmissionGroupCourse E.==. E.val cid 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.&&. 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 fmap getSum . flip foldMapM uids $ \uid -> do
didSet <- fmap (is _Just) . insertUnique $ SubmissionGroupUser gId uid didSet <- fmap (is _Just) . insertUnique $ SubmissionGroupUser gId uid
when didSet $ when didSet $