spawnProcess doesn't exist before 7.8

2015-05-20 12:05:43 +02:00 · 2015-05-20 12:05:43 +02:00 · f779a778fb
commit f779a778fb
parent a2e4a5d683
1 changed files with 2 additions and 1 deletions
--- 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