From 8412792d668f324f02310dded3996984c481b062 Mon Sep 17 00:00:00 2001
From: "gregoire.detrez" <gregoire.detrez@gu.se>
Date: Sat, 9 Jun 2012 12:49:01 +0000
Subject: [PATCH] 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.
---
 Setup.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 =