diff -r 098eaa7fd88b -r 55d272e34f9a gameServer/ClientIO.hs --- 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