Remove deprecation warnings

andersfugmann · Mar 13, 2024 · ed191cd · ed191cd
1 parent bf94808
commit ed191cd
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/aws-s3-async/io.ml b/aws-s3-async/io.ml
@@ -87,7 +87,7 @@ module Net = struct
     in
     let interrupt = match connect_timeout_ms with
       | None -> None
-      | Some ms -> Some (Async.after (Core.Time.Span.of_ms (float ms)))
+      | Some ms -> Some (Async.after (Core.Time_float.Span.of_ms (float ms)))
     in
     Async.try_with (fun () -> Conduit_async.V3.connect_uri ?interrupt ~options uri) >>=? fun (socket, ic, oc) ->
     let reader = Reader.pipe ic in

diff --git a/aws-s3/s3.ml b/aws-s3/s3.ml
@@ -411,7 +411,7 @@ module Make(Io : Types.Io) = struct
         |> Delete_multi.xml_of_request
         |> fun req -> Ezxmlm.to_string [ req ]
       in
-      let headers = [ "Content-MD5", Base64.encode_string (Caml.Digest.string request) ] in
+      let headers = [ "Content-MD5", Base64.encode_string (Stdlib.Digest.string request) ] in
       let headers = maybe_add_request_payer confirm_requester_pays headers in
       let body, sink = string_sink () in
       let cmd () =
@@ -547,7 +547,7 @@ module Make(Io : Types.Io) = struct
       let query = [ "uploadId", t.id ] in
       let request =
         (* TODO: Sort the parts by partNumber *)
-        let parts = Caml.List.sort (fun a b -> compare a.Multipart.part_number b.part_number) t.parts in
+        let parts = Stdlib.List.sort (fun a b -> compare a.Multipart.part_number b.part_number) t.parts in
         Multipart.Complete.(xml_of_request { parts })
         |> (fun node -> Format.asprintf "%a" Ezxmlm.pp [node])
       in

diff --git a/cli/aws.ml b/cli/aws.ml
@@ -211,7 +211,7 @@ module Make(Io : Aws_s3.Types.Io) = struct
       | Some t -> Ptime.to_rfc3339 ~space:false t
     in
     let rec ls_all ?max_keys (result, cont) =
-      List.iter ~f:(fun { S3.last_modified; key; size; etag; _ } -> Caml.Printf.printf "%s\t%d\t%s\t%s\n%!" (string_of_time last_modified) size key etag) result;
+      List.iter ~f:(fun { S3.last_modified; key; size; etag; _ } -> Stdlib.Printf.printf "%s\t%d\t%s\t%s\n%!" (string_of_time last_modified) size key etag) result;
       let max_keys = match max_keys with
         | Some n -> Some (n - List.length result)
         | None -> None