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, [])