diff options
| author | stuebinm | 2021-11-23 19:20:56 +0100 |
|---|---|---|
| committer | stuebinm | 2021-11-23 19:20:56 +0100 |
| commit | f9c693bff9f29a939afaa1e666a411464541210c (patch) | |
| tree | 38199dac90ffa4c6716713a68de7d9d209fb249d | |
| parent | 61e66f41b61baf69c08ee7c9d8738ad68fde669e (diff) | |
why oh why does the prelude contain unsafe functions
some parts of haskell are really, really old …
| -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 |