--- 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