diff -r 580cd247511e -r 5d0704f23a2a gameServer/ClientIO.hs --- a/gameServer/ClientIO.hs Tue Jun 05 22:37:36 2012 +0200 +++ b/gameServer/ClientIO.hs Mon Jun 25 10:44:27 2012 +0200 @@ -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])