diff --git a/src/Handler/Utils/ExternalExam/Users.hs b/src/Handler/Utils/ExternalExam/Users.hs
index 541f6f4bc..bb6222453 100644
--- a/src/Handler/Utils/ExternalExam/Users.hs
+++ b/src/Handler/Utils/ExternalExam/Users.hs
@@ -358,9 +358,9 @@ makeExternalExamUsersTable mode (Entity eeId ExternalExam{..}) = do
                     : repeat (Just . Just $ utcToZonedTime exampleTime)
                 | csvEUserExamResult <- cycle . catMaybes $
                     [ guardOn (hasExamGradingPass externalExamGradingMode) $ ExamAttended (Left $ ExamPassed True)
-                    , guardOn (hasExamGradingGrades externalExamGradingMode) $ ExamAttended (Right $ Grade50)
-                    , pure $ ExamVoided
-                    , pure $ ExamNoShow
+                    , guardOn (hasExamGradingGrades externalExamGradingMode) $ ExamAttended (Right Grade50)
+                    , pure ExamVoided
+                    , pure ExamNoShow
                     ]
                 ]
             }