summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2021-12-18 17:33:08 +0100
committerstuebinm2021-12-18 17:33:08 +0100
commit96a3cc24b3b62e2e88b0d31e66204c16d20f2aa9 (patch)
treebb96684719ee2f85b5a7faf42afba817aacf08bc
parent8082e9ef10a08c362adba26aff4f2e5140f6f7f0 (diff)
quick badge bugfix
obviously, it should remove all objects defining badges, not those NOT defining badges …
-rw-r--r--lib/Properties.hs2
1 files changed, 1 insertions, 1 deletions
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