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

Minor cleanup

Browse Source
This commit is contained in:
Gregor Kleen 2018-12-05 12:05:18 +01:00
parent 1d51280ebf
commit 2a19b9368e
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/Handler/Corrections.hs
View File

@ -708,23 +708,15 @@ postCorrectionsCreateR = do
when (null groups) $ when (null groups) $
addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
| otherwise -> addMessageI Error $ MsgSheetAmbiguousRegisteredGroup sheetGroupDesc | otherwise -> addMessageI Error $ MsgSheetAmbiguousRegisteredGroup sheetGroupDesc
NoGroups NoGroups -> do
| [SheetPseudonym{sheetPseudonymUser}] <- spGroup subId <- insert submissionPrototype
-> do void . insert $ SubmissionEdit uid now subId
subId <- insert submissionPrototype insertMany_ . flip map spGroup $ \SheetPseudonym{sheetPseudonymUser} -> SubmissionUser
void . insert $ SubmissionEdit uid now subId { submissionUserUser = sheetPseudonymUser
insert_ SubmissionUser , submissionUserSubmission = subId
{ submissionUserUser = sheetPseudonymUser }
, submissionUserSubmission = subId when (length spGroup > 1) $
} addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc
| otherwise -> do
subId <- insert submissionPrototype
void . insert $ SubmissionEdit uid now subId
insertMany_ . flip map spGroup $ \SheetPseudonym{sheetPseudonymUser} -> SubmissionUser
{ submissionUserUser = sheetPseudonymUser
, submissionUserSubmission = subId
}
addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc
redirect CorrectionsGradeR redirect CorrectionsGradeR