fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix check for maximum group size in correction creation

Browse Source
This commit is contained in:
Gregor Kleen 2018-12-05 12:03:38 +01:00
parent e66f8919a4
commit 1d51280ebf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Corrections.hs
View File

@ -681,7 +681,7 @@ postCorrectionsCreateR = do
sheetGroupDesc = Text.intercalate ", " $ map (review _PseudonymText . sheetPseudonymPseudonym) spGroup sheetGroupDesc = Text.intercalate ", " $ map (review _PseudonymText . sheetPseudonymPseudonym) spGroup
in case sheetGrouping of in case sheetGrouping of
Arbitrary maxSize Arbitrary maxSize
| genericLength sps > maxSize | genericLength spGroup > maxSize
-> addMessageI Error $ MsgSheetGroupTooLarge sheetGroupDesc -> addMessageI Error $ MsgSheetGroupTooLarge sheetGroupDesc
| otherwise | otherwise
-> do -> do