diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/CheckDir.hs | 2 | ||||
| -rw-r--r-- | lib/CheckMap.hs | 2 | ||||
| -rw-r--r-- | lib/LayerData.hs | 2 | ||||
| -rw-r--r-- | lib/LintWriter.hs | 2 | ||||
| -rw-r--r-- | lib/Properties.hs | 4 | ||||
| -rw-r--r-- | lib/Util.hs | 2 | ||||
| -rw-r--r-- | tiled/Data/Tiled.hs (renamed from lib/Tiled.hs) | 3 | ||||
| -rw-r--r-- | tiled/Data/Tiled/Abstract.hs (renamed from lib/TiledAbstract.hs) | 4 |
8 files changed, 11 insertions, 10 deletions
diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs index be23747..93b6345 100644 --- a/lib/CheckDir.hs +++ b/lib/CheckDir.hs @@ -40,7 +40,7 @@ import System.FilePath (splitPath, (</>)) import qualified System.FilePath as FP import System.FilePath.Posix (takeDirectory) import Text.Dot (showDot) -import Tiled (Tiledmap) +import Data.Tiled (Tiledmap) import Types (Dep (Local, LocalMap), Hint (Hint), Level (..), hintLevel) import Util (PrettyPrint (prettyprint)) diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs index 3ac03bd..0b5b58a 100644 --- a/lib/CheckMap.hs +++ b/lib/CheckMap.hs @@ -32,7 +32,7 @@ import LintWriter (LintResult, invertLintResult, runLintWriter) import Properties (checkLayer, checkMap, checkTileset) import System.FilePath (takeFileName) -import Tiled (Layer (layerLayers, layerName), +import Data.Tiled (Layer (layerLayers, layerName), LoadResult (..), Tiledmap (tiledmapLayers, tiledmapTilesets), loadTiledmap) diff --git a/lib/LayerData.hs b/lib/LayerData.hs index 6956c92..46d6449 100644 --- a/lib/LayerData.hs +++ b/lib/LayerData.hs @@ -8,7 +8,7 @@ import Control.Monad.Zip (mzipWith) import Data.Set (insert) import Data.Vector (maximum, uncons) import qualified Text.Show as TS -import Tiled (GlobalId (unGlobalId), Layer (..)) +import Data.Tiled (GlobalId (unGlobalId), Layer (..)) import Util (PrettyPrint (..)) -- | A collision between two layers of the given names. diff --git a/lib/LintWriter.hs b/lib/LintWriter.hs index d0c6c4e..b55b16e 100644 --- a/lib/LintWriter.hs +++ b/lib/LintWriter.hs @@ -48,7 +48,7 @@ import Universum import Badges (Badge) import Data.Map (fromListWith) import LintConfig (LintConfig') -import TiledAbstract (HasName (getName)) +import Data.Tiled.Abstract (HasName (getName)) import Types (Dep, Hint, Level (..), Lint (..), hint, lintsToHints) diff --git a/lib/Properties.hs b/lib/Properties.hs index 5d9c094..1ba5faa 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -18,10 +18,10 @@ import Universum hiding (intercalate, isPrefixOf) import Data.Text (intercalate, isInfixOf, isPrefixOf) import qualified Data.Text as T import qualified Data.Vector as V -import Tiled (Layer (..), Object (..), Property (..), +import Data.Tiled (Layer (..), Object (..), Property (..), PropertyValue (..), Tile (..), Tiledmap (..), Tileset (..)) -import TiledAbstract (HasName (..), HasProperties (..), +import Data.Tiled.Abstract (HasName (..), HasProperties (..), HasTypeName (..), IsProperty (..)) import Util (layerIsEmpty, mkProxy, naiveEscapeHTML, prettyprint) diff --git a/lib/Util.hs b/lib/Util.hs index f935e78..ccd2ef3 100644 --- a/lib/Util.hs +++ b/lib/Util.hs @@ -17,7 +17,7 @@ import Universum import Data.Aeson as Aeson import qualified Data.Set as S import qualified Data.Text as T -import Tiled (Layer (layerData), PropertyValue (..), +import Data.Tiled (Layer (layerData), PropertyValue (..), Tileset (tilesetName), layerName, mkTiledId) mkProxy :: a -> Proxy a diff --git a/lib/Tiled.hs b/tiled/Data/Tiled.hs index 3162dfd..046a080 100644 --- a/lib/Tiled.hs +++ b/tiled/Data/Tiled.hs @@ -15,7 +15,7 @@ -- cover some of the types and records that are available in the format. For -- those you should read the TMX documentation at -- http://doc.mapeditor.org/en/latest/reference/tmx-map-format/ -module Tiled where +module Data.Tiled where import Universum @@ -383,6 +383,7 @@ instance ToJSON Tiledmap where toJSON = genericToJSON (aesonOptions 8) data LoadResult = Loaded Tiledmap | IOErr String | DecodeErr String + deriving Show -- | Load a Tiled map from the given 'FilePath'. loadTiledmap :: FilePath -> IO LoadResult diff --git a/lib/TiledAbstract.hs b/tiled/Data/Tiled/Abstract.hs index 9fd2df0..4b2e15d 100644 --- a/lib/TiledAbstract.hs +++ b/tiled/Data/Tiled/Abstract.hs @@ -1,11 +1,11 @@ {-# LANGUAGE OverloadedStrings #-} -module TiledAbstract where +module Data.Tiled.Abstract where import Universum import qualified Data.Vector as V -import Tiled (Layer (..), Object (..), Property (..), +import Data.Tiled (Layer (..), Object (..), Property (..), PropertyValue (..), Tile (..), Tiledmap (..), Tileset (..)) |