shake: be more verbose when updating changelogs

[ci skip]
This commit is contained in:
Simon Michael 2019-07-25 08:46:13 +01:00
parent 49523b1611
commit 11208222d4

View File

@ -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