equal
deleted
inserted
replaced
28 |
28 |
29 |
29 |
30 handleCmd ["PONG"] = do |
30 handleCmd ["PONG"] = do |
31 cl <- thisClient |
31 cl <- thisClient |
32 if pingsQueue cl == 0 then |
32 if pingsQueue cl == 0 then |
33 return $ actionsPending cl ++ [ModifyClient (\c -> c{actionsPending = []})] |
33 return [ProtocolError "Protocol violation"] |
34 else |
34 else |
35 return [ModifyClient (\c -> c{pingsQueue = pingsQueue c - 1})] |
35 return [ModifyClient (\c -> c{pingsQueue = pingsQueue c - 1})] |
36 |
36 |
37 handleCmd ("CMD" : parameters) = |
37 handleCmd ("CMD" : parameters) = |
38 let c = concatMap B.words parameters in |
38 let c = concatMap B.words parameters in |