Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix sending routine
authorunc0rr
Sat, 06 Mar 2010 13:45:25 +0000
changeset 2954 55d272e34f9a
parent 2953 098eaa7fd88b
child 2955 fb361d137524
Fix sending routine
gameServer/ClientIO.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/ClientIO.hs	Sat Mar 06 13:41:06 2010 +0000
+++ b/gameServer/ClientIO.hs	Sat Mar 06 13:45:25 2010 +0000
@@ -35,9 +35,9 @@
     answer <- readChan chan
     doClose <- Exception.handle
         (\(e :: Exception.IOException) -> if isQuit answer then return True else sendQuit e >> return False) $ do
-        B.hPutStrLn handle $ BUTF8.fromString $ unlines (answer ++ [""])
-        hFlush handle
-        return $ isQuit answer
+            B.hPutStrLn handle $ BUTF8.fromString $ unlines answer
+            hFlush handle
+            return $ isQuit answer
 
     if doClose then
         Exception.handle (\(_ :: Exception.IOException) -> putStrLn "error on hClose") $ hClose handle
hedgewars