minor comment added

This commit is contained in:
SJost 2018-04-19 09:29:16 +02:00
parent 18f33290bb
commit cdf2cec832

View File

@ -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