X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fexamples%2Fxmllight_loader.ml;h=6f0c53656d6aa4a8fb717be51d23fb2593367f92;hb=22e531bc459309d9a871a845cfacd1396ff5b7e4;hp=46dd77f77aa98a11f6b8432c3e2e1608e5e54151;hpb=d525103c8621f6ff0293311a8e8f9ac0c3580805;p=libguestfs.git

diff --git a/ocaml/examples/xmllight_loader.ml b/ocaml/examples/xmllight_loader.ml
index 46dd77f..6f0c536 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