equal
deleted
inserted
replaced
60 evalStateT emulateSession sock |
60 evalStateT emulateSession sock |
61 --hClose sock |
61 --hClose sock |
62 putStr "-" |
62 putStr "-" |
63 hFlush stdout |
63 hFlush stdout |
64 |
64 |
65 forks = forM_ [1..100] $ const $ do |
65 forks = forever $ do |
66 delay <- randomRIO (10000::Int, 30000) |
66 delay <- randomRIO (0::Int, 80000) |
67 threadDelay delay |
67 threadDelay delay |
68 forkIO testing |
68 forkIO testing |
69 |
69 |
70 main = withSocketsDo $ do |
70 main = withSocketsDo $ do |
71 #if !defined(mingw32_HOST_OS) |
71 #if !defined(mingw32_HOST_OS) |