Rewrite the HTML debugging output to generate an svg file directly instead going
[tatoo.git] / src / html.mli
index 91dacaf..0772863 100644 (file)
@@ -1,3 +1,3 @@
 val trace : int -> int -> ('a, Format.formatter, unit, unit) format4 -> 'a
 val finalize_node : int -> int -> bool -> unit
-val gen_trace : (module Tree.S with type t = 'a) -> 'a -> unit
+val gen_trace : Ata.t -> (module Tree.S with type t = 'a) -> 'a -> unit