gameServer/CoreTypes.hs
changeset 14841 111c4d750c6d
parent 14421 94f10f69fe76
child 15445 88770c206c31
equal deleted inserted replaced
14840:b02581c5b0c5 14841:111c4d750c6d
   107 
   107 
   108 
   108 
   109 data Event = LobbyChatMessage
   109 data Event = LobbyChatMessage
   110            | EngineMessage
   110            | EngineMessage
   111            | RoomJoin
   111            | RoomJoin
       
   112            | RoomNameUpdate
   112 
   113 
   113 type EventsInfo = [(Int, UTCTime)]
   114 type EventsInfo = [(Int, UTCTime)]
   114 
   115 
   115 newEventsInfo :: EventsInfo
   116 newEventsInfo :: EventsInfo
   116 newEventsInfo = []
   117 newEventsInfo = []