diff options
| -rw-r--r-- | lib/lockfile.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/lockfile.ml b/lib/lockfile.ml index 7b9909a..3e2758e 100644 --- a/lib/lockfile.ml +++ b/lib/lockfile.ml @@ -20,7 +20,10 @@ module Uri = struct 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 - let uri = Uri.of_string Fmt.(str "%s://%s.%s/%a" scheme host tld (option string) path_opt) in + let uri = + Uri.of_string @@ + Fmt.str "%s://%s.%s/%s" scheme host tld (Option.value ~default: "" path_opt) + in return uri end |