From 7671c1837a9c24328b857e55cf75d023962669a0 Mon Sep 17 00:00:00 2001
From: rhiannon morris <rhi@rhiannon.website>
Date: Mon, 21 Oct 2024 14:39:53 +0200
Subject: [PATCH] fix formatting for multiple updates

---
 make-pages/SinglePage.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs
index 5b24d90..1173cef 100644
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@@ -17,6 +17,7 @@ import qualified Data.HashSet as Set
 import Data.Traversable
 import Data.Semigroup
 import Data.List.NonEmpty (toList)
+import Data.Char (isSpace)
 
 
 -- | e.g. only nsfw images are present for a non-nsfw page
@@ -366,4 +367,8 @@ makeUpdate date ups = [b|
     <dd>$desc
   |] where
   date' = formatSlash date
-  desc  = mconcat $ map fromText $ intersperse "; " $ toList $ fmap (.desc) ups
+  desc  = mconcat $
+          intersperse "; " $
+          map (fromText . Strict.dropWhileEnd isSpace) $
+          toList $
+          fmap (.desc) ups