--- a/gameServer/CoreTypes.hs	Fri Jan 31 16:51:20 2014 +0400
+++ b/gameServer/CoreTypes.hs	Fri Jan 31 23:36:02 2014 +0400
@@ -84,8 +84,8 @@
 data Event = LobbyChatMessage
            | EngineMessage
            | RoomJoin
-           
-type EventsInfo = [(Int, Maybe UTCTime)]
+
+type EventsInfo = [(Int, UTCTime)]
 
 newEventsInfo :: EventsInfo
 newEventsInfo = []