279 

   279 

   280 data ServerInfo =

   280 data ServerInfo =

   281     ServerInfo

   281     ServerInfo

   282     {

   282     {

   283         isDedicated :: Bool,

   283         isDedicated :: 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

   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