Fix but in test.ml

[tatoo.git] / src / test.ml

diff --git a/src/test.ml b/src/test.ml
index 1c0ac39..7d6bf58 100644 (file)
--- a/src/test.ml
+++ b/src/test.ml
@@ -53,7 +53,8 @@ let () =
   fprintf err_formatter "@[<v 0> ##### Query #####@.      %a@]@ "
     XPath.Ast.print query;
   Asta.print err_formatter asta;
-  fprintf err_formatter "@[<v 0> ##### Doc #####@.%a@]@ "
-    Tree.print_xml doc (Tree.root doc);
+  output_string stderr "\n##### Doc #####\n";
+  Tree.print_xml stderr doc (Tree.root doc);
+  output_string stderr "\n";
   exit 0