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

Setup.hs: don't ask darcs for the version history if _darcs is not present

Browse Source 
This is to avoid a (harmless) error message from darcs when compiling sources
obtained e.g. from github.
This commit is contained in:
hallgren
2014-09-11 11:47:17 +00:00
parent df0602723d
commit 4f9af46ed0
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Setup.hs
View File

@@ -383,7 +383,8 @@ extractDarcsVersion distFlag =
modname = "DarcsVersion_gf" modname = "DarcsVersion_gf"
askDarcs = askDarcs =
do tags <- lines `fmap` readProcess "darcs" ["show","tags"] "" do flip unless (fail "no _darcs") =<< doesDirectoryExist "_darcs"
tags <- lines `fmap` readProcess "darcs" ["show","tags"] ""
let from = case tags of let from = case tags of
[] -> [] [] -> []
tag:_ -> ["--from-tag="++tag] tag:_ -> ["--from-tag="++tag]