fix formatting for multiple updates

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