Minors (srry for the noise)

[tatoo.git] / src / test.ml

diff --git a/src/test.ml b/src/test.ml
index 16c96e5..f20e471 100644 (file)
--- a/src/test.ml
+++ b/src/test.ml
@@ -56,12 +56,12 @@ let () =
   let doc = doc () in
   let asta = build_asta query in
   let run = compute_run doc asta in
-  fprintf err_formatter "@[<v 0>##### Query #####@.  %a@]@ "
+  fprintf err_formatter "@[<v 0>##### Query #####@.  %a@]\n"
     XPath.Ast.print query;
   output_string stderr "\n##### Doc #####\n";
   Tree.print_xml stderr doc (Tree.root doc);
   output_string stderr "\n";
   Asta.print err_formatter asta;
-  fprintf err_formatter "@[<v 0> ##### Run #####@.  %a@]@ "
+  fprintf err_formatter "@[<v 0>##### Run #####@.  %a@]\n"
     Run.print run;
   exit 0