equal
deleted
inserted
replaced
156 room'sM (MRoomsAndClients (rooms, _)) f (RoomIndex ri) = liftM (f . room') (rooms `readElem` ri) |
156 room'sM (MRoomsAndClients (rooms, _)) f (RoomIndex ri) = liftM (f . room') (rooms `readElem` ri) |
157 |
157 |
158 allClientsM :: MRoomsAndClients r c -> IO [ClientIndex] |
158 allClientsM :: MRoomsAndClients r c -> IO [ClientIndex] |
159 allClientsM (MRoomsAndClients (_, clients)) = liftM (map ClientIndex) $ indicesM clients |
159 allClientsM (MRoomsAndClients (_, clients)) = liftM (map ClientIndex) $ indicesM clients |
160 |
160 |
|
161 allRoomsM :: MRoomsAndClients r c -> IO [RoomIndex] |
|
162 allRoomsM (MRoomsAndClients (rooms, _)) = liftM (map RoomIndex) $ indicesM rooms |
|
163 |
161 clientsM :: MRoomsAndClients r c -> IO [c] |
164 clientsM :: MRoomsAndClients r c -> IO [c] |
162 clientsM (MRoomsAndClients (_, clients)) = indicesM clients >>= mapM (liftM client' . readElem clients) |
165 clientsM (MRoomsAndClients (_, clients)) = indicesM clients >>= mapM (liftM client' . readElem clients) |
163 |
166 |
164 roomsM :: MRoomsAndClients r c -> IO [r] |
167 roomsM :: MRoomsAndClients r c -> IO [r] |
165 roomsM (MRoomsAndClients (rooms, _)) = indicesM rooms >>= mapM (liftM room' . readElem rooms) |
168 roomsM (MRoomsAndClients (rooms, _)) = indicesM rooms >>= mapM (liftM room' . readElem rooms) |