equal
deleted
inserted
replaced
48 h "GLOBAL" p = do |
48 h "GLOBAL" p = do |
49 cl <- thisClient |
49 cl <- thisClient |
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" = return . QueryReplay |
53 h "WATCH" f = return [QueryReplay f] |
54 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] |
54 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] |
55 |
55 |
56 handleCmd cmd = do |
56 handleCmd cmd = do |
57 (ci, irnc) <- ask |
57 (ci, irnc) <- ask |
58 let cl = irnc `client` ci |
58 let cl = irnc `client` ci |