equal
deleted
inserted
replaced
84 else if roomPassword /= password jRoom then |
84 else if roomPassword /= password jRoom then |
85 [Warning "Wrong password"] |
85 [Warning "Wrong password"] |
86 else |
86 else |
87 [ |
87 [ |
88 MoveToRoom jRI, |
88 MoveToRoom jRI, |
89 AnswerClients (map sendChan $ cl : jRoomClients) ["NOT_READY", nick cl] |
89 AnswerClients (map sendChan $ cl : jRoomClients) ["NOT_READY", nick cl], |
|
90 AnswerClients [sendChan cl] $ "JOINED" : map nick jRoomClients |
90 ] |
91 ] |
91 ++ [ AnswerClients [sendChan cl] $ "JOINED" : map nick jRoomClients | playersIn jRoom /= 0] |
|
92 ++ (map (readynessMessage cl) jRoomClients) |
92 ++ (map (readynessMessage cl) jRoomClients) |
93 |
93 |
94 where |
94 where |
95 readynessMessage cl c = AnswerClients [sendChan cl] [if isReady c then "READY" else "NOT_READY", nick c] |
95 readynessMessage cl c = AnswerClients [sendChan cl] [if isReady c then "READY" else "NOT_READY", nick c] |
96 |
96 |