Fix: deprecated Uuidm.v

mirage · Sep 30, 2024 · 5e19abd · 5e19abd
1 parent 517f133
commit 5e19abd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/bench/irmin-pack/bench_common.ml b/bench/irmin-pack/bench_common.ml
@@ -62,7 +62,8 @@ let random_key () = random_string 5
 
 let default_artefacts_dir =
   let ( / ) = Filename.concat in
-  Unix.getcwd () / "_artefacts" / Uuidm.to_string (Uuidm.v `V4)
+  let uuid = Uuidm.v4_gen (Random.State.make_self_init ()) () in
+  Unix.getcwd () / "_artefacts" / Uuidm.to_string uuid
 
 let prepare_artefacts_dir path =
   let rec mkdir_p path =