84 let chans = map (sendChan . client rnc) $ allClients rnc |
84 let chans = map (sendChan . client rnc) $ allClients rnc |
85 return [AnswerClients chans ["CHAT", nickGlobal, p]] |
85 return [AnswerClients chans ["CHAT", nickGlobal, p]] |
86 h "WATCH" f = return [QueryReplay f] |
86 h "WATCH" f = return [QueryReplay f] |
87 h "FIX" _ = handleCmd ["FIX"] |
87 h "FIX" _ = handleCmd ["FIX"] |
88 h "UNFIX" _ = handleCmd ["UNFIX"] |
88 h "UNFIX" _ = handleCmd ["UNFIX"] |
89 h "GREETING" msg | not $ B.null msg = handleCmd ["GREETING", msg] |
89 h "GREETING" msg = handleCmd ["GREETING", msg] |
90 h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"] |
90 h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"] |
91 | otherwise = let (c, p) = extractParameters msg in |
91 | otherwise = let (c, p) = extractParameters msg in |
92 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
92 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
93 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
93 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
94 | otherwise = handleCmd ["VOTE", ""] |
94 | otherwise = handleCmd ["VOTE", ""] |