From 168c9f1aa836a8177135891277b5d2d562d073f1 Mon Sep 17 00:00:00 2001 From: Jan Midtgaard Date: Wed, 18 Aug 2021 17:36:14 +0200 Subject: [PATCH] fix QCheck2.Gen.small_string impl to match interface+documentation --- src/core/QCheck2.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/QCheck2.ml b/src/core/QCheck2.ml index e7936d4b..99e4d7e0 100644 --- a/src/core/QCheck2.ml +++ b/src/core/QCheck2.ml @@ -661,7 +661,7 @@ module Gen = struct let string_readable = string_size ~gen:char nat - let small_string ?gen st = string_size ?gen small_nat st + let small_string ?(gen = char) st = string_size ~gen small_nat st let small_list gen = list_size small_nat gen