diff -r 304d3d98662e -r 74a92f39703b gameServer/ClientIO.hs --- a/gameServer/ClientIO.hs Thu Jun 14 16:35:36 2012 +0400 +++ b/gameServer/ClientIO.hs Sun Jun 17 00:08:20 2012 +0400 @@ -48,6 +48,7 @@ listenLoop s chan ci >> return "Connection closed") `Exception.catch` (\(e :: Exception.IOException) -> return . B.pack . show $ e) `Exception.catch` (\(e :: ShutdownThreadException) -> return . B.pack . show $ e) + `Exception.catch` (\(e :: Exception.SomeException) -> return . B.pack . show $ e) >>= clientOff >> remove where clientOff msg = writeChan chan $ ClientMessage (ci, ["QUIT", msg])