Regenerate EC2 with newer botocore definitions.

libraries/ec2/lib/acceptReservedInstancesExchangeQuote.ml

@@ -0,0 +1,65 @@
+open Types
+open Aws
+
+type input = AcceptReservedInstancesExchangeQuoteRequest.t
+
+type output = AcceptReservedInstancesExchangeQuoteResult.t
+
+type error = Errors_internal.t
+
+let service = "ec2"
+
+let to_http service region req =
+  let uri =
+    Uri.add_query_params
+      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (List.append
+         [ "Version", [ "2016-11-15" ]
+         ; "Action", [ "AcceptReservedInstancesExchangeQuote" ]
+         ]
+         (Util.drop_empty
+            (Uri.query_of_encoded
+               (Query.render (AcceptReservedInstancesExchangeQuoteRequest.to_query req)))))
+  in
+  `POST, uri, []
+
+let of_http body =
+  try
+    let xml = Ezxmlm.from_string body in
+    let resp = Xml.member "AcceptReservedInstancesExchangeQuoteResponse" (snd xml) in
+    try
+      Util.or_error
+        (Util.option_bind resp AcceptReservedInstancesExchangeQuoteResult.parse)
+        (let open Error in
+        BadResponse
+          { body
+          ; message =
+              "Could not find well formed AcceptReservedInstancesExchangeQuoteResult."
+          })
+    with Xml.RequiredFieldMissing msg ->
+      let open Error in
+      `Error
+        (BadResponse
+           { body
+           ; message =
+               "Error parsing AcceptReservedInstancesExchangeQuoteResult - missing field \
+                in body or children: "
+               ^ msg
+           })
+  with Failure msg ->
+    `Error
+      (let open Error in
+      BadResponse { body; message = "Error parsing xml: " ^ msg })
+
+let parse_error code err =
+  let errors = [] @ Errors_internal.common in
+  match Errors_internal.of_string err with
+  | Some var ->
+      if List.mem var errors
+         &&
+         match Errors_internal.to_http_code var with
+         | Some var -> var = code
+         | None -> true
+      then Some var
+      else None
+  | None -> None

libraries/ec2/lib/acceptReservedInstancesExchangeQuote.mli

@@ -0,0 +1,10 @@
+open Types
+
+type input = AcceptReservedInstancesExchangeQuoteRequest.t
+
+type output = AcceptReservedInstancesExchangeQuoteResult.t
+
+type error = Errors_internal.t
+
+include
+  Aws.Call with type input := input and type output := output and type error := error

libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.ml

@@ -0,0 +1,65 @@
+open Types
+open Aws
+
+type input = AcceptTransitGatewayPeeringAttachmentRequest.t
+
+type output = AcceptTransitGatewayPeeringAttachmentResult.t
+
+type error = Errors_internal.t
+
+let service = "ec2"
+
+let to_http service region req =
+  let uri =
+    Uri.add_query_params
+      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (List.append
+         [ "Version", [ "2016-11-15" ]
+         ; "Action", [ "AcceptTransitGatewayPeeringAttachment" ]
+         ]
+         (Util.drop_empty
+            (Uri.query_of_encoded
+               (Query.render (AcceptTransitGatewayPeeringAttachmentRequest.to_query req)))))
+  in
+  `POST, uri, []
+
+let of_http body =
+  try
+    let xml = Ezxmlm.from_string body in
+    let resp = Xml.member "AcceptTransitGatewayPeeringAttachmentResponse" (snd xml) in
+    try
+      Util.or_error
+        (Util.option_bind resp AcceptTransitGatewayPeeringAttachmentResult.parse)
+        (let open Error in
+        BadResponse
+          { body
+          ; message =
+              "Could not find well formed AcceptTransitGatewayPeeringAttachmentResult."
+          })
+    with Xml.RequiredFieldMissing msg ->
+      let open Error in
+      `Error
+        (BadResponse
+           { body
+           ; message =
+               "Error parsing AcceptTransitGatewayPeeringAttachmentResult - missing \
+                field in body or children: "
+               ^ msg
+           })
+  with Failure msg ->
+    `Error
+      (let open Error in
+      BadResponse { body; message = "Error parsing xml: " ^ msg })
+
+let parse_error code err =
+  let errors = [] @ Errors_internal.common in
+  match Errors_internal.of_string err with
+  | Some var ->
+      if List.mem var errors
+         &&
+         match Errors_internal.to_http_code var with
+         | Some var -> var = code
+         | None -> true
+      then Some var
+      else None
+  | None -> None

libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.mli

@@ -0,0 +1,10 @@
+open Types
+
+type input = AcceptTransitGatewayPeeringAttachmentRequest.t
+
+type output = AcceptTransitGatewayPeeringAttachmentResult.t
+
+type error = Errors_internal.t
+
+include
+  Aws.Call with type input := input and type output := output and type error := error

libraries/ec2/lib/acceptTransitGatewayVpcAttachment.ml

@@ -0,0 +1,65 @@
+open Types
+open Aws
+
+type input = AcceptTransitGatewayVpcAttachmentRequest.t
+
+type output = AcceptTransitGatewayVpcAttachmentResult.t
+
+type error = Errors_internal.t
+
+let service = "ec2"
+
+let to_http service region req =
+  let uri =
+    Uri.add_query_params
+      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (List.append
+         [ "Version", [ "2016-11-15" ]
+         ; "Action", [ "AcceptTransitGatewayVpcAttachment" ]
+         ]
+         (Util.drop_empty
+            (Uri.query_of_encoded
+               (Query.render (AcceptTransitGatewayVpcAttachmentRequest.to_query req)))))
+  in
+  `POST, uri, []
+
+let of_http body =
+  try
+    let xml = Ezxmlm.from_string body in
+    let resp = Xml.member "AcceptTransitGatewayVpcAttachmentResponse" (snd xml) in
+    try
+      Util.or_error
+        (Util.option_bind resp AcceptTransitGatewayVpcAttachmentResult.parse)
+        (let open Error in
+        BadResponse
+          { body
+          ; message =
+              "Could not find well formed AcceptTransitGatewayVpcAttachmentResult."
+          })
+    with Xml.RequiredFieldMissing msg ->
+      let open Error in
+      `Error
+        (BadResponse
+           { body
+           ; message =
+               "Error parsing AcceptTransitGatewayVpcAttachmentResult - missing field in \
+                body or children: "
+               ^ msg
+           })
+  with Failure msg ->
+    `Error
+      (let open Error in
+      BadResponse { body; message = "Error parsing xml: " ^ msg })
+
+let parse_error code err =
+  let errors = [] @ Errors_internal.common in
+  match Errors_internal.of_string err with
+  | Some var ->
+      if List.mem var errors
+         &&
+         match Errors_internal.to_http_code var with
+         | Some var -> var = code
+         | None -> true
+      then Some var
+      else None
+  | None -> None

libraries/ec2/lib/acceptTransitGatewayVpcAttachment.mli

@@ -0,0 +1,10 @@
+open Types
+
+type input = AcceptTransitGatewayVpcAttachmentRequest.t
+
+type output = AcceptTransitGatewayVpcAttachmentResult.t
+
+type error = Errors_internal.t
+
+include
+  Aws.Call with type input := input and type output := output and type error := error

libraries/ec2/lib/acceptVpcEndpointConnections.ml

@@ -0,0 +1,62 @@
+open Types
+open Aws
+
+type input = AcceptVpcEndpointConnectionsRequest.t
+
+type output = AcceptVpcEndpointConnectionsResult.t
+
+type error = Errors_internal.t
+
+let service = "ec2"
+
+let to_http service region req =
+  let uri =
+    Uri.add_query_params
+      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (List.append
+         [ "Version", [ "2016-11-15" ]; "Action", [ "AcceptVpcEndpointConnections" ] ]
+         (Util.drop_empty
+            (Uri.query_of_encoded
+               (Query.render (AcceptVpcEndpointConnectionsRequest.to_query req)))))
+  in
+  `POST, uri, []
+
+let of_http body =
+  try
+    let xml = Ezxmlm.from_string body in
+    let resp = Xml.member "AcceptVpcEndpointConnectionsResponse" (snd xml) in
+    try
+      Util.or_error
+        (Util.option_bind resp AcceptVpcEndpointConnectionsResult.parse)
+        (let open Error in
+        BadResponse
+          { body
+          ; message = "Could not find well formed AcceptVpcEndpointConnectionsResult."
+          })
+    with Xml.RequiredFieldMissing msg ->
+      let open Error in
+      `Error
+        (BadResponse
+           { body
+           ; message =
+               "Error parsing AcceptVpcEndpointConnectionsResult - missing field in body \
+                or children: "
+               ^ msg
+           })
+  with Failure msg ->
+    `Error
+      (let open Error in
+      BadResponse { body; message = "Error parsing xml: " ^ msg })
+
+let parse_error code err =
+  let errors = [] @ Errors_internal.common in
+  match Errors_internal.of_string err with
+  | Some var ->
+      if List.mem var errors
+         &&
+         match Errors_internal.to_http_code var with
+         | Some var -> var = code
+         | None -> true
+      then Some var
+      else None
+  | None -> None

libraries/ec2/lib/acceptVpcEndpointConnections.mli

@@ -0,0 +1,10 @@
+open Types
+
+type input = AcceptVpcEndpointConnectionsRequest.t
+
+type output = AcceptVpcEndpointConnectionsResult.t
+
+type error = Errors_internal.t
+
+include
+  Aws.Call with type input := input and type output := output and type error := error

libraries/ec2/lib/acceptVpcPeeringConnection.ml

@@ -14,7 +14,7 @@ let to_http service region req =
     Uri.add_query_params
       (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2015-04-15" ]; "Action", [ "AcceptVpcPeeringConnection" ] ]
+         [ "Version", [ "2016-11-15" ]; "Action", [ "AcceptVpcPeeringConnection" ] ]
          (Util.drop_empty
             (Uri.query_of_encoded
                (Query.render (AcceptVpcPeeringConnectionRequest.to_query req)))))

libraries/ec2/lib/advertiseByoipCidr.ml

@@ -0,0 +1,59 @@
+open Types
+open Aws
+
+type input = AdvertiseByoipCidrRequest.t
+
+type output = AdvertiseByoipCidrResult.t
+
+type error = Errors_internal.t
+
+let service = "ec2"
+
+let to_http service region req =
+  let uri =
+    Uri.add_query_params
+      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (List.append
+         [ "Version", [ "2016-11-15" ]; "Action", [ "AdvertiseByoipCidr" ] ]
+         (Util.drop_empty
+            (Uri.query_of_encoded (Query.render (AdvertiseByoipCidrRequest.to_query req)))))
+  in
+  `POST, uri, []
+
+let of_http body =
+  try
+    let xml = Ezxmlm.from_string body in
+    let resp = Xml.member "AdvertiseByoipCidrResponse" (snd xml) in
+    try
+      Util.or_error
+        (Util.option_bind resp AdvertiseByoipCidrResult.parse)
+        (let open Error in
+        BadResponse
+          { body; message = "Could not find well formed AdvertiseByoipCidrResult." })
+    with Xml.RequiredFieldMissing msg ->
+      let open Error in
+      `Error
+        (BadResponse
+           { body
+           ; message =
+               "Error parsing AdvertiseByoipCidrResult - missing field in body or \
+                children: "
+               ^ msg
+           })
+  with Failure msg ->
+    `Error
+      (let open Error in
+      BadResponse { body; message = "Error parsing xml: " ^ msg })
+
+let parse_error code err =
+  let errors = [] @ Errors_internal.common in
+  match Errors_internal.of_string err with
+  | Some var ->
+      if List.mem var errors
+         &&
+         match Errors_internal.to_http_code var with
+         | Some var -> var = code
+         | None -> true
+      then Some var
+      else None
+  | None -> None

libraries/ec2/lib/advertiseByoipCidr.mli

@@ -0,0 +1,10 @@
+open Types
+
+type input = AdvertiseByoipCidrRequest.t
+
+type output = AdvertiseByoipCidrResult.t
+
+type error = Errors_internal.t
+
+include
+  Aws.Call with type input := input and type output := output and type error := error

libraries/ec2/lib/allocateAddress.ml

@@ -14,7 +14,7 @@ let to_http service region req =
     Uri.add_query_params
       (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2015-04-15" ]; "Action", [ "AllocateAddress" ] ]
+         [ "Version", [ "2016-11-15" ]; "Action", [ "AllocateAddress" ] ]
          (Util.drop_empty
             (Uri.query_of_encoded (Query.render (AllocateAddressRequest.to_query req)))))
   in