diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Tiled.hs | 33 |
1 files changed, 10 insertions, 23 deletions
diff --git a/lib/Tiled.hs b/lib/Tiled.hs index fa876ee..c5abb21 100644 --- a/lib/Tiled.hs +++ b/lib/Tiled.hs @@ -121,32 +121,19 @@ instance ToJSON Point where -- | all kinds of objects that can occur in object layers, even -- | those that we don't want to allow. -data Object = ObjectPoint +data Object = ObjectRectangle { objectId :: Int , objectName :: Maybe String , objectProperties :: Maybe (Vector Property) , objectVisible :: Maybe Bool , objectX :: Double , objectY :: Double - , objectHeight :: Double - , objectWidth :: Double , objectRotation :: Double , objectGid :: Maybe GlobalId - , objectType :: Text - , objectPoint :: Bool - } - | ObjectRectangle - { objectId :: Int - , objectName :: Maybe String - , objectProperties :: Maybe (Vector Property) - , objectVisible :: Maybe Bool - , objectX :: Double - , objectY :: Double - , objectRotation :: Double - , objectGid :: Maybe GlobalId - , objectWidth :: Double - , objectHeight :: Double + , objectWidth :: Maybe Double + , objectHeight :: Maybe Double , objectEllipse :: Maybe Bool + , objectPoint :: Maybe Bool , objectType :: Text } | ObjectPolygon @@ -158,8 +145,8 @@ data Object = ObjectPoint , objectY :: Double , objectRotation :: Double , objectGid :: Maybe GlobalId - , objectWidth :: Double - , objectHeight :: Double + , objectWidth :: Maybe Double + , objectHeight :: Maybe Double , objectType :: Text , objectPolygon :: Vector Point } @@ -172,9 +159,9 @@ data Object = ObjectPoint , objectY :: Double , objectRotation :: Double , objectGid :: Maybe GlobalId - , objectWidth :: Double + , objectWidth :: Maybe Double + , objectHeight :: Maybe Double , objectType :: Text - , objectHeight :: Double , objectPolyline :: Vector Point } | ObjectText @@ -187,8 +174,8 @@ data Object = ObjectPoint , objectRotation :: Double , objectGid :: Maybe GlobalId , objectText :: A.Value - , objectWidth :: Double - , objectHeight :: Double + , objectWidth :: Maybe Double + , objectHeight :: Maybe Double , objectEllipse :: Maybe Bool , objectType :: Text } deriving (Eq, Generic, Show) |