CP-34942: Use lwt 5 interfaces

Signed-off-by: Pau Ruiz Safont <[email protected]>

Author: psafont

misc/channel_helper.ml

@@ -129,15 +129,13 @@ let advertise_t _common_options_t proxy_socket =
     let buffer = Bytes.make (String.length token) '\000' in
     let io_vector = Lwt_unix.IO_vectors.create () in
     Lwt_unix.IO_vectors.append_bytes io_vector buffer 0 (Bytes.length buffer) ;
-    Lwt_unix.Versioned.recv_msg_2 ~socket:fd ~io_vectors:io_vector
-    >>= fun (n, fds) ->
+    Lwt_unix.recv_msg ~socket:fd ~io_vectors:io_vector >>= fun (n, fds) ->
     List.iter Unix.close fds ;
     let token' = Bytes.sub buffer 0 n in
     let io_vector' = Lwt_unix.IO_vectors.create () in
     Lwt_unix.IO_vectors.append_bytes io_vector' token' 0 (Bytes.length token') ;
     if token = Bytes.to_string token' then
-      Lwt_unix.Versioned.send_msg_2 ~socket:fd ~io_vectors:io_vector'
-        ~fds:[proxy_socket]
+      Lwt_unix.send_msg ~socket:fd ~io_vectors:io_vector' ~fds:[proxy_socket]
       >>= fun _ -> return ()
     else
       return ()

xapi-idl.opam

@@ -17,7 +17,7 @@ depends: [
   "cohttp"
   "fd-send-recv"
   "logs"
-  "lwt"
+  "lwt" {>= "5.0.0"}
   "message-switch-core"
   "message-switch-unix"
   "mtime"