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

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 5c0ef5c4ed
commit 7cf87a3441

View File

@@ -383,7 +383,8 @@ extractDarcsVersion distFlag =
modname = "DarcsVersion_gf"
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
[] -> []
tag:_ -> ["--from-tag="++tag]