diff options
| -rw-r--r-- | lib/Properties.hs | 3 |
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." |