Be less restrictive when creating submissions

Allow groups larger than maximum group submission size in principle

src/Handler/Corrections.hs

@@ -680,17 +680,15 @@ postCorrectionsCreateR = do
           -> let
                sheetGroupDesc = Text.intercalate ", " $ map (review _PseudonymText . sheetPseudonymPseudonym) spGroup
               in case sheetGrouping of
-          Arbitrary maxSize
+          Arbitrary maxSize -> do
-            | genericLength spGroup > maxSize
+            subId <- insert submissionPrototype
-              -> addMessageI Error $ MsgSheetGroupTooLarge sheetGroupDesc
+            void . insert $ SubmissionEdit uid now subId
-            | otherwise
+            insertMany_ . flip map spGroup $ \SheetPseudonym{sheetPseudonymUser} -> SubmissionUser
-              -> do
+              { submissionUserUser = sheetPseudonymUser
-                subId <- insert submissionPrototype
+              , submissionUserSubmission = subId
-                void . insert $ SubmissionEdit uid now subId
+              }
-                insertMany_ . flip map spGroup $ \SheetPseudonym{sheetPseudonymUser} -> SubmissionUser
+            when (genericLength spGroup > maxSize) $
-                    { submissionUserUser = sheetPseudonymUser
+              addMessageI Warning $ MsgSheetGroupTooLarge sheetGroupDesc
-                    , submissionUserSubmission = subId
-                    }
           RegisteredGroups -> do
             groups <- E.select . E.from $ \submissionGroup -> do
               E.where_ . E.exists . E.from $ \submissionGroupUser ->