Send server message after nicks info (more chance for it to be seen)
authorunc0rr
Mon, 25 May 2009 17:54:27 +0000
changeset 2118 0ebcc98ebc1a
parent 2117 1ac0e10e546f
child 2119 d07828a0748e
Send server message after nicks info (more chance for it to be seen)
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