changeset 9753 | 9579596cf471 |
parent 9448 | 04e0acfa7c2c |
child 9770 | 5706b637bae2 |
--- a/gameServer/HWProtoCore.hs Wed Dec 04 12:28:04 2013 +0100 +++ b/gameServer/HWProtoCore.hs Thu Dec 05 00:51:27 2013 +0400 @@ -51,6 +51,7 @@ let chans = map (sendChan . client rnc) $ allClients rnc return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl] h "WATCH" f = return [QueryReplay f] + h "FIX" _ = handleCmd ["FIX"] h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] handleCmd cmd = do