mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
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:
parent
8060980266
commit
cbeab54be4
4 changed files with 7 additions and 3 deletions
|
|
@ -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)
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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)}. *)
|
||||||
|
|
|
||||||
|
|
@ -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)}. *)
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue