From 7e19c45684ea547548a88314d034c120d356241f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 13 Sep 2019 13:31:53 +0200 Subject: [PATCH] chore: fix hlint --- src/Handler/ExamOffice/Course.hs | 2 +- src/Handler/ExamOffice/Exam.hs | 2 +- src/Handler/Utils/ExamOffice/Course.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Handler/ExamOffice/Course.hs b/src/Handler/ExamOffice/Course.hs index 3b212e7f5..73ed6e0ba 100644 --- a/src/Handler/ExamOffice/Course.hs +++ b/src/Handler/ExamOffice/Course.hs @@ -19,7 +19,7 @@ examOfficeOptOutForm uid cid (fromMaybe Set.empty -> template) = renderWForm For schools <- liftHandlerT . runDB . E.select $ courseExamOfficeSchools (E.val uid) (E.val cid) res <- fmap sequence . forM schools $ \(Entity ssh School{..}, E.Value isForced) - -> fmap (ssh, ) <$> (bool wpopt wforcedJust isForced) checkBoxField (fslI schoolName) (Just $ ssh `Set.notMember` template) + -> fmap (ssh, ) <$> bool wpopt wforcedJust isForced checkBoxField (fslI schoolName) (Just $ ssh `Set.notMember` template) return $ res <&> setOf (folded . filtered (not . view _2) . _1) diff --git a/src/Handler/ExamOffice/Exam.hs b/src/Handler/ExamOffice/Exam.hs index a21174a4f..318313817 100644 --- a/src/Handler/ExamOffice/Exam.hs +++ b/src/Handler/ExamOffice/Exam.hs @@ -143,7 +143,7 @@ embedRenderMessage ''UniWorX ''ExamUserAction id data ExamUserActionData = ExamUserMarkSynchronisedData -data ExamUserCsvExportData = ExamUserCsvExportData +newtype ExamUserCsvExportData = ExamUserCsvExportData { csvEUserMarkSynchronised :: Bool } deriving (Eq, Ord, Read, Show, Generic, Typeable) diff --git a/src/Handler/Utils/ExamOffice/Course.hs b/src/Handler/Utils/ExamOffice/Course.hs index f5613bfb0..ec2ecd81d 100644 --- a/src/Handler/Utils/ExamOffice/Course.hs +++ b/src/Handler/Utils/ExamOffice/Course.hs @@ -29,4 +29,4 @@ courseExamOfficeSchools user _course = E.from $ \(school `E.InnerJoin` userFunct let forced = E.maybe E.true id $ examOfficeField E.?. ExamOfficeFieldForced E.orderBy [E.desc forced] - return $ (school, forced) + return (school, forced)