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

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-01-30 17:38:01 +01:00
parent a91fd7fd63
commit e2c664d7d4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Exam/AutoOccurrence.hs
View File

@ -103,9 +103,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
nudgeRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId -> nudgeRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId ->
runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' calculateRes) runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' calculateRes)
let calculateRes' = asum $ let calculateRes' = asum $ calculateRes : nudgeRes ^.. folded . _1 . _1
[ calculateRes
] ++ toListOf (folded . _1 . _1) nudgeRes
calcResult <- formResultMaybe calculateRes' $ \ExamAutoOccurrenceCalculateForm{..} -> runDB $ do calcResult <- formResultMaybe calculateRes' $ \ExamAutoOccurrenceCalculateForm{..} -> runDB $ do
participants <- E.select . E.from $ \(registration `E.InnerJoin` user) -> do participants <- E.select . E.from $ \(registration `E.InnerJoin` user) -> do