Skip to content
Snippets Groups Projects
Commit e327c7f2 authored by stuebinm's avatar stuebinm
Browse files

add warnings for as-yet unlinted layer properties

parent 2464f639
No related branches found
No related tags found
No related merge requests found
...@@ -204,11 +204,20 @@ checkLayerProperty p@(Property name _value) = case name of ...@@ -204,11 +204,20 @@ checkLayerProperty p@(Property name _value) = case name of
"silent" -> do "silent" -> do
isBool p isBool p
uselessEmptyLayer uselessEmptyLayer
"collides" -> isUnsupported
"default" -> isUnsupported
"exitSceneUrl" -> isUnsupported
"jitsiWidth" -> isUnsupported
"name" -> isUnsupported
"readableBy" -> isUnsupported
"writableBy" -> isUnsupported
"zone" -> isUnsupported
_ -> _ ->
complain $ "unknown property type " <> prettyprint name complain $ "unknown property type " <> prettyprint name
where where
isForbidden = forbidProperty name isForbidden = forbidProperty name
requireProperty req = propertyRequiredBy req name requireProperty req = propertyRequiredBy req name
isUnsupported = warn $ "property " <> name <> " is not (yet) supported by walint."
-- | this property can only be used on a layer that contains at least one tiles -- | this property can only be used on a layer that contains at least one tiles
forbidEmptyLayer = do forbidEmptyLayer = do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment