equal
deleted
inserted
replaced
97 data ServerInfo = |
97 data ServerInfo = |
98 ServerInfo |
98 ServerInfo |
99 { |
99 { |
100 isDedicated :: Bool, |
100 isDedicated :: Bool, |
101 serverMessage :: String, |
101 serverMessage :: String, |
|
102 adminPassword :: String, |
102 listenPort :: PortNumber, |
103 listenPort :: PortNumber, |
103 loginsNumber :: Int, |
104 loginsNumber :: Int, |
104 lastHourUsers :: [UTCTime], |
105 lastHourUsers :: [UTCTime], |
105 stats :: TMVar StatisticsInfo |
106 stats :: TMVar StatisticsInfo |
106 } |
107 } |
107 |
108 |
108 newServerInfo = ( |
109 newServerInfo = ( |
109 ServerInfo |
110 ServerInfo |
110 True |
111 True |
111 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
112 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
|
113 "" |
112 46631 |
114 46631 |
113 0 |
115 0 |
114 [] |
116 [] |
115 ) |
117 ) |
116 |
118 |