projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change the interface of node_list (fully imperative now)
[tatoo.git]
/
src
/
tatoo.ml
diff --git
a/src/tatoo.ml
b/src/tatoo.ml
index
24e212f
..
0987b6d
100644
(file)
--- a/
src/tatoo.ml
+++ b/
src/tatoo.ml
@@
-106,8
+106,8
@@
let main () =
let module Naive = Run.Make(Naive_tree)(Naive_node_list) in
let result_list =
let module Naive = Run.Make(Naive_tree)(Naive_node_list) in
let result_list =
-
- let
root = Naive_node_list.(add (Naive_tree.root doc) (create()))
in
+ let root = Naive_node_list.create () in
+ let
() = Naive_node_list.add (Naive_tree.root doc) root
in
let f, msg =
match !Options.parallel, !Options.compose with
true, true ->
let f, msg =
match !Options.parallel, !Options.compose with
true, true ->