gameServer/HWProtoCore.hs
changeset 9770 5706b637bae2
parent 9753 9579596cf471
child 9787 0da6ba2f1f93
equal deleted inserted replaced
9769:5814e0c47c99 9770:5706b637bae2
    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 "UNFIX" _ = handleCmd ["UNFIX"]
    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