quick badge bugfix

obviously, it should remove all objects defining badges, not those NOT
defining badges …

lib/Properties.hs

@@ -197,7 +197,7 @@ checkLayer = do
 
       -- all objects which don't define badges
       publicObjects <- askContext <&>
-        fmap (V.filter (`containsProperty` "getBadge")) . layerObjects
+        fmap (V.filter (not . (`containsProperty` "getBadge"))) . layerObjects
 
       -- remove badges from output
       adjust $ \l -> l { layerObjects = publicObjects