lib/aws.ml: cosmetics

lib/aws.ml

@@ -530,24 +530,24 @@ module Signing = struct
     let canonical_querystring = params in
     let payload_hash = Hash.sha256_hex "" in
     let canonical_headers =
-      "host:"
-      ^ host
-      ^ "\n"
-      ^ "x-amz-content-sha256:"
-      ^ payload_hash
-      ^ "\nx-amz-date:"
-      ^ amzdate
-      ^ "\n"
+      [ "host", host
+      ; "x-amz-content-sha256", payload_hash
+      ; "x-amz-date", amzdate
+      ]
+    in
+    let signed_headers = String.concat ";" (List.map fst canonical_headers) in
+    let canonical_headers_str =
+      let add_header acc (name, value) = acc ^ name ^ ":" ^ value ^ "\n" in
+      List.fold_left add_header "" canonical_headers
     in
-    let signed_headers = "host;x-amz-content-sha256;x-amz-date" in
     let canonical_request =
       Request.string_of_meth meth
       ^ "\n"
       ^ canonical_uri
       ^ "\n"
       ^ canonical_querystring
       ^ "\n"
-      ^ canonical_headers
+      ^ canonical_headers_str
       ^ "\n"
       ^ signed_headers
       ^ "\n"