diff options
Diffstat (limited to 'lib/CheckMap.hs')
| -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 ()) |