Fix Int32 and Int64 operators are not visible (#224)

Fix visibility of Int32 and Int64 infix operators

Operators are defined in the Infix module.
This module was included in the .ml file but not in the .mli file
This commit is contained in:
juloo 2018-05-29 16:57:04 +02:00 committed by Simon Cruanes
parent 8060980266
commit cbeab54be4
4 changed files with 7 additions and 3 deletions

View file

@ -29,3 +29,4 @@
- Dave Aitken (@actionshrimp) - Dave Aitken (@actionshrimp)
- Etienne Millon (@emillon) - Etienne Millon (@emillon)
- Christopher Zimmermann (@madroach) - Christopher Zimmermann (@madroach)
- Jules Aguillon (@julow)

View file

@ -36,10 +36,9 @@ val map : ('a -> 'b) -> 'b t -> 'a t
[map fst int] compares values of type [(int * 'a)] by their [map fst int] compares values of type [(int * 'a)] by their
first component. *) first component. *)
val (>|=) : 'b t -> ('a -> 'b) -> 'a t
(** Infix equivalent of {!map}. *)
module Infix : sig module Infix : sig
val (>|=) : 'b t -> ('a -> 'b) -> 'a t val (>|=) : 'b t -> ('a -> 'b) -> 'a t
(** Infix equivalent of {!map}. *) (** Infix equivalent of {!map}. *)
end end
include module type of Infix

View file

@ -90,6 +90,8 @@ module Infix : sig
val (<) : t -> t -> bool val (<) : t -> t -> bool
end end
include module type of Infix
val equal : t -> t -> bool val equal : t -> t -> bool
(** The equal function for 32-bit integers. (** The equal function for 32-bit integers.
Like {!Pervasives.(=) x y)}. *) Like {!Pervasives.(=) x y)}. *)

View file

@ -90,6 +90,8 @@ module Infix : sig
val (<) : t -> t -> bool val (<) : t -> t -> bool
end end
include module type of Infix
val equal : t -> t -> bool val equal : t -> t -> bool
(** The equal function for 64-bit integers. (** The equal function for 64-bit integers.
Like {!Pervasives.(=) x y)}. *) Like {!Pervasives.(=) x y)}. *)