GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki 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

4
Setup.hs
View File

@@ -398,12 +398,12 @@ extractDarcsVersion distFlag =
let from = case tags of let from = case tags of
[] -> [] [] -> []
tag:_ -> ["--from-tag="++tag] tag:_ -> ["--from-tag="++tag]
dates <- patches `fmap` readProcess "darcs" ("changes":from) "" dates <- (init' . patches) `fmap` readProcess "darcs" ("changes":from) ""
-- let dates = init' (filter ((`notElem` [""," "]).take 1) changes) -- let dates = init' (filter ((`notElem` [""," "]).take 1) changes)
whatsnew <- tryIOE $ lines `fmap` readProcess "darcs" ["whatsnew","-s"] "" whatsnew <- tryIOE $ lines `fmap` readProcess "darcs" ["whatsnew","-s"] ""
return (listToMaybe tags,listToMaybe dates, return (listToMaybe tags,listToMaybe dates,
length dates,either (const 0) length whatsnew) length dates,either (const 0) length whatsnew)
where
init' [] = [] init' [] = []
init' xs = init xs init' xs = init xs