summaryrefslogtreecommitdiff
path: root/lib/Properties.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Properties.hs')
-rw-r--r--lib/Properties.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs
index daedabc..7425a08 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -227,7 +227,6 @@ checkLayer = do
"group" -> pure ()
"objectgroup" -> do
-
-- check object properties
objs <- forM (layerObjects layer) $ mapM $ \object -> do
-- this is a confusing constant zoom ...
@@ -328,8 +327,10 @@ checkObjectProperty p@(Property name _) = do
-- | Checks a single (custom) property of an objectgroup layer
checkObjectGroupProperty :: Property -> LintWriter Layer
-checkObjectGroupProperty (Property name _) =
- warn $ "unknown property " <> prettyprint name <> " for objectgroup layers"
+checkObjectGroupProperty (Property name _) = case name of
+ "getBadge" -> warn $ "the property \"getBadge\" must be set on individual objects, \
+ \not the object layer."
+ _ -> warn $ "unknown property " <> prettyprint name <> " for objectgroup layers"
-- | Checks a single (custom) property of a "normal" tile layer