correct comments for ocamldoc

This commit is contained in:
Simon Cruanes 2013-03-22 17:42:09 +01:00
parent a9cdce9424
commit 3da4f75487
3 changed files with 4 additions and 4 deletions

View file

@ -72,7 +72,7 @@ module type S2 = sig
(** Wrap the function with the cache *) (** Wrap the function with the cache *)
end end
(** {2 Dummy cache (no caching) *) (** {2 Dummy cache (no caching)} *)
module Dummy(X : sig type t end) : S with type key = X.t module Dummy(X : sig type t end) : S with type key = X.t
@ -93,7 +93,7 @@ module Replacing(X : HASH) : S with type key = X.t
module Replacing2(X : HASH)(Y : HASH) : S2 with type key1 = X.t and type key2 = Y.t module Replacing2(X : HASH)(Y : HASH) : S2 with type key1 = X.t and type key2 = Y.t
(** {2 Hashtables with Least Recently Used eviction policy *) (** {2 Hashtables with Least Recently Used eviction policy} *)
module LRU(X : HASH) : S with type key = X.t module LRU(X : HASH) : S with type key = X.t

View file

@ -30,7 +30,7 @@ type 'a t = ('a, unit) PHashtbl.t
val empty : ?max_load:float -> ?eq:('a -> 'a -> bool) -> val empty : ?max_load:float -> ?eq:('a -> 'a -> bool) ->
?hash:('a -> int) -> int -> 'a t ?hash:('a -> int) -> int -> 'a t
(** See {@see PHashtbl.create} *) (** See {!PHashtbl.create} *)
val copy : 'a t -> 'a t val copy : 'a t -> 'a t

View file

@ -42,7 +42,7 @@ and ('a, 'b) bucket =
val create : ?max_load:float -> ?eq:('a -> 'a -> bool) -> val create : ?max_load:float -> ?eq:('a -> 'a -> bool) ->
?hash:('a -> int) -> int -> ('a, 'b) t ?hash:('a -> int) -> int -> ('a, 'b) t
(** Create a hashtable. [max_load] is (number of items / size of table), (** Create a hashtable. [max_load] is (number of items / size of table),
and must be in ]0, 1[. Functions for equality check and hashing and must be in )0, 1(. Functions for equality check and hashing
can also be provided. *) can also be provided. *)
module type Hashable = sig module type Hashable = sig