GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Small Setup.hs bug fix

Browse Source 
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
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Setup.hs
View File

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