diff options
| -rw-r--r-- | lib/Properties.hs | 7 |
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 |