diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs index 2b915a76a..2a51d2e55 100644 --- a/src/Handler/Exam/Correct.hs +++ b/src/Handler/Exam/Correct.hs @@ -89,7 +89,7 @@ postECorrectR tid ssh csh examn = do E.||. user E.^. UserMatrikelnummer E.==. E.val mUserIdent E.||. user E.^. UserMatrikelnummer `E.hasInfix` E.val mUserIdent Nothing -> E.val False) - E.limit $ maxCountUserMatches+1 + E.limit $ succ maxCountUserMatches return user if