From 6e75f701f63f1915d442c6b13126b1c3a8e95876 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Tue, 29 Oct 2024 01:44:31 +0100
Subject: tiled: relax requirement of objects' types
---
tiled/Data/Tiled.hs | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
(limited to 'tiled/Data')
diff --git a/tiled/Data/Tiled.hs b/tiled/Data/Tiled.hs
index 99c5c9d..0c95e62 100644
--- a/tiled/Data/Tiled.hs
+++ b/tiled/Data/Tiled.hs
@@ -111,7 +111,7 @@ data Object = ObjectRectangle
, objectHeight :: Maybe Double
, objectEllipse :: Maybe Bool
, objectPoint :: Maybe Bool
- , objectType :: Text
+ , objectType :: Maybe Text
}
| ObjectPolygon
{ objectId :: Int
@@ -124,7 +124,7 @@ data Object = ObjectRectangle
, objectGid :: Maybe GlobalId
, objectWidth :: Maybe Double
, objectHeight :: Maybe Double
- , objectType :: Text
+ , objectType :: Maybe Text
, objectPolygon :: Vector Point
}
| ObjectPolyline
@@ -138,7 +138,7 @@ data Object = ObjectRectangle
, objectGid :: Maybe GlobalId
, objectWidth :: Maybe Double
, objectHeight :: Maybe Double
- , objectType :: Text
+ , objectType :: Maybe Text
, objectPolyline :: Vector Point
}
| ObjectText
@@ -150,11 +150,11 @@ data Object = ObjectRectangle
, objectY :: Double
, objectRotation :: Double
, objectGid :: Maybe GlobalId
- , objectText :: A.Value
+ , objectText :: Maybe A.Value
, objectWidth :: Maybe Double
, objectHeight :: Maybe Double
, objectEllipse :: Maybe Bool
- , objectType :: Text
+ , objectType :: Maybe Text
} deriving (Eq, Generic, Show, NFData)
--
cgit v1.2.3