summaryrefslogtreecommitdiff
path: root/lib/uRI.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/uRI.ml')
-rw-r--r--lib/uRI.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/uRI.ml b/lib/uRI.ml
index cdcf9f5..79cfaab 100644
--- a/lib/uRI.ml
+++ b/lib/uRI.ml
@@ -13,7 +13,7 @@ let jsont : t Jsont.t =
let gen =
let open QCheck.Gen in
let a_to_z = (char_range 'a' 'z') in
- let* scheme = QCheck.Gen.oneofl ["http"; "https"; "ftp"; "sftp"] in
+ let* scheme = QCheck.Gen.oneof_list ["http"; "https"; "ftp"; "sftp"] in
let* host = string_size ~gen: a_to_z (int_bound 20) in
let* tld = string_size ~gen: a_to_z (int_bound 5) in
let* path_opt = option (string_size ~gen: a_to_z (int_bound 10)) in