mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
fix: strong type aliases in Random (closes #210)
This commit is contained in:
parent
323a6bb40a
commit
fe23cb496c
4 changed files with 4 additions and 4 deletions
|
|
@ -4,7 +4,7 @@
|
|||
|
||||
@since 0.14 *)
|
||||
|
||||
include module type of Char
|
||||
include module type of struct include Char end
|
||||
|
||||
val equal : t -> t -> bool
|
||||
(** The equal function for chars. *)
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
|
||||
(** {1 Random Generators} *)
|
||||
|
||||
include module type of Random
|
||||
include module type of struct include Random end
|
||||
|
||||
type state = Random.State.t
|
||||
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ type 'a printer = Format.formatter -> 'a -> unit
|
|||
|
||||
(** {2 Basics} *)
|
||||
|
||||
include module type of Result
|
||||
include module type of struct include Result end
|
||||
(** @since 1.5 *)
|
||||
|
||||
type (+'good, +'bad) t = ('good, 'bad) Result.result =
|
||||
|
|
|
|||
|
|
@ -60,7 +60,7 @@ end
|
|||
|
||||
(** {2 Strings} *)
|
||||
|
||||
include module type of String
|
||||
include module type of struct include String end
|
||||
|
||||
val equal : string -> string -> bool
|
||||
(** Equality function on strings. *)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue