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

[tatoo.git] / src / html_trace.mli

diff --git a/src/html_trace.mli b/src/html_trace.mli
new file mode 100644 (file)
index 0000000..5e8d4c2
--- /dev/null
+++ b/src/html_trace.mli
@@ -0,0 +1 @@
+val gen_trace : Ata.t -> StateSet.t array list -> (module Tree.S with type t = 'a) -> 'a -> unit