fix nsfw filter

This commit is contained in:
Rhiannon Morris 2020-07-25 13:58:33 +02:00
parent 328ce7bf11
commit 97c2bc4cd3
1 changed files with 2 additions and 2 deletions

View File

@ -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