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

refactor: fix hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-03-06 14:01:57 +01:00
parent 49d9ab9dba
commit 40ce19d1b4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Utils/ExternalExam/Users.hs
View File

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