From 0bd2e836d96fe864b00d2085f29e932130722cc3 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Sat, 18 Sep 2021 02:09:27 +0200 Subject: moved types into Types.hs it's almost as if there's some structure to this code! --- lib/CheckMap.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/CheckMap.hs') diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs index 36cbf9d..9402170 100644 --- a/lib/CheckMap.hs +++ b/lib/CheckMap.hs @@ -16,16 +16,17 @@ import qualified Data.Text as T import qualified Data.Vector as V import GHC.Generics (Generic) -import LintWriter (Level (..), Lint (..), - LintResult (..), LintWriter, hint, - lintLevel) +import LintWriter (LintResult (..), LintWriter) import Properties (checkProperty) import Tiled2 (Layer (layerName, layerProperties), Tiledmap (tiledmapLayers), loadTiledmap) +import Types (Level (..), Lint (..), hint, + lintLevel) import Util (PrettyPrint (prettyprint), prettyprint) + -- | What this linter produces: lints for a single map data MapResult a = MapResult { mapresultLayer :: Maybe (Map Text (LintResult a)) -- cgit v1.2.3