diff -r 3c43f00b0743 -r 42746c5d4a80 gameServer/ClientIO.hs
--- a/gameServer/ClientIO.hs	Sun Mar 20 08:42:32 2011 +0000
+++ b/gameServer/ClientIO.hs	Mon Mar 21 21:04:20 2011 +0300
@@ -15,7 +15,7 @@
 
 
 pDelim :: B.ByteString
-pDelim = B.pack "\n\n"
+pDelim = "\n\n"
 
 bs2Packets :: B.ByteString -> ([[B.ByteString]], B.ByteString)
 bs2Packets = unfoldrE extractPackets
@@ -59,7 +59,7 @@
     answer <- readChan chan
     Exception.handle
         (\(e :: Exception.IOException) -> unless (isQuit answer) . killReciever $ show e) $
-            sendAll s $ B.unlines answer `B.append` B.singleton '\n'
+            sendAll s $ B.unlines answer `B.snoc` '\n'
 
     if isQuit answer then
         do