diff options
Diffstat (limited to 'ocaml/examples/xmllight_loader.ml')
| -rw-r--r-- | ocaml/examples/xmllight_loader.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ocaml/examples/xmllight_loader.ml b/ocaml/examples/xmllight_loader.ml index 46dd77f7..6f0c5365 100644 --- a/ocaml/examples/xmllight_loader.ml +++ b/ocaml/examples/xmllight_loader.ml @@ -6,9 +6,9 @@ let from_xml ?ns xml = let l = make ?ns () in let rec aux = function | Element (tag, attrs, child) -> - start_elem l tag attrs; List.iter aux child; end_elem l () + start_elem l tag attrs; List.iter aux child; end_elem l () | PCData s -> - text l s in + text l s in aux xml; get l |