compat 4.0

c-cube · May 29, 2017 · 6ece4e0 · 6ece4e0
1 parent 4748e13
commit 6ece4e0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/QCheck.ml b/src/QCheck.ml
@@ -23,6 +23,8 @@ open Printf
 
 module RS = Random.State
 
+let (|>) x f = f x
+
 let rec foldn ~f ~init:acc i =
   if i = 0 then acc else foldn ~f ~init:(f acc i) (i-1)