equal
deleted
inserted
replaced
21 handleCmd ["PING"] = answerClient ["PONG"] |
21 handleCmd ["PING"] = answerClient ["PONG"] |
22 |
22 |
23 |
23 |
24 handleCmd ("QUIT" : xs) = return [ByeClient msg] |
24 handleCmd ("QUIT" : xs) = return [ByeClient msg] |
25 where |
25 where |
26 msg = if not $ null xs then head xs else "bye" |
26 msg = if not $ null xs then head xs else loc "bye" |
27 |
27 |
28 |
28 |
29 handleCmd ["PONG"] = do |
29 handleCmd ["PONG"] = do |
30 cl <- thisClient |
30 cl <- thisClient |
31 if pingsQueue cl == 0 then |
31 if pingsQueue cl == 0 then |