Problem with Threading under GHC

[schachblocki]

hi ghc-friends,

i try the following code, but it don't work:

import System.Process
import Control.Concurrent
import System.IO
p = threadDelay 10000000
main3 = do 	putStrLn "test"
		hClose stdin
		(inp, out, err, pid) <- 
runInteractiveProcess "Test.exe" [] Nothing Nothing
		p
		forkIO (putStrLn =<< 
hGetContents out)
  		forkIO (putStrLn =<< 
hGetContents err)
		p
		putStrLn "inp"
 		forkIO (hPutStrLn inp "in" >> 
hClose 
inp)
		p
		forkIO (putStrLn =<< 
hGetContents out)
  		forkIO (putStrLn =<< 
hGetContents err)
		putStrLn "out"
		threadDelay 1000000
		forkIO (hPutStrLn inp "quit" >> 
hClose 
inp)
 		hShow out
		return ()

thanks for helping.

[simonmar]

Logged In: YES 
user_id=48280

Please could you give more information: we don't know what
"Test.exe" is.  What do you expect to happen, and what in
fact does happen?  What behaviour are you claiming is at fault?

[anonymous]

No feedback from submitter after 1 month; closing the bug due to lack of information.