equal
deleted
inserted
replaced
134 listenPort :: PortNumber, |
134 listenPort :: PortNumber, |
135 nextRoomID :: Int, |
135 nextRoomID :: Int, |
136 dbHost :: String, |
136 dbHost :: String, |
137 dbLogin :: String, |
137 dbLogin :: String, |
138 dbPassword :: String, |
138 dbPassword :: String, |
139 lastLogins :: [(String, UTCTime)], |
139 lastLogins :: [(String, (UTCTime, String))], |
140 stats :: TMVar StatisticsInfo, |
140 stats :: TMVar StatisticsInfo, |
141 coreChan :: Chan CoreMessage, |
141 coreChan :: Chan CoreMessage, |
142 dbQueries :: Chan DBQuery |
142 dbQueries :: Chan DBQuery |
143 } |
143 } |
144 |
144 |
145 instance Show ServerInfo where |
145 instance Show ServerInfo where |
146 show si = "Server Info" |
146 show _ = "Server Info" |
147 |
147 |
148 newServerInfo = ( |
148 newServerInfo = ( |
149 ServerInfo |
149 ServerInfo |
150 True |
150 True |
151 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
151 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |