diff options
Diffstat (limited to 'src/util.ml')
| -rw-r--r-- | src/util.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |