equal
deleted
inserted
replaced
120 if noSuchRoom then |
120 if noSuchRoom then |
121 (noChangeClients, noChangeRooms, answerNoRoom) |
121 (noChangeClients, noChangeRooms, answerNoRoom) |
122 else if roomPassword /= password clRoom then |
122 else if roomPassword /= password clRoom then |
123 (noChangeClients, noChangeRooms, answerWrongPassword) |
123 (noChangeClients, noChangeRooms, answerWrongPassword) |
124 else |
124 else |
125 (modifyClient client{room = roomName}, noChangeRooms, (answerJoined $ nick client) ++ answerNicks ++ answerFullConfig clRoom ++ answerAllTeams clRoom) |
125 (modifyClient client{room = roomName}, noChangeRooms, answerNicks ++ (answerJoined $ nick client) ++ answerFullConfig clRoom ++ answerAllTeams clRoom) |
126 where |
126 where |
127 noSuchRoom = isNothing $ find (\room -> roomName == name room) rooms |
127 noSuchRoom = isNothing $ find (\room -> roomName == name room) rooms |
128 answerNicks = [(clientOnly, ["JOINED"] ++ (map nick $ filter (\ci -> room ci == roomName) clients))] |
128 answerNicks = [(clientOnly, ["JOINED"] ++ (map nick $ filter (\ci -> room ci == roomName) clients))] |
129 clRoom = roomByName roomName rooms |
129 clRoom = roomByName roomName rooms |
130 |
130 |