refactor: hlint

src/Handler/Exam/Edit.hs

@@ -106,7 +106,7 @@ postEEditR tid ssh csh examn = do
               }
 
         deleteWhere [ ExamOfficeSchoolExam ==. eId ]
-        insertMany_ . map (flip ExamOfficeSchool eId) $ Set.toList efOfficeSchools
+        insertMany_ [ ExamOfficeSchool ssh' eId | ssh' <- Set.toList efOfficeSchools ]
 
         let (invites, adds) = partitionEithers $ Set.toList efCorrectors
 

src/Handler/Exam/New.hs

@@ -75,7 +75,7 @@ postCExamNewR tid ssh csh = do
                 examOccurrenceDescription = eofDescription
           ]
 
-        insertMany_ . map (flip ExamOfficeSchool examid) $ Set.toList efOfficeSchools
+        insertMany_ [ ExamOfficeSchool ssh' examid | ssh' <- Set.toList efOfficeSchools ]
 
         let (invites, adds) = partitionEithers $ Set.toList efCorrectors
         insertMany_ [ ExamCorrector{..}