diff -r b47ebd95c885 -r 4229507909d6 gameServer/stresstest3.hs --- a/gameServer/stresstest3.hs Mon Mar 28 16:30:44 2011 +0200 +++ b/gameServer/stresstest3.hs Mon Mar 28 20:28:59 2011 +0400 @@ -62,8 +62,8 @@ putStr "-" hFlush stdout -forks = forM_ [1..100] $ const $ do - delay <- randomRIO (10000::Int, 30000) +forks = forever $ do + delay <- randomRIO (0::Int, 80000) threadDelay delay forkIO testing