let gen_trace (type s) = (); fun t tree ->
- let module T = (val (t) : Tree.Sig.S with type t = s) in
+ let module T = (val (t) : Tree.S with type t = s) in
let rec loop odot ohtml node parent =
if node == T.nil then () else begin
let s_node = "node" ^ (string_of_int (T.preorder tree node)) in
fprintf odot "%s[ id=\"%s\" label=\"%s\"];\n"
- s_node s_node (Utils.QName.to_string (T.tag tree node));
+ s_node s_node (QName.to_string (T.tag tree node));
let m =
try
Hashtbl.find info (T.preorder tree node)