diff options
| -rw-r--r-- | lib/Properties.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index bb18499..db4908e 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 |