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