From b6b284cc66ed1737619d51b8dec290e807d5ae31 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 6 Mar 2022 19:17:35 +0100
Subject: walint: yet more strictness

(though this time it doesn't seem to do much, if anything)
---
 lib/CheckDir.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/CheckDir.hs')

diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs
index c7fbc5a..49b3774 100644
--- a/lib/CheckDir.hs
+++ b/lib/CheckDir.hs
@@ -253,7 +253,7 @@ recursiveCheckDir'
   -> Map FilePath (MapResult Full)
   -- ^ accumulator for map results
   -> IO (Map FilePath (MapResult Full))
-recursiveCheckDir' config prefix paths acc = do
+recursiveCheckDir' config prefix paths !acc = do
 
   -- lint all maps in paths. The double fmap skips maps which cause IO errors
   -- (in which case loadAndLintMap returns Nothing); appropriate warnings will
@@ -261,7 +261,7 @@ recursiveCheckDir' config prefix paths acc = do
   lints <-
     let lintPath p = fmap (fmap (p,)) (loadAndLintMap config (prefix </> p) depth)
           where depth = length (splitPath p) - 1
-    in mapMaybeM lintPath paths
+    in mapMaybeM lintPath paths >>= evaluateNF
 
 
   let mapdeps = setFromList (concatMap extractDeps lints)
-- 
cgit v1.2.3