X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fhtml.mli;h=48551f7c71811fd804eb4016d8bb23bc06886675;hp=91dacaf42c2df52d6ff0c26d7f8a7c0e7ef2aa48;hb=a8f210b6229055c3c5101034d359c61476d8408a;hpb=e3474bb976d161aa5c42f3d42583bbe290bbfcc4

diff --git a/src/html.mli b/src/html.mli
index 91dacaf..48551f7 100644
--- a/src/html.mli
+++ b/src/html.mli
@@ -1,3 +1,5 @@
-val trace : int -> int -> ('a, Format.formatter, unit, unit) format4 -> 'a
+val trace : ?msg:string -> int -> int -> StateSet.t -> StateSet.t  -> unit
+(** [trace nid round d t msg] records a the message [msg] together with the a node preorder
+    [nid], the [round], the [d]one set and the [t]odo set *)
 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