got tags backwards

This commit is contained in:
Rhiannon Morris 2020-07-17 16:00:55 +02:00
parent 602277f7e6
commit aff4b7d89e

View file

@ -172,7 +172,7 @@ makeTags nsfw sfwTags nsfwTags =
where
tagList = map makeTag tags
makeTag t = [b|<li>$*t|]
tags = List.nub $ if nsfw then sfwTags else sfwTags <> nsfwTags
tags = List.nub $ if nsfw then sfwTags <> nsfwTags else sfwTags
extLinks :: Bool -> [Link] -> Builder
extLinks nsfw allLinks =