From 4a5eecec6f54f2049d01e28ef220a98ef71f5896 Mon Sep 17 00:00:00 2001
From: ·𐑑𐑴𐑕𐑑𐑩𐑤
Date: Thu, 11 Dec 2025 20:40:39 +0000
Subject: better URI generator

---
 lib/lockfile.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/lockfile.ml')

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
 
-- 
cgit v1.2.3