--- a/netserver/Miscutils.hs	Mon Nov 10 15:57:59 2008 +0000
+++ b/netserver/Miscutils.hs	Mon Nov 10 19:44:54 2008 +0000
@@ -79,13 +79,17 @@
 	{
 		isDedicated :: Bool,
 		serverMessage :: String,
-		listenPort :: PortNumber
+		listenPort :: PortNumber,
+		loginsNumber :: Int,
+		lastHourUsers :: [UTCTime]
 	}
 newServerInfo = (
 	ServerInfo
 		True
 		"<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>"
 		46631
+		0
+		[]
 	)
 
 type ClientsTransform = [ClientInfo] -> [ClientInfo]