changeset 3673 | 45778b16b224 |
parent 3671 | a94d1dc4a8d9 |
child 3741 | 73246d25dfe1 |
3671:a94d1dc4a8d9 | 3673:45778b16b224 |
---|---|
61 --hClose sock |
61 --hClose sock |
62 putStr "-" |
62 putStr "-" |
63 hFlush stdout |
63 hFlush stdout |
64 |
64 |
65 forks = forever $ do |
65 forks = forever $ do |
66 delay <- randomRIO (20000::Int, 40000) |
66 delay <- randomRIO (10000::Int, 30000) |
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) |