From 96a3cc24b3b62e2e88b0d31e66204c16d20f2aa9 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 18 Dec 2021 17:33:08 +0100
Subject: quick badge bugfix

obviously, it should remove all objects defining badges, not those NOT
defining badges …
---
 lib/Properties.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index db1ca41..c057b63 100644
--- a/lib/Properties.hs
+++ b/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
-- 
cgit v1.2.3