From 502266b2d24e3cda2e5f2d0d98483b914f3c53ad Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Dec 2021 03:27:25 +0100
Subject: abort copying on missing assets

---
 lib/CheckDir.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/CheckDir.hs')

diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs
index 5ad195f..d6a7bd5 100644
--- a/lib/CheckDir.hs
+++ b/lib/CheckDir.hs
@@ -65,7 +65,9 @@ newtype MissingAsset = MissingAsset MissingDep
 
 -- | given this config, should the result be considered to have failed?
 resultIsFatal :: LintConfig' -> DirResult -> Bool
-resultIsFatal config res = maximumLintLevel res > configMaxLintLevel config
+resultIsFatal config res =
+  not (null $ dirresultMissingAssets res)
+  || maximumLintLevel res > configMaxLintLevel config
 
 -- | maximum lint level that was observed anywhere in any map.
 -- note that it really does go through all lints, so don't
-- 
cgit v1.2.3