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)
- Etienne Millon (@emillon)
- 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
first component. *)
val (>|=) : 'b t -> ('a -> 'b) -> 'a t
(** Infix equivalent of {!map}. *)
module Infix : sig
val (>|=) : 'b t -> ('a -> 'b) -> 'a t
(** Infix equivalent of {!map}. *)
end
include module type of Infix

View file

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

View file

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