equal
deleted
inserted
replaced
51 let chans = map (sendChan . client rnc) $ allClients rnc |
51 let chans = map (sendChan . client rnc) $ allClients rnc |
52 return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl] |
52 return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl] |
53 h "WATCH" f = return [QueryReplay f] |
53 h "WATCH" f = return [QueryReplay f] |
54 h "FIX" _ = handleCmd ["FIX"] |
54 h "FIX" _ = handleCmd ["FIX"] |
55 h "UNFIX" _ = handleCmd ["UNFIX"] |
55 h "UNFIX" _ = handleCmd ["UNFIX"] |
|
56 h "GREETING" msg = handleCmd ["GREETING", msg] |
56 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] |
57 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] |
57 |
58 |
58 handleCmd cmd = do |
59 handleCmd cmd = do |
59 (ci, irnc) <- ask |
60 (ci, irnc) <- ask |
60 let cl = irnc `client` ci |
61 let cl = irnc `client` ci |