diff options
-rw-r--r-- | lib/CheckDir.hs | 2 |
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 |