equal
deleted
inserted
replaced
180 GameInfo |
180 GameInfo |
181 [] |
181 [] |
182 Nothing |
182 Nothing |
183 [] |
183 [] |
184 |
184 |
|
185 |
185 data RoomInfo = |
186 data RoomInfo = |
186 RoomInfo |
187 RoomInfo |
187 { |
188 { |
188 masterID :: Maybe ClientIndex, |
189 masterID :: Maybe ClientIndex, |
189 name :: B.ByteString, |
190 name :: B.ByteString, |
199 isSpecial :: Bool, |
200 isSpecial :: Bool, |
200 greeting :: B.ByteString, |
201 greeting :: B.ByteString, |
201 voting :: Maybe Voting, |
202 voting :: Maybe Voting, |
202 roomBansList :: ![B.ByteString], |
203 roomBansList :: ![B.ByteString], |
203 mapParams :: Map.Map B.ByteString B.ByteString, |
204 mapParams :: Map.Map B.ByteString B.ByteString, |
204 params :: Map.Map B.ByteString [B.ByteString] |
205 params :: Map.Map B.ByteString [B.ByteString], |
|
206 roomSaves :: Map.Map B.ByteString (Map.Map B.ByteString B.ByteString, Map.Map B.ByteString [B.ByteString]) |
205 } |
207 } |
206 |
208 |
207 newRoom :: RoomInfo |
209 newRoom :: RoomInfo |
208 newRoom = |
210 newRoom = |
209 RoomInfo |
211 RoomInfo |
230 ( |
232 ( |
231 Map.fromList $ Prelude.zip |
233 Map.fromList $ Prelude.zip |
232 ["AMMO", "SCHEME", "SCRIPT", "THEME"] |
234 ["AMMO", "SCHEME", "SCRIPT", "THEME"] |
233 [["Default"], ["Default"], ["Normal"], ["avematan"]] |
235 [["Default"], ["Default"], ["Normal"], ["avematan"]] |
234 ) |
236 ) |
|
237 Map.empty |
235 |
238 |
236 |
239 |
237 data StatisticsInfo = |
240 data StatisticsInfo = |
238 StatisticsInfo |
241 StatisticsInfo |
239 { |
242 { |