--- a/gameServer/CoreTypes.hs	Fri Jan 31 12:45:51 2014 +0400
+++ b/gameServer/CoreTypes.hs	Fri Jan 31 16:51:20 2014 +0400
@@ -84,7 +84,12 @@
 data Event = LobbyChatMessage
            | EngineMessage
            | RoomJoin
+           
+type EventsInfo = [(Int, Maybe UTCTime)]
 
+newEventsInfo :: EventsInfo
+newEventsInfo = []   
+    
 type ClientChan = Chan [B.ByteString]
 
 data CheckInfo =
@@ -119,6 +124,9 @@
         isJoinedMidGame :: Bool,
         clientClan :: !(Maybe B.ByteString),
         checkInfo :: Maybe CheckInfo,
+        eiLobbyChat,
+        eiEM,
+        eiJoin :: EventsInfo,
         teamsInGame :: Word
     }