--- a/gameServer/CoreTypes.hs	Wed Jan 29 09:17:25 2014 -0500
+++ b/gameServer/CoreTypes.hs	Thu Jan 30 00:18:32 2014 +0400
@@ -78,6 +78,12 @@
     | QueryReplay B.ByteString
     | ShowReplay B.ByteString
     | Cleanup
+    | RegisterEvent Event
+
+
+data Event = LobbyChatMessage
+           | EngineMessage
+           | RoomJoin
 
 type ClientChan = Chan [B.ByteString]