X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Futils%2Fhcons.ml;h=cc7327aeec4e33c87020713481acbfd2a031dd7e;hp=eba8bac3966d869e9ec9bdf43c1cebc29100c0ee;hb=1972639ed4bb0aab7136e3f09d6a46398afec709;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349

diff --git a/src/utils/hcons.ml b/src/utils/hcons.ml
index eba8bac..cc7327a 100644
--- a/src/utils/hcons.ml
+++ b/src/utils/hcons.ml
@@ -14,17 +14,17 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-02-06 18:43:46 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-18 00:16:08 CET by Kim Nguyen>
 *)
 
-include Sigs.HCONS
+include Hcons_sig
 
 module type TableBuilder =
   functor
-    (H : Sigs.AUX.HashedType) ->
-      Sigs.AUX.HashSet with type data = H.t
+    (H : Common_sig.HashedType) ->
+      Common_sig.HashSet with type data = H.t
 
-module Builder (TB : TableBuilder) (H : Sigs.AUX.HashedType) =
+module Builder (TB : TableBuilder) (H : Common_sig.HashedType) =
 struct
   type data = H.t
   type t = { id   : Uid.t;
@@ -51,7 +51,7 @@ struct
   let dummy x = { id = Uid.dummy; hash = H.hash x; node = x }
 
   let make x =
-    let cell = { id = Uid.dummy; hash = H.hash x; node = x } in
+    let cell = dummy x in
     try
       T.find pool cell
     with