Upgrade JaneStreet async and core to v.0.16

Minor fixes to deprecated functions and function interfaces.
mirleft · Jul 3, 2023 · afded12 · afded12
1 parent 4e20dfe
commit afded12
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/async/tls_async.mli b/async/tls_async.mli
@@ -55,4 +55,4 @@ val connect
       -> 'addr Tcp.Where_to_connect.t
       -> host:[ `host ] Domain_name.t option
       -> (Session.t * Reader.t * Writer.t) Deferred.Or_error.t)
-       Tcp.with_connect_options
+       Tcp.Aliases.with_connect_options
diff --git a/async/x509_async.ml b/async/x509_async.ml
@@ -9,7 +9,7 @@ let file_contents file =
 let load_all_in_directory ~directory ~f =
   let open Deferred.Or_error.Let_syntax in
   let%bind files = Deferred.Or_error.try_with (fun () -> Sys.ls_dir directory) in
-  Deferred.Or_error.List.map files ~f:(fun file ->
+  Deferred.Or_error.List.map ~how:`Sequential files ~f:(fun file ->
     let%bind contents = file_contents (directory ^/ file) in
     f ~contents)
 ;;

diff --git a/tls-async.opam b/tls-async.opam
@@ -19,11 +19,11 @@ depends: [
   "tls" {= version}
   "x509" {>= "0.14.0"}
   "ptime" {>= "0.8.1"}
-  "async" {>= "v0.15"}
-  "async_unix" {>= "v0.15"}
-  "core" {>= "v0.15"}
+  "async" {>= "v0.16"}
+  "async_unix" {>= "v0.16"}
+  "core" {>= "v0.16"}
   "cstruct-async"
-  "ppx_jane" {>= "v0.15"}
+  "ppx_jane" {>= "v0.16"}
   "mirage-crypto-rng-async"
 ]
 tags: [ "org:mirage"]