diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 304101890..9887d1f0c 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -58,7 +58,7 @@ makeSubmissionForm unpackZips grouping = identForm FIDsubmission $ \html -> do <* submitButton where groupNr - | Arbitrary{..} <- grouping = pred maxParticipants + | Arbitrary{..} <- grouping = pred maxParticipants -- pred to account for the person submitting | otherwise = 0 getSubmissionR, postSubmissionR :: TermId -> Text -> Text -> SubmissionMode -> Handler Html