134 dbHost :: B.ByteString, |
134 dbHost :: B.ByteString, |
135 dbLogin :: B.ByteString, |
135 dbLogin :: B.ByteString, |
136 dbPassword :: B.ByteString, |
136 dbPassword :: B.ByteString, |
137 lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], |
137 lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))], |
138 restartPending :: Bool, |
138 restartPending :: Bool, |
139 stats :: TMVar StatisticsInfo, |
|
140 coreChan :: Chan CoreMessage, |
139 coreChan :: Chan CoreMessage, |
141 dbQueries :: Chan DBQuery |
140 dbQueries :: Chan DBQuery |
142 } |
141 } |
143 |
142 |
144 instance Show ServerInfo where |
143 instance Show ServerInfo where |
145 show _ = "Server Info" |
144 show _ = "Server Info" |
146 |
145 |
147 newServerInfo :: TMVar StatisticsInfo -> Chan CoreMessage -> Chan DBQuery -> ServerInfo |
146 newServerInfo :: Chan CoreMessage -> Chan DBQuery -> ServerInfo |
148 newServerInfo = |
147 newServerInfo = |
149 ServerInfo |
148 ServerInfo |
150 True |
149 True |
151 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
150 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
152 "<font color=yellow><h3 align=center>Hedgewars 0.9.14.1 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |
151 "<font color=yellow><h3 align=center>Hedgewars 0.9.14.1 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>" |