diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 080ac9667..74e1e92e1 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -364,7 +364,6 @@ submissionHelper tid ssh csh shn mcid = do (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) (FormSuccess res'@(_, groupMembers)) - | Set.null groupMembers -> return $ FormSuccess res' | Arbitrary{..} <- sheetGrouping -> do -- Validate AdHoc Group Members -- , length gEMails < maxParticipants -> do -- < since submitting user is already accounted for let (gEMails, gIds) = partitionEithers $ Set.toList groupMembers @@ -402,7 +401,7 @@ submissionHelper tid ssh csh shn mcid = do return $ if null failmsgs then FormSuccess res' else FormFailure failmsgs - | otherwise -> return $ FormFailure ["Mismatching number of group participants"] + | otherwise -> return $ FormSuccess res' case res' of