diff options
author | stuebinm | 2021-09-20 02:17:13 +0200 |
---|---|---|
committer | stuebinm | 2021-09-20 02:17:13 +0200 |
commit | a4476a3e6d44e8e2ae054a8aec68836b2e813c60 (patch) | |
tree | 3afe870489a119223b62b17f12e8b79117699a17 /lib/CheckMap.hs | |
parent | 5b8ed8ad906e92bce5b8576b29ae6f2cc46d8696 (diff) |
lint embedded tilesets
Diffstat (limited to '')
-rw-r--r-- | lib/CheckMap.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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 ()) |