Commit e7632628 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-11-10 12:32:24 by simonmar]

fix for this test: there was a missing hFlush
parent 30dd6550
......@@ -14,7 +14,7 @@ main = do
-- test should run quickly, but arrange to kill it if it hangs for any reason:
main_t <- myThreadId
forkIO $ do
threadDelay 2000000
threadDelay 10000000
throwTo main_t (ErrorCall "killed")
zipWithM_ ($)
......@@ -169,5 +169,6 @@ writeProcNB m1 m2 h = do
takeMVar m2
withCString "end" $ \s -> do
hPutBuf h s 3
hFlush h
putMVar m1 ()
hClose h
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment