diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs
index c1c095096..fcc025a95 100644
--- a/src/Handler/Exam/Correct.hs
+++ b/src/Handler/Exam/Correct.hs
@@ -109,12 +109,12 @@ postECorrectR tid ssh csh examn = do
            E.||. user E.^. UserMatrikelnummer E.==. E.val mUserIdent
            E.||. user E.^. UserMatrikelnummer `E.hasInfix` E.val mUserIdent
            E.||. (case mUserIdent of
-            Just userIdent -> (user E.^. UserSurname E.==. E.val userIdent
+            Just userIdent -> user E.^. UserSurname E.==. E.val userIdent
                         E.||. user E.^. UserSurname `E.hasInfix` E.val userIdent
                         E.||. user E.^. UserFirstName E.==. E.val userIdent
                         E.||. user E.^. UserFirstName `E.hasInfix` E.val userIdent
                         E.||. user E.^. UserDisplayName E.==. E.val userIdent
-                        E.||. user E.^. UserDisplayName `E.hasInfix` E.val userIdent)
+                        E.||. user E.^. UserDisplayName `E.hasInfix` E.val userIdent
             Nothing -> E.val False)
       return user