From 25fa6ef0d78617d0d13a6ef2c770d69f4135e9f4 Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Fri, 19 Mar 2021 13:32:47 +0100 Subject: [PATCH] refactor: hlint --- src/Handler/Utils/Exam.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs index df5b2c6d4..3aef48f8a 100644 --- a/src/Handler/Utils/Exam.hs +++ b/src/Handler/Utils/Exam.hs @@ -412,7 +412,7 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences -- ^ Only use non-ignored occurrences -- Sort by size if specified (here increasing, since it is reversed later) occurrences'' = case eaocIgnoreRooms of - ExamAutoOccurrenceIgnoreRooms {..} -> ((if eaoirSorted then sortOn (view _2) else id) $ Map.toList $ Map.withoutKeys occurrences' eaoirIgnored) + ExamAutoOccurrenceIgnoreRooms {..} -> (if eaoirSorted then sortOn (view _2) else id) $ Map.toList $ Map.withoutKeys occurrences' eaoirIgnored partitionRestricted :: ([a], [(a, Natural)]) -> [(a,ExamOccurrenceCapacity)] -> ([a], [(a, Natural)]) partitionRestricted acc [] = acc