uuidm: use Uuidm.v, in >>= 0.9.6

Signed-off-by: David Scott <dave@recoil.org>
mirage · Jun 19, 2022 · 63cca10 · 63cca10
1 parent 210eaaa
commit 63cca10
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/vhd-format.opam b/vhd-format.opam
@@ -11,7 +11,7 @@ depends: [
   "cstruct" {>= "1.9" & < "6.0.0"}
   "io-page"
   "rresult" {>= "0.3.0"}
-  "uuidm"
+  "uuidm" {>= "0.9.6"}
   "stdlib-shims"
   "dune" {>= "1.0"}
   "ppx_cstruct" {build & >= "3.0.0"}

diff --git a/vhd_format/f.ml b/vhd_format/f.ml
@@ -350,7 +350,7 @@ module Footer = struct
     ?(creator_host_os = Host_OS.Other 0l)
     ~current_size ?original_size
     ~disk_type
-    ?(uid = Uuidm.create `V4) ?(saved_state = false) () =
+    ?(uid = Uuidm.v `V4) ?(saved_state = false) () =
   let original_size = match original_size with
     | None -> current_size
     | Some x -> x in
@@ -1672,7 +1672,7 @@ module From_file = functor(F: S.FILE) -> struct
       return t
 
     let create_dynamic ~filename ~size
-      ?(uuid = Uuidm.create `V4)
+      ?(uuid = Uuidm.v `V4)
       ?(saved_state=false)
       ?(features=[]) () =
 
@@ -1723,7 +1723,7 @@ module From_file = functor(F: S.FILE) -> struct
 
     let create_difference ~filename ~parent
       ?(relative_path = true)
-      ?(uuid=Uuidm.create `V4)
+      ?(uuid=Uuidm.v `V4)
       ?(saved_state=false)
       ?(features=[]) () =