From 455db07495b4d3d20328ff0e0b410551130495ce Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 3 Jun 2025 07:34:52 -1000
Subject: [PATCH] ;tools: Shake changelogs: fix missing blank lines around old
 heading

---
 Shake.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Shake.hs b/Shake.hs
index d2a6d0f21..96099a0be 100755
--- a/Shake.hs
+++ b/Shake.hs
@@ -747,14 +747,16 @@ main = do
               :: Action (Stdout String))
 
             -- Add the new heading and change items to the changelog, or print them.
-            let newcontent = "# " ++ latestrev ++ "\n" ++ newitems
+            let newcontent = "# " ++ latestrev ++ "\n\n" ++ newitems ++ "\n"
             liftIO $ if dryrun
               then putStr $ out ++ ":\n" ++ newcontent
               else do
                 writeFile out $ concat [
                   unlines preamble
                   ,newcontent
+                  ,"\n"
                   ,if isCommitHash oldversion then "" else oldheading
+                  ,"\n"
                   ,unlines rest
                   ]
                 putStrLn (out ++ ": updated to " ++ latestrev)