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