Send readiness info to room creator too
authorunc0rr
Fri, 24 Oct 2008 14:28:47 +0000
changeset 1407 b44fbb630fb6
parent 1406 08b9c28419f1
child 1408 fab171a17968
Send readiness info to room creator too
netserver/HWProto.hs
--- a/netserver/HWProto.hs	Fri Oct 24 13:03:06 2008 +0000
+++ b/netserver/HWProto.hs	Fri Oct 24 14:28:47 2008 +0000
@@ -128,7 +128,7 @@
 		if haveSameRoom then
 			(noChangeClients, noChangeRooms, answerRoomExists)
 		else
-			(modifyClient client{room = newRoom, isMaster = True}, addRoom createRoom{name = newRoom, password = roomPassword, roomProto = (protocol client)}, answerJoined $ nick client)
+			(modifyClient client{room = newRoom, isMaster = True}, addRoom createRoom{name = newRoom, password = roomPassword, roomProto = (protocol client)}, (answerJoined $ nick client) ++ (answerNotReady $ nick client))
 	where
 		haveSameRoom = isJust $ find (\room -> newRoom == name room) rooms