From 1b839fcc211468992ff06972afb55c3ee16385b0 Mon Sep 17 00:00:00 2001
From: rhiannon morris <rhi@rhiannon.website>
Date: Sat, 12 Nov 2022 12:13:02 +0100
Subject: [PATCH] fixes for multi-update stuff

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

diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs
index 475df8d..8817f52 100644
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@@ -216,6 +216,8 @@ makeButtonBar title images =
     Cat   cats
       | all ((<= 1) . length . snd) cats ->
           makeButtonBar title $ Uncat $ flatten cats
+      | [(_, imgs)] <- cats ->
+          makeButtonBar title (Uncat imgs)
       | otherwise ->
           makeNav "cat"   $ map (uncurry makeCat) cats
  where
@@ -291,7 +293,7 @@ extLink (Link {title, url}) = [b|@8
 
 makeUpdates :: [(Date, [Update])] -> Builder
 makeUpdates ups =
-  if null ups then "" else [b|@4
+  if all (null . snd) ups then "" else [b|@4
     <section id=updates class=info-section>
       <h2>updates</h2>
       <dl>
@@ -302,6 +304,7 @@ makeUpdates ups =
  where updateList = map (uncurry makeUpdate) ups
 
 makeUpdate :: Date -> [Update] -> Builder
+makeUpdate _    []  = ""
 makeUpdate date ups = [b|@8
     <dt>$date'
     <dd>$desc