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.

1 files changed, 3 insertions, 1 deletions

diff --git a/Setup.hs b/Setup.hs
index c0eee9101..1e6ee0b92 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -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 =