From 97c2bc4cd3cb911bf3190f66d5b3e2005a23eb6e Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 25 Jul 2020 13:58:33 +0200
Subject: [PATCH] fix nsfw filter

---
 make-pages/Info.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/make-pages/Info.hs b/make-pages/Info.hs
index 483041f..fb789f4 100644
--- a/make-pages/Info.hs
+++ b/make-pages/Info.hs
@@ -174,8 +174,8 @@ readNsfwFilter "all"  = pure AllN
 readNsfwFilter _      = empty
 
 matchNsfw :: NsfwFilter -> Info -> Bool
-matchNsfw NoNsfw   i = #allSfw  i
-matchNsfw OnlyNsfw i = #allNsfw i
+matchNsfw NoNsfw   i = #anySfw  i
+matchNsfw OnlyNsfw i = #anyNsfw i
 matchNsfw AllN     _ = True
 
 instance FromYAML NsfwFilter where