diff options
Diffstat (limited to 'lib/CheckMap.hs')
| -rw-r--r-- | lib/CheckMap.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs index 35c00a1..41f251e 100644 --- a/lib/CheckMap.hs +++ b/lib/CheckMap.hs @@ -20,15 +20,12 @@ import qualified Data.Vector as V import GHC.Generics (Generic) -import Data.Bifunctor (Bifunctor (second)) import Data.Functor ((<&>)) import LintWriter (filterLintLevel, invertLintResult, lintToDep, resultToAdjusted, resultToDeps, resultToLints, resultToOffers, runLintWriter) import Properties (checkLayer, checkMap, checkTileset) -import Tiled2 (HasName (getName), - HasProperties (getProperties), Layer, - LoadResult (..), +import Tiled2 (HasName (getName), Layer, LoadResult (..), Tiledmap (tiledmapLayers, tiledmapTilesets), Tileset, loadTiledmap) import Types (Dep, Hint (hintLevel, hintMsg), Level (..), @@ -90,7 +87,7 @@ runLinter tiledmap depth = MapResult { mapresultLayer = invertThing layer , mapresultTileset = invertThing tileset , mapresultGeneral = resultToLints generalResult - , mapresultDepends = mapMaybe lintToDep generalLints + , mapresultDepends = mapMaybe lintToDep (resultToLints generalResult) <> concatMap resultToDeps layer <> concatMap resultToDeps tileset , mapresultProvides = concatMap resultToOffers layer |