config options: implement script-related options

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/Tiled2.hs b/lib/Tiled2.hs
index 873e22d..5b37f20 100644
--- a/lib/Tiled2.hs
+++ b/lib/Tiled2.hs
@@ -332,6 +332,11 @@ instance HasProperties Tileset where
   adjustProperties f tileset = tileset
     { tilesetProperties = f (getProperties tileset) }
 
+instance HasProperties Tiledmap where
+  getProperties = fromMaybe [] . tiledmapProperties
+  adjustProperties f tiledmap = tiledmap
+    { tiledmapProperties = f (getProperties tiledmap) }
+
 class HasName a where
   getName :: a -> Text
 instance HasName Layer where