X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fhtml.ml;h=858b43fdbd8948cc3297285d5d07cb3a4bc99ab1;hp=6c45c930197fffcc763e0beef43da3feb654a4f0;hb=9efb3171eb9f70c92d7814a56684ef5f1eedf004;hpb=e381c2bd8da5a33c0fdb1e6cfa9c1800386eafed

diff --git a/src/html.ml b/src/html.ml
index 6c45c93..858b43f 100644
--- a/src/html.ml
+++ b/src/html.ml
@@ -25,12 +25,12 @@ let trace nodeid i =
 
 
 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)