From b475ad039a21dc84a2ed4507fd3df89d1887410a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 10 Nov 2019 18:32:21 -0800
Subject: [PATCH] ;shake: note an issue with atomic building of web manuals

[ci skip]
---
 Shake.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Shake.hs b/Shake.hs
index 06c6c0b58..9f7e361cf 100755
--- a/Shake.hs
+++ b/Shake.hs
@@ -334,6 +334,10 @@ main = do
       deps <- liftIO $ filter (/= src) . filter (".m4.md" `isSuffixOf`) . map (dir </>) <$> S.getDirectoryContents dir
       need $ [src, commonm4, packagem4] ++ deps
       when (manual=="hledger") $ need commandmds
+      -- add the web page's heading.
+      -- XXX Might be nice to do this atomically with the below, so
+      -- make avoid any double refresh when watch docs with entr/livereload.
+      -- But cmd Shell doesn't handle arguments containing spaces properly.
       liftIO $ writeFile out $ "# " ++ heading ++ "\n\n"
       cmd Shell
         "m4 -P -DMAN -DWEB -I" dir commonm4 packagem4 src "|"