changeset 5000 | 72d8fb26223d |
parent 4996 | 76ef3d8bd78e |
child 5001 | 312f4dd41753 |
--- a/gameServer/CoreTypes.hs Fri Mar 11 22:22:28 2011 +0300 +++ b/gameServer/CoreTypes.hs Sat Mar 12 22:42:01 2011 +0300 @@ -206,7 +206,9 @@ instance Exception ShutdownException -data ShutdownThreadException = ShutdownThreadException - deriving (Show, Typeable) +data ShutdownThreadException = ShutdownThreadException String + deriving Typeable +instance Show ShutdownThreadException where + show (ShutdownThreadException s) = "kill: " ++ s instance Exception ShutdownThreadException