Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/ClientIO.hs
changeset 5030 42746c5d4a80
parent 5012 8767878e08e2
child 5032 813554ab76b8 
--- 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
hedgewars