Fix Submission

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