From e1718bb8614a77f5b71eaaf6f642917b7f55d9ec Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Tue, 4 Jan 2022 20:13:32 +0100
Subject: [PATCH] format long desc as a dl in rss

---
 make-pages/RSS.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/make-pages/RSS.hs b/make-pages/RSS.hs
index 7d98b04..f9b1f97 100644
--- a/make-pages/RSS.hs
+++ b/make-pages/RSS.hs
@@ -79,7 +79,7 @@ makeItem root prefix nsfw path i@(Info {title, artist}) = [b|@4
 makeDesc :: Desc -> Builder
 makeDesc NoDesc = ""
 makeDesc (TextDesc txt) = [b|$txt|]
-makeDesc (LongDesc fs) = [b|$fields|]
+makeDesc (LongDesc fs) = [b|<dl>$fields</dl>|]
  where
   fields = map makeField fs
-  makeField (DescField {name, text}) = [b|<b>$name</b>: $text|]
+  makeField (DescField {name, text}) = [b|<dt>$name <dd>$text|]