From 11208222d47b4633026d94eff947e701390e7727 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 25 Jul 2019 08:46:13 +0100
Subject: [PATCH] shake: be more verbose when updating changelogs

[ci skip]
---
 Shake.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Shake.hs b/Shake.hs
index db8fc09a3..11e9c9450 100755
--- a/Shake.hs
+++ b/Shake.hs
@@ -585,7 +585,9 @@ main = do
                 ]
           liftIO $ if dryrun
                    then putStr newcontent
-                   else writeFile out newfile
+                   else do
+                     writeFile out newfile
+                     putStrLn $ out ++ ": updated to " ++ headrev
         )
 
     -- [PKG/]CHANGES.md-finalise <- PKG/.version
@@ -609,7 +611,9 @@ main = do
         date    <- liftIO getCurrentDay
         let (before, _:after) = break ("# " `isPrefixOf`) $ lines old
             new = unlines $ before ++ ["# "++version++" "++show date] ++ after
-        liftIO $ writeFile out new
+        liftIO $ do
+          writeFile out new
+          putStrLn $ out ++ ": updated to " ++ version
         )
 
     -- VERSION NUMBERS