From 5e19abdbca9dc301c24435be2ac9c1912325dd21 Mon Sep 17 00:00:00 2001 From: ArthurW Date: Mon, 30 Sep 2024 16:55:23 +0200 Subject: [PATCH] Fix: deprecated Uuidm.v --- bench/irmin-pack/bench_common.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bench/irmin-pack/bench_common.ml b/bench/irmin-pack/bench_common.ml index c2c01d11cb..25fddfc74c 100644 --- 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 =