--- a/gameServer/ClientIO.hs	Sun Jun 06 15:29:33 2010 +0000
+++ b/gameServer/ClientIO.hs	Sun Jun 06 19:03:06 2010 +0000
@@ -39,7 +39,7 @@
     where
         recieveWithBufferLoop recvBuf = do
             recvBS <- recv sock 4096
-            putStrLn $ show sock ++ " got smth: " ++ (show $ B.length recvBS)
+--            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