--- a/gameServer/ClientIO.hs	Fri Mar 04 11:30:53 2011 +0300
+++ b/gameServer/ClientIO.hs	Fri Mar 04 22:45:28 2011 +0300
@@ -38,7 +38,6 @@
     where
         recieveWithBufferLoop recvBuf = do
             recvBS <- recv sock 4096
---            putStrLn $ show sock ++ " got smth: " ++ (show $ B.length recvBS)
             unless (B.null recvBS) $ do
                 let (packets, newrecvBuf) = bs2Packets $ B.append recvBuf recvBS
                 forM_ packets sendPacket