Fix check for maximum group size in correction creation

2018-12-05 12:03:38 +01:00 · 2018-12-05 12:03:38 +01:00 · 1d51280ebf
commit 1d51280ebf
parent e66f8919a4
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@ -681,7 +681,7 @@ postCorrectionsCreateR = do
               sheetGroupDesc = Text.intercalate ", " $ map (review _PseudonymText . sheetPseudonymPseudonym) spGroup
              in case sheetGrouping of
          Arbitrary maxSize
-            | genericLength sps > maxSize
+            | genericLength spGroup > maxSize
              -> addMessageI Error $ MsgSheetGroupTooLarge sheetGroupDesc
            | otherwise
              -> do