netserver/HWProto.hs
changeset 1584 90f6a5abad17
parent 1582 262245ba6ea6
child 1591 1db9b654f880
--- a/netserver/HWProto.hs	Tue Jan 06 09:58:50 2009 +0000
+++ b/netserver/HWProto.hs	Tue Jan 06 11:28:13 2009 +0000
@@ -163,7 +163,8 @@
 		[]
 	else
 		(answerClientOnly $ ["LOBBY:JOINED"] ++ (map nick $ clients)) ++
-		(answerOthersRoom ["LOBBY:JOINED", nick client])
+		(answerOthersRoom ["LOBBY:JOINED", nick client]) ++
+		(answerServerMessage client clients)
 
 handleCmd_noInfo :: CmdHandler
 handleCmd_noInfo client clients _ ["NICK", newNick] =
@@ -192,7 +193,7 @@
 -- 'noRoom' clients state command handlers
 handleCmd_noRoom :: CmdHandler
 handleCmd_noRoom client clients rooms ["LIST"] =
-		(noChangeClients, noChangeRooms, answerServerMessage client clients ++ (answerRoomsList $ concatMap roomInfo $ sameProtoRooms))
+		(noChangeClients, noChangeRooms, (answerRoomsList $ concatMap roomInfo $ sameProtoRooms))
 		where
 			roomInfo room = [
 					name room,