summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorstuebinm2021-12-13 23:58:06 +0100
committerstuebinm2021-12-13 23:58:38 +0100
commit8548481fa152f146e7213cddca5e3b400999c150 (patch)
tree295e4bd6f5c20b77dd241e631a742a4010e4da3a /lib
parent204d3f4a393cc1be5d0872e6fd53d014ede191a5 (diff)
refuse doubled map properties
Diffstat (limited to 'lib')
-rw-r--r--lib/Properties.hs3
1 files changed, 2 insertions, 1 deletions
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."