add warnings for as-yet unlinted layer properties

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/Properties.hs b/lib/Properties.hs
index bdb7911..be6637b 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -204,11 +204,20 @@ checkLayerProperty p@(Property name _value) = case name of
     "silent" -> do
       isBool p
       uselessEmptyLayer
+    "collides" -> isUnsupported
+    "default" -> isUnsupported
+    "exitSceneUrl" -> isUnsupported
+    "jitsiWidth" -> isUnsupported
+    "name" -> isUnsupported
+    "readableBy" -> isUnsupported
+    "writableBy" -> isUnsupported
+    "zone" -> isUnsupported
     _ ->
       complain $ "unknown property type " <> prettyprint name
     where
       isForbidden = forbidProperty 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
       forbidEmptyLayer = do