summaryrefslogtreecommitdiff
path: root/lib/Properties.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-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."