changeset 9770 | 5706b637bae2 |
parent 9753 | 9579596cf471 |
child 9787 | 0da6ba2f1f93 |
--- a/gameServer/HWProtoCore.hs Mon Dec 09 10:59:38 2013 -0500 +++ b/gameServer/HWProtoCore.hs Mon Dec 09 23:32:57 2013 +0400 @@ -52,6 +52,7 @@ return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl] h "WATCH" f = return [QueryReplay f] h "FIX" _ = handleCmd ["FIX"] + h "UNFIX" _ = handleCmd ["UNFIX"] h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] handleCmd cmd = do