From 868194be1f8da4d434498247dea715c2aa5ff869 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Sat, 15 Jan 2022 00:46:30 +0100 Subject: use hpack and clean up modules as annoying as yaml is, cabal's package format is somehow worse, apparently --- lib/CheckMap.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/CheckMap.hs') diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs index 2677a30..cfa4b6e 100644 --- a/lib/CheckMap.hs +++ b/lib/CheckMap.hs @@ -27,14 +27,15 @@ import LintWriter (LintResult, invertLintResult, resultToDeps, resultToLints, resultToOffers, runLintWriter) import Properties (checkLayer, checkMap, checkTileset) +import System.FilePath (takeFileName) import Tiled (Layer (layerLayers, layerName), LoadResult (..), Tiledmap (tiledmapLayers, tiledmapTilesets), loadTiledmap) -import Types (Dep (MapLink), Hint (Hint, hintLevel, hintMsg), - Level (..), lintsToHints) +import Types (Dep (MapLink), + Hint (Hint, hintLevel, hintMsg), Level (..), + lintsToHints) import Util (PrettyPrint (prettyprint), prettyprint) -import System.FilePath (takeFileName) @@ -106,7 +107,7 @@ runLinter isMain config tiledmap depth = MapResult where linksLobby = \case MapLink link -> "/@/rc3_21/lobby" `T.isPrefixOf` link - _ -> False + _ -> False layerDeps = concatMap resultToDeps layer layer = checkLayerRec config depth (V.toList $ tiledmapLayers tiledmap) tileset = checkThing tiledmapTilesets checkTileset -- cgit v1.2.3