From 63bcc75d75ec0bc4642ff1d0354b6915b4b1e6a9 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Fri, 24 Apr 2015 16:18:39 +0600 Subject: Make find_xml_child return Xml.xml option rather than raise Not_found. --- src/util.ml | 4 ++-- src/util.mli | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/util.ml b/src/util.ml index 141d25b..f8c3c27 100644 --- a/src/util.ml +++ b/src/util.ml @@ -7,8 +7,8 @@ let find_xml_child name xml = | _ -> false in match xml with - | Xml.Element (_, _, children) -> List.find find_aux children - | Xml.PCData _ -> raise Not_found + | Xml.Element (_, _, children) -> Vylist.find find_aux children + | Xml.PCData _ -> None (* Dirty pretty printer *) let string_of_path path = diff --git a/src/util.mli b/src/util.mli index f3699d3..ec0bb73 100644 --- a/src/util.mli +++ b/src/util.mli @@ -1,3 +1,3 @@ -val find_xml_child : string -> Xml.xml -> Xml.xml +val find_xml_child : string -> Xml.xml -> Xml.xml option val string_of_path : string list -> string -- cgit v1.2.3