From 96a3cc24b3b62e2e88b0d31e66204c16d20f2aa9 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Sat, 18 Dec 2021 17:33:08 +0100
Subject: [PATCH] quick badge bugfix
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
obviously, it should remove all objects defining badges, not those NOT
defining badges …
---
lib/Properties.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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
--
GitLab