Add option -nw control the wrapping of results in an <xml_result/> node.

[SXSI/xpathcomp.git] / src / main.ml

diff --git a/src/main.ml b/src/main.ml
index 96e835e..2030452 100644 (file)
--- a/src/main.ml
+++ b/src/main.ml
@@ -28,7 +28,7 @@ let mk_runtime run auto doc arg count print outfile =
     match outfile with
        None -> ()
       | Some file ->
-       time ~count:1 ~msg:"Serialization time" (print file doc) r
+       time ~count:1 ~msg:"Serialization time" (print file !Options.no_wrap_results doc) r
 ;;
 
 let main v query_string output =