From bc42f3072fd37ee6f37c70a0b3999d9ac793b240 Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Wed, 24 Feb 2021 16:42:10 +0100 Subject: [PATCH] fix(test): fixed compiler errors (oops) --- test/Handler/Utils/ExamSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Handler/Utils/ExamSpec.hs b/test/Handler/Utils/ExamSpec.hs index c2c3b673f..a9b6c1e82 100644 --- a/test/Handler/Utils/ExamSpec.hs +++ b/test/Handler/Utils/ExamSpec.hs @@ -316,14 +316,14 @@ spec = do mappingImpossible rule userProperties@(sort . map (ruleProperty rule . fst) . Map.elems . Map.filter (isRelevantUser rule) -> relevantUsers) - (map snd . Map.toList . adjustOccurrences userProperties -> occurrences') = go 0 True relevantUsers occurrences' + (map snd . Map.toList . adjustOccurrences userProperties -> occurrences') = go 0 relevantUsers occurrences' where smallestRoom :: Natural smallestRoom = maybe 0 minimum $ fromNullable occurrences' -- If there exists a bucket with the same tag bigger than the smallest room a nullResult might be returned -- It may still work, but is not guaranteed (e.g. both the first bucket) go :: Natural -> [Maybe Text] -> [Natural] -> Bool - go biggestUserBucket [] _occurrences = biggestUserBucket > small + go biggestUserBucket [] _occurrences = biggestUserBucket > smallestRoom go _biggestUserBucket _remainingUsers [] = True go biggestUserBucket remainingUsers (0:t) = go biggestUserBucket remainingUsers t go biggestUserBucket remainingUsers@(h:_t) (firstOccurrence:laterOccurrences)