--- a/gameServer/ServerCore.hs	Fri Mar 27 15:58:54 2009 +0000
+++ b/gameServer/ServerCore.hs	Fri Mar 27 18:50:18 2009 +0000
@@ -29,11 +29,8 @@
 	(newServerInfo, mClients, mRooms) <-
 		case r of
 			Accept ci -> do
-				let updatedClients = IntMap.insert (clientUID ci) ci clients
-				infoM "Clients" ("New client: id " ++ (show $ clientUID ci))
 				liftM firstAway $ processAction
-					(clientUID ci, serverInfo, updatedClients, rooms)
-					(AnswerThisClient ["CONNECTED", "Hedgewars server http://www.hedgewars.org/"])
+					(clientUID ci, serverInfo, clients, rooms) (AddClient ci)
 
 			ClientMessage (clID, cmd) -> do
 				debugM "Clients" $ (show clID) ++ ": " ++ (show cmd)
@@ -79,6 +76,3 @@
 	startDBConnection $ serverInfo
 
 	mainLoop serverInfo IntMap.empty (IntMap.singleton 0 newRoom)
-
-
-