equal
deleted
inserted
replaced
100 if cl == client then |
100 if cl == client then |
101 client : cls |
101 client : cls |
102 else |
102 else |
103 cl : (modifyClient client cls) |
103 cl : (modifyClient client cls) |
104 |
104 |
|
105 modifyRoomClients :: RoomInfo -> (ClientInfo -> ClientInfo) -> ClientsTransform |
|
106 modifyRoomClients clientsroom clientMod clients = map (\c -> if name clientsroom == room c then clientMod c else c) clients |
|
107 |
105 noChangeRooms :: RoomsTransform |
108 noChangeRooms :: RoomsTransform |
106 noChangeRooms a = a |
109 noChangeRooms a = a |
107 |
110 |
108 addRoom :: RoomInfo -> RoomsTransform |
111 addRoom :: RoomInfo -> RoomsTransform |
109 addRoom room rooms = room:rooms |
112 addRoom room rooms = room:rooms |