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 c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]]

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

    54 

    55 

    55 handleCmd cmd = do

    56 handleCmd cmd = do

    56     (ci, irnc) <- ask

    57     (ci, irnc) <- ask

    57     let cl = irnc `client` ci

    58     let cl = irnc `client` ci