From cbeab54be4863d65ef3c116d0c42d583019fe848 Mon Sep 17 00:00:00 2001
From: juloo <juloo.dsi@gmail.com>
Date: Tue, 29 May 2018 16:57:04 +0200
Subject: [PATCH] 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
---
 AUTHORS.adoc         | 1 +
 src/core/CCEqual.mli | 5 ++---
 src/core/CCInt32.mli | 2 ++
 src/core/CCInt64.mli | 2 ++
 4 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/AUTHORS.adoc b/AUTHORS.adoc
index 895cb10e..ec288cda 100644
--- a/AUTHORS.adoc
+++ b/AUTHORS.adoc
@@ -29,3 +29,4 @@
 - Dave Aitken (@actionshrimp)
 - Etienne Millon (@emillon)
 - Christopher Zimmermann (@madroach)
+- Jules Aguillon (@julow)
diff --git a/src/core/CCEqual.mli b/src/core/CCEqual.mli
index 6dc59f80..f940a56c 100644
--- a/src/core/CCEqual.mli
+++ b/src/core/CCEqual.mli
@@ -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
diff --git a/src/core/CCInt32.mli b/src/core/CCInt32.mli
index 33a0cfab..79eb9292 100644
--- a/src/core/CCInt32.mli
+++ b/src/core/CCInt32.mli
@@ -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)}. *)
diff --git a/src/core/CCInt64.mli b/src/core/CCInt64.mli
index 6d6b7214..b0cdffaa 100644
--- a/src/core/CCInt64.mli
+++ b/src/core/CCInt64.mli
@@ -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)}. *)