From 8fc10996e17ba164dc8e29d77efd03113a1f63f0 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 14 Nov 2021 21:26:46 +0100
Subject: config options: implement script-related options

---
 lib/Tiled2.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/Tiled2.hs')

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
-- 
cgit v1.2.3