spawnProcess doesn't exist before 7.8

This commit is contained in:
Daniel Gröber 2015-05-20 12:05:43 +02:00
parent a2e4a5d683
commit f779a778fb

View File

@ -15,5 +15,6 @@ main :: IO ()
main = do main = do
args <- getArgs args <- getArgs
bindir <- getBinDir bindir <- getBinDir
h <- spawnProcess (bindir </> "ghc-mod") $ ["legacy-interactive"] ++ args (_, _, _, h) <-
createProcess $ proc (bindir </> "ghc-mod") $ ["legacy-interactive"] ++ args
exitWith =<< waitForProcess h exitWith =<< waitForProcess h