Problem with Threading under GHC
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.
Trac metadata
Trac field |
Value |
Version |
None |
Type |
Bug |
TypeOfFailure |
OtherFailure |
Priority |
normal |
Resolution |
ResolvedNoReason |
Component |
GHCi |
Test case |
|
Differential revisions |
|
BlockedBy |
|
Related |
|
Blocking |
|
CC |
|
Operating system |
|
Architecture |
|