summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2022-03-06 19:17:35 +0100
committerstuebinm2022-03-19 20:00:54 +0100
commitb6b284cc66ed1737619d51b8dec290e807d5ae31 (patch)
treeb7126ad0db32032bf9883f9d2f2b8a89c5ec839c
parent29e2e9579ddc656d62afd7052dcba398a5f0a107 (diff)
walint: yet more strictness
(though this time it doesn't seem to do much, if anything)
Diffstat (limited to '')
-rw-r--r--lib/CheckDir.hs4
1 files changed, 2 insertions, 2 deletions
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)