diff --git a/lib/Properties.hs b/lib/Properties.hs index 9f995b0baadd1ad4af650a951db9d380f005f199..74fd72a81e4f644d92b01b9a5445768093a32f7e 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -118,9 +118,16 @@ checkLayer = do case layerType layer of "tilelayer" -> mapM_ checkLayerProperty (getProperties layer) + "group" -> pure () ty -> unless (layerName layer == "floorLayer" && ty == "objectgroup") $ complain "only tilelayer are supported." + if layerType layer == "group" + then when (null (layerLayers layer)) + $ warn "Empty group layers are pointless." + else when (isJust (layerLayers layer)) + $ complain "Layer is not of type \"group\", but has sublayers." + -- | Checks a single (custom) property of a layer --