Replace Uuidm.create (deprecated).

akabe · Feb 27, 2022 · f066c71 · f066c71
1 parent 791c2dc
commit f066c71
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/jupyter/src/comm/manager.ml b/jupyter/src/comm/manager.ml
@@ -91,7 +91,7 @@ struct
   let default = `Assoc []
 
   let create ?(data = default) target =
-    let comm_id = Uuidm.(to_string (create `V4)) in
+    let comm_id = Uuidm.(to_string (v `V4)) in
     ignore (register target comm_id) ;
     Jupyter_notebook__Unsafe.send_iopub
       (IOPUB_COMM_OPEN {

diff --git a/jupyter/src/core/message.ml b/jupyter/src/core/message.ml
@@ -92,7 +92,7 @@ let epoch_to_iso8601_string epoch =
 
 let create_next ?(time = Unix.gettimeofday ()) ~content_to_yojson parent content =
   let date = Some (epoch_to_iso8601_string time) in
-  let msg_id = Uuidm.(to_string (create `V4)) in
+  let msg_id = Uuidm.(to_string (v `V4)) in
   let msg_type =
     match content_to_yojson content with
     | `List (`String msg_type :: _) -> msg_type

diff --git a/jupyter/src/notebook/jupyter_notebook.ml b/jupyter/src/notebook/jupyter_notebook.ml
@@ -40,7 +40,7 @@ let display ?ctx ?display_id ?(metadata = `Assoc []) ?(base64 = false) mime data
   let send content = Unsafe.send_iopub ?ctx content in
   match display_id with
   | None ->
-    let display_id = Uuidm.(to_string (create `V4)) in
+    let display_id = Uuidm.(to_string (v `V4)) in
     send (IOPUB_DISPLAY_DATA {
         display_data = `Assoc [mime, `String data];
         display_metadata = metadata;