From 2e5a360bcd349614cc45b50a8aff537de2887342 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 3 Apr 2016 00:01:53 +0200
Subject: [PATCH] fix for qtest 2.2

---
 benchs/run_benchs.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/benchs/run_benchs.ml b/benchs/run_benchs.ml
index e22b7ce5..beb35bde 100644
--- a/benchs/run_benchs.ml
+++ b/benchs/run_benchs.ml
@@ -1159,8 +1159,8 @@ module Str = struct
   let rand_str_ ?(among="abcdefgh") n =
     let module Q = QCheck in
     let st = Random.State.make [| n + 17 |] in
-    let gen_c = Q.Gen.oneofl (CCString.to_list among) in
-    Q.Gen.string_size ~gen:gen_c (Q.Gen.return n) st
+    let gen_c = QCheck.Gen.oneofl (CCString.to_list among) in
+    QCheck.Gen.string_size ~gen:gen_c (QCheck.Gen.return n) st
 
   let find ?(start=0) ~sub s =
     let n = String.length sub in