Main program output incorrect xml tags

[tatoo.git] / src / main.ml

diff --git a/src/main.ml b/src/main.ml
index 100581e..9a5fd69 100644 (file)
--- a/src/main.ml
+++ b/src/main.ml
@@ -38,10 +38,10 @@ let () =
   fprintf err_formatter "Evaluating automaton:\n%!";
   let module Naive = Auto.Eval.Make(Tree.Naive) in
   let results = Naive.eval auto doc (Tree.Naive.root doc) in
-  output_string stdout "<xml_results>\n";
+  output_string stdout "<xml_result>\n";
   List.iter (fun n ->
     Tree.Naive.print_xml stdout doc n;
     output_char stdout '\n'
   ) results;
-  output_string stdout "\n<xml_results>";
+  output_string stdout "</xml_result>\n";
   flush stdout