From 8548481fa152f146e7213cddca5e3b400999c150 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 13 Dec 2021 23:58:06 +0100
Subject: refuse doubled map properties

---
 lib/Properties.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index c106b9f..bb18499 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -58,6 +58,7 @@ checkMap = do
   -- not specific to any one of them
   refuseDoubledNames (tiledmapLayers tiledmap)
   refuseDoubledNames (tiledmapTilesets tiledmap)
+  refuseDoubledNames (getProperties tiledmap)
 
   -- some layers should exist
   unlessElementNamed (tiledmapLayers tiledmap) "start"
@@ -161,7 +162,7 @@ checkLayer :: LintWriter Layer
 checkLayer = do
   layer <- askContext
 
-  refuseDoubledNames (getProperties  layer)
+  refuseDoubledNames (getProperties layer)
 
   when (isJust (layerImage layer))
     $ complain "imagelayer are not supported."
-- 
cgit v1.2.3