From d817179113e923dc714f442cf7f64746f71c83d1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Mon, 12 Oct 2020 15:14:01 +0200
Subject: [PATCH] refactor: hlint

---
 src/Handler/Exam/Edit.hs | 2 +-
 src/Handler/Exam/New.hs  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Exam/Edit.hs b/src/Handler/Exam/Edit.hs
index ff8046788..7478479a4 100644
--- a/src/Handler/Exam/Edit.hs
+++ b/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
 
diff --git a/src/Handler/Exam/New.hs b/src/Handler/Exam/New.hs
index 6631977f8..3477273f0 100644
--- a/src/Handler/Exam/New.hs
+++ b/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{..}