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

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-10-12 15:14:01 +02:00
parent 29a3e24bcf
commit d817179113
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam/Edit.hs
View File

@ -106,7 +106,7 @@ postEEditR tid ssh csh examn = do
} }
deleteWhere [ ExamOfficeSchoolExam ==. eId ] 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 let (invites, adds) = partitionEithers $ Set.toList efCorrectors

2
src/Handler/Exam/New.hs
View File

@ -75,7 +75,7 @@ postCExamNewR tid ssh csh = do
examOccurrenceDescription = eofDescription 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 let (invites, adds) = partitionEithers $ Set.toList efCorrectors
insertMany_ [ ExamCorrector{..} insertMany_ [ ExamCorrector{..}