equal
deleted
inserted
replaced
50 rnc <- liftM snd ask |
50 rnc <- liftM snd ask |
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 c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] |
56 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] |
56 |
57 |
57 handleCmd cmd = do |
58 handleCmd cmd = do |
58 (ci, irnc) <- ask |
59 (ci, irnc) <- ask |
59 let cl = irnc `client` ci |
60 let cl = irnc `client` ci |