equal
deleted
inserted
replaced
279 |
279 |
280 data ServerInfo = |
280 data ServerInfo = |
281 ServerInfo |
281 ServerInfo |
282 { |
282 { |
283 isDedicated :: Bool, |
283 isDedicated :: Bool, |
|
284 isRegisteredUsersOnly :: Bool, |
284 serverMessage :: B.ByteString, |
285 serverMessage :: B.ByteString, |
285 serverMessageForOldVersions :: B.ByteString, |
286 serverMessageForOldVersions :: B.ByteString, |
286 latestReleaseVersion :: Word16, |
287 latestReleaseVersion :: Word16, |
287 earliestCompatibleVersion :: Word16, |
288 earliestCompatibleVersion :: Word16, |
288 listenPort :: PortNumber, |
289 listenPort :: PortNumber, |
302 |
303 |
303 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> Maybe Socket -> Maybe Conf -> ServerInfo |
304 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> Maybe Socket -> Maybe Conf -> ServerInfo |
304 newServerInfo = |
305 newServerInfo = |
305 ServerInfo |
306 ServerInfo |
306 True |
307 True |
|
308 False |
307 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
309 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
308 "<font color=yellow><h3 align=center>Hedgewars 0.9.22 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |
310 "<font color=yellow><h3 align=center>Hedgewars 0.9.22 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |
309 51 -- latestReleaseVersion |
311 51 -- latestReleaseVersion |
310 41 -- earliestCompatibleVersion |
312 41 -- earliestCompatibleVersion |
311 46631 |
313 46631 |