Commit 4864a729 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove locally defined operator |>

parent 1552b9f9
...@@ -19,8 +19,6 @@ ...@@ -19,8 +19,6 @@
(* <http://www.gnu.org/licenses/>. *) (* <http://www.gnu.org/licenses/>. *)
(**************************************************************************) (**************************************************************************)
let ( |> ) x f = f x
module Array = struct module Array = struct
include Array include Array
......
...@@ -19,8 +19,6 @@ ...@@ -19,8 +19,6 @@
(* <http://www.gnu.org/licenses/>. *) (* <http://www.gnu.org/licenses/>. *)
(**************************************************************************) (**************************************************************************)
val ( |> ) : 'a -> ('a -> 'b) -> 'b
module Array : sig module Array : sig
include module type of Array include module type of Array
val exists : ('a -> bool) -> 'a array -> bool val exists : ('a -> bool) -> 'a array -> bool
......
...@@ -20,7 +20,6 @@ ...@@ -20,7 +20,6 @@
(**************************************************************************) (**************************************************************************)
open Lwt open Lwt
open Common
open Web_serializable_j open Web_serializable_j
open Web_common open Web_common
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment