···168168169169(** Find a member by name in a JSON object's member list. *)
170170let lookup name (mems : Jsont.object') =
171171- match Jsont.Json.mem name mems with
171171+ match Jsont.Json.find_mem name mems with
172172 | Some (_, v) -> Some v
173173 | None -> None
174174