diff --git a/src/GHCModi.hs b/src/GHCModi.hs
index 602e3e17..3f5c90a3 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