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" f = return [QueryReplay f]

    53         h "WATCH" f = return [QueryReplay f]

    54         h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]]

    55         h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]]

    55 

    56 

    56 handleCmd cmd = do

    57 handleCmd cmd = do

    57     (ci, irnc) <- ask

    58     (ci, irnc) <- ask

    58     let cl = irnc `client` ci

    59     let cl = irnc `client` ci