equal
deleted
inserted
replaced
38 2 -> emulateSession sock $ session3 nick1 room1 |
38 2 -> emulateSession sock $ session3 nick1 room1 |
39 hClose sock |
39 hClose sock |
40 putStrLn "Finish" |
40 putStrLn "Finish" |
41 |
41 |
42 forks = forever $ do |
42 forks = forever $ do |
43 delay <- randomRIO (30000::Int, 69000) |
43 delay <- randomRIO (0::Int, 90000) |
44 threadDelay delay |
44 threadDelay delay |
45 forkIO testing |
45 forkIO testing |
46 |
46 |
47 main = withSocketsDo $ do |
47 main = withSocketsDo $ do |
48 #if !defined(mingw32_HOST_OS) |
48 #if !defined(mingw32_HOST_OS) |