changeset 3566 | 772a46ef8288 |
parent 3538 | b11ac2677e42 |
child 3671 | a94d1dc4a8d9 |
--- a/gameServer/HWProtoNEState.hs Sat Jun 26 16:58:19 2010 +0400 +++ b/gameServer/HWProtoNEState.hs Sun Jun 27 21:06:41 2010 +0400 @@ -35,9 +35,9 @@ (ci, irnc) <- ask let cl = irnc `client` ci if clientProto cl > 0 then return [ProtocolError "Protocol already known"] - else + else if parsedProto == 0 then return [ProtocolError "Bad number"] - else + else return $ ModifyClient (\c -> c{clientProto = parsedProto}) : AnswerClients [sendChan cl] ["PROTO", B.pack $ show parsedProto] :