diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Properties.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 341426d..aafe61c 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -292,7 +292,7 @@ checkObjectProperty p@(Property name _) = do $ complain "property \"soundRadius\" can only be set on objects with \ \either property \"bell\" or \"door\" also set." - _ | name `elem` [ "default", "persist" ] -> do + _ | name `elem` [ "default", "persist" ] -> suggestPropertyName' "door" -- extended API for doors and bells | name `elem` [ "openLayer", "closeLayer" ] -> do @@ -329,7 +329,7 @@ checkObjectProperty p@(Property name _) = do -- | Checks a single (custom) property of an objectgroup layer checkObjectGroupProperty :: Property -> LintWriter Layer checkObjectGroupProperty (Property name _) = case name of - "getBadge" -> warn $ "the property \"getBadge\" must be set on individual objects, \ + "getBadge" -> warn "the property \"getBadge\" must be set on individual objects, \ \not the object layer." _ -> warn $ "unknown property " <> prettyprint name <> " for objectgroup layers" @@ -593,7 +593,7 @@ whenLayerCollisions layers f andthen = do -- | this property is forbidden and should not be used forbidProperty :: HasProperties a => Text -> LintWriter a -forbidProperty name = do +forbidProperty name = forbid $ "property " <> prettyprint name <> " is disallowed." propertyRequiredBy :: HasProperties a => Text -> Text -> LintWriter a |