diff -r 803b277e4894 -r 3f21a9dc93d0 gameServer/stresstest2.hs --- a/gameServer/stresstest2.hs Sat Mar 06 10:54:24 2010 +0000 +++ b/gameServer/stresstest2.hs Sat Mar 06 10:59:20 2010 +0000 @@ -15,21 +15,21 @@ #endif testing = Control.Exception.handle print $ do - delay <- randomRIO (100::Int, 300) - threadDelay delay - sock <- connectTo "127.0.0.1" (PortNumber 46631) - hClose sock + delay <- randomRIO (100::Int, 300) + threadDelay delay + sock <- connectTo "127.0.0.1" (PortNumber 46631) + hClose sock forks i = do - delay <- randomRIO (50::Int, 190) - if i `mod` 10 == 0 then putStr (show i) else putStr "." - hFlush stdout - threadDelay delay - forkIO testing - forks (i + 1) + delay <- randomRIO (50::Int, 190) + if i `mod` 10 == 0 then putStr (show i) else putStr "." + hFlush stdout + threadDelay delay + forkIO testing + forks (i + 1) main = withSocketsDo $ do #if !defined(mingw32_HOST_OS) - installHandler sigPIPE Ignore Nothing; + installHandler sigPIPE Ignore Nothing; #endif - forks 1 + forks 1