slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

;Shake changelogs: reduce excessive whitespace

Browse Source 
(cherry picked from commit 7b13778a29f4e4959077ccaa1186ebe57454ff22)
This commit is contained in:
Simon Michael 2020-12-23 14:45:53 -08:00
parent f2d2272737
commit 81b07dd6f5
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Shake.hs
View File

@ -90,7 +90,6 @@ usage =
,"Add -B, with nothing immediately after it, to force rebuilding." ,"Add -B, with nothing immediately after it, to force rebuilding."
] ]
-- TODO -- TODO
-- changelogs: too many blank lines after final heading
-- ,"./Shake releasebranch create a new release branch, bump master to next dev version (.99)" -- ,"./Shake releasebranch create a new release branch, bump master to next dev version (.99)"
-- ,"./Shake majorversion bump to the next major version project-wide, update affected files" -- ,"./Shake majorversion bump to the next major version project-wide, update affected files"
-- ,"./Shake minorversion PKGS bump one or more packages to their next minor version project-wide, update affected files" -- ,"./Shake minorversion PKGS bump one or more packages to their next minor version project-wide, update affected files"
@ -665,13 +664,12 @@ main = do
(newrev, newheading) (newrev, newheading)
| isNewRelease packageversion = (toTag packageversion, unwords [packageversion, show date]) | isNewRelease packageversion = (toTag packageversion, unwords [packageversion, show date])
| otherwise = (headrev, headrev) | otherwise = (headrev, headrev)
newcontent = "# "++newheading++"\n\n" ++ newitems newcontent = "# "++newheading++"\n" ++ newitems
newchangelog = unlines $ concat [ newchangelog =
preamble unlines preamble
,[newcontent] ++ newcontent
,if isCommitHash changelogversion then [] else [oldheading] ++ (if isCommitHash changelogversion then "" else oldheading)
,rest ++ unlines rest
]
liftIO $ if liftIO $ if
| lastrev == newrev -> pure () -- putStrLn $ out ++ ": up to date" | lastrev == newrev -> pure () -- putStrLn $ out ++ ": up to date"