equal
deleted
inserted
replaced
82 |
82 |
83 |
83 |
84 data Event = LobbyChatMessage |
84 data Event = LobbyChatMessage |
85 | EngineMessage |
85 | EngineMessage |
86 | RoomJoin |
86 | RoomJoin |
87 |
87 |
|
88 type EventsInfo = [(Int, Maybe UTCTime)] |
|
89 |
|
90 newEventsInfo :: EventsInfo |
|
91 newEventsInfo = [] |
|
92 |
88 type ClientChan = Chan [B.ByteString] |
93 type ClientChan = Chan [B.ByteString] |
89 |
94 |
90 data CheckInfo = |
95 data CheckInfo = |
91 CheckInfo |
96 CheckInfo |
92 { |
97 { |
117 isContributor :: Bool, |
122 isContributor :: Bool, |
118 isKickedFromServer :: Bool, |
123 isKickedFromServer :: Bool, |
119 isJoinedMidGame :: Bool, |
124 isJoinedMidGame :: Bool, |
120 clientClan :: !(Maybe B.ByteString), |
125 clientClan :: !(Maybe B.ByteString), |
121 checkInfo :: Maybe CheckInfo, |
126 checkInfo :: Maybe CheckInfo, |
|
127 eiLobbyChat, |
|
128 eiEM, |
|
129 eiJoin :: EventsInfo, |
122 teamsInGame :: Word |
130 teamsInGame :: Word |
123 } |
131 } |
124 |
132 |
125 instance Eq ClientInfo where |
133 instance Eq ClientInfo where |
126 (==) = (==) `on` clientSocket |
134 (==) = (==) `on` clientSocket |