summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorstuebinm2021-11-23 19:20:56 +0100
committerstuebinm2021-11-23 19:20:56 +0100
commitf9c693bff9f29a939afaa1e666a411464541210c (patch)
tree38199dac90ffa4c6716713a68de7d9d209fb249d /lib
parent61e66f41b61baf69c08ee7c9d8738ad68fde669e (diff)
why oh why does the prelude contain unsafe functions
some parts of haskell are really, really old …
Diffstat (limited to 'lib')
-rw-r--r--lib/CheckDir.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs
index 61ac81c..3901336 100644
--- a/lib/CheckDir.hs
+++ b/lib/CheckDir.hs
@@ -72,7 +72,7 @@ resultIsFatal config res =
-- note that it really does go through all lints, so don't
-- call it too often
maximumLintLevel :: DirResult -> Level
-maximumLintLevel = maximum
+maximumLintLevel = (\t -> if null t then Info else maximum t)
. map hintLevel
. concatMap (keys . mapresultLayer)
. elems