fix nsfw filter

This commit is contained in:
Rhiannon Morris 2020-07-25 13:58:33 +02:00
parent 328ce7bf11
commit 97c2bc4cd3

View file

@ -174,8 +174,8 @@ readNsfwFilter "all" = pure AllN
readNsfwFilter _ = empty readNsfwFilter _ = empty
matchNsfw :: NsfwFilter -> Info -> Bool matchNsfw :: NsfwFilter -> Info -> Bool
matchNsfw NoNsfw i = #allSfw i matchNsfw NoNsfw i = #anySfw i
matchNsfw OnlyNsfw i = #allNsfw i matchNsfw OnlyNsfw i = #anyNsfw i
matchNsfw AllN _ = True matchNsfw AllN _ = True
instance FromYAML NsfwFilter where instance FromYAML NsfwFilter where