changeset 10094 | d3a2fe9f04f2 |
parent 10093 | ada172d33988 |
child 10194 | 7025bd3c3131 |
--- 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 = []