spawnProcess doesn't exist before 7.8

DanielG · May 20, 2015 · f779a77 · f779a77
1 parent a2e4a5d
commit f779a77
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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