X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Futils%2Fhcons.ml;h=3fc3e71a9de341af365f327cab962a3df0b99ef5;hp=eba8bac3966d869e9ec9bdf43c1cebc29100c0ee;hb=03b6a364e7240ca827585e7baff225a0aaa33bc6;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349 diff --git a/src/utils/hcons.ml b/src/utils/hcons.ml index eba8bac..3fc3e71 100644 --- a/src/utils/hcons.ml +++ b/src/utils/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;