equal
deleted
inserted
replaced
140 serverMessage :: B.ByteString, |
140 serverMessage :: B.ByteString, |
141 serverMessageForOldVersions :: B.ByteString, |
141 serverMessageForOldVersions :: B.ByteString, |
142 latestReleaseVersion :: Word16, |
142 latestReleaseVersion :: Word16, |
143 earliestCompatibleVersion :: Word16, |
143 earliestCompatibleVersion :: Word16, |
144 listenPort :: PortNumber, |
144 listenPort :: PortNumber, |
145 --nextRoomID :: Int, |
|
146 dbHost :: B.ByteString, |
145 dbHost :: B.ByteString, |
147 dbName :: B.ByteString, |
146 dbName :: B.ByteString, |
148 dbLogin :: B.ByteString, |
147 dbLogin :: B.ByteString, |
149 dbPassword :: B.ByteString, |
148 dbPassword :: B.ByteString, |
150 bans :: [BanInfo], |
149 bans :: [BanInfo], |
160 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> Maybe Socket -> Maybe Conf -> ServerInfo |
159 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> Maybe Socket -> Maybe Conf -> ServerInfo |
161 newServerInfo = |
160 newServerInfo = |
162 ServerInfo |
161 ServerInfo |
163 True |
162 True |
164 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
163 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
165 "<font color=yellow><h3 align=center>Hedgewars 0.9.17 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |
164 "<font color=yellow><h3 align=center>Hedgewars 0.9.18 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |
166 41 |
165 43 -- latestReleaseVersion |
167 43 -- 0.9.18 |
166 41 -- earliestCompatibleVersion |
168 46631 |
167 46631 |
169 --0 |
|
170 "" |
168 "" |
171 "" |
169 "" |
172 "" |
170 "" |
173 "" |
171 "" |
174 [] |
172 [] |