diff --git a/lib/Properties.hs b/lib/Properties.hs index bb18499cce63ec2c7775b380ef5c865bdecf6a6e..db4908e310562f873447d57d4f0819b9604adf7b 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -343,10 +343,9 @@ checkTileLayerProperty p@(Property name _value) = case name of "startLayer" -> do forbidEmptyLayer layer <- askContext - offersEntrypoint $ layerName layer unwrapBool p $ \case - True -> pure () - False -> complain "property \"startLayer\" must be set to true." + True -> offersEntrypoint $ layerName layer + False -> warn "property \"startLayer\" is useless if set to false." "silent" -> do isBool p uselessEmptyLayer