X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FProcess.hs;h=918d5a8cb43e96125367009c782b48abb1a6732f;hb=28fb12f4e4059674e9396fc76a2783e0ae8798cd;hp=e2539f5b42995855bb139085ea5027b8b0f0e7f4;hpb=c1ca624c2ce1460d64678be5daa195a09d793f9f;p=ghc-base.git

diff --git a/System/Process.hs b/System/Process.hs
index e2539f5..918d5a8 100644
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -172,8 +172,8 @@ runInteractiveCommand string = do
 
     For example, to start a process and feed a string to its stdin:
    
->   (in,out,err,pid) <- runInteractiveProcess "..."
->   forkIO (hPutStr in str)
+>   (inp,out,err,pid) <- runInteractiveProcess "..."
+>   forkIO (hPutStr inp str)
 -}
 runInteractiveProcess
   :: FilePath			-- ^ Filename of the executable