Commit e6687821 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-02-16 10:15:05 by simonmar]

computers have got a little fast for this test
parent d2d119d7
...@@ -8,5 +8,5 @@ import Control.Exception ...@@ -8,5 +8,5 @@ import Control.Exception
main = do main = do
forkIO (Control.Exception.catch (do { m <- newEmptyMVar; takeMVar m }) forkIO (Control.Exception.catch (do { m <- newEmptyMVar; takeMVar m })
(\e -> putStrLn ("caught: " ++ show e))) (\e -> putStrLn ("caught: " ++ show e)))
let x = sum [1..100000] let x = sum [1..500000]
x `seq` print x x `seq` print x
caught: thread blocked indefinitely caught: thread blocked indefinitely
5000050000 125000250000
Supports Markdown
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