diff --git a/lib/Properties.hs b/lib/Properties.hs index e5947510d2f5e1098ac5f6798e1f25fdb10c56ee..b586c7ea9a07d0711e188c2555d41c504ea6b5f5 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -492,7 +492,8 @@ checkTileThing removeExits p@(Property name _value) = case name of (dependsOn . Link) (const $ forbid "accessing local html files is disallowed.") | otherwise -> - warnUnknown p knownTileLayerProperites + when (not removeExits || name `notElem` [ "collides", "name", "tilesetCopyright" ]) $ do + warnUnknown p knownTileLayerProperites where requireProperty req = propertyRequiredBy req name requireOneOf names = do