equal
deleted
inserted
replaced
85 else |
85 else |
86 [ |
86 [ |
87 MoveToRoom jRI, |
87 MoveToRoom jRI, |
88 AnswerClients [sendChan cl] $ "JOINED" : nicks, |
88 AnswerClients [sendChan cl] $ "JOINED" : nicks, |
89 AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl], |
89 AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl], |
90 AnswerClients [sendChan cl] $ ["WARNING", "Room owner is " `B.append` nick owner] |
90 AnswerClients [sendChan cl] $ ["WARNING", "Room admin is " `B.append` nick owner] |
91 ] |
91 ] |
92 ++ map (readynessMessage cl) jRoomClients |
92 ++ map (readynessMessage cl) jRoomClients |
93 ++ answerFullConfig cl (mapParams jRoom) (params jRoom) |
93 ++ answerFullConfig cl (mapParams jRoom) (params jRoom) |
94 ++ answerTeams cl jRoom |
94 ++ answerTeams cl jRoom |
95 ++ watchRound cl jRoom |
95 ++ watchRound cl jRoom |