msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Setup.hs: fix off-by-one error the change count in the version info

Browse Source 
The difference between "One change" and "No changes" is very noticeable.
This commit is contained in:
hallgren
2015-10-02 11:46:29 +00:00
parent 1b2dfbb6d8
commit 5c933bd4cf
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Setup.hs
View File

@@ -392,18 +392,18 @@ extractDarcsVersion distFlag =
versionModulePath = autogenPath</>"DarcsVersion_gf.hs"
modname = "DarcsVersion_gf"
askDarcs =
do flip unless (fail "no _darcs") =<< doesDirectoryExist "_darcs"
tags <- lines `fmap` readProcess "darcs" ["show","tags"] ""
let from = case tags of
[] -> []
tag:_ -> ["--from-tag="++tag]
dates <- patches `fmap` readProcess "darcs" ("changes":from) ""
-- let dates = init' (filter ((`notElem` [""," "]).take 1) changes)
whatsnew <- tryIOE $ lines `fmap` readProcess "darcs" ["whatsnew","-s"] ""
return (listToMaybe tags,listToMaybe dates,
length dates,either (const 0) length whatsnew)
askDarcs =
do flip unless (fail "no _darcs") =<< doesDirectoryExist "_darcs"
tags <- lines `fmap` readProcess "darcs" ["show","tags"] ""
let from = case tags of
[] -> []
tag:_ -> ["--from-tag="++tag]
dates <- (init' . patches) `fmap` readProcess "darcs" ("changes":from) ""
-- let dates = init' (filter ((`notElem` [""," "]).take 1) changes)
whatsnew <- tryIOE $ lines `fmap` readProcess "darcs" ["whatsnew","-s"] ""
return (listToMaybe tags,listToMaybe dates,
length dates,either (const 0) length whatsnew)
where
init' [] = []
init' xs = init xs