From a4476a3e6d44e8e2ae054a8aec68836b2e813c60 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 20 Sep 2021 02:17:13 +0200
Subject: lint embedded tilesets

---
 lib/CheckMap.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/CheckMap.hs')

diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index ffd94ec..0de9094 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -17,7 +17,8 @@ import qualified Data.Vector                as V
 import           GHC.Generics               (Generic)
 
 import           LintWriter                 (LintResult (..), LintWriter,
-                                             lintsToDeps, runLintWriter)
+                                             lintResultToDeps, lintToDep,
+                                             runLintWriter)
 import           Properties                 (checkLayerProperty, checkMap)
 import           Tiled2                     (Layer (layerName, layerProperties),
                                              Tiledmap (tiledmapLayers),
@@ -56,7 +57,8 @@ runLinter :: Tiledmap -> MapResult ()
 runLinter tiledmap = MapResult
   { mapresultLayer = Just layerMap
   , mapresultGeneral = generalLints  -- no general lints for now
-  , mapresultDepends = concatMap (lintsToDeps . snd) layer
+  , mapresultDepends = concatMap (lintResultToDeps . snd) layer
+    <> mapMaybe lintToDep generalLints
   }
   where
     layerMap :: Map Text (LintResult ())
-- 
cgit v1.2.3