From 69484ee8d2114150b81109067428110e9a18c475 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 30 Oct 2021 15:15:28 +0200
Subject: yet more tiled properties

---
 lib/CheckMap.hs | 2 +-
 lib/Tiled2.hs   | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index 53cd0c7..3047071 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -10,6 +10,7 @@ module CheckMap (loadAndLintMap, MapResult(..)) where
 
 import           Data.Aeson       (ToJSON (toJSON))
 import qualified Data.Aeson       as A
+import           Data.Aeson.Types ((.=))
 import           Data.Map         (Map, toList)
 import qualified Data.Map         as M
 import           Data.Maybe       (mapMaybe)
@@ -19,7 +20,6 @@ import qualified Data.Vector      as V
 import           GHC.Generics     (Generic)
 
 
-import           Data.Aeson.Types ((.=))
 import           LintWriter       (LintWriter, askContext, filterLintLevel,
                                    invertLintResult, lintToDep, resultToDeps,
                                    resultToLints, resultToOffers, runLintWriter)
diff --git a/lib/Tiled2.hs b/lib/Tiled2.hs
index 0f20061..a82de2c 100644
--- a/lib/Tiled2.hs
+++ b/lib/Tiled2.hs
@@ -227,8 +227,12 @@ instance ToJSON Frame where
 data Tile = Tile { tileId          :: Int
                  , tileProperties  :: Maybe (Vector Value)
                  , tileImage       :: Maybe Value
-                 , tileObjectGroup :: Maybe (Vector Object)
+                 , tileObjectGroup :: Maybe Value
                  , tileAnimation   :: Maybe (Vector Frame)
+                 , tileImageheight :: Maybe Int
+                 , tileImagewidth  :: Maybe Int
+                 , tileProbability :: Maybe Float
+                 , tileType        :: Maybe Text
                  } deriving (Eq, Generic, Show)
 
 instance FromJSON Tile where
-- 
cgit v1.2.3