add tag filters and refactor others
This commit is contained in:
parent
c4bb28242c
commit
49eff9c009
4 changed files with 49 additions and 27 deletions
|
@ -63,4 +63,4 @@ makeLink (Link {title, url, nsfw}) = [b|@4
|
|||
where nsfw' = if nsfw then " class=nsfw" else ""
|
||||
|
||||
hasNsfw :: GalleryFilters -> Bool
|
||||
hasNsfw (GalleryFilters {nsfw}) = nsfw /= Just False
|
||||
hasNsfw (GalleryFilters {nsfw}) = nsfw /= NoNsfw
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue