refreshRoom :: Connection -> Room -> IO Room
refreshRoom conn room = findRoom conn (roomId room)
refreshRoom :: Connection -> Room -> IO Room
refreshRoom conn room = findRoom conn (roomId room)
refreshRoom conn room = findRoom conn (roomId room)