spawnProcess doesn't exist before 7.8
This commit is contained in:
parent
a2e4a5d683
commit
f779a778fb
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user