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