From fb614e639314abe3bf3cf93667708ac6d0749644 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Thu, 12 Mar 2015 11:55:38 +0100
Subject: Fix callProcess for process<1.2

---
 Distribution/Helper.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'Distribution/Helper.hs')

diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs
index febd4aa..a57ea93 100644
--- a/Distribution/Helper.hs
+++ b/Distribution/Helper.hs
@@ -202,7 +202,7 @@ writeAutogenFiles :: MonadIO m
                   -> m ()
 writeAutogenFiles distdir = liftIO $ do
   exe  <- findLibexecExe "cabal-helper-wrapper"
-  callProcess exe [distdir, "write-autogen-files"]
+  callProcess' exe [distdir, "write-autogen-files"]
 
 -- | This exception is thrown by all 'runQuery' functions if the internal
 -- wrapper executable cannot be found. You may catch this and present the user
@@ -276,3 +276,10 @@ getExecutablePath' =
 #else
     getProgName
 #endif
+
+callProcess' exe args =
+#if MIN_VERSION_process(1,2,0)
+    callProcess exe args
+#else
+    void $ readProcess exe args ""
+#endif
-- 
cgit v1.2.3