From 1d51280ebfbd5df84f73a9e4254f302acf77715c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 5 Dec 2018 12:03:38 +0100
Subject: [PATCH] Fix check for maximum group size in correction creation

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

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 72328a5c5..0f33a21f1 100644
--- 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