--- a/gameServer/hedgewars-server.hs	Fri Mar 27 18:50:18 2009 +0000
+++ b/gameServer/hedgewars-server.hs	Fri Mar 27 20:29:38 2009 +0000
@@ -20,22 +20,6 @@
 #endif
 
 
-{-data Messages =
-	Accept ClientInfo
-	| ClientMessage ([String], ClientInfo)
-	| CoreMessage [String]
-	| TimerTick
-
-messagesLoop :: TChan String -> IO()
-messagesLoop messagesChan = forever $ do
-	threadDelay (25 * 10^6) -- 25 seconds
-	atomically $ writeTChan messagesChan "PING"
-
-timerLoop :: TChan String -> IO()
-timerLoop messagesChan = forever $ do
-	threadDelay (60 * 10^6) -- 60 seconds
-	atomically $ writeTChan messagesChan "MINUTELY"-}
-
 setupLoggers =
 	updateGlobalLogger "Clients"
 		(setLevel DEBUG)
@@ -55,4 +39,4 @@
 	bracket
 		(Network.listenOn $ Network.PortNumber $ listenPort serverInfo)
 		(sClose)
-		(startServer serverInfo coreChan)
+		(startServer serverInfo)