X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fhcons.mli;fp=src%2Fhcons.mli;h=6a6ede8a814df962868e7181bc470037c98f2dd4;hp=05def66c52ecfbdfe60c279548a10e587b2bf25d;hb=4f265eb7d78b740292b5543d94f9f0fa40d206d5;hpb=31d45495fda9a110fd348f8b492761c28b434ec9

diff --git a/src/hcons.mli b/src/hcons.mli
index 05def66..6a6ede8 100644
--- a/src/hcons.mli
+++ b/src/hcons.mli
@@ -35,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 ]