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

Fix Submission

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-10 16:16:48 +02:00
parent 7c4f577b78
commit 1b0a4762c9
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Submission.hs
View File

@ -364,7 +364,6 @@ submissionHelper tid ssh csh shn mcid = do
(FormFailure failmsgs) -> return $ FormFailure failmsgs (FormFailure failmsgs) -> return $ FormFailure failmsgs
-- #227 Part II: no longer ignore submitter, if the user is lecturer or admin (allow lecturers to submit for their students) -- #227 Part II: no longer ignore submitter, if the user is lecturer or admin (allow lecturers to submit for their students)
(FormSuccess res'@(_, groupMembers)) (FormSuccess res'@(_, groupMembers))
| Set.null groupMembers -> return $ FormSuccess res'
| Arbitrary{..} <- sheetGrouping -> do -- Validate AdHoc Group Members | Arbitrary{..} <- sheetGrouping -> do -- Validate AdHoc Group Members
-- , length gEMails < maxParticipants -> do -- < since submitting user is already accounted for -- , length gEMails < maxParticipants -> do -- < since submitting user is already accounted for
let (gEMails, gIds) = partitionEithers $ Set.toList groupMembers let (gEMails, gIds) = partitionEithers $ Set.toList groupMembers
@ -402,7 +401,7 @@ submissionHelper tid ssh csh shn mcid = do
return $ if null failmsgs return $ if null failmsgs
then FormSuccess res' then FormSuccess res'
else FormFailure failmsgs else FormFailure failmsgs
| otherwise -> return $ FormFailure ["Mismatching number of group participants"] | otherwise -> return $ FormSuccess res'
case res' of case res' of