diff options
| author | stuebinm | 2021-12-13 23:58:06 +0100 |
|---|---|---|
| committer | stuebinm | 2021-12-13 23:58:38 +0100 |
| commit | 8548481fa152f146e7213cddca5e3b400999c150 (patch) | |
| tree | 295e4bd6f5c20b77dd241e631a742a4010e4da3a | |
| parent | 204d3f4a393cc1be5d0872e6fd53d014ede191a5 (diff) | |
refuse doubled map properties
| -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." |