126 dbHost :: B.ByteString, |
126 dbHost :: B.ByteString, |
127 dbName :: B.ByteString, |
127 dbName :: B.ByteString, |
128 dbLogin :: B.ByteString, |
128 dbLogin :: B.ByteString, |
129 dbPassword :: B.ByteString, |
129 dbPassword :: B.ByteString, |
130 bans :: [BanInfo], |
130 bans :: [BanInfo], |
131 restartPending :: Bool, |
131 shutdownPending :: Bool, |
132 coreChan :: Chan CoreMessage, |
132 coreChan :: Chan CoreMessage, |
133 dbQueries :: Chan DBQuery, |
133 dbQueries :: Chan DBQuery, |
|
134 serverSocket :: Maybe Socket, |
134 serverConfig :: Maybe Conf |
135 serverConfig :: Maybe Conf |
135 } |
136 } |
136 |
137 |
137 |
138 |
138 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> Maybe Conf -> ServerInfo |
139 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> Maybe Socket -> Maybe Conf -> ServerInfo |
139 newServerInfo = |
140 newServerInfo = |
140 ServerInfo |
141 ServerInfo |
141 True |
142 True |
142 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
143 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
143 "<font color=yellow><h3 align=center>Hedgewars 0.9.16 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |
144 "<font color=yellow><h3 align=center>Hedgewars 0.9.16 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |