@@ -47,7 +47,7 @@ terminates, and then returns the 'ExitCode' of the process,
47the standard output, and the standard error.
47the standard output, and the standard error.
49If an asynchronous exception is thrown to the thread executing
49If an asynchronous exception is thrown to the thread executing
50−@readProcessWithExitCode@. The forked process will be terminated and
50+@readProcessWithExitCode@, the forked process will be terminated and
51@readProcessWithExitCode@ will wait (block) until the process has been
51@readProcessWithExitCode@ will wait (block) until the process has been
52terminated.
52terminated.
@@ -102,4 +102,3 @@ forkWait a = do
102 res <- newEmptyMVar
102 res <- newEmptyMVar
103 _ <- mask $ \restore -> forkIO $ try (restore a) >>= putMVar res
103 _ <- mask $ \restore -> forkIO $ try (restore a) >>= putMVar res
104 return (takeMVar res >>= either (\ex -> throwIO (ex :: SomeException)) return)
104 return (takeMVar res >>= either (\ex -> throwIO (ex :: SomeException)) return)