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

diff --git a/src/hcons.mli b/src/hcons.mli
index b4049a0..6a6ede8 100644
--- a/src/hcons.mli
+++ b/src/hcons.mli
@@ -13,11 +13,8 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-03-04 23:05:14 CET by Kim Nguyen>
-*)
-
 (** Implementation of generic hashconsing. *)
+(** {directinclude true} *)
 
 include module type of Hcons_sig
 
@@ -38,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 ]