# HG changeset patch # User unc0rr # Date 1224858527 0 # Node ID b44fbb630fb61f2649f5ab031305119cdbdf3d1e # Parent 08b9c28419f16511c5549a76c23b2f853b5312a5 Send readiness info to room creator too diff -r 08b9c28419f1 -r b44fbb630fb6 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