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 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