X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fhcons.ml;h=3fc3e71a9de341af365f327cab962a3df0b99ef5;hb=b00bff88c7902e828804c06b7f9dc55222fdc84e;hp=1fc059c636252dc46791f1e81de3b983be9e2453;hpb=d9c0e4863807eaf472e875a4bad35cfefe985c95;p=tatoo.git diff --git a/src/hcons.ml b/src/hcons.ml index 1fc059c..3fc3e71 100644 --- a/src/hcons.ml +++ b/src/hcons.ml @@ -14,17 +14,17 @@ (***********************************************************************) (* - Time-stamp: + Time-stamp: *) -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; @@ -61,7 +61,7 @@ struct cell end -module Make = Builder (Utils.HashSet) +module Make = Builder (Misc.HashSet) module Weak = Builder (Weak.Make) module PosInt =