From aff4b7d89e5ef3a7c30b3e27adf0ad9c36f60c55 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Fri, 17 Jul 2020 16:00:55 +0200
Subject: [PATCH] got tags backwards

---
 make-pages/SinglePage.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs
index ab7682f..a3cab51 100644
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@@ -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 =