From f0f6706bcfbd59d00f2c230d3660349aeda92989 Mon Sep 17 00:00:00 2001
From: Wolfgang Witt <Wolfgang.Witt@campus.lmu.de>
Date: Mon, 8 Feb 2021 11:31:49 +0100
Subject: [PATCH] chore: remove redundant MultiWayIf

---
 src/Handler/Utils/Exam.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index 097ff62f1..08fa8a5c3 100644
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@@ -460,9 +460,9 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
                 accCost' <- (+) accCost <$> ST.readArray minima j
                 -- traceM $ show ((fromRational :: Rational -> Centi) <$> accCost', lineIx, (i, pred j))
                 let accMap' = (lineIxs List.!! lineIx, map (review wordIx) [i .. pred j]) : accMap
-                if
-                  | i > 0     -> accumResult (succ lineIx) i (accCost', accMap')
-                  | otherwise -> return (accCost', accMap')
+                if i > 0
+                  then accumResult (succ lineIx) i (accCost', accMap')
+                  else return (accCost', accMap')
               lineIxs = reverse $ map (view _1) $ take usedLines lineLengths
            in accumResult 0 (Map.size wordMap) (0, [])