X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fhcons.mli;h=6a6ede8a814df962868e7181bc470037c98f2dd4;hb=HEAD;hp=3e80a036c886e6034a70cb8142882ac71bbf33a3;hpb=41dd1fed04cabad212f10fce3484545f6e9d9444;p=tatoo.git

diff --git a/src/hcons.mli b/src/hcons.mli
index 3e80a03..6a6ede8 100644
--- a/src/hcons.mli
+++ b/src/hcons.mli
@@ -14,6 +14,7 @@
 (***********************************************************************)
 
 (** Implementation of generic hashconsing. *)
+(** {directinclude true} *)
 
 include module type of Hcons_sig
 
@@ -34,7 +35,7 @@ module Weak (H : Common_sig.HashedType) : S with type data = H.t
     explicitely by calling [init].
 *)
 
-module PosInt : Abstract with type data = int and type t = int
+module PosInt : Abstract with type data = int and type t = private int
 (** Compact implementation of hashconsed positive integer that
     avoids boxing. [PosInt.make v] raises [Invalid_argument] if
     [ v < 0 ]