From f9c693bff9f29a939afaa1e666a411464541210c Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Tue, 23 Nov 2021 19:20:56 +0100
Subject: why oh why does the prelude contain unsafe functions

some parts of haskell are really, really old …
---
 lib/CheckDir.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/CheckDir.hs')

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
-- 
cgit v1.2.3