add tag filters and refactor others

This commit is contained in:
Rhiannon Morris 2020-07-25 01:10:52 +02:00
parent c4bb28242c
commit 49eff9c009
4 changed files with 49 additions and 27 deletions

View file

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