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

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