equal
deleted
inserted
replaced
45 emulateSession = do |
45 emulateSession = do |
46 n <- io $ randomRIO (100000::Int, 100100) |
46 n <- io $ randomRIO (100000::Int, 100100) |
47 waitPacket "CONNECTED" |
47 waitPacket "CONNECTED" |
48 sendPacket ["NICK", "test" ++ show n] |
48 sendPacket ["NICK", "test" ++ show n] |
49 waitPacket "NICK" |
49 waitPacket "NICK" |
50 sendPacket ["PROTO", "31"] |
50 sendPacket ["PROTO", "41"] |
51 waitPacket "PROTO" |
51 waitPacket "PROTO" |
52 b <- waitPacket "LOBBY:JOINED" |
52 b <- waitPacket "LOBBY:JOINED" |
53 --io $ print b |
53 --io $ print b |
54 sendPacket ["QUIT", "BYE"] |
54 sendPacket ["QUIT", "BYE"] |
55 return () |
55 return () |