Fix remaining compilation bug caused by the refactoring of modules.

[tatoo.git] / src / html.ml

diff --git a/src/html.ml b/src/html.ml
index 6c45c93..858b43f 100644 (file)
--- 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)