fix: strong type aliases in Random (closes #210)

This commit is contained in:
Simon Cruanes 2018-03-26 11:33:40 -05:00
parent 323a6bb40a
commit fe23cb496c
4 changed files with 4 additions and 4 deletions

View file

@ -4,7 +4,7 @@
@since 0.14 *) @since 0.14 *)
include module type of Char include module type of struct include Char end
val equal : t -> t -> bool val equal : t -> t -> bool
(** The equal function for chars. *) (** The equal function for chars. *)

View file

@ -3,7 +3,7 @@
(** {1 Random Generators} *) (** {1 Random Generators} *)
include module type of Random include module type of struct include Random end
type state = Random.State.t type state = Random.State.t

View file

@ -14,7 +14,7 @@ type 'a printer = Format.formatter -> 'a -> unit
(** {2 Basics} *) (** {2 Basics} *)
include module type of Result include module type of struct include Result end
(** @since 1.5 *) (** @since 1.5 *)
type (+'good, +'bad) t = ('good, 'bad) Result.result = type (+'good, +'bad) t = ('good, 'bad) Result.result =

View file

@ -60,7 +60,7 @@ end
(** {2 Strings} *) (** {2 Strings} *)
include module type of String include module type of struct include String end
val equal : string -> string -> bool val equal : string -> string -> bool
(** Equality function on strings. *) (** Equality function on strings. *)