diff -r 312f4dd41753 -r db4726bf9205 gameServer/stresstest.hs --- a/gameServer/stresstest.hs Sat Mar 12 22:55:25 2011 +0300 +++ b/gameServer/stresstest.hs Sun Mar 13 15:09:04 2011 +0300 @@ -19,7 +19,7 @@ session3 nick room = ["NICK", nick, "", "PROTO", "32", "", "LIST", "", "JOIN_ROON", room, "", "CHAT", "room 2", "", "QUIT", "quit", ""] emulateSession sock s = do - mapM_ (\x -> hPutStrLn sock x >> hFlush sock >> randomRIO (30000::Int, 59000) >>= threadDelay) s + mapM_ (\x -> hPutStrLn sock x >> hFlush sock >> randomRIO (3000000::Int, 5900000) >>= threadDelay) s hFlush sock threadDelay 225000