X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Foptions.ml;h=b8c5730ab4380b9b7443c6d4d323afc7efc360b4;hp=3c2239aa1295d3f59b86b2c4d829acdcfe3dca1a;hb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3;hpb=78d247dc5e6d5e64a4ab848702c23ce81b6fc615

diff --git a/src/options.ml b/src/options.ml
index 3c2239a..b8c5730 100644
--- a/src/options.ml
+++ b/src/options.ml
@@ -11,22 +11,30 @@ let parallel = ref false
 let set_string_option r s = r := Some s
 
 let specs = align [
-  "-c", Set count, " write the number of results only";
+  "-c", Set count,
+        " write the number of results only";
   "--count", Set count, " ";
-  "-s", Set stats, " display timing and various statistics";
+  "-s", Set stats,
+        " display timing and various statistics";
   "--stats", Set stats, " ";
-  "-d", String (set_string_option input_file), " specify the input document file [default stdin]";
+  "-d", String (set_string_option input_file),
+        " specify the input document file [default stdin]";
   "--doc", String (set_string_option input_file), " ";
-  "-o", String (set_string_option output_file), " specify the output file [default stdout]";
+  "-o", String (set_string_option output_file),
+        " specify the output file [default stdout]";
   "--out", String (set_string_option output_file), " ";
-  "-C", Set compose, " compose queries: each query is applied to the results of the previous one [default run all queries
-from the root node]";
+  "-C", Set compose,
+        " compose queries: each query is applied to the results of the \
+previous one [default run all queries from the root node]";
   "--compose", Set compose, " ";
-  "-p", Set parallel, " run all queries in parallel [default run all queries sequentially]";
+  "-p", Set parallel,
+        " run all queries in parallel [default run all queries \
+sequentially]";
   "--parallel", Set parallel, " ";
 ]
 
-let usage_msg = Printf.sprintf "usage: %s [options] query [query ... query]" Sys.argv.(0)
+let usage_msg =
+  Printf.sprintf "usage: %s [options] query [query ... query]" Sys.argv.(0)
 
 let usage () = usage specs usage_msg
 
@@ -35,4 +43,3 @@ let parse () =
   match !queries with
     [] -> raise (Arg.Bad "missing query")
   | l -> queries := List.rev l
-