Refactor the run module, moving out of the Make functor everything that can be moved...

[tatoo.git] / src / html.mli

diff --git a/src/html.mli b/src/html.mli
index 0772863..5e8d4c2 100644 (file)
--- a/src/html.mli
+++ b/src/html.mli
@@ -1,3 +1 @@
-val trace : int -> int -> ('a, Format.formatter, unit, unit) format4 -> 'a
-val finalize_node : int -> int -> bool -> unit
-val gen_trace : Ata.t -> (module Tree.S with type t = 'a) -> 'a -> unit
+val gen_trace : Ata.t -> StateSet.t array list -> (module Tree.S with type t = 'a) -> 'a -> unit