yet more tiled properties

1 files changed, 5 insertions, 1 deletions

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