# HG changeset patch
# User unc0rr
# Date 1301823093 -14400
# Node ID 2922455e606e6fbc233141b6df663192b9eed668
# Parent  90266b67fff8d0aea8041ce81beb4fefa08de9b3
Use readInt_

diff -r 90266b67fff8 -r 2922455e606e gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Apr 02 22:17:08 2011 -0400
+++ b/gameServer/Actions.hs	Sun Apr 03 13:31:33 2011 +0400
@@ -406,7 +406,7 @@
         [
             AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server http://www.hedgewars.org/", serverVersion]
             , CheckBanned
---            , AddIP2Bans (host cl) "Reconnected too fast" (addUTCTime 10 $ connectTime cl)
+            , AddIP2Bans (host cl) "Reconnected too fast" (addUTCTime 10 $ connectTime cl)
         ]
 
 
diff -r 90266b67fff8 -r 2922455e606e gameServer/HWProtoNEState.hs
--- a/gameServer/HWProtoNEState.hs	Sat Apr 02 22:17:08 2011 -0400
+++ b/gameServer/HWProtoNEState.hs	Sun Apr 03 13:31:33 2011 +0400
@@ -35,9 +35,7 @@
                 AnswerClients [sendChan cl] ["PROTO", showB parsedProto] :
                 [CheckRegistered | not . B.null $ nick cl]
     where
-        parsedProto = case B.readInt protoNum of
-                           Just (i, t) | B.null t -> fromIntegral i
-                           _ -> 0
+        parsedProto = readInt_ protoNum
 
 
 handleCmd_NotEntered ["PASSWORD", passwd] = do