65 handleCmd_loggedin ["CMD", parameters] = uncurry h $ extractParameters parameters |
65 handleCmd_loggedin ["CMD", parameters] = uncurry h $ extractParameters parameters |
66 where |
66 where |
67 h "DELEGATE" n | not $ B.null n = handleCmd ["DELEGATE", n] |
67 h "DELEGATE" n | not $ B.null n = handleCmd ["DELEGATE", n] |
68 h "SAVEROOM" n | not $ B.null n = handleCmd ["SAVEROOM", n] |
68 h "SAVEROOM" n | not $ B.null n = handleCmd ["SAVEROOM", n] |
69 h "LOADROOM" n | not $ B.null n = handleCmd ["LOADROOM", n] |
69 h "LOADROOM" n | not $ B.null n = handleCmd ["LOADROOM", n] |
70 h "SAVE" n | not $ B.null n = handleCmd ["SAVE", n] |
70 h "SAVE" n | not $ B.null n = let (sn, ln) = B.break (== ' ') n in if B.null ln then return [] else handleCmd ["SAVE", sn, B.tail ln] |
71 h "DELETE" n | not $ B.null n = handleCmd ["DELETE", n] |
71 h "DELETE" n | not $ B.null n = handleCmd ["DELETE", n] |
72 h "STATS" _ = handleCmd ["STATS"] |
72 h "STATS" _ = handleCmd ["STATS"] |
73 h "PART" m | not $ B.null m = handleCmd ["PART", m] |
73 h "PART" m | not $ B.null m = handleCmd ["PART", m] |
74 | otherwise = handleCmd ["PART"] |
74 | otherwise = handleCmd ["PART"] |
75 h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m] |
75 h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m] |