@@ -198,8 +198,21 @@ getGit :: Task.Task Exit.Publish Git
199 do maybeGit <- Task.io $ Dir.findExecutable "git"
199 do maybeGit <- Task.io $ Dir.findExecutable "git"
200 case maybeGit of
200 case maybeGit of
201− Just git -> return (Git (Process.rawSystem git))
201+ Nothing ->
202− Nothing -> Task.throw Exit.PublishNoGit
202+ Task.throw Exit.PublishNoGit
205+ return $ Git $ \args ->
208+ (Process.proc git args)
209+ { Process.std_in = Process.CreatePipe
210+ , Process.std_out = Process.CreatePipe
211+ , Process.std_err = Process.CreatePipe
214+ Process.withCreateProcess process $ \_ _ _ handle ->
215+ Process.waitForProcess handle