summaryrefslogtreecommitdiff
path: root/lib/CheckMap.hs
diff options
context:
space:
mode:
authorstuebinm2021-11-10 22:24:16 +0100
committerstuebinm2021-11-10 22:24:16 +0100
commit5bb4079f7b2d576f67649c37874556e73dc8f68b (patch)
tree71393a4410c8244fdf0665ff04a6840a46eb388b /lib/CheckMap.hs
parent629163381bb67d3435cd40981ebd9544933a0318 (diff)
remove dead code
(also fix some hlints) This removes some code that was apparently dead and I never noticed. I only noticed now since it wouldn't work with the newer versions of Aeson anymore.
Diffstat (limited to 'lib/CheckMap.hs')
-rw-r--r--lib/CheckMap.hs7
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