equal
deleted
inserted
replaced
38 handleCmd ["PING"] = answerClient ["PONG"] |
38 handleCmd ["PING"] = answerClient ["PONG"] |
39 |
39 |
40 |
40 |
41 handleCmd ("QUIT" : xs) = return [ByeClient msg] |
41 handleCmd ("QUIT" : xs) = return [ByeClient msg] |
42 where |
42 where |
43 msg = if not $ null xs then head xs else loc "bye" |
43 msg = if not $ null xs then "User quit: " `B.append` (head xs) else loc "bye" |
44 |
44 |
45 |
45 |
46 handleCmd ["PONG"] = do |
46 handleCmd ["PONG"] = do |
47 cl <- thisClient |
47 cl <- thisClient |
48 if pingsQueue cl == 0 then |
48 if pingsQueue cl == 0 then |