equal
deleted
inserted
replaced
34 return [ModifyClient (\c -> c{pingsQueue = pingsQueue c - 1})] |
34 return [ModifyClient (\c -> c{pingsQueue = pingsQueue c - 1})] |
35 |
35 |
36 handleCmd ["CMD", parameters] = uncurry h $ extractParameters parameters |
36 handleCmd ["CMD", parameters] = uncurry h $ extractParameters parameters |
37 where |
37 where |
38 h "DELEGATE" n | not $ B.null n = handleCmd ["DELEGATE", n] |
38 h "DELEGATE" n | not $ B.null n = handleCmd ["DELEGATE", n] |
|
39 h "SAVE" n | not $ B.null n = handleCmd ["SAVE", n] |
|
40 h "DELETE" n | not $ B.null n = handleCmd ["DELETE", n] |
39 h "STATS" _ = handleCmd ["STATS"] |
41 h "STATS" _ = handleCmd ["STATS"] |
40 h "PART" m | not $ B.null m = handleCmd ["PART", m] |
42 h "PART" m | not $ B.null m = handleCmd ["PART", m] |
41 | otherwise = handleCmd ["PART"] |
43 | otherwise = handleCmd ["PART"] |
42 h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m] |
44 h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m] |
43 | otherwise = handleCmd ["QUIT"] |
45 | otherwise = handleCmd ["QUIT"] |