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
|
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
|
||||||
|
|
Loading…
Reference in a new issue