From 8548481fa152f146e7213cddca5e3b400999c150 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Mon, 13 Dec 2021 23:58:06 +0100
Subject: [PATCH] refuse doubled map properties
---
lib/Properties.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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."
--
GitLab