--- a/gameServer/CoreTypes.hs Sun Jul 25 18:55:54 2010 +0400
+++ b/gameServer/CoreTypes.hs Sun Jul 25 22:39:59 2010 +0400
@@ -175,6 +175,13 @@
| TimerAction Int
| Remove ClientIndex
+instance Show CoreMessage where
+ show (Accept _) = "Accept"
+ show (ClientMessage _) = "ClientMessage"
+ show (ClientAccountInfo _) = "ClientAccountInfo"
+ show (TimerAction _) = "TimerAction"
+ show (Remove _) = "Remove"
+
type MRnC = MRoomsAndClients RoomInfo ClientInfo
type IRnC = IRoomsAndClients RoomInfo ClientInfo