diff -r bc3410104894 -r 772a46ef8288 gameServer/HWProtoNEState.hs
--- 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] :