From cdf2cec832239921b914d6aae95f348dd62b34ea Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 19 Apr 2018 09:29:16 +0200
Subject: [PATCH] minor comment added

---
 src/Handler/Submission.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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