diff -r a94d1dc4a8d9 -r 45778b16b224 gameServer/CoreTypes.hs
--- 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