gameServer/CoreTypes.hs
changeset 3673 45778b16b224
parent 3566 772a46ef8288
child 3901 124b4755914b
--- 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