projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Preliminary work for multiple starters evaluation.
[tatoo.git]
/
src
/
tatoo.ml
diff --git
a/src/tatoo.ml
b/src/tatoo.ml
index
c3cddfe
..
362c4fb
100644
(file)
--- a/
src/tatoo.ml
+++ b/
src/tatoo.ml
@@
-52,7
+52,7
@@
let main () =
let module Naive = Run.Make(Naive_tree) in
let results =
let module Naive = Run.Make(Naive_tree) in
let results =
- time (Naive.eval auto doc) (
Naive_tree.root doc
) "evaluating query"
+ time (Naive.eval auto doc) (
[Naive_tree.root doc]
) "evaluating query"
in
time (fun () ->
output_string output "<xml_result>\n";
in
time (fun () ->
output_string output "<xml_result>\n";