Fix Int32 and Int64 operators are not visible

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:37:07 +02:00
parent 8060980266
commit ac5908d95c
3 changed files with 6 additions and 3 deletions

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)}. *)