From e2c664d7d4b72beeef3eedb4520e4599e20e670c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 30 Jan 2020 17:38:01 +0100
Subject: [PATCH] refactor: hlint

---
 src/Handler/Exam/AutoOccurrence.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs
index 222fd7896..6354b2dcd 100644
--- a/src/Handler/Exam/AutoOccurrence.hs
+++ b/src/Handler/Exam/AutoOccurrence.hs
@@ -103,9 +103,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
   nudgeRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId ->
     runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' calculateRes)
 
-  let calculateRes' = asum $
-        [ calculateRes
-        ] ++ toListOf (folded . _1 . _1) nudgeRes
+  let calculateRes' = asum $ calculateRes : nudgeRes ^.. folded . _1 . _1
 
   calcResult <- formResultMaybe calculateRes' $ \ExamAutoOccurrenceCalculateForm{..} -> runDB $ do
     participants <- E.select . E.from $ \(registration `E.InnerJoin` user) -> do