From f779a778fb9d51dcd3c99c5a468e10bc7bf142b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 20 May 2015 12:05:43 +0200
Subject: [PATCH] spawnProcess doesn't exist before 7.8

---
 src/GHCModi.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GHCModi.hs b/src/GHCModi.hs
index 602e3e1..3f5c90a 100644
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@@ -15,5 +15,6 @@ main :: IO ()
 main = do
   args <- getArgs
   bindir <- getBinDir
-  h <- spawnProcess (bindir </> "ghc-mod") $ ["legacy-interactive"] ++ args
+  (_, _, _, h) <-
+    createProcess $ proc (bindir </> "ghc-mod") $ ["legacy-interactive"] ++ args
   exitWith =<< waitForProcess h