# HG changeset patch
# User unc0rr
# Date 1243274067 0
# Node ID 0ebcc98ebc1a6637ccac8bb729cbc2611a0f8f8f
# Parent  1ac0e10e546f7f04dbc2954e85fd7f685c9abd00
Send server message after nicks info (more chance for it to be seen)

diff -r 1ac0e10e546f -r 0ebcc98ebc1a gameServer/Actions.hs
--- a/gameServer/Actions.hs	Mon May 25 17:33:39 2009 +0000
+++ b/gameServer/Actions.hs	Mon May 25 17:54:27 2009 +0000
@@ -301,7 +301,6 @@
 
 
 processAction (clID, serverInfo, clients, rooms) (ProcessAccountInfo info) = do
-	processAction (clID, serverInfo, clients, rooms) SendServerMessage
 	case info of
 		HasAccount passwd isAdmin -> do
 			infoM "Clients" $ show clID ++ " has account"
@@ -319,6 +318,8 @@
 	foldM processAction (clID, serverInfo, clients, rooms) $
 		(RoomAddThisClient 0)
 		: answerLobbyNicks
+		++ [SendServerMessage]
+
 		-- ++ (answerServerMessage client clients)
 	where
 		lobbyNicks = Prelude.map nick $ Prelude.filter logonPassed $ elems clients