fix nsfw filter
This commit is contained in:
parent
328ce7bf11
commit
97c2bc4cd3
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue