Small Setup.hs bug fix

Setup.hs failed to generate DarcsVersion_gf if dist/build/autogen does not exists.g
Added a line to create the directory if absent.
This commit is contained in:
gregoire.detrez
2012-06-09 12:49:01 +00:00
parent 1aecfe605b
commit 8412792d66

View File

@@ -374,12 +374,14 @@ default_gf pkg lbi = buildDir lbi </> exeName' </> exeNameReal
-- | Create autogen module with detailed version info by querying darcs
extractDarcsVersion distFlag =
do info <- E.try askDarcs
createDirectoryIfMissing True autogenPath
updateFile versionModulePath $ unlines $
["module "++modname++" where",
"darcs_info = "++show (either (const (Left ())) Right info)]
where
dist = fromFlagOrDefault "dist" distFlag
versionModulePath = dist</>"build"</>"autogen"</>"DarcsVersion_gf.hs"
autogenPath = dist</>"build"</>"autogen"
versionModulePath = autogenPath</>"DarcsVersion_gf.hs"
modname = "DarcsVersion_gf"
askDarcs =