From 40ce19d1b489e52767ac2d7964ec742765f0ed29 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 6 Mar 2020 14:01:57 +0100
Subject: [PATCH] refactor: fix hlint

---
 src/Handler/Utils/ExternalExam/Users.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
                     ]
                 ]
             }