From f02e8f3f45d0b82a677014c39bacb7929408556d Mon Sep 17 00:00:00 2001 From: Tim McGilchrist Date: Tue, 4 Jul 2023 14:39:46 +1000 Subject: [PATCH 1/5] Fix OCaml 4.09 build --- src/syntax.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/syntax.ml b/src/syntax.ml index 49aa629b7..f6ed6d617 100644 --- a/src/syntax.ml +++ b/src/syntax.ml @@ -218,7 +218,7 @@ let sigty nm ty = Sig.type_ Recursive [ Type.mk ~manifest:ty (strloc nm) ] let sig_ ss = Mty.signature ss let module'_ nm vs sig_ = -#if OCAML_VERSION >= (4, 9, 0) +#if OCAML_VERSION >= (4, 10, 0) let nm = Some nm in #endif From a3a7568cc1e5bc7bd24d897001d65f49b2f73c1a Mon Sep 17 00:00:00 2001 From: Tim McGilchrist Date: Wed, 5 Jul 2023 16:21:40 +1000 Subject: [PATCH 2/5] Add lower bound on yojson 2.0 --- aws-autoscaling.opam | 4 ++++ aws-cloudformation.opam | 4 ++++ aws-cloudtrail.opam | 4 ++++ aws-cloudwatch.opam | 4 ++++ aws-ec2.opam | 4 ++++ aws-elasticache.opam | 4 ++++ aws-elasticloadbalancing.opam | 4 ++++ aws-gen.opam | 5 ++++- aws-kms.opam | 4 ++++ aws-rds.opam | 4 ++++ aws-route53.opam | 4 ++++ aws-sdb.opam | 4 ++++ aws-sqs.opam | 4 ++++ aws-ssm.opam | 4 ++++ aws-sts.opam | 4 ++++ 15 files changed, 60 insertions(+), 1 deletion(-) diff --git a/aws-autoscaling.opam b/aws-autoscaling.opam index f9857a1b7..603ce1d1c 100644 --- a/aws-autoscaling.opam +++ b/aws-autoscaling.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-cloudformation.opam b/aws-cloudformation.opam index a90bd1f2a..75edb31ff 100644 --- a/aws-cloudformation.opam +++ b/aws-cloudformation.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-cloudtrail.opam b/aws-cloudtrail.opam index f8cb809a4..a077afa09 100644 --- a/aws-cloudtrail.opam +++ b/aws-cloudtrail.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-cloudwatch.opam b/aws-cloudwatch.opam index fe1ef7900..71d4d7e61 100644 --- a/aws-cloudwatch.opam +++ b/aws-cloudwatch.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-ec2.opam b/aws-ec2.opam index f26d96152..dfc1ff9c0 100644 --- a/aws-ec2.opam +++ b/aws-ec2.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-elasticache.opam b/aws-elasticache.opam index bf8d45fea..b632d5c75 100644 --- a/aws-elasticache.opam +++ b/aws-elasticache.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-elasticloadbalancing.opam b/aws-elasticloadbalancing.opam index acdc844d4..ec31817d7 100644 --- a/aws-elasticloadbalancing.opam +++ b/aws-elasticloadbalancing.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-gen.opam b/aws-gen.opam index 405a646e9..d549a8447 100644 --- a/aws-gen.opam +++ b/aws-gen.opam @@ -15,11 +15,14 @@ dev-repo: "git+https://github.com/inhabitedtype/ocaml-aws.git" depends: [ "ocaml" {>= "4.08"} "atdgen" {>= "2.10"} - "yojson" + "yojson" {>= "2.0"} "base-unix" "cmdliner" {>= "1.1.0"} "fmt" +<<<<<<< HEAD "yojson" {>= "1.6.0"} +======= +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) "ocaml-compiler-libs" {>= "0.11.0" } "ocamlgraph" "dune" {>= "2.7"} diff --git a/aws-kms.opam b/aws-kms.opam index a5bd04e1b..1edcb4d42 100644 --- a/aws-kms.opam +++ b/aws-kms.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-rds.opam b/aws-rds.opam index 3054fb226..27502637e 100644 --- a/aws-rds.opam +++ b/aws-rds.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-route53.opam b/aws-route53.opam index 9d9a536ee..190d28060 100644 --- a/aws-route53.opam +++ b/aws-route53.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-sdb.opam b/aws-sdb.opam index 0eb4e16a0..8e47fe5b8 100644 --- a/aws-sdb.opam +++ b/aws-sdb.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-sqs.opam b/aws-sqs.opam index 62180fdc9..e289aaaa1 100644 --- a/aws-sqs.opam +++ b/aws-sqs.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-ssm.opam b/aws-ssm.opam index 41d66ca07..25f678089 100644 --- a/aws-ssm.opam +++ b/aws-ssm.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-sts.opam b/aws-sts.opam index c0c1b3557..4dd0f9987 100644 --- a/aws-sts.opam +++ b/aws-sts.opam @@ -23,7 +23,11 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} +<<<<<<< HEAD "yojson" {with-test & >= "1.7.0"} +======= + "yojson" {with-test & >= "2.0"} +>>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} From 9075af7002105f48859e13458c7998e34358dbfc Mon Sep 17 00:00:00 2001 From: Tim McGilchrist Date: Mon, 30 Oct 2023 14:19:04 +1100 Subject: [PATCH 3/5] fixup! Add lower bound on yojson 2.0 --- aws-autoscaling.opam | 4 ---- aws-cloudformation.opam | 4 ---- aws-cloudtrail.opam | 4 ---- aws-cloudwatch.opam | 4 ---- aws-ec2.opam | 4 ---- aws-elasticache.opam | 4 ---- aws-elasticloadbalancing.opam | 4 ---- aws-gen.opam | 4 ---- aws-kms.opam | 4 ---- aws-rds.opam | 4 ---- aws-route53.opam | 4 ---- aws-sdb.opam | 4 ---- aws-sqs.opam | 4 ---- aws-ssm.opam | 4 ---- aws-sts.opam | 4 ---- 15 files changed, 60 deletions(-) diff --git a/aws-autoscaling.opam b/aws-autoscaling.opam index 603ce1d1c..3bb0bad30 100644 --- a/aws-autoscaling.opam +++ b/aws-autoscaling.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-cloudformation.opam b/aws-cloudformation.opam index 75edb31ff..c84fb2784 100644 --- a/aws-cloudformation.opam +++ b/aws-cloudformation.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-cloudtrail.opam b/aws-cloudtrail.opam index a077afa09..235320dcc 100644 --- a/aws-cloudtrail.opam +++ b/aws-cloudtrail.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-cloudwatch.opam b/aws-cloudwatch.opam index 71d4d7e61..ced078119 100644 --- a/aws-cloudwatch.opam +++ b/aws-cloudwatch.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-ec2.opam b/aws-ec2.opam index dfc1ff9c0..0b55eba62 100644 --- a/aws-ec2.opam +++ b/aws-ec2.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-elasticache.opam b/aws-elasticache.opam index b632d5c75..f56779e01 100644 --- a/aws-elasticache.opam +++ b/aws-elasticache.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-elasticloadbalancing.opam b/aws-elasticloadbalancing.opam index ec31817d7..0ae5a024f 100644 --- a/aws-elasticloadbalancing.opam +++ b/aws-elasticloadbalancing.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-gen.opam b/aws-gen.opam index d549a8447..6864d6cf1 100644 --- a/aws-gen.opam +++ b/aws-gen.opam @@ -19,10 +19,6 @@ depends: [ "base-unix" "cmdliner" {>= "1.1.0"} "fmt" -<<<<<<< HEAD - "yojson" {>= "1.6.0"} -======= ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) "ocaml-compiler-libs" {>= "0.11.0" } "ocamlgraph" "dune" {>= "2.7"} diff --git a/aws-kms.opam b/aws-kms.opam index 1edcb4d42..1b5fb83e8 100644 --- a/aws-kms.opam +++ b/aws-kms.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-rds.opam b/aws-rds.opam index 27502637e..6b1ab818d 100644 --- a/aws-rds.opam +++ b/aws-rds.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-route53.opam b/aws-route53.opam index 190d28060..1ddabe78d 100644 --- a/aws-route53.opam +++ b/aws-route53.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-sdb.opam b/aws-sdb.opam index 8e47fe5b8..47318313a 100644 --- a/aws-sdb.opam +++ b/aws-sdb.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-sqs.opam b/aws-sqs.opam index e289aaaa1..b0fe96008 100644 --- a/aws-sqs.opam +++ b/aws-sqs.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-ssm.opam b/aws-ssm.opam index 25f678089..1da336b28 100644 --- a/aws-ssm.opam +++ b/aws-ssm.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} diff --git a/aws-sts.opam b/aws-sts.opam index 4dd0f9987..f31f6a2c4 100644 --- a/aws-sts.opam +++ b/aws-sts.opam @@ -23,11 +23,7 @@ depends: [ "cohttp-lwt" {with-test & >= "2.4.0"} "cohttp-lwt-unix" {with-test & >= "2.4.0"} "lwt" {with-test & >= "4.0.0"} -<<<<<<< HEAD - "yojson" {with-test & >= "1.7.0"} -======= "yojson" {with-test & >= "2.0"} ->>>>>>> 15b920809 (Add lower bound on yojson 2.0) ] build: [ ["dune" "subst"] {pinned} From 6b72f2e589e63f4757bcab02d039d9b27e208ab4 Mon Sep 17 00:00:00 2001 From: Tim McGilchrist Date: Mon, 30 Oct 2023 14:37:32 +1100 Subject: [PATCH 4/5] Add lower bound for Fmt --- aws-gen.opam | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/aws-gen.opam b/aws-gen.opam index 6864d6cf1..49f1561ac 100644 --- a/aws-gen.opam +++ b/aws-gen.opam @@ -18,7 +18,7 @@ depends: [ "yojson" {>= "2.0"} "base-unix" "cmdliner" {>= "1.1.0"} - "fmt" + "fmt" {>= "0.9.0"} "ocaml-compiler-libs" {>= "0.11.0" } "ocamlgraph" "dune" {>= "2.7"} From af9ab4c0c471506b0bc93dac32e5708e10baedd0 Mon Sep 17 00:00:00 2001 From: Tim McGilchrist Date: Tue, 31 Oct 2023 08:20:39 +1100 Subject: [PATCH 5/5] Upgrade ocamlformat. --- .ocamlformat | 2 +- .ocamlformat-ignore | 1 + lib/aws.ml | 6 - lib/aws.mli | 17 - lib/baseTypes.ml | 16 - lib/endpoints.ml | 3968 ++++++++--------- lib/signing.ml | 2 - lib/time.ml | 3 - lib/xml.ml | 1 - libraries/autoscaling/lib/attachInstances.ml | 3 - libraries/autoscaling/lib/attachInstances.mli | 2 - .../autoscaling/lib/attachLoadBalancers.ml | 3 - .../autoscaling/lib/attachLoadBalancers.mli | 2 - .../lib/completeLifecycleAction.ml | 3 - .../lib/completeLifecycleAction.mli | 2 - .../autoscaling/lib/createAutoScalingGroup.ml | 3 - .../lib/createAutoScalingGroup.mli | 2 - .../lib/createLaunchConfiguration.ml | 3 - .../lib/createLaunchConfiguration.mli | 2 - .../autoscaling/lib/createOrUpdateTags.ml | 3 - .../autoscaling/lib/createOrUpdateTags.mli | 2 - .../autoscaling/lib/deleteAutoScalingGroup.ml | 3 - .../lib/deleteAutoScalingGroup.mli | 2 - .../lib/deleteLaunchConfiguration.ml | 3 - .../lib/deleteLaunchConfiguration.mli | 2 - .../autoscaling/lib/deleteLifecycleHook.ml | 3 - .../autoscaling/lib/deleteLifecycleHook.mli | 2 - .../lib/deleteNotificationConfiguration.ml | 3 - .../lib/deleteNotificationConfiguration.mli | 2 - libraries/autoscaling/lib/deletePolicy.ml | 3 - libraries/autoscaling/lib/deletePolicy.mli | 2 - .../autoscaling/lib/deleteScheduledAction.ml | 3 - .../autoscaling/lib/deleteScheduledAction.mli | 2 - libraries/autoscaling/lib/deleteTags.ml | 3 - libraries/autoscaling/lib/deleteTags.mli | 2 - .../autoscaling/lib/describeAccountLimits.ml | 3 - .../autoscaling/lib/describeAccountLimits.mli | 2 - .../lib/describeAdjustmentTypes.ml | 3 - .../lib/describeAdjustmentTypes.mli | 2 - .../lib/describeAutoScalingGroups.ml | 3 - .../lib/describeAutoScalingGroups.mli | 2 - .../lib/describeAutoScalingInstances.ml | 3 - .../lib/describeAutoScalingInstances.mli | 2 - .../describeAutoScalingNotificationTypes.ml | 3 - .../describeAutoScalingNotificationTypes.mli | 2 - .../lib/describeLaunchConfigurations.ml | 3 - .../lib/describeLaunchConfigurations.mli | 2 - .../lib/describeLifecycleHookTypes.ml | 3 - .../lib/describeLifecycleHookTypes.mli | 2 - .../autoscaling/lib/describeLifecycleHooks.ml | 3 - .../lib/describeLifecycleHooks.mli | 2 - .../autoscaling/lib/describeLoadBalancers.ml | 3 - .../autoscaling/lib/describeLoadBalancers.mli | 2 - .../lib/describeMetricCollectionTypes.ml | 3 - .../lib/describeMetricCollectionTypes.mli | 2 - .../lib/describeNotificationConfigurations.ml | 3 - .../describeNotificationConfigurations.mli | 2 - libraries/autoscaling/lib/describePolicies.ml | 3 - .../autoscaling/lib/describePolicies.mli | 2 - .../lib/describeScalingActivities.ml | 3 - .../lib/describeScalingActivities.mli | 2 - .../lib/describeScalingProcessTypes.ml | 3 - .../lib/describeScalingProcessTypes.mli | 2 - .../lib/describeScheduledActions.ml | 3 - .../lib/describeScheduledActions.mli | 2 - libraries/autoscaling/lib/describeTags.ml | 3 - libraries/autoscaling/lib/describeTags.mli | 2 - .../lib/describeTerminationPolicyTypes.ml | 3 - .../lib/describeTerminationPolicyTypes.mli | 2 - libraries/autoscaling/lib/detachInstances.ml | 3 - libraries/autoscaling/lib/detachInstances.mli | 2 - .../autoscaling/lib/detachLoadBalancers.ml | 3 - .../autoscaling/lib/detachLoadBalancers.mli | 2 - .../lib/disableMetricsCollection.ml | 3 - .../lib/disableMetricsCollection.mli | 2 - .../lib/enableMetricsCollection.ml | 3 - .../lib/enableMetricsCollection.mli | 2 - libraries/autoscaling/lib/enterStandby.ml | 3 - libraries/autoscaling/lib/enterStandby.mli | 2 - libraries/autoscaling/lib/executePolicy.ml | 3 - libraries/autoscaling/lib/executePolicy.mli | 2 - libraries/autoscaling/lib/exitStandby.ml | 3 - libraries/autoscaling/lib/exitStandby.mli | 2 - libraries/autoscaling/lib/putLifecycleHook.ml | 3 - .../autoscaling/lib/putLifecycleHook.mli | 2 - .../lib/putNotificationConfiguration.ml | 3 - .../lib/putNotificationConfiguration.mli | 2 - libraries/autoscaling/lib/putScalingPolicy.ml | 3 - .../autoscaling/lib/putScalingPolicy.mli | 2 - .../lib/putScheduledUpdateGroupAction.ml | 3 - .../lib/putScheduledUpdateGroupAction.mli | 2 - .../lib/recordLifecycleActionHeartbeat.ml | 3 - .../lib/recordLifecycleActionHeartbeat.mli | 2 - libraries/autoscaling/lib/resumeProcesses.ml | 3 - libraries/autoscaling/lib/resumeProcesses.mli | 2 - .../autoscaling/lib/setDesiredCapacity.ml | 3 - .../autoscaling/lib/setDesiredCapacity.mli | 2 - .../autoscaling/lib/setInstanceHealth.ml | 3 - .../autoscaling/lib/setInstanceHealth.mli | 2 - libraries/autoscaling/lib/suspendProcesses.ml | 3 - .../autoscaling/lib/suspendProcesses.mli | 2 - .../terminateInstanceInAutoScalingGroup.ml | 3 - .../terminateInstanceInAutoScalingGroup.mli | 2 - libraries/autoscaling/lib/types.ml | 110 - .../autoscaling/lib/updateAutoScalingGroup.ml | 3 - .../lib/updateAutoScalingGroup.mli | 2 - libraries/autoscaling/lib_test/test_async.ml | 1 - libraries/autoscaling/lib_test/test_lwt.ml | 1 - .../cloudformation/lib/cancelUpdateStack.ml | 3 - .../cloudformation/lib/cancelUpdateStack.mli | 2 - .../lib/continueUpdateRollback.ml | 3 - .../lib/continueUpdateRollback.mli | 2 - .../cloudformation/lib/createChangeSet.ml | 3 - .../cloudformation/lib/createChangeSet.mli | 2 - libraries/cloudformation/lib/createStack.ml | 3 - libraries/cloudformation/lib/createStack.mli | 2 - .../lib/createStackInstances.ml | 3 - .../lib/createStackInstances.mli | 2 - .../cloudformation/lib/createStackSet.ml | 3 - .../cloudformation/lib/createStackSet.mli | 2 - .../cloudformation/lib/deleteChangeSet.ml | 3 - .../cloudformation/lib/deleteChangeSet.mli | 2 - libraries/cloudformation/lib/deleteStack.ml | 3 - libraries/cloudformation/lib/deleteStack.mli | 2 - .../lib/deleteStackInstances.ml | 3 - .../lib/deleteStackInstances.mli | 2 - .../cloudformation/lib/deleteStackSet.ml | 3 - .../cloudformation/lib/deleteStackSet.mli | 2 - .../cloudformation/lib/deregisterType.ml | 3 - .../cloudformation/lib/deregisterType.mli | 2 - .../lib/describeAccountLimits.ml | 3 - .../lib/describeAccountLimits.mli | 2 - .../cloudformation/lib/describeChangeSet.ml | 3 - .../cloudformation/lib/describeChangeSet.mli | 2 - .../lib/describeStackDriftDetectionStatus.ml | 3 - .../lib/describeStackDriftDetectionStatus.mli | 2 - .../cloudformation/lib/describeStackEvents.ml | 3 - .../lib/describeStackEvents.mli | 2 - .../lib/describeStackInstance.ml | 3 - .../lib/describeStackInstance.mli | 2 - .../lib/describeStackResource.ml | 3 - .../lib/describeStackResource.mli | 2 - .../lib/describeStackResourceDrifts.ml | 3 - .../lib/describeStackResourceDrifts.mli | 2 - .../lib/describeStackResources.ml | 3 - .../lib/describeStackResources.mli | 2 - .../cloudformation/lib/describeStackSet.ml | 3 - .../cloudformation/lib/describeStackSet.mli | 2 - .../lib/describeStackSetOperation.ml | 3 - .../lib/describeStackSetOperation.mli | 2 - .../cloudformation/lib/describeStacks.ml | 3 - .../cloudformation/lib/describeStacks.mli | 2 - libraries/cloudformation/lib/describeType.ml | 3 - libraries/cloudformation/lib/describeType.mli | 2 - .../lib/describeTypeRegistration.ml | 3 - .../lib/describeTypeRegistration.mli | 2 - .../cloudformation/lib/detectStackDrift.ml | 3 - .../cloudformation/lib/detectStackDrift.mli | 2 - .../lib/detectStackResourceDrift.ml | 3 - .../lib/detectStackResourceDrift.mli | 2 - .../cloudformation/lib/detectStackSetDrift.ml | 3 - .../lib/detectStackSetDrift.mli | 2 - .../lib/estimateTemplateCost.ml | 3 - .../lib/estimateTemplateCost.mli | 2 - .../cloudformation/lib/executeChangeSet.ml | 3 - .../cloudformation/lib/executeChangeSet.mli | 2 - .../cloudformation/lib/getStackPolicy.ml | 3 - .../cloudformation/lib/getStackPolicy.mli | 2 - libraries/cloudformation/lib/getTemplate.ml | 3 - libraries/cloudformation/lib/getTemplate.mli | 2 - .../cloudformation/lib/getTemplateSummary.ml | 3 - .../cloudformation/lib/getTemplateSummary.mli | 2 - .../cloudformation/lib/listChangeSets.ml | 3 - .../cloudformation/lib/listChangeSets.mli | 2 - libraries/cloudformation/lib/listExports.ml | 3 - libraries/cloudformation/lib/listExports.mli | 2 - libraries/cloudformation/lib/listImports.ml | 3 - libraries/cloudformation/lib/listImports.mli | 2 - .../cloudformation/lib/listStackInstances.ml | 3 - .../cloudformation/lib/listStackInstances.mli | 2 - .../cloudformation/lib/listStackResources.ml | 3 - .../cloudformation/lib/listStackResources.mli | 2 - .../lib/listStackSetOperationResults.ml | 3 - .../lib/listStackSetOperationResults.mli | 2 - .../lib/listStackSetOperations.ml | 3 - .../lib/listStackSetOperations.mli | 2 - libraries/cloudformation/lib/listStackSets.ml | 3 - .../cloudformation/lib/listStackSets.mli | 2 - libraries/cloudformation/lib/listStacks.ml | 3 - libraries/cloudformation/lib/listStacks.mli | 2 - .../lib/listTypeRegistrations.ml | 3 - .../lib/listTypeRegistrations.mli | 2 - .../cloudformation/lib/listTypeVersions.ml | 3 - .../cloudformation/lib/listTypeVersions.mli | 2 - libraries/cloudformation/lib/listTypes.ml | 3 - libraries/cloudformation/lib/listTypes.mli | 2 - .../lib/recordHandlerProgress.ml | 3 - .../lib/recordHandlerProgress.mli | 2 - libraries/cloudformation/lib/registerType.ml | 3 - libraries/cloudformation/lib/registerType.mli | 2 - .../cloudformation/lib/setStackPolicy.ml | 3 - .../cloudformation/lib/setStackPolicy.mli | 2 - .../lib/setTypeDefaultVersion.ml | 3 - .../lib/setTypeDefaultVersion.mli | 2 - .../cloudformation/lib/signalResource.ml | 3 - .../cloudformation/lib/signalResource.mli | 2 - .../lib/stopStackSetOperation.ml | 3 - .../lib/stopStackSetOperation.mli | 2 - libraries/cloudformation/lib/types.ml | 357 -- libraries/cloudformation/lib/updateStack.ml | 3 - libraries/cloudformation/lib/updateStack.mli | 2 - .../lib/updateStackInstances.ml | 3 - .../lib/updateStackInstances.mli | 2 - .../cloudformation/lib/updateStackSet.ml | 3 - .../cloudformation/lib/updateStackSet.mli | 2 - .../lib/updateTerminationProtection.ml | 3 - .../lib/updateTerminationProtection.mli | 2 - .../cloudformation/lib/validateTemplate.ml | 3 - .../cloudformation/lib/validateTemplate.mli | 2 - .../cloudformation/lib_test/test_async.ml | 1 - libraries/cloudformation/lib_test/test_lwt.ml | 1 - libraries/cloudtrail/lib/addTags.ml | 3 - libraries/cloudtrail/lib/addTags.mli | 2 - libraries/cloudtrail/lib/createTrail.ml | 3 - libraries/cloudtrail/lib/createTrail.mli | 2 - libraries/cloudtrail/lib/deleteTrail.ml | 3 - libraries/cloudtrail/lib/deleteTrail.mli | 2 - libraries/cloudtrail/lib/describeTrails.ml | 3 - libraries/cloudtrail/lib/describeTrails.mli | 2 - libraries/cloudtrail/lib/getEventSelectors.ml | 3 - .../cloudtrail/lib/getEventSelectors.mli | 2 - .../cloudtrail/lib/getInsightSelectors.ml | 3 - .../cloudtrail/lib/getInsightSelectors.mli | 2 - libraries/cloudtrail/lib/getTrail.ml | 3 - libraries/cloudtrail/lib/getTrail.mli | 2 - libraries/cloudtrail/lib/getTrailStatus.ml | 3 - libraries/cloudtrail/lib/getTrailStatus.mli | 2 - libraries/cloudtrail/lib/listPublicKeys.ml | 3 - libraries/cloudtrail/lib/listPublicKeys.mli | 2 - libraries/cloudtrail/lib/listTags.ml | 3 - libraries/cloudtrail/lib/listTags.mli | 2 - libraries/cloudtrail/lib/listTrails.ml | 3 - libraries/cloudtrail/lib/listTrails.mli | 2 - libraries/cloudtrail/lib/lookupEvents.ml | 3 - libraries/cloudtrail/lib/lookupEvents.mli | 2 - libraries/cloudtrail/lib/putEventSelectors.ml | 3 - .../cloudtrail/lib/putEventSelectors.mli | 2 - .../cloudtrail/lib/putInsightSelectors.ml | 3 - .../cloudtrail/lib/putInsightSelectors.mli | 2 - libraries/cloudtrail/lib/removeTags.ml | 3 - libraries/cloudtrail/lib/removeTags.mli | 2 - libraries/cloudtrail/lib/startLogging.ml | 3 - libraries/cloudtrail/lib/startLogging.mli | 2 - libraries/cloudtrail/lib/stopLogging.ml | 3 - libraries/cloudtrail/lib/stopLogging.mli | 2 - libraries/cloudtrail/lib/types.ml | 238 - libraries/cloudtrail/lib/updateTrail.ml | 3 - libraries/cloudtrail/lib/updateTrail.mli | 2 - libraries/cloudtrail/lib_test/test_async.ml | 1 - libraries/cloudtrail/lib_test/test_lwt.ml | 1 - libraries/cloudwatch/lib/deleteAlarms.ml | 3 - libraries/cloudwatch/lib/deleteAlarms.mli | 2 - .../cloudwatch/lib/deleteAnomalyDetector.ml | 3 - .../cloudwatch/lib/deleteAnomalyDetector.mli | 2 - libraries/cloudwatch/lib/deleteDashboards.ml | 3 - libraries/cloudwatch/lib/deleteDashboards.mli | 2 - .../cloudwatch/lib/deleteInsightRules.ml | 3 - .../cloudwatch/lib/deleteInsightRules.mli | 2 - .../cloudwatch/lib/describeAlarmHistory.ml | 3 - .../cloudwatch/lib/describeAlarmHistory.mli | 2 - libraries/cloudwatch/lib/describeAlarms.ml | 3 - libraries/cloudwatch/lib/describeAlarms.mli | 2 - .../cloudwatch/lib/describeAlarmsForMetric.ml | 3 - .../lib/describeAlarmsForMetric.mli | 2 - .../lib/describeAnomalyDetectors.ml | 3 - .../lib/describeAnomalyDetectors.mli | 2 - .../cloudwatch/lib/describeInsightRules.ml | 3 - .../cloudwatch/lib/describeInsightRules.mli | 2 - .../cloudwatch/lib/disableAlarmActions.ml | 3 - .../cloudwatch/lib/disableAlarmActions.mli | 2 - .../cloudwatch/lib/disableInsightRules.ml | 3 - .../cloudwatch/lib/disableInsightRules.mli | 2 - .../cloudwatch/lib/enableAlarmActions.ml | 3 - .../cloudwatch/lib/enableAlarmActions.mli | 2 - .../cloudwatch/lib/enableInsightRules.ml | 3 - .../cloudwatch/lib/enableInsightRules.mli | 2 - libraries/cloudwatch/lib/getDashboard.ml | 3 - libraries/cloudwatch/lib/getDashboard.mli | 2 - .../cloudwatch/lib/getInsightRuleReport.ml | 3 - .../cloudwatch/lib/getInsightRuleReport.mli | 2 - libraries/cloudwatch/lib/getMetricData.ml | 3 - libraries/cloudwatch/lib/getMetricData.mli | 2 - .../cloudwatch/lib/getMetricStatistics.ml | 3 - .../cloudwatch/lib/getMetricStatistics.mli | 2 - .../cloudwatch/lib/getMetricWidgetImage.ml | 3 - .../cloudwatch/lib/getMetricWidgetImage.mli | 2 - libraries/cloudwatch/lib/listDashboards.ml | 3 - libraries/cloudwatch/lib/listDashboards.mli | 2 - libraries/cloudwatch/lib/listMetrics.ml | 3 - libraries/cloudwatch/lib/listMetrics.mli | 2 - .../cloudwatch/lib/listTagsForResource.ml | 3 - .../cloudwatch/lib/listTagsForResource.mli | 2 - .../cloudwatch/lib/putAnomalyDetector.ml | 3 - .../cloudwatch/lib/putAnomalyDetector.mli | 2 - libraries/cloudwatch/lib/putCompositeAlarm.ml | 3 - .../cloudwatch/lib/putCompositeAlarm.mli | 2 - libraries/cloudwatch/lib/putDashboard.ml | 3 - libraries/cloudwatch/lib/putDashboard.mli | 2 - libraries/cloudwatch/lib/putInsightRule.ml | 3 - libraries/cloudwatch/lib/putInsightRule.mli | 2 - libraries/cloudwatch/lib/putMetricAlarm.ml | 3 - libraries/cloudwatch/lib/putMetricAlarm.mli | 2 - libraries/cloudwatch/lib/putMetricData.ml | 3 - libraries/cloudwatch/lib/putMetricData.mli | 2 - libraries/cloudwatch/lib/setAlarmState.ml | 3 - libraries/cloudwatch/lib/setAlarmState.mli | 2 - libraries/cloudwatch/lib/tagResource.ml | 3 - libraries/cloudwatch/lib/tagResource.mli | 2 - libraries/cloudwatch/lib/types.ml | 144 - libraries/cloudwatch/lib/untagResource.ml | 3 - libraries/cloudwatch/lib/untagResource.mli | 2 - libraries/cloudwatch/lib_test/test_async.ml | 1 - libraries/cloudwatch/lib_test/test_lwt.ml | 1 - .../acceptReservedInstancesExchangeQuote.ml | 3 - .../acceptReservedInstancesExchangeQuote.mli | 2 - .../acceptTransitGatewayPeeringAttachment.ml | 3 - .../acceptTransitGatewayPeeringAttachment.mli | 2 - .../lib/acceptTransitGatewayVpcAttachment.ml | 3 - .../lib/acceptTransitGatewayVpcAttachment.mli | 2 - .../ec2/lib/acceptVpcEndpointConnections.ml | 3 - .../ec2/lib/acceptVpcEndpointConnections.mli | 2 - .../ec2/lib/acceptVpcPeeringConnection.ml | 3 - .../ec2/lib/acceptVpcPeeringConnection.mli | 2 - libraries/ec2/lib/advertiseByoipCidr.ml | 3 - libraries/ec2/lib/advertiseByoipCidr.mli | 2 - libraries/ec2/lib/allocateAddress.ml | 3 - libraries/ec2/lib/allocateAddress.mli | 2 - libraries/ec2/lib/allocateHosts.ml | 3 - libraries/ec2/lib/allocateHosts.mli | 2 - ...ySecurityGroupsToClientVpnTargetNetwork.ml | 3 - ...SecurityGroupsToClientVpnTargetNetwork.mli | 2 - libraries/ec2/lib/assignIpv6Addresses.ml | 3 - libraries/ec2/lib/assignIpv6Addresses.mli | 2 - libraries/ec2/lib/assignPrivateIpAddresses.ml | 3 - .../ec2/lib/assignPrivateIpAddresses.mli | 2 - libraries/ec2/lib/associateAddress.ml | 3 - libraries/ec2/lib/associateAddress.mli | 2 - .../lib/associateClientVpnTargetNetwork.ml | 3 - .../lib/associateClientVpnTargetNetwork.mli | 2 - libraries/ec2/lib/associateDhcpOptions.ml | 3 - libraries/ec2/lib/associateDhcpOptions.mli | 2 - .../lib/associateEnclaveCertificateIamRole.ml | 3 - .../associateEnclaveCertificateIamRole.mli | 2 - .../ec2/lib/associateIamInstanceProfile.ml | 3 - .../ec2/lib/associateIamInstanceProfile.mli | 2 - libraries/ec2/lib/associateRouteTable.ml | 3 - libraries/ec2/lib/associateRouteTable.mli | 2 - libraries/ec2/lib/associateSubnetCidrBlock.ml | 3 - .../ec2/lib/associateSubnetCidrBlock.mli | 2 - .../associateTransitGatewayMulticastDomain.ml | 3 - ...associateTransitGatewayMulticastDomain.mli | 2 - .../lib/associateTransitGatewayRouteTable.ml | 3 - .../lib/associateTransitGatewayRouteTable.mli | 2 - libraries/ec2/lib/associateVpcCidrBlock.ml | 3 - libraries/ec2/lib/associateVpcCidrBlock.mli | 2 - libraries/ec2/lib/attachClassicLinkVpc.ml | 3 - libraries/ec2/lib/attachClassicLinkVpc.mli | 2 - libraries/ec2/lib/attachInternetGateway.ml | 3 - libraries/ec2/lib/attachInternetGateway.mli | 2 - libraries/ec2/lib/attachNetworkInterface.ml | 3 - libraries/ec2/lib/attachNetworkInterface.mli | 2 - libraries/ec2/lib/attachVolume.ml | 3 - libraries/ec2/lib/attachVolume.mli | 2 - libraries/ec2/lib/attachVpnGateway.ml | 3 - libraries/ec2/lib/attachVpnGateway.mli | 2 - .../ec2/lib/authorizeClientVpnIngress.ml | 3 - .../ec2/lib/authorizeClientVpnIngress.mli | 2 - .../ec2/lib/authorizeSecurityGroupEgress.ml | 3 - .../ec2/lib/authorizeSecurityGroupEgress.mli | 2 - .../ec2/lib/authorizeSecurityGroupIngress.ml | 3 - .../ec2/lib/authorizeSecurityGroupIngress.mli | 2 - libraries/ec2/lib/bundleInstance.ml | 3 - libraries/ec2/lib/bundleInstance.mli | 2 - libraries/ec2/lib/cancelBundleTask.ml | 3 - libraries/ec2/lib/cancelBundleTask.mli | 2 - .../ec2/lib/cancelCapacityReservation.ml | 3 - .../ec2/lib/cancelCapacityReservation.mli | 2 - libraries/ec2/lib/cancelConversionTask.ml | 3 - libraries/ec2/lib/cancelConversionTask.mli | 2 - libraries/ec2/lib/cancelExportTask.ml | 3 - libraries/ec2/lib/cancelExportTask.mli | 2 - libraries/ec2/lib/cancelImportTask.ml | 3 - libraries/ec2/lib/cancelImportTask.mli | 2 - .../ec2/lib/cancelReservedInstancesListing.ml | 3 - .../lib/cancelReservedInstancesListing.mli | 2 - libraries/ec2/lib/cancelSpotFleetRequests.ml | 3 - libraries/ec2/lib/cancelSpotFleetRequests.mli | 2 - .../ec2/lib/cancelSpotInstanceRequests.ml | 3 - .../ec2/lib/cancelSpotInstanceRequests.mli | 2 - libraries/ec2/lib/confirmProductInstance.ml | 3 - libraries/ec2/lib/confirmProductInstance.mli | 2 - libraries/ec2/lib/copyFpgaImage.ml | 3 - libraries/ec2/lib/copyFpgaImage.mli | 2 - libraries/ec2/lib/copyImage.ml | 3 - libraries/ec2/lib/copyImage.mli | 2 - libraries/ec2/lib/copySnapshot.ml | 3 - libraries/ec2/lib/copySnapshot.mli | 2 - .../ec2/lib/createCapacityReservation.ml | 3 - .../ec2/lib/createCapacityReservation.mli | 2 - libraries/ec2/lib/createCarrierGateway.ml | 3 - libraries/ec2/lib/createCarrierGateway.mli | 2 - libraries/ec2/lib/createClientVpnEndpoint.ml | 3 - libraries/ec2/lib/createClientVpnEndpoint.mli | 2 - libraries/ec2/lib/createClientVpnRoute.ml | 3 - libraries/ec2/lib/createClientVpnRoute.mli | 2 - libraries/ec2/lib/createCustomerGateway.ml | 3 - libraries/ec2/lib/createCustomerGateway.mli | 2 - libraries/ec2/lib/createDefaultSubnet.ml | 3 - libraries/ec2/lib/createDefaultSubnet.mli | 2 - libraries/ec2/lib/createDefaultVpc.ml | 3 - libraries/ec2/lib/createDefaultVpc.mli | 2 - libraries/ec2/lib/createDhcpOptions.ml | 3 - libraries/ec2/lib/createDhcpOptions.mli | 2 - .../lib/createEgressOnlyInternetGateway.ml | 3 - .../lib/createEgressOnlyInternetGateway.mli | 2 - libraries/ec2/lib/createFleet.ml | 3 - libraries/ec2/lib/createFleet.mli | 2 - libraries/ec2/lib/createFlowLogs.ml | 3 - libraries/ec2/lib/createFlowLogs.mli | 2 - libraries/ec2/lib/createFpgaImage.ml | 3 - libraries/ec2/lib/createFpgaImage.mli | 2 - libraries/ec2/lib/createImage.ml | 3 - libraries/ec2/lib/createImage.mli | 2 - libraries/ec2/lib/createInstanceExportTask.ml | 3 - .../ec2/lib/createInstanceExportTask.mli | 2 - libraries/ec2/lib/createInternetGateway.ml | 3 - libraries/ec2/lib/createInternetGateway.mli | 2 - libraries/ec2/lib/createKeyPair.ml | 3 - libraries/ec2/lib/createKeyPair.mli | 2 - libraries/ec2/lib/createLaunchTemplate.ml | 3 - libraries/ec2/lib/createLaunchTemplate.mli | 2 - .../ec2/lib/createLaunchTemplateVersion.ml | 3 - .../ec2/lib/createLaunchTemplateVersion.mli | 2 - libraries/ec2/lib/createLocalGatewayRoute.ml | 3 - libraries/ec2/lib/createLocalGatewayRoute.mli | 2 - ...ateLocalGatewayRouteTableVpcAssociation.ml | 3 - ...teLocalGatewayRouteTableVpcAssociation.mli | 2 - libraries/ec2/lib/createManagedPrefixList.ml | 3 - libraries/ec2/lib/createManagedPrefixList.mli | 2 - libraries/ec2/lib/createNatGateway.ml | 3 - libraries/ec2/lib/createNatGateway.mli | 2 - libraries/ec2/lib/createNetworkAcl.ml | 3 - libraries/ec2/lib/createNetworkAcl.mli | 2 - libraries/ec2/lib/createNetworkAclEntry.ml | 3 - libraries/ec2/lib/createNetworkAclEntry.mli | 2 - libraries/ec2/lib/createNetworkInterface.ml | 3 - libraries/ec2/lib/createNetworkInterface.mli | 2 - .../lib/createNetworkInterfacePermission.ml | 3 - .../lib/createNetworkInterfacePermission.mli | 2 - libraries/ec2/lib/createPlacementGroup.ml | 3 - libraries/ec2/lib/createPlacementGroup.mli | 2 - .../ec2/lib/createReservedInstancesListing.ml | 3 - .../lib/createReservedInstancesListing.mli | 2 - libraries/ec2/lib/createRoute.ml | 3 - libraries/ec2/lib/createRoute.mli | 2 - libraries/ec2/lib/createRouteTable.ml | 3 - libraries/ec2/lib/createRouteTable.mli | 2 - libraries/ec2/lib/createSecurityGroup.ml | 3 - libraries/ec2/lib/createSecurityGroup.mli | 2 - libraries/ec2/lib/createSnapshot.ml | 3 - libraries/ec2/lib/createSnapshot.mli | 2 - libraries/ec2/lib/createSnapshots.ml | 3 - libraries/ec2/lib/createSnapshots.mli | 2 - .../ec2/lib/createSpotDatafeedSubscription.ml | 3 - .../lib/createSpotDatafeedSubscription.mli | 2 - libraries/ec2/lib/createSubnet.ml | 3 - libraries/ec2/lib/createSubnet.mli | 2 - libraries/ec2/lib/createTags.ml | 3 - libraries/ec2/lib/createTags.mli | 2 - .../ec2/lib/createTrafficMirrorFilter.ml | 3 - .../ec2/lib/createTrafficMirrorFilter.mli | 2 - .../ec2/lib/createTrafficMirrorFilterRule.ml | 3 - .../ec2/lib/createTrafficMirrorFilterRule.mli | 2 - .../ec2/lib/createTrafficMirrorSession.ml | 3 - .../ec2/lib/createTrafficMirrorSession.mli | 2 - .../ec2/lib/createTrafficMirrorTarget.ml | 3 - .../ec2/lib/createTrafficMirrorTarget.mli | 2 - libraries/ec2/lib/createTransitGateway.ml | 3 - libraries/ec2/lib/createTransitGateway.mli | 2 - .../createTransitGatewayMulticastDomain.ml | 3 - .../createTransitGatewayMulticastDomain.mli | 2 - .../createTransitGatewayPeeringAttachment.ml | 3 - .../createTransitGatewayPeeringAttachment.mli | 2 - ...createTransitGatewayPrefixListReference.ml | 3 - ...reateTransitGatewayPrefixListReference.mli | 2 - .../ec2/lib/createTransitGatewayRoute.ml | 3 - .../ec2/lib/createTransitGatewayRoute.mli | 2 - .../ec2/lib/createTransitGatewayRouteTable.ml | 3 - .../lib/createTransitGatewayRouteTable.mli | 2 - .../lib/createTransitGatewayVpcAttachment.ml | 3 - .../lib/createTransitGatewayVpcAttachment.mli | 2 - libraries/ec2/lib/createVolume.ml | 3 - libraries/ec2/lib/createVolume.mli | 2 - libraries/ec2/lib/createVpc.ml | 3 - libraries/ec2/lib/createVpc.mli | 2 - libraries/ec2/lib/createVpcEndpoint.ml | 3 - libraries/ec2/lib/createVpcEndpoint.mli | 2 - ...createVpcEndpointConnectionNotification.ml | 3 - ...reateVpcEndpointConnectionNotification.mli | 2 - .../createVpcEndpointServiceConfiguration.ml | 3 - .../createVpcEndpointServiceConfiguration.mli | 2 - .../ec2/lib/createVpcPeeringConnection.ml | 3 - .../ec2/lib/createVpcPeeringConnection.mli | 2 - libraries/ec2/lib/createVpnConnection.ml | 3 - libraries/ec2/lib/createVpnConnection.mli | 2 - libraries/ec2/lib/createVpnConnectionRoute.ml | 3 - .../ec2/lib/createVpnConnectionRoute.mli | 2 - libraries/ec2/lib/createVpnGateway.ml | 3 - libraries/ec2/lib/createVpnGateway.mli | 2 - libraries/ec2/lib/deleteCarrierGateway.ml | 3 - libraries/ec2/lib/deleteCarrierGateway.mli | 2 - libraries/ec2/lib/deleteClientVpnEndpoint.ml | 3 - libraries/ec2/lib/deleteClientVpnEndpoint.mli | 2 - libraries/ec2/lib/deleteClientVpnRoute.ml | 3 - libraries/ec2/lib/deleteClientVpnRoute.mli | 2 - libraries/ec2/lib/deleteCustomerGateway.ml | 3 - libraries/ec2/lib/deleteCustomerGateway.mli | 2 - libraries/ec2/lib/deleteDhcpOptions.ml | 3 - libraries/ec2/lib/deleteDhcpOptions.mli | 2 - .../lib/deleteEgressOnlyInternetGateway.ml | 3 - .../lib/deleteEgressOnlyInternetGateway.mli | 2 - libraries/ec2/lib/deleteFleets.ml | 3 - libraries/ec2/lib/deleteFleets.mli | 2 - libraries/ec2/lib/deleteFlowLogs.ml | 3 - libraries/ec2/lib/deleteFlowLogs.mli | 2 - libraries/ec2/lib/deleteFpgaImage.ml | 3 - libraries/ec2/lib/deleteFpgaImage.mli | 2 - libraries/ec2/lib/deleteInternetGateway.ml | 3 - libraries/ec2/lib/deleteInternetGateway.mli | 2 - libraries/ec2/lib/deleteKeyPair.ml | 3 - libraries/ec2/lib/deleteKeyPair.mli | 2 - libraries/ec2/lib/deleteLaunchTemplate.ml | 3 - libraries/ec2/lib/deleteLaunchTemplate.mli | 2 - .../ec2/lib/deleteLaunchTemplateVersions.ml | 3 - .../ec2/lib/deleteLaunchTemplateVersions.mli | 2 - libraries/ec2/lib/deleteLocalGatewayRoute.ml | 3 - libraries/ec2/lib/deleteLocalGatewayRoute.mli | 2 - ...eteLocalGatewayRouteTableVpcAssociation.ml | 3 - ...teLocalGatewayRouteTableVpcAssociation.mli | 2 - libraries/ec2/lib/deleteManagedPrefixList.ml | 3 - libraries/ec2/lib/deleteManagedPrefixList.mli | 2 - libraries/ec2/lib/deleteNatGateway.ml | 3 - libraries/ec2/lib/deleteNatGateway.mli | 2 - libraries/ec2/lib/deleteNetworkAcl.ml | 3 - libraries/ec2/lib/deleteNetworkAcl.mli | 2 - libraries/ec2/lib/deleteNetworkAclEntry.ml | 3 - libraries/ec2/lib/deleteNetworkAclEntry.mli | 2 - libraries/ec2/lib/deleteNetworkInterface.ml | 3 - libraries/ec2/lib/deleteNetworkInterface.mli | 2 - .../lib/deleteNetworkInterfacePermission.ml | 3 - .../lib/deleteNetworkInterfacePermission.mli | 2 - libraries/ec2/lib/deletePlacementGroup.ml | 3 - libraries/ec2/lib/deletePlacementGroup.mli | 2 - .../ec2/lib/deleteQueuedReservedInstances.ml | 3 - .../ec2/lib/deleteQueuedReservedInstances.mli | 2 - libraries/ec2/lib/deleteRoute.ml | 3 - libraries/ec2/lib/deleteRoute.mli | 2 - libraries/ec2/lib/deleteRouteTable.ml | 3 - libraries/ec2/lib/deleteRouteTable.mli | 2 - libraries/ec2/lib/deleteSecurityGroup.ml | 3 - libraries/ec2/lib/deleteSecurityGroup.mli | 2 - libraries/ec2/lib/deleteSnapshot.ml | 3 - libraries/ec2/lib/deleteSnapshot.mli | 2 - .../ec2/lib/deleteSpotDatafeedSubscription.ml | 3 - .../lib/deleteSpotDatafeedSubscription.mli | 2 - libraries/ec2/lib/deleteSubnet.ml | 3 - libraries/ec2/lib/deleteSubnet.mli | 2 - libraries/ec2/lib/deleteTags.ml | 3 - libraries/ec2/lib/deleteTags.mli | 2 - .../ec2/lib/deleteTrafficMirrorFilter.ml | 3 - .../ec2/lib/deleteTrafficMirrorFilter.mli | 2 - .../ec2/lib/deleteTrafficMirrorFilterRule.ml | 3 - .../ec2/lib/deleteTrafficMirrorFilterRule.mli | 2 - .../ec2/lib/deleteTrafficMirrorSession.ml | 3 - .../ec2/lib/deleteTrafficMirrorSession.mli | 2 - .../ec2/lib/deleteTrafficMirrorTarget.ml | 3 - .../ec2/lib/deleteTrafficMirrorTarget.mli | 2 - libraries/ec2/lib/deleteTransitGateway.ml | 3 - libraries/ec2/lib/deleteTransitGateway.mli | 2 - .../deleteTransitGatewayMulticastDomain.ml | 3 - .../deleteTransitGatewayMulticastDomain.mli | 2 - .../deleteTransitGatewayPeeringAttachment.ml | 3 - .../deleteTransitGatewayPeeringAttachment.mli | 2 - ...deleteTransitGatewayPrefixListReference.ml | 3 - ...eleteTransitGatewayPrefixListReference.mli | 2 - .../ec2/lib/deleteTransitGatewayRoute.ml | 3 - .../ec2/lib/deleteTransitGatewayRoute.mli | 2 - .../ec2/lib/deleteTransitGatewayRouteTable.ml | 3 - .../lib/deleteTransitGatewayRouteTable.mli | 2 - .../lib/deleteTransitGatewayVpcAttachment.ml | 3 - .../lib/deleteTransitGatewayVpcAttachment.mli | 2 - libraries/ec2/lib/deleteVolume.ml | 3 - libraries/ec2/lib/deleteVolume.mli | 2 - libraries/ec2/lib/deleteVpc.ml | 3 - libraries/ec2/lib/deleteVpc.mli | 2 - ...eleteVpcEndpointConnectionNotifications.ml | 3 - ...leteVpcEndpointConnectionNotifications.mli | 2 - .../deleteVpcEndpointServiceConfigurations.ml | 3 - ...deleteVpcEndpointServiceConfigurations.mli | 2 - libraries/ec2/lib/deleteVpcEndpoints.ml | 3 - libraries/ec2/lib/deleteVpcEndpoints.mli | 2 - .../ec2/lib/deleteVpcPeeringConnection.ml | 3 - .../ec2/lib/deleteVpcPeeringConnection.mli | 2 - libraries/ec2/lib/deleteVpnConnection.ml | 3 - libraries/ec2/lib/deleteVpnConnection.mli | 2 - libraries/ec2/lib/deleteVpnConnectionRoute.ml | 3 - .../ec2/lib/deleteVpnConnectionRoute.mli | 2 - libraries/ec2/lib/deleteVpnGateway.ml | 3 - libraries/ec2/lib/deleteVpnGateway.mli | 2 - libraries/ec2/lib/deprovisionByoipCidr.ml | 3 - libraries/ec2/lib/deprovisionByoipCidr.mli | 2 - libraries/ec2/lib/deregisterImage.ml | 3 - libraries/ec2/lib/deregisterImage.mli | 2 - ...sterInstanceEventNotificationAttributes.ml | 3 - ...terInstanceEventNotificationAttributes.mli | 2 - ...sterTransitGatewayMulticastGroupMembers.ml | 3 - ...terTransitGatewayMulticastGroupMembers.mli | 2 - ...sterTransitGatewayMulticastGroupSources.ml | 3 - ...terTransitGatewayMulticastGroupSources.mli | 2 - .../ec2/lib/describeAccountAttributes.ml | 3 - .../ec2/lib/describeAccountAttributes.mli | 2 - libraries/ec2/lib/describeAddresses.ml | 3 - libraries/ec2/lib/describeAddresses.mli | 2 - .../ec2/lib/describeAggregateIdFormat.ml | 3 - .../ec2/lib/describeAggregateIdFormat.mli | 2 - .../ec2/lib/describeAvailabilityZones.ml | 3 - .../ec2/lib/describeAvailabilityZones.mli | 2 - libraries/ec2/lib/describeBundleTasks.ml | 3 - libraries/ec2/lib/describeBundleTasks.mli | 2 - libraries/ec2/lib/describeByoipCidrs.ml | 3 - libraries/ec2/lib/describeByoipCidrs.mli | 2 - .../ec2/lib/describeCapacityReservations.ml | 3 - .../ec2/lib/describeCapacityReservations.mli | 2 - libraries/ec2/lib/describeCarrierGateways.ml | 3 - libraries/ec2/lib/describeCarrierGateways.mli | 2 - .../ec2/lib/describeClassicLinkInstances.ml | 3 - .../ec2/lib/describeClassicLinkInstances.mli | 2 - .../describeClientVpnAuthorizationRules.ml | 3 - .../describeClientVpnAuthorizationRules.mli | 2 - .../ec2/lib/describeClientVpnConnections.ml | 3 - .../ec2/lib/describeClientVpnConnections.mli | 2 - .../ec2/lib/describeClientVpnEndpoints.ml | 3 - .../ec2/lib/describeClientVpnEndpoints.mli | 2 - libraries/ec2/lib/describeClientVpnRoutes.ml | 3 - libraries/ec2/lib/describeClientVpnRoutes.mli | 2 - .../lib/describeClientVpnTargetNetworks.ml | 3 - .../lib/describeClientVpnTargetNetworks.mli | 2 - libraries/ec2/lib/describeCoipPools.ml | 3 - libraries/ec2/lib/describeCoipPools.mli | 2 - libraries/ec2/lib/describeConversionTasks.ml | 3 - libraries/ec2/lib/describeConversionTasks.mli | 2 - libraries/ec2/lib/describeCustomerGateways.ml | 3 - .../ec2/lib/describeCustomerGateways.mli | 2 - libraries/ec2/lib/describeDhcpOptions.ml | 3 - libraries/ec2/lib/describeDhcpOptions.mli | 2 - .../lib/describeEgressOnlyInternetGateways.ml | 3 - .../describeEgressOnlyInternetGateways.mli | 2 - libraries/ec2/lib/describeElasticGpus.ml | 3 - libraries/ec2/lib/describeElasticGpus.mli | 2 - libraries/ec2/lib/describeExportImageTasks.ml | 3 - .../ec2/lib/describeExportImageTasks.mli | 2 - libraries/ec2/lib/describeExportTasks.ml | 3 - libraries/ec2/lib/describeExportTasks.mli | 2 - .../ec2/lib/describeFastSnapshotRestores.ml | 3 - .../ec2/lib/describeFastSnapshotRestores.mli | 2 - libraries/ec2/lib/describeFleetHistory.ml | 3 - libraries/ec2/lib/describeFleetHistory.mli | 2 - libraries/ec2/lib/describeFleetInstances.ml | 3 - libraries/ec2/lib/describeFleetInstances.mli | 2 - libraries/ec2/lib/describeFleets.ml | 3 - libraries/ec2/lib/describeFleets.mli | 2 - libraries/ec2/lib/describeFlowLogs.ml | 3 - libraries/ec2/lib/describeFlowLogs.mli | 2 - .../ec2/lib/describeFpgaImageAttribute.ml | 3 - .../ec2/lib/describeFpgaImageAttribute.mli | 2 - libraries/ec2/lib/describeFpgaImages.ml | 3 - libraries/ec2/lib/describeFpgaImages.mli | 2 - .../lib/describeHostReservationOfferings.ml | 3 - .../lib/describeHostReservationOfferings.mli | 2 - libraries/ec2/lib/describeHostReservations.ml | 3 - .../ec2/lib/describeHostReservations.mli | 2 - libraries/ec2/lib/describeHosts.ml | 3 - libraries/ec2/lib/describeHosts.mli | 2 - .../describeIamInstanceProfileAssociations.ml | 3 - ...describeIamInstanceProfileAssociations.mli | 2 - libraries/ec2/lib/describeIdFormat.ml | 3 - libraries/ec2/lib/describeIdFormat.mli | 2 - libraries/ec2/lib/describeIdentityIdFormat.ml | 3 - .../ec2/lib/describeIdentityIdFormat.mli | 2 - libraries/ec2/lib/describeImageAttribute.ml | 3 - libraries/ec2/lib/describeImageAttribute.mli | 2 - libraries/ec2/lib/describeImages.ml | 3 - libraries/ec2/lib/describeImages.mli | 2 - libraries/ec2/lib/describeImportImageTasks.ml | 3 - .../ec2/lib/describeImportImageTasks.mli | 2 - .../ec2/lib/describeImportSnapshotTasks.ml | 3 - .../ec2/lib/describeImportSnapshotTasks.mli | 2 - .../ec2/lib/describeInstanceAttribute.ml | 3 - .../ec2/lib/describeInstanceAttribute.mli | 2 - .../describeInstanceCreditSpecifications.ml | 3 - .../describeInstanceCreditSpecifications.mli | 2 - ...ribeInstanceEventNotificationAttributes.ml | 3 - ...ibeInstanceEventNotificationAttributes.mli | 2 - libraries/ec2/lib/describeInstanceStatus.ml | 3 - libraries/ec2/lib/describeInstanceStatus.mli | 2 - .../ec2/lib/describeInstanceTypeOfferings.ml | 3 - .../ec2/lib/describeInstanceTypeOfferings.mli | 2 - libraries/ec2/lib/describeInstanceTypes.ml | 3 - libraries/ec2/lib/describeInstanceTypes.mli | 2 - libraries/ec2/lib/describeInstances.ml | 3 - libraries/ec2/lib/describeInstances.mli | 2 - libraries/ec2/lib/describeInternetGateways.ml | 3 - .../ec2/lib/describeInternetGateways.mli | 2 - libraries/ec2/lib/describeIpv6Pools.ml | 3 - libraries/ec2/lib/describeIpv6Pools.mli | 2 - libraries/ec2/lib/describeKeyPairs.ml | 3 - libraries/ec2/lib/describeKeyPairs.mli | 2 - .../ec2/lib/describeLaunchTemplateVersions.ml | 3 - .../lib/describeLaunchTemplateVersions.mli | 2 - libraries/ec2/lib/describeLaunchTemplates.ml | 3 - libraries/ec2/lib/describeLaunchTemplates.mli | 2 - ...eTableVirtualInterfaceGroupAssociations.ml | 3 - ...TableVirtualInterfaceGroupAssociations.mli | 2 - ...beLocalGatewayRouteTableVpcAssociations.ml | 3 - ...eLocalGatewayRouteTableVpcAssociations.mli | 2 - .../lib/describeLocalGatewayRouteTables.ml | 3 - .../lib/describeLocalGatewayRouteTables.mli | 2 - ...cribeLocalGatewayVirtualInterfaceGroups.ml | 3 - ...ribeLocalGatewayVirtualInterfaceGroups.mli | 2 - .../describeLocalGatewayVirtualInterfaces.ml | 3 - .../describeLocalGatewayVirtualInterfaces.mli | 2 - libraries/ec2/lib/describeLocalGateways.ml | 3 - libraries/ec2/lib/describeLocalGateways.mli | 2 - .../ec2/lib/describeManagedPrefixLists.ml | 3 - .../ec2/lib/describeManagedPrefixLists.mli | 2 - libraries/ec2/lib/describeMovingAddresses.ml | 3 - libraries/ec2/lib/describeMovingAddresses.mli | 2 - libraries/ec2/lib/describeNatGateways.ml | 3 - libraries/ec2/lib/describeNatGateways.mli | 2 - libraries/ec2/lib/describeNetworkAcls.ml | 3 - libraries/ec2/lib/describeNetworkAcls.mli | 2 - .../lib/describeNetworkInterfaceAttribute.ml | 3 - .../lib/describeNetworkInterfaceAttribute.mli | 2 - .../describeNetworkInterfacePermissions.ml | 3 - .../describeNetworkInterfacePermissions.mli | 2 - .../ec2/lib/describeNetworkInterfaces.ml | 3 - .../ec2/lib/describeNetworkInterfaces.mli | 2 - libraries/ec2/lib/describePlacementGroups.ml | 3 - libraries/ec2/lib/describePlacementGroups.mli | 2 - libraries/ec2/lib/describePrefixLists.ml | 3 - libraries/ec2/lib/describePrefixLists.mli | 2 - .../ec2/lib/describePrincipalIdFormat.ml | 3 - .../ec2/lib/describePrincipalIdFormat.mli | 2 - libraries/ec2/lib/describePublicIpv4Pools.ml | 3 - libraries/ec2/lib/describePublicIpv4Pools.mli | 2 - libraries/ec2/lib/describeRegions.ml | 3 - libraries/ec2/lib/describeRegions.mli | 2 - .../ec2/lib/describeReservedInstances.ml | 3 - .../ec2/lib/describeReservedInstances.mli | 2 - .../lib/describeReservedInstancesListings.ml | 3 - .../lib/describeReservedInstancesListings.mli | 2 - .../describeReservedInstancesModifications.ml | 3 - ...describeReservedInstancesModifications.mli | 2 - .../lib/describeReservedInstancesOfferings.ml | 3 - .../describeReservedInstancesOfferings.mli | 2 - libraries/ec2/lib/describeRouteTables.ml | 3 - libraries/ec2/lib/describeRouteTables.mli | 2 - .../describeScheduledInstanceAvailability.ml | 3 - .../describeScheduledInstanceAvailability.mli | 2 - .../ec2/lib/describeScheduledInstances.ml | 3 - .../ec2/lib/describeScheduledInstances.mli | 2 - .../lib/describeSecurityGroupReferences.ml | 3 - .../lib/describeSecurityGroupReferences.mli | 2 - libraries/ec2/lib/describeSecurityGroups.ml | 3 - libraries/ec2/lib/describeSecurityGroups.mli | 2 - .../ec2/lib/describeSnapshotAttribute.ml | 3 - .../ec2/lib/describeSnapshotAttribute.mli | 2 - libraries/ec2/lib/describeSnapshots.ml | 3 - libraries/ec2/lib/describeSnapshots.mli | 2 - .../lib/describeSpotDatafeedSubscription.ml | 3 - .../lib/describeSpotDatafeedSubscription.mli | 2 - .../ec2/lib/describeSpotFleetInstances.ml | 3 - .../ec2/lib/describeSpotFleetInstances.mli | 2 - .../lib/describeSpotFleetRequestHistory.ml | 3 - .../lib/describeSpotFleetRequestHistory.mli | 2 - .../ec2/lib/describeSpotFleetRequests.ml | 3 - .../ec2/lib/describeSpotFleetRequests.mli | 2 - .../ec2/lib/describeSpotInstanceRequests.ml | 3 - .../ec2/lib/describeSpotInstanceRequests.mli | 2 - libraries/ec2/lib/describeSpotPriceHistory.ml | 3 - .../ec2/lib/describeSpotPriceHistory.mli | 2 - .../ec2/lib/describeStaleSecurityGroups.ml | 3 - .../ec2/lib/describeStaleSecurityGroups.mli | 2 - libraries/ec2/lib/describeSubnets.ml | 3 - libraries/ec2/lib/describeSubnets.mli | 2 - libraries/ec2/lib/describeTags.ml | 3 - libraries/ec2/lib/describeTags.mli | 2 - .../ec2/lib/describeTrafficMirrorFilters.ml | 3 - .../ec2/lib/describeTrafficMirrorFilters.mli | 2 - .../ec2/lib/describeTrafficMirrorSessions.ml | 3 - .../ec2/lib/describeTrafficMirrorSessions.mli | 2 - .../ec2/lib/describeTrafficMirrorTargets.ml | 3 - .../ec2/lib/describeTrafficMirrorTargets.mli | 2 - .../lib/describeTransitGatewayAttachments.ml | 3 - .../lib/describeTransitGatewayAttachments.mli | 2 - .../describeTransitGatewayMulticastDomains.ml | 3 - ...describeTransitGatewayMulticastDomains.mli | 2 - ...escribeTransitGatewayPeeringAttachments.ml | 3 - ...scribeTransitGatewayPeeringAttachments.mli | 2 - .../lib/describeTransitGatewayRouteTables.ml | 3 - .../lib/describeTransitGatewayRouteTables.mli | 2 - .../describeTransitGatewayVpcAttachments.ml | 3 - .../describeTransitGatewayVpcAttachments.mli | 2 - libraries/ec2/lib/describeTransitGateways.ml | 3 - libraries/ec2/lib/describeTransitGateways.mli | 2 - libraries/ec2/lib/describeVolumeAttribute.ml | 3 - libraries/ec2/lib/describeVolumeAttribute.mli | 2 - libraries/ec2/lib/describeVolumeStatus.ml | 3 - libraries/ec2/lib/describeVolumeStatus.mli | 2 - libraries/ec2/lib/describeVolumes.ml | 3 - libraries/ec2/lib/describeVolumes.mli | 2 - .../ec2/lib/describeVolumesModifications.ml | 3 - .../ec2/lib/describeVolumesModifications.mli | 2 - libraries/ec2/lib/describeVpcAttribute.ml | 3 - libraries/ec2/lib/describeVpcAttribute.mli | 2 - libraries/ec2/lib/describeVpcClassicLink.ml | 3 - libraries/ec2/lib/describeVpcClassicLink.mli | 2 - .../lib/describeVpcClassicLinkDnsSupport.ml | 3 - .../lib/describeVpcClassicLinkDnsSupport.mli | 2 - ...cribeVpcEndpointConnectionNotifications.ml | 3 - ...ribeVpcEndpointConnectionNotifications.mli | 2 - .../ec2/lib/describeVpcEndpointConnections.ml | 3 - .../lib/describeVpcEndpointConnections.mli | 2 - ...escribeVpcEndpointServiceConfigurations.ml | 3 - ...scribeVpcEndpointServiceConfigurations.mli | 2 - .../describeVpcEndpointServicePermissions.ml | 3 - .../describeVpcEndpointServicePermissions.mli | 2 - .../ec2/lib/describeVpcEndpointServices.ml | 3 - .../ec2/lib/describeVpcEndpointServices.mli | 2 - libraries/ec2/lib/describeVpcEndpoints.ml | 3 - libraries/ec2/lib/describeVpcEndpoints.mli | 2 - .../ec2/lib/describeVpcPeeringConnections.ml | 3 - .../ec2/lib/describeVpcPeeringConnections.mli | 2 - libraries/ec2/lib/describeVpcs.ml | 3 - libraries/ec2/lib/describeVpcs.mli | 2 - libraries/ec2/lib/describeVpnConnections.ml | 3 - libraries/ec2/lib/describeVpnConnections.mli | 2 - libraries/ec2/lib/describeVpnGateways.ml | 3 - libraries/ec2/lib/describeVpnGateways.mli | 2 - libraries/ec2/lib/detachClassicLinkVpc.ml | 3 - libraries/ec2/lib/detachClassicLinkVpc.mli | 2 - libraries/ec2/lib/detachInternetGateway.ml | 3 - libraries/ec2/lib/detachInternetGateway.mli | 2 - libraries/ec2/lib/detachNetworkInterface.ml | 3 - libraries/ec2/lib/detachNetworkInterface.mli | 2 - libraries/ec2/lib/detachVolume.ml | 3 - libraries/ec2/lib/detachVolume.mli | 2 - libraries/ec2/lib/detachVpnGateway.ml | 3 - libraries/ec2/lib/detachVpnGateway.mli | 2 - .../ec2/lib/disableEbsEncryptionByDefault.ml | 3 - .../ec2/lib/disableEbsEncryptionByDefault.mli | 2 - .../ec2/lib/disableFastSnapshotRestores.ml | 3 - .../ec2/lib/disableFastSnapshotRestores.mli | 2 - ...ableTransitGatewayRouteTablePropagation.ml | 3 - ...bleTransitGatewayRouteTablePropagation.mli | 2 - .../ec2/lib/disableVgwRoutePropagation.ml | 3 - .../ec2/lib/disableVgwRoutePropagation.mli | 2 - libraries/ec2/lib/disableVpcClassicLink.ml | 3 - libraries/ec2/lib/disableVpcClassicLink.mli | 2 - .../lib/disableVpcClassicLinkDnsSupport.ml | 3 - .../lib/disableVpcClassicLinkDnsSupport.mli | 2 - libraries/ec2/lib/disassociateAddress.ml | 3 - libraries/ec2/lib/disassociateAddress.mli | 2 - .../lib/disassociateClientVpnTargetNetwork.ml | 3 - .../disassociateClientVpnTargetNetwork.mli | 2 - .../disassociateEnclaveCertificateIamRole.ml | 3 - .../disassociateEnclaveCertificateIamRole.mli | 2 - .../ec2/lib/disassociateIamInstanceProfile.ml | 3 - .../lib/disassociateIamInstanceProfile.mli | 2 - libraries/ec2/lib/disassociateRouteTable.ml | 3 - libraries/ec2/lib/disassociateRouteTable.mli | 2 - .../ec2/lib/disassociateSubnetCidrBlock.ml | 3 - .../ec2/lib/disassociateSubnetCidrBlock.mli | 2 - ...sassociateTransitGatewayMulticastDomain.ml | 3 - ...associateTransitGatewayMulticastDomain.mli | 2 - .../disassociateTransitGatewayRouteTable.ml | 3 - .../disassociateTransitGatewayRouteTable.mli | 2 - libraries/ec2/lib/disassociateVpcCidrBlock.ml | 3 - .../ec2/lib/disassociateVpcCidrBlock.mli | 2 - .../ec2/lib/enableEbsEncryptionByDefault.ml | 3 - .../ec2/lib/enableEbsEncryptionByDefault.mli | 2 - .../ec2/lib/enableFastSnapshotRestores.ml | 3 - .../ec2/lib/enableFastSnapshotRestores.mli | 2 - ...ableTransitGatewayRouteTablePropagation.ml | 3 - ...bleTransitGatewayRouteTablePropagation.mli | 2 - .../ec2/lib/enableVgwRoutePropagation.ml | 3 - .../ec2/lib/enableVgwRoutePropagation.mli | 2 - libraries/ec2/lib/enableVolumeIO.ml | 3 - libraries/ec2/lib/enableVolumeIO.mli | 2 - libraries/ec2/lib/enableVpcClassicLink.ml | 3 - libraries/ec2/lib/enableVpcClassicLink.mli | 2 - .../ec2/lib/enableVpcClassicLinkDnsSupport.ml | 3 - .../lib/enableVpcClassicLinkDnsSupport.mli | 2 - ...lientVpnClientCertificateRevocationList.ml | 3 - ...ientVpnClientCertificateRevocationList.mli | 2 - .../lib/exportClientVpnClientConfiguration.ml | 3 - .../exportClientVpnClientConfiguration.mli | 2 - libraries/ec2/lib/exportImage.ml | 3 - libraries/ec2/lib/exportImage.mli | 2 - .../ec2/lib/exportTransitGatewayRoutes.ml | 3 - .../ec2/lib/exportTransitGatewayRoutes.mli | 2 - ...getAssociatedEnclaveCertificateIamRoles.ml | 3 - ...etAssociatedEnclaveCertificateIamRoles.mli | 2 - .../ec2/lib/getAssociatedIpv6PoolCidrs.ml | 3 - .../ec2/lib/getAssociatedIpv6PoolCidrs.mli | 2 - .../ec2/lib/getCapacityReservationUsage.ml | 3 - .../ec2/lib/getCapacityReservationUsage.mli | 2 - libraries/ec2/lib/getCoipPoolUsage.ml | 3 - libraries/ec2/lib/getCoipPoolUsage.mli | 2 - libraries/ec2/lib/getConsoleOutput.ml | 3 - libraries/ec2/lib/getConsoleOutput.mli | 2 - libraries/ec2/lib/getConsoleScreenshot.ml | 3 - libraries/ec2/lib/getConsoleScreenshot.mli | 2 - .../ec2/lib/getDefaultCreditSpecification.ml | 3 - .../ec2/lib/getDefaultCreditSpecification.mli | 2 - libraries/ec2/lib/getEbsDefaultKmsKeyId.ml | 3 - libraries/ec2/lib/getEbsDefaultKmsKeyId.mli | 2 - .../ec2/lib/getEbsEncryptionByDefault.ml | 3 - .../ec2/lib/getEbsEncryptionByDefault.mli | 2 - .../lib/getGroupsForCapacityReservation.ml | 3 - .../lib/getGroupsForCapacityReservation.mli | 2 - .../lib/getHostReservationPurchasePreview.ml | 3 - .../lib/getHostReservationPurchasePreview.mli | 2 - libraries/ec2/lib/getLaunchTemplateData.ml | 3 - libraries/ec2/lib/getLaunchTemplateData.mli | 2 - .../lib/getManagedPrefixListAssociations.ml | 3 - .../lib/getManagedPrefixListAssociations.mli | 2 - .../ec2/lib/getManagedPrefixListEntries.ml | 3 - .../ec2/lib/getManagedPrefixListEntries.mli | 2 - libraries/ec2/lib/getPasswordData.ml | 3 - libraries/ec2/lib/getPasswordData.mli | 2 - .../lib/getReservedInstancesExchangeQuote.ml | 3 - .../lib/getReservedInstancesExchangeQuote.mli | 2 - ...getTransitGatewayAttachmentPropagations.ml | 3 - ...etTransitGatewayAttachmentPropagations.mli | 2 - ...ansitGatewayMulticastDomainAssociations.ml | 3 - ...nsitGatewayMulticastDomainAssociations.mli | 2 - .../getTransitGatewayPrefixListReferences.ml | 3 - .../getTransitGatewayPrefixListReferences.mli | 2 - ...getTransitGatewayRouteTableAssociations.ml | 3 - ...etTransitGatewayRouteTableAssociations.mli | 2 - ...getTransitGatewayRouteTablePropagations.ml | 3 - ...etTransitGatewayRouteTablePropagations.mli | 2 - ...lientVpnClientCertificateRevocationList.ml | 3 - ...ientVpnClientCertificateRevocationList.mli | 2 - libraries/ec2/lib/importImage.ml | 3 - libraries/ec2/lib/importImage.mli | 2 - libraries/ec2/lib/importInstance.ml | 3 - libraries/ec2/lib/importInstance.mli | 2 - libraries/ec2/lib/importKeyPair.ml | 3 - libraries/ec2/lib/importKeyPair.mli | 2 - libraries/ec2/lib/importSnapshot.ml | 3 - libraries/ec2/lib/importSnapshot.mli | 2 - libraries/ec2/lib/importVolume.ml | 3 - libraries/ec2/lib/importVolume.mli | 2 - .../ec2/lib/modifyAvailabilityZoneGroup.ml | 3 - .../ec2/lib/modifyAvailabilityZoneGroup.mli | 2 - .../ec2/lib/modifyCapacityReservation.ml | 3 - .../ec2/lib/modifyCapacityReservation.mli | 2 - libraries/ec2/lib/modifyClientVpnEndpoint.ml | 3 - libraries/ec2/lib/modifyClientVpnEndpoint.mli | 2 - .../lib/modifyDefaultCreditSpecification.ml | 3 - .../lib/modifyDefaultCreditSpecification.mli | 2 - libraries/ec2/lib/modifyEbsDefaultKmsKeyId.ml | 3 - .../ec2/lib/modifyEbsDefaultKmsKeyId.mli | 2 - libraries/ec2/lib/modifyFleet.ml | 3 - libraries/ec2/lib/modifyFleet.mli | 2 - libraries/ec2/lib/modifyFpgaImageAttribute.ml | 3 - .../ec2/lib/modifyFpgaImageAttribute.mli | 2 - libraries/ec2/lib/modifyHosts.ml | 3 - libraries/ec2/lib/modifyHosts.mli | 2 - libraries/ec2/lib/modifyIdFormat.ml | 3 - libraries/ec2/lib/modifyIdFormat.mli | 2 - libraries/ec2/lib/modifyIdentityIdFormat.ml | 3 - libraries/ec2/lib/modifyIdentityIdFormat.mli | 2 - libraries/ec2/lib/modifyImageAttribute.ml | 3 - libraries/ec2/lib/modifyImageAttribute.mli | 2 - libraries/ec2/lib/modifyInstanceAttribute.ml | 3 - libraries/ec2/lib/modifyInstanceAttribute.mli | 2 - ...fyInstanceCapacityReservationAttributes.ml | 3 - ...yInstanceCapacityReservationAttributes.mli | 2 - .../lib/modifyInstanceCreditSpecification.ml | 3 - .../lib/modifyInstanceCreditSpecification.mli | 2 - .../ec2/lib/modifyInstanceEventStartTime.ml | 3 - .../ec2/lib/modifyInstanceEventStartTime.mli | 2 - .../ec2/lib/modifyInstanceMetadataOptions.ml | 3 - .../ec2/lib/modifyInstanceMetadataOptions.mli | 2 - libraries/ec2/lib/modifyInstancePlacement.ml | 3 - libraries/ec2/lib/modifyInstancePlacement.mli | 2 - libraries/ec2/lib/modifyLaunchTemplate.ml | 3 - libraries/ec2/lib/modifyLaunchTemplate.mli | 2 - libraries/ec2/lib/modifyManagedPrefixList.ml | 3 - libraries/ec2/lib/modifyManagedPrefixList.mli | 2 - .../lib/modifyNetworkInterfaceAttribute.ml | 3 - .../lib/modifyNetworkInterfaceAttribute.mli | 2 - libraries/ec2/lib/modifyReservedInstances.ml | 3 - libraries/ec2/lib/modifyReservedInstances.mli | 2 - libraries/ec2/lib/modifySnapshotAttribute.ml | 3 - libraries/ec2/lib/modifySnapshotAttribute.mli | 2 - libraries/ec2/lib/modifySpotFleetRequest.ml | 3 - libraries/ec2/lib/modifySpotFleetRequest.mli | 2 - libraries/ec2/lib/modifySubnetAttribute.ml | 3 - libraries/ec2/lib/modifySubnetAttribute.mli | 2 - ...odifyTrafficMirrorFilterNetworkServices.ml | 3 - ...difyTrafficMirrorFilterNetworkServices.mli | 2 - .../ec2/lib/modifyTrafficMirrorFilterRule.ml | 3 - .../ec2/lib/modifyTrafficMirrorFilterRule.mli | 2 - .../ec2/lib/modifyTrafficMirrorSession.ml | 3 - .../ec2/lib/modifyTrafficMirrorSession.mli | 2 - libraries/ec2/lib/modifyTransitGateway.ml | 3 - libraries/ec2/lib/modifyTransitGateway.mli | 2 - ...modifyTransitGatewayPrefixListReference.ml | 3 - ...odifyTransitGatewayPrefixListReference.mli | 2 - .../lib/modifyTransitGatewayVpcAttachment.ml | 3 - .../lib/modifyTransitGatewayVpcAttachment.mli | 2 - libraries/ec2/lib/modifyVolume.ml | 3 - libraries/ec2/lib/modifyVolume.mli | 2 - libraries/ec2/lib/modifyVolumeAttribute.ml | 3 - libraries/ec2/lib/modifyVolumeAttribute.mli | 2 - libraries/ec2/lib/modifyVpcAttribute.ml | 3 - libraries/ec2/lib/modifyVpcAttribute.mli | 2 - libraries/ec2/lib/modifyVpcEndpoint.ml | 3 - libraries/ec2/lib/modifyVpcEndpoint.mli | 2 - ...modifyVpcEndpointConnectionNotification.ml | 3 - ...odifyVpcEndpointConnectionNotification.mli | 2 - .../modifyVpcEndpointServiceConfiguration.ml | 3 - .../modifyVpcEndpointServiceConfiguration.mli | 2 - .../modifyVpcEndpointServicePermissions.ml | 3 - .../modifyVpcEndpointServicePermissions.mli | 2 - .../lib/modifyVpcPeeringConnectionOptions.ml | 3 - .../lib/modifyVpcPeeringConnectionOptions.mli | 2 - libraries/ec2/lib/modifyVpcTenancy.ml | 3 - libraries/ec2/lib/modifyVpcTenancy.mli | 2 - libraries/ec2/lib/modifyVpnConnection.ml | 3 - libraries/ec2/lib/modifyVpnConnection.mli | 2 - .../ec2/lib/modifyVpnConnectionOptions.ml | 3 - .../ec2/lib/modifyVpnConnectionOptions.mli | 2 - .../ec2/lib/modifyVpnTunnelCertificate.ml | 3 - .../ec2/lib/modifyVpnTunnelCertificate.mli | 2 - libraries/ec2/lib/modifyVpnTunnelOptions.ml | 3 - libraries/ec2/lib/modifyVpnTunnelOptions.mli | 2 - libraries/ec2/lib/monitorInstances.ml | 3 - libraries/ec2/lib/monitorInstances.mli | 2 - libraries/ec2/lib/moveAddressToVpc.ml | 3 - libraries/ec2/lib/moveAddressToVpc.mli | 2 - libraries/ec2/lib/provisionByoipCidr.ml | 3 - libraries/ec2/lib/provisionByoipCidr.mli | 2 - libraries/ec2/lib/purchaseHostReservation.ml | 3 - libraries/ec2/lib/purchaseHostReservation.mli | 2 - .../lib/purchaseReservedInstancesOffering.ml | 3 - .../lib/purchaseReservedInstancesOffering.mli | 2 - .../ec2/lib/purchaseScheduledInstances.ml | 3 - .../ec2/lib/purchaseScheduledInstances.mli | 2 - libraries/ec2/lib/rebootInstances.ml | 3 - libraries/ec2/lib/rebootInstances.mli | 2 - libraries/ec2/lib/registerImage.ml | 3 - libraries/ec2/lib/registerImage.mli | 2 - ...sterInstanceEventNotificationAttributes.ml | 3 - ...terInstanceEventNotificationAttributes.mli | 2 - ...sterTransitGatewayMulticastGroupMembers.ml | 3 - ...terTransitGatewayMulticastGroupMembers.mli | 2 - ...sterTransitGatewayMulticastGroupSources.ml | 3 - ...terTransitGatewayMulticastGroupSources.mli | 2 - .../rejectTransitGatewayPeeringAttachment.ml | 3 - .../rejectTransitGatewayPeeringAttachment.mli | 2 - .../lib/rejectTransitGatewayVpcAttachment.ml | 3 - .../lib/rejectTransitGatewayVpcAttachment.mli | 2 - .../ec2/lib/rejectVpcEndpointConnections.ml | 3 - .../ec2/lib/rejectVpcEndpointConnections.mli | 2 - .../ec2/lib/rejectVpcPeeringConnection.ml | 3 - .../ec2/lib/rejectVpcPeeringConnection.mli | 2 - libraries/ec2/lib/releaseAddress.ml | 3 - libraries/ec2/lib/releaseAddress.mli | 2 - libraries/ec2/lib/releaseHosts.ml | 3 - libraries/ec2/lib/releaseHosts.mli | 2 - .../replaceIamInstanceProfileAssociation.ml | 3 - .../replaceIamInstanceProfileAssociation.mli | 2 - .../ec2/lib/replaceNetworkAclAssociation.ml | 3 - .../ec2/lib/replaceNetworkAclAssociation.mli | 2 - libraries/ec2/lib/replaceNetworkAclEntry.ml | 3 - libraries/ec2/lib/replaceNetworkAclEntry.mli | 2 - libraries/ec2/lib/replaceRoute.ml | 3 - libraries/ec2/lib/replaceRoute.mli | 2 - .../ec2/lib/replaceRouteTableAssociation.ml | 3 - .../ec2/lib/replaceRouteTableAssociation.mli | 2 - .../ec2/lib/replaceTransitGatewayRoute.ml | 3 - .../ec2/lib/replaceTransitGatewayRoute.mli | 2 - libraries/ec2/lib/reportInstanceStatus.ml | 3 - libraries/ec2/lib/reportInstanceStatus.mli | 2 - libraries/ec2/lib/requestSpotFleet.ml | 3 - libraries/ec2/lib/requestSpotFleet.mli | 2 - libraries/ec2/lib/requestSpotInstances.ml | 3 - libraries/ec2/lib/requestSpotInstances.mli | 2 - libraries/ec2/lib/resetEbsDefaultKmsKeyId.ml | 3 - libraries/ec2/lib/resetEbsDefaultKmsKeyId.mli | 2 - libraries/ec2/lib/resetFpgaImageAttribute.ml | 3 - libraries/ec2/lib/resetFpgaImageAttribute.mli | 2 - libraries/ec2/lib/resetImageAttribute.ml | 3 - libraries/ec2/lib/resetImageAttribute.mli | 2 - libraries/ec2/lib/resetInstanceAttribute.ml | 3 - libraries/ec2/lib/resetInstanceAttribute.mli | 2 - .../ec2/lib/resetNetworkInterfaceAttribute.ml | 3 - .../lib/resetNetworkInterfaceAttribute.mli | 2 - libraries/ec2/lib/resetSnapshotAttribute.ml | 3 - libraries/ec2/lib/resetSnapshotAttribute.mli | 2 - libraries/ec2/lib/restoreAddressToClassic.ml | 3 - libraries/ec2/lib/restoreAddressToClassic.mli | 2 - .../lib/restoreManagedPrefixListVersion.ml | 3 - .../lib/restoreManagedPrefixListVersion.mli | 2 - libraries/ec2/lib/revokeClientVpnIngress.ml | 3 - libraries/ec2/lib/revokeClientVpnIngress.mli | 2 - .../ec2/lib/revokeSecurityGroupEgress.ml | 3 - .../ec2/lib/revokeSecurityGroupEgress.mli | 2 - .../ec2/lib/revokeSecurityGroupIngress.ml | 3 - .../ec2/lib/revokeSecurityGroupIngress.mli | 2 - libraries/ec2/lib/runInstances.ml | 3 - libraries/ec2/lib/runInstances.mli | 2 - libraries/ec2/lib/runScheduledInstances.ml | 3 - libraries/ec2/lib/runScheduledInstances.mli | 2 - libraries/ec2/lib/searchLocalGatewayRoutes.ml | 3 - .../ec2/lib/searchLocalGatewayRoutes.mli | 2 - .../searchTransitGatewayMulticastGroups.ml | 3 - .../searchTransitGatewayMulticastGroups.mli | 2 - .../ec2/lib/searchTransitGatewayRoutes.ml | 3 - .../ec2/lib/searchTransitGatewayRoutes.mli | 2 - libraries/ec2/lib/sendDiagnosticInterrupt.ml | 3 - libraries/ec2/lib/sendDiagnosticInterrupt.mli | 2 - libraries/ec2/lib/startInstances.ml | 3 - libraries/ec2/lib/startInstances.mli | 2 - ...pcEndpointServicePrivateDnsVerification.ml | 3 - ...cEndpointServicePrivateDnsVerification.mli | 2 - libraries/ec2/lib/stopInstances.ml | 3 - libraries/ec2/lib/stopInstances.mli | 2 - .../ec2/lib/terminateClientVpnConnections.ml | 3 - .../ec2/lib/terminateClientVpnConnections.mli | 2 - libraries/ec2/lib/terminateInstances.ml | 3 - libraries/ec2/lib/terminateInstances.mli | 2 - libraries/ec2/lib/types.ml | 1793 -------- libraries/ec2/lib/unassignIpv6Addresses.ml | 3 - libraries/ec2/lib/unassignIpv6Addresses.mli | 2 - .../ec2/lib/unassignPrivateIpAddresses.ml | 3 - .../ec2/lib/unassignPrivateIpAddresses.mli | 2 - libraries/ec2/lib/unmonitorInstances.ml | 3 - libraries/ec2/lib/unmonitorInstances.mli | 2 - ...dateSecurityGroupRuleDescriptionsEgress.ml | 3 - ...ateSecurityGroupRuleDescriptionsEgress.mli | 2 - ...ateSecurityGroupRuleDescriptionsIngress.ml | 3 - ...teSecurityGroupRuleDescriptionsIngress.mli | 2 - libraries/ec2/lib/withdrawByoipCidr.ml | 3 - libraries/ec2/lib/withdrawByoipCidr.mli | 2 - libraries/ec2/lib_test/test_async.ml | 1 - libraries/ec2/lib_test/test_lwt.ml | 1 - .../elasticache/lib/addTagsToResource.ml | 3 - .../elasticache/lib/addTagsToResource.mli | 2 - .../lib/authorizeCacheSecurityGroupIngress.ml | 3 - .../authorizeCacheSecurityGroupIngress.mli | 2 - .../elasticache/lib/batchApplyUpdateAction.ml | 3 - .../lib/batchApplyUpdateAction.mli | 2 - .../elasticache/lib/batchStopUpdateAction.ml | 3 - .../elasticache/lib/batchStopUpdateAction.mli | 2 - .../elasticache/lib/completeMigration.ml | 3 - .../elasticache/lib/completeMigration.mli | 2 - libraries/elasticache/lib/copySnapshot.ml | 3 - libraries/elasticache/lib/copySnapshot.mli | 2 - .../elasticache/lib/createCacheCluster.ml | 3 - .../elasticache/lib/createCacheCluster.mli | 2 - .../lib/createCacheParameterGroup.ml | 3 - .../lib/createCacheParameterGroup.mli | 2 - .../lib/createCacheSecurityGroup.ml | 3 - .../lib/createCacheSecurityGroup.mli | 2 - .../elasticache/lib/createCacheSubnetGroup.ml | 3 - .../lib/createCacheSubnetGroup.mli | 2 - .../lib/createGlobalReplicationGroup.ml | 3 - .../lib/createGlobalReplicationGroup.mli | 2 - .../elasticache/lib/createReplicationGroup.ml | 3 - .../lib/createReplicationGroup.mli | 2 - libraries/elasticache/lib/createSnapshot.ml | 3 - libraries/elasticache/lib/createSnapshot.mli | 2 - libraries/elasticache/lib/createUser.ml | 3 - libraries/elasticache/lib/createUser.mli | 2 - libraries/elasticache/lib/createUserGroup.ml | 3 - libraries/elasticache/lib/createUserGroup.mli | 2 - ...reaseNodeGroupsInGlobalReplicationGroup.ml | 3 - ...easeNodeGroupsInGlobalReplicationGroup.mli | 2 - .../elasticache/lib/decreaseReplicaCount.ml | 3 - .../elasticache/lib/decreaseReplicaCount.mli | 2 - .../elasticache/lib/deleteCacheCluster.ml | 3 - .../elasticache/lib/deleteCacheCluster.mli | 2 - .../lib/deleteCacheParameterGroup.ml | 3 - .../lib/deleteCacheParameterGroup.mli | 2 - .../lib/deleteCacheSecurityGroup.ml | 3 - .../lib/deleteCacheSecurityGroup.mli | 2 - .../elasticache/lib/deleteCacheSubnetGroup.ml | 3 - .../lib/deleteCacheSubnetGroup.mli | 2 - .../lib/deleteGlobalReplicationGroup.ml | 3 - .../lib/deleteGlobalReplicationGroup.mli | 2 - .../elasticache/lib/deleteReplicationGroup.ml | 3 - .../lib/deleteReplicationGroup.mli | 2 - libraries/elasticache/lib/deleteSnapshot.ml | 3 - libraries/elasticache/lib/deleteSnapshot.mli | 2 - libraries/elasticache/lib/deleteUser.ml | 3 - libraries/elasticache/lib/deleteUser.mli | 2 - libraries/elasticache/lib/deleteUserGroup.ml | 3 - libraries/elasticache/lib/deleteUserGroup.mli | 2 - .../elasticache/lib/describeCacheClusters.ml | 3 - .../elasticache/lib/describeCacheClusters.mli | 2 - .../lib/describeCacheEngineVersions.ml | 3 - .../lib/describeCacheEngineVersions.mli | 2 - .../lib/describeCacheParameterGroups.ml | 3 - .../lib/describeCacheParameterGroups.mli | 2 - .../lib/describeCacheParameters.ml | 3 - .../lib/describeCacheParameters.mli | 2 - .../lib/describeCacheSecurityGroups.ml | 3 - .../lib/describeCacheSecurityGroups.mli | 2 - .../lib/describeCacheSubnetGroups.ml | 3 - .../lib/describeCacheSubnetGroups.mli | 2 - .../lib/describeEngineDefaultParameters.ml | 3 - .../lib/describeEngineDefaultParameters.mli | 2 - libraries/elasticache/lib/describeEvents.ml | 3 - libraries/elasticache/lib/describeEvents.mli | 2 - .../lib/describeGlobalReplicationGroups.ml | 3 - .../lib/describeGlobalReplicationGroups.mli | 2 - .../lib/describeReplicationGroups.ml | 3 - .../lib/describeReplicationGroups.mli | 2 - .../lib/describeReservedCacheNodes.ml | 3 - .../lib/describeReservedCacheNodes.mli | 2 - .../describeReservedCacheNodesOfferings.ml | 3 - .../describeReservedCacheNodesOfferings.mli | 2 - .../elasticache/lib/describeServiceUpdates.ml | 3 - .../lib/describeServiceUpdates.mli | 2 - .../elasticache/lib/describeSnapshots.ml | 3 - .../elasticache/lib/describeSnapshots.mli | 2 - .../elasticache/lib/describeUpdateActions.ml | 3 - .../elasticache/lib/describeUpdateActions.mli | 2 - .../elasticache/lib/describeUserGroups.ml | 3 - .../elasticache/lib/describeUserGroups.mli | 2 - libraries/elasticache/lib/describeUsers.ml | 3 - libraries/elasticache/lib/describeUsers.mli | 2 - .../lib/disassociateGlobalReplicationGroup.ml | 3 - .../disassociateGlobalReplicationGroup.mli | 2 - .../lib/failoverGlobalReplicationGroup.ml | 3 - .../lib/failoverGlobalReplicationGroup.mli | 2 - ...reaseNodeGroupsInGlobalReplicationGroup.ml | 3 - ...easeNodeGroupsInGlobalReplicationGroup.mli | 2 - .../elasticache/lib/increaseReplicaCount.ml | 3 - .../elasticache/lib/increaseReplicaCount.mli | 2 - .../lib/listAllowedNodeTypeModifications.ml | 3 - .../lib/listAllowedNodeTypeModifications.mli | 2 - .../elasticache/lib/listTagsForResource.ml | 3 - .../elasticache/lib/listTagsForResource.mli | 2 - .../elasticache/lib/modifyCacheCluster.ml | 3 - .../elasticache/lib/modifyCacheCluster.mli | 2 - .../lib/modifyCacheParameterGroup.ml | 3 - .../lib/modifyCacheParameterGroup.mli | 2 - .../elasticache/lib/modifyCacheSubnetGroup.ml | 3 - .../lib/modifyCacheSubnetGroup.mli | 2 - .../lib/modifyGlobalReplicationGroup.ml | 3 - .../lib/modifyGlobalReplicationGroup.mli | 2 - .../elasticache/lib/modifyReplicationGroup.ml | 3 - .../lib/modifyReplicationGroup.mli | 2 - ...odifyReplicationGroupShardConfiguration.ml | 3 - ...difyReplicationGroupShardConfiguration.mli | 2 - libraries/elasticache/lib/modifyUser.ml | 3 - libraries/elasticache/lib/modifyUser.mli | 2 - libraries/elasticache/lib/modifyUserGroup.ml | 3 - libraries/elasticache/lib/modifyUserGroup.mli | 2 - .../lib/purchaseReservedCacheNodesOffering.ml | 3 - .../purchaseReservedCacheNodesOffering.mli | 2 - .../rebalanceSlotsInGlobalReplicationGroup.ml | 3 - ...rebalanceSlotsInGlobalReplicationGroup.mli | 2 - .../elasticache/lib/rebootCacheCluster.ml | 3 - .../elasticache/lib/rebootCacheCluster.mli | 2 - .../elasticache/lib/removeTagsFromResource.ml | 3 - .../lib/removeTagsFromResource.mli | 2 - .../lib/resetCacheParameterGroup.ml | 3 - .../lib/resetCacheParameterGroup.mli | 2 - .../lib/revokeCacheSecurityGroupIngress.ml | 3 - .../lib/revokeCacheSecurityGroupIngress.mli | 2 - libraries/elasticache/lib/startMigration.ml | 3 - libraries/elasticache/lib/startMigration.mli | 2 - libraries/elasticache/lib/testFailover.ml | 3 - libraries/elasticache/lib/testFailover.mli | 2 - libraries/elasticache/lib/types.ml | 481 -- libraries/elasticache/lib_test/test_async.ml | 1 - libraries/elasticache/lib_test/test_lwt.ml | 1 - libraries/elasticloadbalancing/lib/addTags.ml | 3 - .../elasticloadbalancing/lib/addTags.mli | 2 - .../lib/applySecurityGroupsToLoadBalancer.ml | 3 - .../lib/applySecurityGroupsToLoadBalancer.mli | 2 - .../lib/attachLoadBalancerToSubnets.ml | 3 - .../lib/attachLoadBalancerToSubnets.mli | 2 - .../lib/configureHealthCheck.ml | 3 - .../lib/configureHealthCheck.mli | 2 - .../lib/createAppCookieStickinessPolicy.ml | 3 - .../lib/createAppCookieStickinessPolicy.mli | 2 - .../lib/createLBCookieStickinessPolicy.ml | 3 - .../lib/createLBCookieStickinessPolicy.mli | 2 - .../lib/createLoadBalancer.ml | 3 - .../lib/createLoadBalancer.mli | 2 - .../lib/createLoadBalancerListeners.ml | 3 - .../lib/createLoadBalancerListeners.mli | 2 - .../lib/createLoadBalancerPolicy.ml | 3 - .../lib/createLoadBalancerPolicy.mli | 2 - .../lib/deleteLoadBalancer.ml | 3 - .../lib/deleteLoadBalancer.mli | 2 - .../lib/deleteLoadBalancerListeners.ml | 3 - .../lib/deleteLoadBalancerListeners.mli | 2 - .../lib/deleteLoadBalancerPolicy.ml | 3 - .../lib/deleteLoadBalancerPolicy.mli | 2 - .../deregisterInstancesFromLoadBalancer.ml | 3 - .../deregisterInstancesFromLoadBalancer.mli | 2 - .../lib/describeInstanceHealth.ml | 3 - .../lib/describeInstanceHealth.mli | 2 - .../lib/describeLoadBalancerAttributes.ml | 3 - .../lib/describeLoadBalancerAttributes.mli | 2 - .../lib/describeLoadBalancerPolicies.ml | 3 - .../lib/describeLoadBalancerPolicies.mli | 2 - .../lib/describeLoadBalancerPolicyTypes.ml | 3 - .../lib/describeLoadBalancerPolicyTypes.mli | 2 - .../lib/describeLoadBalancers.ml | 3 - .../lib/describeLoadBalancers.mli | 2 - .../elasticloadbalancing/lib/describeTags.ml | 3 - .../elasticloadbalancing/lib/describeTags.mli | 2 - .../lib/detachLoadBalancerFromSubnets.ml | 3 - .../lib/detachLoadBalancerFromSubnets.mli | 2 - ...disableAvailabilityZonesForLoadBalancer.ml | 3 - ...isableAvailabilityZonesForLoadBalancer.mli | 2 - .../enableAvailabilityZonesForLoadBalancer.ml | 3 - ...enableAvailabilityZonesForLoadBalancer.mli | 2 - .../lib/modifyLoadBalancerAttributes.ml | 3 - .../lib/modifyLoadBalancerAttributes.mli | 2 - .../lib/registerInstancesWithLoadBalancer.ml | 3 - .../lib/registerInstancesWithLoadBalancer.mli | 2 - .../elasticloadbalancing/lib/removeTags.ml | 3 - .../elasticloadbalancing/lib/removeTags.mli | 2 - .../setLoadBalancerListenerSSLCertificate.ml | 3 - .../setLoadBalancerListenerSSLCertificate.mli | 2 - ...setLoadBalancerPoliciesForBackendServer.ml | 3 - ...etLoadBalancerPoliciesForBackendServer.mli | 2 - .../lib/setLoadBalancerPoliciesOfListener.ml | 3 - .../lib/setLoadBalancerPoliciesOfListener.mli | 2 - libraries/elasticloadbalancing/lib/types.ml | 176 - .../lib_test/test_async.ml | 1 - .../elasticloadbalancing/lib_test/test_lwt.ml | 1 - libraries/kms/lib/cancelKeyDeletion.ml | 3 - libraries/kms/lib/cancelKeyDeletion.mli | 2 - libraries/kms/lib/connectCustomKeyStore.ml | 3 - libraries/kms/lib/connectCustomKeyStore.mli | 2 - libraries/kms/lib/createAlias.ml | 3 - libraries/kms/lib/createAlias.mli | 2 - libraries/kms/lib/createCustomKeyStore.ml | 3 - libraries/kms/lib/createCustomKeyStore.mli | 2 - libraries/kms/lib/createGrant.ml | 3 - libraries/kms/lib/createGrant.mli | 2 - libraries/kms/lib/createKey.ml | 3 - libraries/kms/lib/createKey.mli | 2 - libraries/kms/lib/decrypt.ml | 3 - libraries/kms/lib/decrypt.mli | 2 - libraries/kms/lib/deleteAlias.ml | 3 - libraries/kms/lib/deleteAlias.mli | 2 - libraries/kms/lib/deleteCustomKeyStore.ml | 3 - libraries/kms/lib/deleteCustomKeyStore.mli | 2 - .../kms/lib/deleteImportedKeyMaterial.ml | 3 - .../kms/lib/deleteImportedKeyMaterial.mli | 2 - libraries/kms/lib/describeCustomKeyStores.ml | 3 - libraries/kms/lib/describeCustomKeyStores.mli | 2 - libraries/kms/lib/describeKey.ml | 3 - libraries/kms/lib/describeKey.mli | 2 - libraries/kms/lib/disableKey.ml | 3 - libraries/kms/lib/disableKey.mli | 2 - libraries/kms/lib/disableKeyRotation.ml | 3 - libraries/kms/lib/disableKeyRotation.mli | 2 - libraries/kms/lib/disconnectCustomKeyStore.ml | 3 - .../kms/lib/disconnectCustomKeyStore.mli | 2 - libraries/kms/lib/enableKey.ml | 3 - libraries/kms/lib/enableKey.mli | 2 - libraries/kms/lib/enableKeyRotation.ml | 3 - libraries/kms/lib/enableKeyRotation.mli | 2 - libraries/kms/lib/encrypt.ml | 3 - libraries/kms/lib/encrypt.mli | 2 - libraries/kms/lib/generateDataKey.ml | 3 - libraries/kms/lib/generateDataKey.mli | 2 - libraries/kms/lib/generateDataKeyPair.ml | 3 - libraries/kms/lib/generateDataKeyPair.mli | 2 - .../generateDataKeyPairWithoutPlaintext.ml | 3 - .../generateDataKeyPairWithoutPlaintext.mli | 2 - .../lib/generateDataKeyWithoutPlaintext.ml | 3 - .../lib/generateDataKeyWithoutPlaintext.mli | 2 - libraries/kms/lib/generateRandom.ml | 3 - libraries/kms/lib/generateRandom.mli | 2 - libraries/kms/lib/getKeyPolicy.ml | 3 - libraries/kms/lib/getKeyPolicy.mli | 2 - libraries/kms/lib/getKeyRotationStatus.ml | 3 - libraries/kms/lib/getKeyRotationStatus.mli | 2 - libraries/kms/lib/getParametersForImport.ml | 3 - libraries/kms/lib/getParametersForImport.mli | 2 - libraries/kms/lib/getPublicKey.ml | 3 - libraries/kms/lib/getPublicKey.mli | 2 - libraries/kms/lib/importKeyMaterial.ml | 3 - libraries/kms/lib/importKeyMaterial.mli | 2 - libraries/kms/lib/listAliases.ml | 3 - libraries/kms/lib/listAliases.mli | 2 - libraries/kms/lib/listGrants.ml | 3 - libraries/kms/lib/listGrants.mli | 2 - libraries/kms/lib/listKeyPolicies.ml | 3 - libraries/kms/lib/listKeyPolicies.mli | 2 - libraries/kms/lib/listKeys.ml | 3 - libraries/kms/lib/listKeys.mli | 2 - libraries/kms/lib/listResourceTags.ml | 3 - libraries/kms/lib/listResourceTags.mli | 2 - libraries/kms/lib/listRetirableGrants.ml | 3 - libraries/kms/lib/listRetirableGrants.mli | 2 - libraries/kms/lib/putKeyPolicy.ml | 3 - libraries/kms/lib/putKeyPolicy.mli | 2 - libraries/kms/lib/reEncrypt.ml | 3 - libraries/kms/lib/reEncrypt.mli | 2 - libraries/kms/lib/replicateKey.ml | 3 - libraries/kms/lib/replicateKey.mli | 2 - libraries/kms/lib/retireGrant.ml | 3 - libraries/kms/lib/retireGrant.mli | 2 - libraries/kms/lib/revokeGrant.ml | 3 - libraries/kms/lib/revokeGrant.mli | 2 - libraries/kms/lib/scheduleKeyDeletion.ml | 3 - libraries/kms/lib/scheduleKeyDeletion.mli | 2 - libraries/kms/lib/sign.ml | 3 - libraries/kms/lib/sign.mli | 2 - libraries/kms/lib/tagResource.ml | 3 - libraries/kms/lib/tagResource.mli | 2 - libraries/kms/lib/types.ml | 114 - libraries/kms/lib/untagResource.ml | 3 - libraries/kms/lib/untagResource.mli | 2 - libraries/kms/lib/updateAlias.ml | 3 - libraries/kms/lib/updateAlias.mli | 2 - libraries/kms/lib/updateCustomKeyStore.ml | 3 - libraries/kms/lib/updateCustomKeyStore.mli | 2 - libraries/kms/lib/updateKeyDescription.ml | 3 - libraries/kms/lib/updateKeyDescription.mli | 2 - libraries/kms/lib/updatePrimaryRegion.ml | 3 - libraries/kms/lib/updatePrimaryRegion.mli | 2 - libraries/kms/lib/verify.ml | 3 - libraries/kms/lib/verify.mli | 2 - libraries/kms/lib_test/test_async.ml | 1 - libraries/kms/lib_test/test_lwt.ml | 1 - libraries/rds/lib/addRoleToDBCluster.ml | 3 - libraries/rds/lib/addRoleToDBCluster.mli | 2 - libraries/rds/lib/addRoleToDBInstance.ml | 3 - libraries/rds/lib/addRoleToDBInstance.mli | 2 - .../lib/addSourceIdentifierToSubscription.ml | 3 - .../lib/addSourceIdentifierToSubscription.mli | 2 - libraries/rds/lib/addTagsToResource.ml | 3 - libraries/rds/lib/addTagsToResource.mli | 2 - .../rds/lib/applyPendingMaintenanceAction.ml | 3 - .../rds/lib/applyPendingMaintenanceAction.mli | 2 - .../lib/authorizeDBSecurityGroupIngress.ml | 3 - .../lib/authorizeDBSecurityGroupIngress.mli | 2 - libraries/rds/lib/backtrackDBCluster.ml | 3 - libraries/rds/lib/backtrackDBCluster.mli | 2 - libraries/rds/lib/cancelExportTask.ml | 3 - libraries/rds/lib/cancelExportTask.mli | 2 - .../rds/lib/copyDBClusterParameterGroup.ml | 3 - .../rds/lib/copyDBClusterParameterGroup.mli | 2 - libraries/rds/lib/copyDBClusterSnapshot.ml | 3 - libraries/rds/lib/copyDBClusterSnapshot.mli | 2 - libraries/rds/lib/copyDBParameterGroup.ml | 3 - libraries/rds/lib/copyDBParameterGroup.mli | 2 - libraries/rds/lib/copyDBSnapshot.ml | 3 - libraries/rds/lib/copyDBSnapshot.mli | 2 - libraries/rds/lib/copyOptionGroup.ml | 3 - libraries/rds/lib/copyOptionGroup.mli | 2 - .../rds/lib/createCustomAvailabilityZone.ml | 3 - .../rds/lib/createCustomAvailabilityZone.mli | 2 - libraries/rds/lib/createDBCluster.ml | 3 - libraries/rds/lib/createDBCluster.mli | 2 - libraries/rds/lib/createDBClusterEndpoint.ml | 3 - libraries/rds/lib/createDBClusterEndpoint.mli | 2 - .../rds/lib/createDBClusterParameterGroup.ml | 3 - .../rds/lib/createDBClusterParameterGroup.mli | 2 - libraries/rds/lib/createDBClusterSnapshot.ml | 3 - libraries/rds/lib/createDBClusterSnapshot.mli | 2 - libraries/rds/lib/createDBInstance.ml | 3 - libraries/rds/lib/createDBInstance.mli | 2 - .../rds/lib/createDBInstanceReadReplica.ml | 3 - .../rds/lib/createDBInstanceReadReplica.mli | 2 - libraries/rds/lib/createDBParameterGroup.ml | 3 - libraries/rds/lib/createDBParameterGroup.mli | 2 - libraries/rds/lib/createDBProxy.ml | 3 - libraries/rds/lib/createDBProxy.mli | 2 - libraries/rds/lib/createDBSecurityGroup.ml | 3 - libraries/rds/lib/createDBSecurityGroup.mli | 2 - libraries/rds/lib/createDBSnapshot.ml | 3 - libraries/rds/lib/createDBSnapshot.mli | 2 - libraries/rds/lib/createDBSubnetGroup.ml | 3 - libraries/rds/lib/createDBSubnetGroup.mli | 2 - libraries/rds/lib/createEventSubscription.ml | 3 - libraries/rds/lib/createEventSubscription.mli | 2 - libraries/rds/lib/createGlobalCluster.ml | 3 - libraries/rds/lib/createGlobalCluster.mli | 2 - libraries/rds/lib/createOptionGroup.ml | 3 - libraries/rds/lib/createOptionGroup.mli | 2 - .../rds/lib/deleteCustomAvailabilityZone.ml | 3 - .../rds/lib/deleteCustomAvailabilityZone.mli | 2 - libraries/rds/lib/deleteDBCluster.ml | 3 - libraries/rds/lib/deleteDBCluster.mli | 2 - libraries/rds/lib/deleteDBClusterEndpoint.ml | 3 - libraries/rds/lib/deleteDBClusterEndpoint.mli | 2 - .../rds/lib/deleteDBClusterParameterGroup.ml | 3 - .../rds/lib/deleteDBClusterParameterGroup.mli | 2 - libraries/rds/lib/deleteDBClusterSnapshot.ml | 3 - libraries/rds/lib/deleteDBClusterSnapshot.mli | 2 - libraries/rds/lib/deleteDBInstance.ml | 3 - libraries/rds/lib/deleteDBInstance.mli | 2 - .../lib/deleteDBInstanceAutomatedBackup.ml | 3 - .../lib/deleteDBInstanceAutomatedBackup.mli | 2 - libraries/rds/lib/deleteDBParameterGroup.ml | 3 - libraries/rds/lib/deleteDBParameterGroup.mli | 2 - libraries/rds/lib/deleteDBProxy.ml | 3 - libraries/rds/lib/deleteDBProxy.mli | 2 - libraries/rds/lib/deleteDBSecurityGroup.ml | 3 - libraries/rds/lib/deleteDBSecurityGroup.mli | 2 - libraries/rds/lib/deleteDBSnapshot.ml | 3 - libraries/rds/lib/deleteDBSnapshot.mli | 2 - libraries/rds/lib/deleteDBSubnetGroup.ml | 3 - libraries/rds/lib/deleteDBSubnetGroup.mli | 2 - libraries/rds/lib/deleteEventSubscription.ml | 3 - libraries/rds/lib/deleteEventSubscription.mli | 2 - libraries/rds/lib/deleteGlobalCluster.ml | 3 - libraries/rds/lib/deleteGlobalCluster.mli | 2 - libraries/rds/lib/deleteInstallationMedia.ml | 3 - libraries/rds/lib/deleteInstallationMedia.mli | 2 - libraries/rds/lib/deleteOptionGroup.ml | 3 - libraries/rds/lib/deleteOptionGroup.mli | 2 - libraries/rds/lib/deregisterDBProxyTargets.ml | 3 - .../rds/lib/deregisterDBProxyTargets.mli | 2 - .../rds/lib/describeAccountAttributes.ml | 3 - .../rds/lib/describeAccountAttributes.mli | 2 - libraries/rds/lib/describeCertificates.ml | 3 - libraries/rds/lib/describeCertificates.mli | 2 - .../lib/describeCustomAvailabilityZones.ml | 3 - .../lib/describeCustomAvailabilityZones.mli | 2 - .../rds/lib/describeDBClusterBacktracks.ml | 3 - .../rds/lib/describeDBClusterBacktracks.mli | 2 - .../rds/lib/describeDBClusterEndpoints.ml | 3 - .../rds/lib/describeDBClusterEndpoints.mli | 2 - .../lib/describeDBClusterParameterGroups.ml | 3 - .../lib/describeDBClusterParameterGroups.mli | 2 - .../rds/lib/describeDBClusterParameters.ml | 3 - .../rds/lib/describeDBClusterParameters.mli | 2 - .../describeDBClusterSnapshotAttributes.ml | 3 - .../describeDBClusterSnapshotAttributes.mli | 2 - .../rds/lib/describeDBClusterSnapshots.ml | 3 - .../rds/lib/describeDBClusterSnapshots.mli | 2 - libraries/rds/lib/describeDBClusters.ml | 3 - libraries/rds/lib/describeDBClusters.mli | 2 - libraries/rds/lib/describeDBEngineVersions.ml | 3 - .../rds/lib/describeDBEngineVersions.mli | 2 - .../lib/describeDBInstanceAutomatedBackups.ml | 3 - .../describeDBInstanceAutomatedBackups.mli | 2 - libraries/rds/lib/describeDBInstances.ml | 3 - libraries/rds/lib/describeDBInstances.mli | 2 - libraries/rds/lib/describeDBLogFiles.ml | 3 - libraries/rds/lib/describeDBLogFiles.mli | 2 - .../rds/lib/describeDBParameterGroups.ml | 3 - .../rds/lib/describeDBParameterGroups.mli | 2 - libraries/rds/lib/describeDBParameters.ml | 3 - libraries/rds/lib/describeDBParameters.mli | 2 - libraries/rds/lib/describeDBProxies.ml | 3 - libraries/rds/lib/describeDBProxies.mli | 2 - .../rds/lib/describeDBProxyTargetGroups.ml | 3 - .../rds/lib/describeDBProxyTargetGroups.mli | 2 - libraries/rds/lib/describeDBProxyTargets.ml | 3 - libraries/rds/lib/describeDBProxyTargets.mli | 2 - libraries/rds/lib/describeDBSecurityGroups.ml | 3 - .../rds/lib/describeDBSecurityGroups.mli | 2 - .../rds/lib/describeDBSnapshotAttributes.ml | 3 - .../rds/lib/describeDBSnapshotAttributes.mli | 2 - libraries/rds/lib/describeDBSnapshots.ml | 3 - libraries/rds/lib/describeDBSnapshots.mli | 2 - libraries/rds/lib/describeDBSubnetGroups.ml | 3 - libraries/rds/lib/describeDBSubnetGroups.mli | 2 - .../describeEngineDefaultClusterParameters.ml | 3 - ...describeEngineDefaultClusterParameters.mli | 2 - .../lib/describeEngineDefaultParameters.ml | 3 - .../lib/describeEngineDefaultParameters.mli | 2 - libraries/rds/lib/describeEventCategories.ml | 3 - libraries/rds/lib/describeEventCategories.mli | 2 - .../rds/lib/describeEventSubscriptions.ml | 3 - .../rds/lib/describeEventSubscriptions.mli | 2 - libraries/rds/lib/describeEvents.ml | 3 - libraries/rds/lib/describeEvents.mli | 2 - libraries/rds/lib/describeExportTasks.ml | 3 - libraries/rds/lib/describeExportTasks.mli | 2 - libraries/rds/lib/describeGlobalClusters.ml | 3 - libraries/rds/lib/describeGlobalClusters.mli | 2 - .../rds/lib/describeInstallationMedia.ml | 3 - .../rds/lib/describeInstallationMedia.mli | 2 - .../rds/lib/describeOptionGroupOptions.ml | 3 - .../rds/lib/describeOptionGroupOptions.mli | 2 - libraries/rds/lib/describeOptionGroups.ml | 3 - libraries/rds/lib/describeOptionGroups.mli | 2 - .../lib/describeOrderableDBInstanceOptions.ml | 3 - .../describeOrderableDBInstanceOptions.mli | 2 - .../lib/describePendingMaintenanceActions.ml | 3 - .../lib/describePendingMaintenanceActions.mli | 2 - .../rds/lib/describeReservedDBInstances.ml | 3 - .../rds/lib/describeReservedDBInstances.mli | 2 - .../describeReservedDBInstancesOfferings.ml | 3 - .../describeReservedDBInstancesOfferings.mli | 2 - libraries/rds/lib/describeSourceRegions.ml | 3 - libraries/rds/lib/describeSourceRegions.mli | 2 - .../describeValidDBInstanceModifications.ml | 3 - .../describeValidDBInstanceModifications.mli | 2 - libraries/rds/lib/downloadDBLogFilePortion.ml | 3 - .../rds/lib/downloadDBLogFilePortion.mli | 2 - libraries/rds/lib/failoverDBCluster.ml | 3 - libraries/rds/lib/failoverDBCluster.mli | 2 - libraries/rds/lib/importInstallationMedia.ml | 3 - libraries/rds/lib/importInstallationMedia.mli | 2 - libraries/rds/lib/listTagsForResource.ml | 3 - libraries/rds/lib/listTagsForResource.mli | 2 - libraries/rds/lib/modifyCertificates.ml | 3 - libraries/rds/lib/modifyCertificates.mli | 2 - .../rds/lib/modifyCurrentDBClusterCapacity.ml | 3 - .../lib/modifyCurrentDBClusterCapacity.mli | 2 - libraries/rds/lib/modifyDBCluster.ml | 3 - libraries/rds/lib/modifyDBCluster.mli | 2 - libraries/rds/lib/modifyDBClusterEndpoint.ml | 3 - libraries/rds/lib/modifyDBClusterEndpoint.mli | 2 - .../rds/lib/modifyDBClusterParameterGroup.ml | 3 - .../rds/lib/modifyDBClusterParameterGroup.mli | 2 - .../lib/modifyDBClusterSnapshotAttribute.ml | 3 - .../lib/modifyDBClusterSnapshotAttribute.mli | 2 - libraries/rds/lib/modifyDBInstance.ml | 3 - libraries/rds/lib/modifyDBInstance.mli | 2 - libraries/rds/lib/modifyDBParameterGroup.ml | 3 - libraries/rds/lib/modifyDBParameterGroup.mli | 2 - libraries/rds/lib/modifyDBProxy.ml | 3 - libraries/rds/lib/modifyDBProxy.mli | 2 - libraries/rds/lib/modifyDBProxyTargetGroup.ml | 3 - .../rds/lib/modifyDBProxyTargetGroup.mli | 2 - libraries/rds/lib/modifyDBSnapshot.ml | 3 - libraries/rds/lib/modifyDBSnapshot.mli | 2 - .../rds/lib/modifyDBSnapshotAttribute.ml | 3 - .../rds/lib/modifyDBSnapshotAttribute.mli | 2 - libraries/rds/lib/modifyDBSubnetGroup.ml | 3 - libraries/rds/lib/modifyDBSubnetGroup.mli | 2 - libraries/rds/lib/modifyEventSubscription.ml | 3 - libraries/rds/lib/modifyEventSubscription.mli | 2 - libraries/rds/lib/modifyGlobalCluster.ml | 3 - libraries/rds/lib/modifyGlobalCluster.mli | 2 - libraries/rds/lib/modifyOptionGroup.ml | 3 - libraries/rds/lib/modifyOptionGroup.mli | 2 - libraries/rds/lib/promoteReadReplica.ml | 3 - libraries/rds/lib/promoteReadReplica.mli | 2 - .../rds/lib/promoteReadReplicaDBCluster.ml | 3 - .../rds/lib/promoteReadReplicaDBCluster.mli | 2 - .../purchaseReservedDBInstancesOffering.ml | 3 - .../purchaseReservedDBInstancesOffering.mli | 2 - libraries/rds/lib/rebootDBInstance.ml | 3 - libraries/rds/lib/rebootDBInstance.mli | 2 - libraries/rds/lib/registerDBProxyTargets.ml | 3 - libraries/rds/lib/registerDBProxyTargets.mli | 2 - libraries/rds/lib/removeFromGlobalCluster.ml | 3 - libraries/rds/lib/removeFromGlobalCluster.mli | 2 - libraries/rds/lib/removeRoleFromDBCluster.ml | 3 - libraries/rds/lib/removeRoleFromDBCluster.mli | 2 - libraries/rds/lib/removeRoleFromDBInstance.ml | 3 - .../rds/lib/removeRoleFromDBInstance.mli | 2 - .../removeSourceIdentifierFromSubscription.ml | 3 - ...removeSourceIdentifierFromSubscription.mli | 2 - libraries/rds/lib/removeTagsFromResource.ml | 3 - libraries/rds/lib/removeTagsFromResource.mli | 2 - .../rds/lib/resetDBClusterParameterGroup.ml | 3 - .../rds/lib/resetDBClusterParameterGroup.mli | 2 - libraries/rds/lib/resetDBParameterGroup.ml | 3 - libraries/rds/lib/resetDBParameterGroup.mli | 2 - libraries/rds/lib/restoreDBClusterFromS3.ml | 3 - libraries/rds/lib/restoreDBClusterFromS3.mli | 2 - .../rds/lib/restoreDBClusterFromSnapshot.ml | 3 - .../rds/lib/restoreDBClusterFromSnapshot.mli | 2 - .../rds/lib/restoreDBClusterToPointInTime.ml | 3 - .../rds/lib/restoreDBClusterToPointInTime.mli | 2 - .../lib/restoreDBInstanceFromDBSnapshot.ml | 3 - .../lib/restoreDBInstanceFromDBSnapshot.mli | 2 - libraries/rds/lib/restoreDBInstanceFromS3.ml | 3 - libraries/rds/lib/restoreDBInstanceFromS3.mli | 2 - .../rds/lib/restoreDBInstanceToPointInTime.ml | 3 - .../lib/restoreDBInstanceToPointInTime.mli | 2 - .../rds/lib/revokeDBSecurityGroupIngress.ml | 3 - .../rds/lib/revokeDBSecurityGroupIngress.mli | 2 - libraries/rds/lib/startActivityStream.ml | 3 - libraries/rds/lib/startActivityStream.mli | 2 - libraries/rds/lib/startDBCluster.ml | 3 - libraries/rds/lib/startDBCluster.mli | 2 - libraries/rds/lib/startDBInstance.ml | 3 - libraries/rds/lib/startDBInstance.mli | 2 - libraries/rds/lib/startExportTask.ml | 3 - libraries/rds/lib/startExportTask.mli | 2 - libraries/rds/lib/stopActivityStream.ml | 3 - libraries/rds/lib/stopActivityStream.mli | 2 - libraries/rds/lib/stopDBCluster.ml | 3 - libraries/rds/lib/stopDBCluster.mli | 2 - libraries/rds/lib/stopDBInstance.ml | 3 - libraries/rds/lib/stopDBInstance.mli | 2 - libraries/rds/lib/types.ml | 699 --- libraries/rds/lib_test/test_async.ml | 1 - libraries/rds/lib_test/test_lwt.ml | 1 - .../route53/lib/associateVPCWithHostedZone.ml | 3 - .../lib/associateVPCWithHostedZone.mli | 2 - .../route53/lib/changeResourceRecordSets.ml | 3 - .../route53/lib/changeResourceRecordSets.mli | 2 - .../route53/lib/changeTagsForResource.ml | 3 - .../route53/lib/changeTagsForResource.mli | 2 - libraries/route53/lib/createHealthCheck.ml | 3 - libraries/route53/lib/createHealthCheck.mli | 2 - libraries/route53/lib/createHostedZone.ml | 3 - libraries/route53/lib/createHostedZone.mli | 2 - .../route53/lib/createQueryLoggingConfig.ml | 3 - .../route53/lib/createQueryLoggingConfig.mli | 2 - .../lib/createReusableDelegationSet.ml | 3 - .../lib/createReusableDelegationSet.mli | 2 - libraries/route53/lib/createTrafficPolicy.ml | 3 - libraries/route53/lib/createTrafficPolicy.mli | 2 - .../lib/createTrafficPolicyInstance.ml | 3 - .../lib/createTrafficPolicyInstance.mli | 2 - .../route53/lib/createTrafficPolicyVersion.ml | 3 - .../lib/createTrafficPolicyVersion.mli | 2 - .../lib/createVPCAssociationAuthorization.ml | 3 - .../lib/createVPCAssociationAuthorization.mli | 2 - libraries/route53/lib/deleteHealthCheck.ml | 3 - libraries/route53/lib/deleteHealthCheck.mli | 2 - libraries/route53/lib/deleteHostedZone.ml | 3 - libraries/route53/lib/deleteHostedZone.mli | 2 - .../route53/lib/deleteQueryLoggingConfig.ml | 3 - .../route53/lib/deleteQueryLoggingConfig.mli | 2 - .../lib/deleteReusableDelegationSet.ml | 3 - .../lib/deleteReusableDelegationSet.mli | 2 - libraries/route53/lib/deleteTrafficPolicy.ml | 3 - libraries/route53/lib/deleteTrafficPolicy.mli | 2 - .../lib/deleteTrafficPolicyInstance.ml | 3 - .../lib/deleteTrafficPolicyInstance.mli | 2 - .../lib/deleteVPCAssociationAuthorization.ml | 3 - .../lib/deleteVPCAssociationAuthorization.mli | 2 - .../lib/disassociateVPCFromHostedZone.ml | 3 - .../lib/disassociateVPCFromHostedZone.mli | 2 - libraries/route53/lib/getAccountLimit.ml | 3 - libraries/route53/lib/getAccountLimit.mli | 2 - libraries/route53/lib/getChange.ml | 3 - libraries/route53/lib/getChange.mli | 2 - libraries/route53/lib/getCheckerIpRanges.ml | 3 - libraries/route53/lib/getCheckerIpRanges.mli | 2 - libraries/route53/lib/getGeoLocation.ml | 3 - libraries/route53/lib/getGeoLocation.mli | 2 - libraries/route53/lib/getHealthCheck.ml | 3 - libraries/route53/lib/getHealthCheck.mli | 2 - libraries/route53/lib/getHealthCheckCount.ml | 3 - libraries/route53/lib/getHealthCheckCount.mli | 2 - .../lib/getHealthCheckLastFailureReason.ml | 3 - .../lib/getHealthCheckLastFailureReason.mli | 2 - libraries/route53/lib/getHealthCheckStatus.ml | 3 - .../route53/lib/getHealthCheckStatus.mli | 2 - libraries/route53/lib/getHostedZone.ml | 3 - libraries/route53/lib/getHostedZone.mli | 2 - libraries/route53/lib/getHostedZoneCount.ml | 3 - libraries/route53/lib/getHostedZoneCount.mli | 2 - libraries/route53/lib/getHostedZoneLimit.ml | 3 - libraries/route53/lib/getHostedZoneLimit.mli | 2 - .../route53/lib/getQueryLoggingConfig.ml | 3 - .../route53/lib/getQueryLoggingConfig.mli | 2 - .../route53/lib/getReusableDelegationSet.ml | 3 - .../route53/lib/getReusableDelegationSet.mli | 2 - .../lib/getReusableDelegationSetLimit.ml | 3 - .../lib/getReusableDelegationSetLimit.mli | 2 - libraries/route53/lib/getTrafficPolicy.ml | 3 - libraries/route53/lib/getTrafficPolicy.mli | 2 - .../route53/lib/getTrafficPolicyInstance.ml | 3 - .../route53/lib/getTrafficPolicyInstance.mli | 2 - .../lib/getTrafficPolicyInstanceCount.ml | 3 - .../lib/getTrafficPolicyInstanceCount.mli | 2 - libraries/route53/lib/listGeoLocations.ml | 3 - libraries/route53/lib/listGeoLocations.mli | 2 - libraries/route53/lib/listHealthChecks.ml | 3 - libraries/route53/lib/listHealthChecks.mli | 2 - libraries/route53/lib/listHostedZones.ml | 3 - libraries/route53/lib/listHostedZones.mli | 2 - .../route53/lib/listHostedZonesByName.ml | 3 - .../route53/lib/listHostedZonesByName.mli | 2 - libraries/route53/lib/listHostedZonesByVPC.ml | 3 - .../route53/lib/listHostedZonesByVPC.mli | 2 - .../route53/lib/listQueryLoggingConfigs.ml | 3 - .../route53/lib/listQueryLoggingConfigs.mli | 2 - .../route53/lib/listResourceRecordSets.ml | 3 - .../route53/lib/listResourceRecordSets.mli | 2 - .../route53/lib/listReusableDelegationSets.ml | 3 - .../lib/listReusableDelegationSets.mli | 2 - libraries/route53/lib/listTagsForResource.ml | 3 - libraries/route53/lib/listTagsForResource.mli | 2 - libraries/route53/lib/listTagsForResources.ml | 3 - .../route53/lib/listTagsForResources.mli | 2 - libraries/route53/lib/listTrafficPolicies.ml | 3 - libraries/route53/lib/listTrafficPolicies.mli | 2 - .../route53/lib/listTrafficPolicyInstances.ml | 3 - .../lib/listTrafficPolicyInstances.mli | 2 - .../listTrafficPolicyInstancesByHostedZone.ml | 3 - ...listTrafficPolicyInstancesByHostedZone.mli | 2 - .../lib/listTrafficPolicyInstancesByPolicy.ml | 3 - .../listTrafficPolicyInstancesByPolicy.mli | 2 - .../route53/lib/listTrafficPolicyVersions.ml | 3 - .../route53/lib/listTrafficPolicyVersions.mli | 2 - .../lib/listVPCAssociationAuthorizations.ml | 3 - .../lib/listVPCAssociationAuthorizations.mli | 2 - libraries/route53/lib/testDNSAnswer.ml | 3 - libraries/route53/lib/testDNSAnswer.mli | 2 - libraries/route53/lib/types.ml | 161 - libraries/route53/lib/updateHealthCheck.ml | 3 - libraries/route53/lib/updateHealthCheck.mli | 2 - .../route53/lib/updateHostedZoneComment.ml | 3 - .../route53/lib/updateHostedZoneComment.mli | 2 - .../route53/lib/updateTrafficPolicyComment.ml | 3 - .../lib/updateTrafficPolicyComment.mli | 2 - .../lib/updateTrafficPolicyInstance.ml | 3 - .../lib/updateTrafficPolicyInstance.mli | 2 - .../route53/lib_test/aws_route53_test.ml | 1 - libraries/route53/lib_test/test_async.ml | 1 - libraries/route53/lib_test/test_lwt.ml | 1 - libraries/sdb/lib/batchDeleteAttributes.ml | 3 - libraries/sdb/lib/batchDeleteAttributes.mli | 2 - libraries/sdb/lib/batchPutAttributes.ml | 3 - libraries/sdb/lib/batchPutAttributes.mli | 2 - libraries/sdb/lib/createDomain.ml | 3 - libraries/sdb/lib/createDomain.mli | 2 - libraries/sdb/lib/deleteAttributes.ml | 3 - libraries/sdb/lib/deleteAttributes.mli | 2 - libraries/sdb/lib/deleteDomain.ml | 3 - libraries/sdb/lib/deleteDomain.mli | 2 - libraries/sdb/lib/domainMetadata.ml | 3 - libraries/sdb/lib/domainMetadata.mli | 2 - libraries/sdb/lib/getAttributes.ml | 3 - libraries/sdb/lib/getAttributes.mli | 2 - libraries/sdb/lib/listDomains.ml | 3 - libraries/sdb/lib/listDomains.mli | 2 - libraries/sdb/lib/putAttributes.ml | 3 - libraries/sdb/lib/putAttributes.mli | 2 - libraries/sdb/lib/select.ml | 3 - libraries/sdb/lib/select.mli | 2 - libraries/sdb/lib/types.ml | 17 - libraries/sdb/lib_test/test_async.ml | 1 - libraries/sdb/lib_test/test_lwt.ml | 1 - libraries/sqs/lib/addPermission.ml | 3 - libraries/sqs/lib/addPermission.mli | 2 - libraries/sqs/lib/changeMessageVisibility.ml | 3 - libraries/sqs/lib/changeMessageVisibility.mli | 2 - .../sqs/lib/changeMessageVisibilityBatch.ml | 3 - .../sqs/lib/changeMessageVisibilityBatch.mli | 2 - libraries/sqs/lib/createQueue.ml | 3 - libraries/sqs/lib/createQueue.mli | 2 - libraries/sqs/lib/deleteMessage.ml | 3 - libraries/sqs/lib/deleteMessage.mli | 2 - libraries/sqs/lib/deleteMessageBatch.ml | 3 - libraries/sqs/lib/deleteMessageBatch.mli | 2 - libraries/sqs/lib/deleteQueue.ml | 3 - libraries/sqs/lib/deleteQueue.mli | 2 - libraries/sqs/lib/getQueueAttributes.ml | 3 - libraries/sqs/lib/getQueueAttributes.mli | 2 - libraries/sqs/lib/getQueueUrl.ml | 3 - libraries/sqs/lib/getQueueUrl.mli | 2 - .../sqs/lib/listDeadLetterSourceQueues.ml | 3 - .../sqs/lib/listDeadLetterSourceQueues.mli | 2 - libraries/sqs/lib/listQueueTags.ml | 3 - libraries/sqs/lib/listQueueTags.mli | 2 - libraries/sqs/lib/listQueues.ml | 3 - libraries/sqs/lib/listQueues.mli | 2 - libraries/sqs/lib/purgeQueue.ml | 3 - libraries/sqs/lib/purgeQueue.mli | 2 - libraries/sqs/lib/receiveMessage.ml | 3 - libraries/sqs/lib/receiveMessage.mli | 2 - libraries/sqs/lib/removePermission.ml | 3 - libraries/sqs/lib/removePermission.mli | 2 - libraries/sqs/lib/sendMessage.ml | 3 - libraries/sqs/lib/sendMessage.mli | 2 - libraries/sqs/lib/sendMessageBatch.ml | 3 - libraries/sqs/lib/sendMessageBatch.mli | 2 - libraries/sqs/lib/setQueueAttributes.ml | 3 - libraries/sqs/lib/setQueueAttributes.mli | 2 - libraries/sqs/lib/tagQueue.ml | 3 - libraries/sqs/lib/tagQueue.mli | 2 - libraries/sqs/lib/types.ml | 112 - libraries/sqs/lib/untagQueue.ml | 3 - libraries/sqs/lib/untagQueue.mli | 2 - libraries/sqs/lib_test/test_async.ml | 1 - libraries/sqs/lib_test/test_lwt.ml | 1 - libraries/ssm/lib/addTagsToResource.ml | 3 - libraries/ssm/lib/addTagsToResource.mli | 2 - libraries/ssm/lib/cancelCommand.ml | 3 - libraries/ssm/lib/cancelCommand.mli | 2 - .../lib/cancelMaintenanceWindowExecution.ml | 3 - .../lib/cancelMaintenanceWindowExecution.mli | 2 - libraries/ssm/lib/createActivation.ml | 3 - libraries/ssm/lib/createActivation.mli | 2 - libraries/ssm/lib/createAssociation.ml | 3 - libraries/ssm/lib/createAssociation.mli | 2 - libraries/ssm/lib/createAssociationBatch.ml | 3 - libraries/ssm/lib/createAssociationBatch.mli | 2 - libraries/ssm/lib/createDocument.ml | 3 - libraries/ssm/lib/createDocument.mli | 2 - libraries/ssm/lib/createMaintenanceWindow.ml | 3 - libraries/ssm/lib/createMaintenanceWindow.mli | 2 - libraries/ssm/lib/createOpsItem.ml | 3 - libraries/ssm/lib/createOpsItem.mli | 2 - libraries/ssm/lib/createPatchBaseline.ml | 3 - libraries/ssm/lib/createPatchBaseline.mli | 2 - libraries/ssm/lib/createResourceDataSync.ml | 3 - libraries/ssm/lib/createResourceDataSync.mli | 2 - libraries/ssm/lib/deleteActivation.ml | 3 - libraries/ssm/lib/deleteActivation.mli | 2 - libraries/ssm/lib/deleteAssociation.ml | 3 - libraries/ssm/lib/deleteAssociation.mli | 2 - libraries/ssm/lib/deleteDocument.ml | 3 - libraries/ssm/lib/deleteDocument.mli | 2 - libraries/ssm/lib/deleteInventory.ml | 3 - libraries/ssm/lib/deleteInventory.mli | 2 - libraries/ssm/lib/deleteMaintenanceWindow.ml | 3 - libraries/ssm/lib/deleteMaintenanceWindow.mli | 2 - libraries/ssm/lib/deleteParameter.ml | 3 - libraries/ssm/lib/deleteParameter.mli | 2 - libraries/ssm/lib/deleteParameters.ml | 3 - libraries/ssm/lib/deleteParameters.mli | 2 - libraries/ssm/lib/deletePatchBaseline.ml | 3 - libraries/ssm/lib/deletePatchBaseline.mli | 2 - libraries/ssm/lib/deleteResourceDataSync.ml | 3 - libraries/ssm/lib/deleteResourceDataSync.mli | 2 - .../ssm/lib/deregisterManagedInstance.ml | 3 - .../ssm/lib/deregisterManagedInstance.mli | 2 - .../deregisterPatchBaselineForPatchGroup.ml | 3 - .../deregisterPatchBaselineForPatchGroup.mli | 2 - .../deregisterTargetFromMaintenanceWindow.ml | 3 - .../deregisterTargetFromMaintenanceWindow.mli | 2 - .../deregisterTaskFromMaintenanceWindow.ml | 3 - .../deregisterTaskFromMaintenanceWindow.mli | 2 - libraries/ssm/lib/describeActivations.ml | 3 - libraries/ssm/lib/describeActivations.mli | 2 - libraries/ssm/lib/describeAssociation.ml | 3 - libraries/ssm/lib/describeAssociation.mli | 2 - .../describeAssociationExecutionTargets.ml | 3 - .../describeAssociationExecutionTargets.mli | 2 - .../ssm/lib/describeAssociationExecutions.ml | 3 - .../ssm/lib/describeAssociationExecutions.mli | 2 - .../ssm/lib/describeAutomationExecutions.ml | 3 - .../ssm/lib/describeAutomationExecutions.mli | 2 - .../lib/describeAutomationStepExecutions.ml | 3 - .../lib/describeAutomationStepExecutions.mli | 2 - libraries/ssm/lib/describeAvailablePatches.ml | 3 - .../ssm/lib/describeAvailablePatches.mli | 2 - libraries/ssm/lib/describeDocument.ml | 3 - libraries/ssm/lib/describeDocument.mli | 2 - .../ssm/lib/describeDocumentPermission.ml | 3 - .../ssm/lib/describeDocumentPermission.mli | 2 - .../describeEffectiveInstanceAssociations.ml | 3 - .../describeEffectiveInstanceAssociations.mli | 2 - ...escribeEffectivePatchesForPatchBaseline.ml | 3 - ...scribeEffectivePatchesForPatchBaseline.mli | 2 - .../lib/describeInstanceAssociationsStatus.ml | 3 - .../describeInstanceAssociationsStatus.mli | 2 - .../ssm/lib/describeInstanceInformation.ml | 3 - .../ssm/lib/describeInstanceInformation.mli | 2 - .../ssm/lib/describeInstancePatchStates.ml | 3 - .../ssm/lib/describeInstancePatchStates.mli | 2 - ...escribeInstancePatchStatesForPatchGroup.ml | 3 - ...scribeInstancePatchStatesForPatchGroup.mli | 2 - libraries/ssm/lib/describeInstancePatches.ml | 3 - libraries/ssm/lib/describeInstancePatches.mli | 2 - .../ssm/lib/describeInventoryDeletions.ml | 3 - .../ssm/lib/describeInventoryDeletions.mli | 2 - ...intenanceWindowExecutionTaskInvocations.ml | 3 - ...ntenanceWindowExecutionTaskInvocations.mli | 2 - ...describeMaintenanceWindowExecutionTasks.ml | 3 - ...escribeMaintenanceWindowExecutionTasks.mli | 2 - .../describeMaintenanceWindowExecutions.ml | 3 - .../describeMaintenanceWindowExecutions.mli | 2 - .../lib/describeMaintenanceWindowSchedule.ml | 3 - .../lib/describeMaintenanceWindowSchedule.mli | 2 - .../lib/describeMaintenanceWindowTargets.ml | 3 - .../lib/describeMaintenanceWindowTargets.mli | 2 - .../ssm/lib/describeMaintenanceWindowTasks.ml | 3 - .../lib/describeMaintenanceWindowTasks.mli | 2 - .../ssm/lib/describeMaintenanceWindows.ml | 3 - .../ssm/lib/describeMaintenanceWindows.mli | 2 - .../describeMaintenanceWindowsForTarget.ml | 3 - .../describeMaintenanceWindowsForTarget.mli | 2 - libraries/ssm/lib/describeOpsItems.ml | 3 - libraries/ssm/lib/describeOpsItems.mli | 2 - libraries/ssm/lib/describeParameters.ml | 3 - libraries/ssm/lib/describeParameters.mli | 2 - libraries/ssm/lib/describePatchBaselines.ml | 3 - libraries/ssm/lib/describePatchBaselines.mli | 2 - libraries/ssm/lib/describePatchGroupState.ml | 3 - libraries/ssm/lib/describePatchGroupState.mli | 2 - libraries/ssm/lib/describePatchGroups.ml | 3 - libraries/ssm/lib/describePatchGroups.mli | 2 - libraries/ssm/lib/describePatchProperties.ml | 3 - libraries/ssm/lib/describePatchProperties.mli | 2 - libraries/ssm/lib/describeSessions.ml | 3 - libraries/ssm/lib/describeSessions.mli | 2 - libraries/ssm/lib/getAutomationExecution.ml | 3 - libraries/ssm/lib/getAutomationExecution.mli | 2 - libraries/ssm/lib/getCalendarState.ml | 3 - libraries/ssm/lib/getCalendarState.mli | 2 - libraries/ssm/lib/getCommandInvocation.ml | 3 - libraries/ssm/lib/getCommandInvocation.mli | 2 - libraries/ssm/lib/getConnectionStatus.ml | 3 - libraries/ssm/lib/getConnectionStatus.mli | 2 - libraries/ssm/lib/getDefaultPatchBaseline.ml | 3 - libraries/ssm/lib/getDefaultPatchBaseline.mli | 2 - .../getDeployablePatchSnapshotForInstance.ml | 3 - .../getDeployablePatchSnapshotForInstance.mli | 2 - libraries/ssm/lib/getDocument.ml | 3 - libraries/ssm/lib/getDocument.mli | 2 - libraries/ssm/lib/getInventory.ml | 3 - libraries/ssm/lib/getInventory.mli | 2 - libraries/ssm/lib/getInventorySchema.ml | 3 - libraries/ssm/lib/getInventorySchema.mli | 2 - libraries/ssm/lib/getMaintenanceWindow.ml | 3 - libraries/ssm/lib/getMaintenanceWindow.mli | 2 - .../ssm/lib/getMaintenanceWindowExecution.ml | 3 - .../ssm/lib/getMaintenanceWindowExecution.mli | 2 - .../lib/getMaintenanceWindowExecutionTask.ml | 3 - .../lib/getMaintenanceWindowExecutionTask.mli | 2 - ...aintenanceWindowExecutionTaskInvocation.ml | 3 - ...intenanceWindowExecutionTaskInvocation.mli | 2 - libraries/ssm/lib/getMaintenanceWindowTask.ml | 3 - .../ssm/lib/getMaintenanceWindowTask.mli | 2 - libraries/ssm/lib/getOpsItem.ml | 3 - libraries/ssm/lib/getOpsItem.mli | 2 - libraries/ssm/lib/getOpsSummary.ml | 3 - libraries/ssm/lib/getOpsSummary.mli | 2 - libraries/ssm/lib/getParameter.ml | 3 - libraries/ssm/lib/getParameter.mli | 2 - libraries/ssm/lib/getParameterHistory.ml | 3 - libraries/ssm/lib/getParameterHistory.mli | 2 - libraries/ssm/lib/getParameters.ml | 3 - libraries/ssm/lib/getParameters.mli | 2 - libraries/ssm/lib/getParametersByPath.ml | 3 - libraries/ssm/lib/getParametersByPath.mli | 2 - libraries/ssm/lib/getPatchBaseline.ml | 3 - libraries/ssm/lib/getPatchBaseline.mli | 2 - .../ssm/lib/getPatchBaselineForPatchGroup.ml | 3 - .../ssm/lib/getPatchBaselineForPatchGroup.mli | 2 - libraries/ssm/lib/getServiceSetting.ml | 3 - libraries/ssm/lib/getServiceSetting.mli | 2 - libraries/ssm/lib/labelParameterVersion.ml | 3 - libraries/ssm/lib/labelParameterVersion.mli | 2 - libraries/ssm/lib/listAssociationVersions.ml | 3 - libraries/ssm/lib/listAssociationVersions.mli | 2 - libraries/ssm/lib/listAssociations.ml | 3 - libraries/ssm/lib/listAssociations.mli | 2 - libraries/ssm/lib/listCommandInvocations.ml | 3 - libraries/ssm/lib/listCommandInvocations.mli | 2 - libraries/ssm/lib/listCommands.ml | 3 - libraries/ssm/lib/listCommands.mli | 2 - libraries/ssm/lib/listComplianceItems.ml | 3 - libraries/ssm/lib/listComplianceItems.mli | 2 - libraries/ssm/lib/listComplianceSummaries.ml | 3 - libraries/ssm/lib/listComplianceSummaries.mli | 2 - libraries/ssm/lib/listDocumentVersions.ml | 3 - libraries/ssm/lib/listDocumentVersions.mli | 2 - libraries/ssm/lib/listDocuments.ml | 3 - libraries/ssm/lib/listDocuments.mli | 2 - libraries/ssm/lib/listInventoryEntries.ml | 3 - libraries/ssm/lib/listInventoryEntries.mli | 2 - .../lib/listResourceComplianceSummaries.ml | 3 - .../lib/listResourceComplianceSummaries.mli | 2 - libraries/ssm/lib/listResourceDataSync.ml | 3 - libraries/ssm/lib/listResourceDataSync.mli | 2 - libraries/ssm/lib/listTagsForResource.ml | 3 - libraries/ssm/lib/listTagsForResource.mli | 2 - libraries/ssm/lib/modifyDocumentPermission.ml | 3 - .../ssm/lib/modifyDocumentPermission.mli | 2 - libraries/ssm/lib/putComplianceItems.ml | 3 - libraries/ssm/lib/putComplianceItems.mli | 2 - libraries/ssm/lib/putInventory.ml | 3 - libraries/ssm/lib/putInventory.mli | 2 - libraries/ssm/lib/putParameter.ml | 3 - libraries/ssm/lib/putParameter.mli | 2 - .../ssm/lib/registerDefaultPatchBaseline.ml | 3 - .../ssm/lib/registerDefaultPatchBaseline.mli | 2 - .../lib/registerPatchBaselineForPatchGroup.ml | 3 - .../registerPatchBaselineForPatchGroup.mli | 2 - .../registerTargetWithMaintenanceWindow.ml | 3 - .../registerTargetWithMaintenanceWindow.mli | 2 - .../lib/registerTaskWithMaintenanceWindow.ml | 3 - .../lib/registerTaskWithMaintenanceWindow.mli | 2 - libraries/ssm/lib/removeTagsFromResource.ml | 3 - libraries/ssm/lib/removeTagsFromResource.mli | 2 - libraries/ssm/lib/resetServiceSetting.ml | 3 - libraries/ssm/lib/resetServiceSetting.mli | 2 - libraries/ssm/lib/resumeSession.ml | 3 - libraries/ssm/lib/resumeSession.mli | 2 - libraries/ssm/lib/sendAutomationSignal.ml | 3 - libraries/ssm/lib/sendAutomationSignal.mli | 2 - libraries/ssm/lib/sendCommand.ml | 3 - libraries/ssm/lib/sendCommand.mli | 2 - libraries/ssm/lib/startAssociationsOnce.ml | 3 - libraries/ssm/lib/startAssociationsOnce.mli | 2 - libraries/ssm/lib/startAutomationExecution.ml | 3 - .../ssm/lib/startAutomationExecution.mli | 2 - libraries/ssm/lib/startSession.ml | 3 - libraries/ssm/lib/startSession.mli | 2 - libraries/ssm/lib/stopAutomationExecution.ml | 3 - libraries/ssm/lib/stopAutomationExecution.mli | 2 - libraries/ssm/lib/terminateSession.ml | 3 - libraries/ssm/lib/terminateSession.mli | 2 - libraries/ssm/lib/types.ml | 744 ---- libraries/ssm/lib/updateAssociation.ml | 3 - libraries/ssm/lib/updateAssociation.mli | 2 - libraries/ssm/lib/updateAssociationStatus.ml | 3 - libraries/ssm/lib/updateAssociationStatus.mli | 2 - libraries/ssm/lib/updateDocument.ml | 3 - libraries/ssm/lib/updateDocument.mli | 2 - .../ssm/lib/updateDocumentDefaultVersion.ml | 3 - .../ssm/lib/updateDocumentDefaultVersion.mli | 2 - libraries/ssm/lib/updateMaintenanceWindow.ml | 3 - libraries/ssm/lib/updateMaintenanceWindow.mli | 2 - .../ssm/lib/updateMaintenanceWindowTarget.ml | 3 - .../ssm/lib/updateMaintenanceWindowTarget.mli | 2 - .../ssm/lib/updateMaintenanceWindowTask.ml | 3 - .../ssm/lib/updateMaintenanceWindowTask.mli | 2 - .../ssm/lib/updateManagedInstanceRole.ml | 3 - .../ssm/lib/updateManagedInstanceRole.mli | 2 - libraries/ssm/lib/updateOpsItem.ml | 3 - libraries/ssm/lib/updateOpsItem.mli | 2 - libraries/ssm/lib/updatePatchBaseline.ml | 3 - libraries/ssm/lib/updatePatchBaseline.mli | 2 - libraries/ssm/lib/updateResourceDataSync.ml | 3 - libraries/ssm/lib/updateResourceDataSync.mli | 2 - libraries/ssm/lib/updateServiceSetting.ml | 3 - libraries/ssm/lib/updateServiceSetting.mli | 2 - libraries/ssm/lib_test/test_async.ml | 1 - libraries/ssm/lib_test/test_lwt.ml | 1 - libraries/sts/lib/assumeRole.ml | 3 - libraries/sts/lib/assumeRole.mli | 2 - libraries/sts/lib/assumeRoleWithSAML.ml | 3 - libraries/sts/lib/assumeRoleWithSAML.mli | 2 - .../sts/lib/assumeRoleWithWebIdentity.ml | 3 - .../sts/lib/assumeRoleWithWebIdentity.mli | 2 - .../sts/lib/decodeAuthorizationMessage.ml | 3 - .../sts/lib/decodeAuthorizationMessage.mli | 2 - libraries/sts/lib/getAccessKeyInfo.ml | 3 - libraries/sts/lib/getAccessKeyInfo.mli | 2 - libraries/sts/lib/getCallerIdentity.ml | 3 - libraries/sts/lib/getCallerIdentity.mli | 2 - libraries/sts/lib/getFederationToken.ml | 3 - libraries/sts/lib/getFederationToken.mli | 2 - libraries/sts/lib/getSessionToken.ml | 3 - libraries/sts/lib/getSessionToken.mli | 2 - libraries/sts/lib/types.ml | 12 - libraries/sts/lib_test/test_async.ml | 1 - libraries/sts/lib_test/test_lwt.ml | 1 - src/aws_gen.ml | 1 - src/dune | 3 +- src/endpoint_gen.ml | 1 - src/generate.ml | 2 - src/reading.mli | 2 - src/util.ml | 3 - src/util.mli | 4 - 2183 files changed, 1925 insertions(+), 12604 deletions(-) create mode 100644 .ocamlformat-ignore diff --git a/.ocamlformat b/.ocamlformat index e07a0f281..302a7ab05 100644 --- a/.ocamlformat +++ b/.ocamlformat @@ -1,4 +1,4 @@ -version=0.19.0 +version=0.24.1 break-cases=toplevel break-fun-decl=fit-or-vertical break-infix=fit-or-vertical diff --git a/.ocamlformat-ignore b/.ocamlformat-ignore new file mode 100644 index 000000000..e4a9d6b00 --- /dev/null +++ b/.ocamlformat-ignore @@ -0,0 +1 @@ +src/syntax.ml \ No newline at end of file diff --git a/lib/aws.ml b/lib/aws.ml index 9f211cf57..2dbf8c286 100644 --- a/lib/aws.ml +++ b/lib/aws.ml @@ -44,19 +44,13 @@ module Signing = Signing module type Call = sig type input - type output - type error val signature_version : Request.signature_version - val service : string - val to_http : string -> string -> input -> Request.t - val of_http : string -> [ `Ok of output | `Error of error Error.error_response ] - val parse_error : int -> string -> error option end diff --git a/lib/aws.mli b/lib/aws.mli index e618e5a36..b95aa85a2 100644 --- a/lib/aws.mli +++ b/lib/aws.mli @@ -167,7 +167,6 @@ module Time : sig format. *) val date_time_iso8601 : CalendarLib.Calendar.t -> string - val now_utc : unit -> CalendarLib.Calendar.t val format : CalendarLib.Calendar.t -> string @@ -291,11 +290,8 @@ end module Signing : sig module Hash : sig val _sha256 : ?key:string -> string -> Digestif.SHA256.t - val sha256 : ?key:string -> string -> string - val sha256_hex : ?key:string -> string -> string - val sha256_base64 : ?key:string -> string -> string end @@ -352,34 +348,21 @@ module BaseTypes : sig type t val to_json : t -> Json.t - val of_json : Json.t -> t - val to_query : t -> Query.t - val parse : Ezxmlm.nodes -> t option - val to_string : t -> string - val of_string : string -> t end module Unit : Base with type t = unit - module String : Base with type t = string - module Blob : Base with type t = string - module Boolean : Base with type t = bool - module Integer : Base with type t = int - module Long : Base with type t = int - module Double : Base with type t = float - module Float : Base with type t = float - module DateTime : Base with type t = CalendarLib.Calendar.t end diff --git a/lib/baseTypes.ml b/lib/baseTypes.ml index 5e6e53303..fa5243446 100644 --- a/lib/baseTypes.ml +++ b/lib/baseTypes.ml @@ -5,15 +5,10 @@ module type Base = sig type t val to_json : t -> Json.t - val of_json : Json.t -> t - val to_query : t -> Query.t - val parse : Ezxmlm.nodes -> t option - val to_string : t -> string - val of_string : string -> t end @@ -27,11 +22,8 @@ module Unit = struct | t -> raise (Json.Casting_error ("unit", t)) let to_query () = List [] - let parse _ = Some () (* XXX(seliopou): Should never be used, maybe assert that? *) - let to_string _ = raise (Failure "unit") - let of_string _ = raise (Failure "unit") end @@ -45,11 +37,8 @@ module String = struct | t -> raise (Json.Casting_error ("string", t)) let to_query s = Value (Some s) - let parse s = Some (data_to_string s) - let to_string s = s - let of_string s = s end @@ -106,7 +95,6 @@ module Integer = struct | Some s -> ( try Some (int_of_string s) with Failure _ -> None) let to_string i = string_of_int i - let of_string s = int_of_string s end @@ -129,7 +117,6 @@ module Float = struct | Some s -> ( try Some (float_of_string s) with Failure _ -> None) let to_string f = string_of_float f - let of_string s = float_of_string s end @@ -139,9 +126,7 @@ module DateTime = struct type t = CalendarLib.Calendar.t let to_json c = `String (Time.format c) - let of_json t = Time.parse (String.of_json t) - let to_query c = Value (Some (Time.format c)) let parse c = @@ -150,6 +135,5 @@ module DateTime = struct | Some s -> ( try Some (Time.parse s) with Invalid_argument _ -> None) let to_string c = Time.format c - let of_string s = Time.parse s end diff --git a/lib/endpoints.ml b/lib/endpoints.ml index b28c0d4d9..2ba20e0b2 100644 --- a/lib/endpoints.ml +++ b/lib/endpoints.ml @@ -1,2053 +1,1927 @@ let endpoint_of svc_name region = match svc_name with - | "a4b" -> - (match region with - | "us-east-1" -> Some "a4b.us-east-1.amazonaws.com" - | _ -> None) - | "acm" -> - (match region with - | "ap-northeast-1" -> Some "acm.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "acm.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "acm.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "acm.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "acm.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "acm.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "acm.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "acm.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "acm.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "acm.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "acm.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "acm.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "acm.us-east-1.amazonaws.com" - | "us-east-2" -> Some "acm.us-east-2.amazonaws.com" - | "us-west-1" -> Some "acm.us-west-1.amazonaws.com" - | "us-west-2" -> Some "acm.us-west-2.amazonaws.com" - | _ -> None) - | "acm-pca" -> - (match region with - | "ap-northeast-1" -> Some "acm-pca.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> Some "acm-pca.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "acm-pca.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "acm-pca.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "acm-pca.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "acm-pca.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "acm-pca.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "acm-pca.us-east-1.amazonaws.com" - | "us-east-2" -> Some "acm-pca.us-east-2.amazonaws.com" - | "us-west-2" -> Some "acm-pca.us-west-2.amazonaws.com" - | _ -> None) - | "api.ecr" -> - (match region with - | "ap-northeast-1" -> Some "api.ecr.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "api.ecr.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "api.ecr.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "api.ecr.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "api.ecr.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "api.ecr.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "api.ecr.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "api.ecr.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "api.ecr.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "api.ecr.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "api.ecr.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "api.ecr.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "api.ecr.us-east-1.amazonaws.com" - | "us-east-2" -> Some "api.ecr.us-east-2.amazonaws.com" - | "us-west-1" -> Some "api.ecr.us-west-1.amazonaws.com" - | "us-west-2" -> Some "api.ecr.us-west-2.amazonaws.com" - | _ -> None) - | "api.mediatailor" -> - (match region with - | "ap-northeast-1" -> - Some "api.mediatailor.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> - Some "api.mediatailor.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "api.mediatailor.ap-southeast-2.amazonaws.com" - | "eu-west-1" -> Some "api.mediatailor.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "api.mediatailor.us-east-1.amazonaws.com" - | "us-west-2" -> Some "api.mediatailor.us-west-2.amazonaws.com" - | _ -> None) - | "api.pricing" -> - (match region with - | "ap-south-1" -> Some "api.pricing.ap-south-1.amazonaws.com" - | "us-east-1" -> Some "api.pricing.us-east-1.amazonaws.com" - | _ -> None) - | "api.sagemaker" -> - (match region with - | "ap-northeast-1" -> - Some "api.sagemaker.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "api.sagemaker.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "api.sagemaker.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "api.sagemaker.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "api.sagemaker.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "api.sagemaker.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "api.sagemaker.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "api.sagemaker.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "api.sagemaker.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "api.sagemaker.us-east-1.amazonaws.com" - | "us-east-1-fips" -> - Some "api-fips.sagemaker.us-east-1.amazonaws.com" - | "us-east-2" -> Some "api.sagemaker.us-east-2.amazonaws.com" - | "us-east-2-fips" -> - Some "api-fips.sagemaker.us-east-2.amazonaws.com" - | "us-west-1" -> Some "api.sagemaker.us-west-1.amazonaws.com" - | "us-west-1-fips" -> - Some "api-fips.sagemaker.us-west-1.amazonaws.com" - | "us-west-2" -> Some "api.sagemaker.us-west-2.amazonaws.com" - | "us-west-2-fips" -> - Some "api-fips.sagemaker.us-west-2.amazonaws.com" - | _ -> None) - | "apigateway" -> - (match region with - | "ap-northeast-1" -> Some "apigateway.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "apigateway.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "apigateway.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "apigateway.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "apigateway.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "apigateway.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "apigateway.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "apigateway.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "apigateway.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "apigateway.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "apigateway.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "apigateway.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "apigateway.us-east-1.amazonaws.com" - | "us-east-2" -> Some "apigateway.us-east-2.amazonaws.com" - | "us-west-1" -> Some "apigateway.us-west-1.amazonaws.com" - | "us-west-2" -> Some "apigateway.us-west-2.amazonaws.com" - | _ -> None) - | "application-autoscaling" -> - (match region with - | "ap-northeast-1" -> - Some "application-autoscaling.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "application-autoscaling.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> - Some "application-autoscaling.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "application-autoscaling.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "application-autoscaling.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> - Some "application-autoscaling.ca-central-1.amazonaws.com" - | "eu-central-1" -> - Some "application-autoscaling.eu-central-1.amazonaws.com" - | "eu-north-1" -> - Some "application-autoscaling.eu-north-1.amazonaws.com" - | "eu-west-1" -> - Some "application-autoscaling.eu-west-1.amazonaws.com" - | "eu-west-2" -> - Some "application-autoscaling.eu-west-2.amazonaws.com" - | "eu-west-3" -> - Some "application-autoscaling.eu-west-3.amazonaws.com" - | "sa-east-1" -> - Some "application-autoscaling.sa-east-1.amazonaws.com" - | "us-east-1" -> - Some "application-autoscaling.us-east-1.amazonaws.com" - | "us-east-2" -> - Some "application-autoscaling.us-east-2.amazonaws.com" - | "us-west-1" -> - Some "application-autoscaling.us-west-1.amazonaws.com" - | "us-west-2" -> - Some "application-autoscaling.us-west-2.amazonaws.com" - | _ -> None) - | "appstream2" -> - (match region with - | "ap-northeast-1" -> Some "appstream2.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "appstream2.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> Some "appstream2.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "appstream2.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "appstream2.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "appstream2.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "appstream2.us-east-1.amazonaws.com" - | "us-west-2" -> Some "appstream2.us-west-2.amazonaws.com" - | _ -> None) - | "appsync" -> - (match region with - | "ap-northeast-1" -> Some "appsync.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "appsync.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "appsync.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "appsync.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "appsync.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "appsync.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "appsync.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "appsync.us-east-1.amazonaws.com" - | "us-east-2" -> Some "appsync.us-east-2.amazonaws.com" - | "us-west-2" -> Some "appsync.us-west-2.amazonaws.com" - | _ -> None) - | "athena" -> - (match region with - | "ap-northeast-1" -> Some "athena.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "athena.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "athena.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "athena.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "athena.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "athena.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "athena.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "athena.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "athena.us-east-1.amazonaws.com" - | "us-east-2" -> Some "athena.us-east-2.amazonaws.com" - | "us-west-2" -> Some "athena.us-west-2.amazonaws.com" - | _ -> None) - | "autoscaling" -> - (match region with - | "ap-northeast-1" -> Some "autoscaling.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "autoscaling.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "autoscaling.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "autoscaling.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "autoscaling.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "autoscaling.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "autoscaling.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "autoscaling.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "autoscaling.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "autoscaling.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "autoscaling.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "autoscaling.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "autoscaling.us-east-1.amazonaws.com" - | "us-east-2" -> Some "autoscaling.us-east-2.amazonaws.com" - | "us-west-1" -> Some "autoscaling.us-west-1.amazonaws.com" - | "us-west-2" -> Some "autoscaling.us-west-2.amazonaws.com" - | _ -> None) - | "autoscaling-plans" -> - (match region with - | "ap-northeast-1" -> - Some "autoscaling-plans.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "autoscaling-plans.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "autoscaling-plans.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "autoscaling-plans.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "autoscaling-plans.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> - Some "autoscaling-plans.ca-central-1.amazonaws.com" - | "eu-central-1" -> - Some "autoscaling-plans.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "autoscaling-plans.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "autoscaling-plans.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "autoscaling-plans.us-east-1.amazonaws.com" - | "us-east-2" -> Some "autoscaling-plans.us-east-2.amazonaws.com" - | "us-west-1" -> Some "autoscaling-plans.us-west-1.amazonaws.com" - | "us-west-2" -> Some "autoscaling-plans.us-west-2.amazonaws.com" - | _ -> None) - | "batch" -> - (match region with - | "ap-northeast-1" -> Some "batch.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "batch.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "batch.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "batch.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "batch.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "batch.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "batch.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "batch.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "batch.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "batch.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "batch.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "batch.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "batch.us-east-1.amazonaws.com" - | "us-east-2" -> Some "batch.us-east-2.amazonaws.com" - | "us-west-1" -> Some "batch.us-west-1.amazonaws.com" - | "us-west-2" -> Some "batch.us-west-2.amazonaws.com" - | _ -> None) - | "budgets" -> - (match region with - | "aws-global" -> Some "budgets.amazonaws.com" - | _ -> None) - | "ce" -> - (match region with - | "aws-global" -> Some "ce.us-east-1.amazonaws.com" - | _ -> None) - | "chime" -> - (match region with - | "aws-global" -> Some "service.chime.aws.amazon.com" - | _ -> None) - | "cloud9" -> - (match region with - | "ap-southeast-1" -> Some "cloud9.ap-southeast-1.amazonaws.com" - | "eu-west-1" -> Some "cloud9.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "cloud9.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cloud9.us-east-2.amazonaws.com" - | "us-west-2" -> Some "cloud9.us-west-2.amazonaws.com" - | _ -> None) - | "clouddirectory" -> - (match region with - | "ap-southeast-1" -> - Some "clouddirectory.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "clouddirectory.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "clouddirectory.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "clouddirectory.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "clouddirectory.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "clouddirectory.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "clouddirectory.us-east-1.amazonaws.com" - | "us-east-2" -> Some "clouddirectory.us-east-2.amazonaws.com" - | "us-west-2" -> Some "clouddirectory.us-west-2.amazonaws.com" - | _ -> None) - | "cloudformation" -> - (match region with - | "ap-northeast-1" -> - Some "cloudformation.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "cloudformation.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "cloudformation.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "cloudformation.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "cloudformation.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "cloudformation.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "cloudformation.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "cloudformation.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "cloudformation.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "cloudformation.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "cloudformation.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "cloudformation.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "cloudformation.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cloudformation.us-east-2.amazonaws.com" - | "us-west-1" -> Some "cloudformation.us-west-1.amazonaws.com" - | "us-west-2" -> Some "cloudformation.us-west-2.amazonaws.com" - | _ -> None) - | "cloudfront" -> - (match region with - | "aws-global" -> Some "cloudfront.amazonaws.com" - | _ -> None) - | "cloudhsm" -> - (match region with - | "ap-northeast-1" -> Some "cloudhsm.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> Some "cloudhsm.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "cloudhsm.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "cloudhsm.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "cloudhsm.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "cloudhsm.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "cloudhsm.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cloudhsm.us-east-2.amazonaws.com" - | "us-west-1" -> Some "cloudhsm.us-west-1.amazonaws.com" - | "us-west-2" -> Some "cloudhsm.us-west-2.amazonaws.com" - | _ -> None) - | "cloudhsmv2" -> - (match region with - | "ap-northeast-1" -> Some "cloudhsmv2.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "cloudhsmv2.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "cloudhsmv2.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "cloudhsmv2.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "cloudhsmv2.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "cloudhsmv2.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "cloudhsmv2.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "cloudhsmv2.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "cloudhsmv2.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "cloudhsmv2.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "cloudhsmv2.eu-west-3.amazonaws.com" - | "us-east-1" -> Some "cloudhsmv2.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cloudhsmv2.us-east-2.amazonaws.com" - | "us-west-1" -> Some "cloudhsmv2.us-west-1.amazonaws.com" - | "us-west-2" -> Some "cloudhsmv2.us-west-2.amazonaws.com" - | _ -> None) - | "cloudsearch" -> - (match region with - | "ap-northeast-1" -> Some "cloudsearch.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "cloudsearch.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> Some "cloudsearch.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "cloudsearch.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "cloudsearch.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "cloudsearch.eu-west-1.amazonaws.com" - | "sa-east-1" -> Some "cloudsearch.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "cloudsearch.us-east-1.amazonaws.com" - | "us-west-1" -> Some "cloudsearch.us-west-1.amazonaws.com" - | "us-west-2" -> Some "cloudsearch.us-west-2.amazonaws.com" - | _ -> None) - | "cloudtrail" -> - (match region with - | "ap-northeast-1" -> Some "cloudtrail.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "cloudtrail.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "cloudtrail.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "cloudtrail.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "cloudtrail.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "cloudtrail.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "cloudtrail.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "cloudtrail.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "cloudtrail.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "cloudtrail.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "cloudtrail.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "cloudtrail.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "cloudtrail.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cloudtrail.us-east-2.amazonaws.com" - | "us-west-1" -> Some "cloudtrail.us-west-1.amazonaws.com" - | "us-west-2" -> Some "cloudtrail.us-west-2.amazonaws.com" - | _ -> None) - | "codebuild" -> - (match region with - | "ap-northeast-1" -> Some "codebuild.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "codebuild.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "codebuild.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "codebuild.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "codebuild.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "codebuild.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "codebuild.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "codebuild.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "codebuild.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "codebuild.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "codebuild.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "codebuild.us-east-1.amazonaws.com" - | "us-east-1-fips" -> Some "codebuild-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "codebuild.us-east-2.amazonaws.com" - | "us-east-2-fips" -> Some "codebuild-fips.us-east-2.amazonaws.com" - | "us-west-1" -> Some "codebuild.us-west-1.amazonaws.com" - | "us-west-1-fips" -> Some "codebuild-fips.us-west-1.amazonaws.com" - | "us-west-2" -> Some "codebuild.us-west-2.amazonaws.com" - | "us-west-2-fips" -> Some "codebuild-fips.us-west-2.amazonaws.com" - | _ -> None) - | "codecommit" -> - (match region with - | "ap-northeast-1" -> Some "codecommit.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "codecommit.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "codecommit.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "codecommit.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "codecommit.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "codecommit.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "codecommit.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "codecommit.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "codecommit.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "codecommit.eu-west-3.amazonaws.com" - | "fips" -> Some "codecommit-fips.ca-central-1.amazonaws.com" - | "sa-east-1" -> Some "codecommit.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "codecommit.us-east-1.amazonaws.com" - | "us-east-2" -> Some "codecommit.us-east-2.amazonaws.com" - | "us-west-1" -> Some "codecommit.us-west-1.amazonaws.com" - | "us-west-2" -> Some "codecommit.us-west-2.amazonaws.com" - | _ -> None) - | "codedeploy" -> - (match region with - | "ap-northeast-1" -> Some "codedeploy.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "codedeploy.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "codedeploy.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "codedeploy.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "codedeploy.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "codedeploy.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "codedeploy.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "codedeploy.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "codedeploy.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "codedeploy.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "codedeploy.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "codedeploy.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "codedeploy.us-east-1.amazonaws.com" - | "us-east-1-fips" -> Some "codedeploy-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "codedeploy.us-east-2.amazonaws.com" - | "us-east-2-fips" -> Some "codedeploy-fips.us-east-2.amazonaws.com" - | "us-west-1" -> Some "codedeploy.us-west-1.amazonaws.com" - | "us-west-1-fips" -> Some "codedeploy-fips.us-west-1.amazonaws.com" - | "us-west-2" -> Some "codedeploy.us-west-2.amazonaws.com" - | "us-west-2-fips" -> Some "codedeploy-fips.us-west-2.amazonaws.com" - | _ -> None) - | "codepipeline" -> - (match region with - | "ap-northeast-1" -> Some "codepipeline.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "codepipeline.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "codepipeline.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "codepipeline.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "codepipeline.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "codepipeline.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "codepipeline.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "codepipeline.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "codepipeline.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "codepipeline.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "codepipeline.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "codepipeline.us-east-1.amazonaws.com" - | "us-east-2" -> Some "codepipeline.us-east-2.amazonaws.com" - | "us-west-1" -> Some "codepipeline.us-west-1.amazonaws.com" - | "us-west-2" -> Some "codepipeline.us-west-2.amazonaws.com" - | _ -> None) - | "codestar" -> - (match region with - | "ap-northeast-1" -> Some "codestar.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "codestar.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> Some "codestar.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "codestar.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "codestar.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "codestar.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "codestar.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "codestar.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "codestar.us-east-1.amazonaws.com" - | "us-east-2" -> Some "codestar.us-east-2.amazonaws.com" - | "us-west-1" -> Some "codestar.us-west-1.amazonaws.com" - | "us-west-2" -> Some "codestar.us-west-2.amazonaws.com" - | _ -> None) - | "cognito-identity" -> - (match region with - | "ap-northeast-1" -> - Some "cognito-identity.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "cognito-identity.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "cognito-identity.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "cognito-identity.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "cognito-identity.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "cognito-identity.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "cognito-identity.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "cognito-identity.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "cognito-identity.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "cognito-identity.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cognito-identity.us-east-2.amazonaws.com" - | "us-west-2" -> Some "cognito-identity.us-west-2.amazonaws.com" - | _ -> None) - | "cognito-idp" -> - (match region with - | "ap-northeast-1" -> Some "cognito-idp.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "cognito-idp.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "cognito-idp.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "cognito-idp.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "cognito-idp.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "cognito-idp.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "cognito-idp.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "cognito-idp.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "cognito-idp.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "cognito-idp.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cognito-idp.us-east-2.amazonaws.com" - | "us-west-2" -> Some "cognito-idp.us-west-2.amazonaws.com" - | _ -> None) - | "cognito-sync" -> - (match region with - | "ap-northeast-1" -> Some "cognito-sync.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "cognito-sync.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "cognito-sync.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "cognito-sync.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "cognito-sync.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "cognito-sync.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "cognito-sync.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "cognito-sync.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "cognito-sync.us-east-1.amazonaws.com" - | "us-east-2" -> Some "cognito-sync.us-east-2.amazonaws.com" - | "us-west-2" -> Some "cognito-sync.us-west-2.amazonaws.com" - | _ -> None) - | "comprehend" -> - (match region with - | "ap-southeast-1" -> Some "comprehend.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "comprehend.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "comprehend.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "comprehend.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "comprehend.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "comprehend.us-east-1.amazonaws.com" - | "us-east-2" -> Some "comprehend.us-east-2.amazonaws.com" - | "us-west-2" -> Some "comprehend.us-west-2.amazonaws.com" - | _ -> None) - | "config" -> - (match region with - | "ap-northeast-1" -> Some "config.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "config.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "config.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "config.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "config.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "config.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "config.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "config.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "config.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "config.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "config.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "config.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "config.us-east-1.amazonaws.com" - | "us-east-2" -> Some "config.us-east-2.amazonaws.com" - | "us-west-1" -> Some "config.us-west-1.amazonaws.com" - | "us-west-2" -> Some "config.us-west-2.amazonaws.com" - | _ -> None) - | "cur" -> - (match region with - | "us-east-1" -> Some "cur.us-east-1.amazonaws.com" - | _ -> None) - | "data.iot" -> - (match region with - | "ap-northeast-1" -> Some "data.iot.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "data.iot.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "data.iot.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "data.iot.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "data.iot.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "data.iot.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "data.iot.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "data.iot.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "data.iot.us-east-1.amazonaws.com" - | "us-east-2" -> Some "data.iot.us-east-2.amazonaws.com" - | "us-west-2" -> Some "data.iot.us-west-2.amazonaws.com" - | _ -> None) - | "datapipeline" -> - (match region with - | "ap-northeast-1" -> Some "datapipeline.ap-northeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "datapipeline.ap-southeast-2.amazonaws.com" - | "eu-west-1" -> Some "datapipeline.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "datapipeline.us-east-1.amazonaws.com" - | "us-west-2" -> Some "datapipeline.us-west-2.amazonaws.com" - | _ -> None) - | "datasync" -> - (match region with - | "ap-northeast-1" -> Some "datasync.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "datasync.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> Some "datasync.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "datasync.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "datasync.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "datasync.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "datasync.us-east-1.amazonaws.com" - | "us-east-2" -> Some "datasync.us-east-2.amazonaws.com" - | "us-west-1" -> Some "datasync.us-west-1.amazonaws.com" - | "us-west-2" -> Some "datasync.us-west-2.amazonaws.com" - | _ -> None) - | "dax" -> - (match region with - | "ap-northeast-1" -> Some "dax.ap-northeast-1.amazonaws.com" - | "ap-south-1" -> Some "dax.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "dax.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "dax.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "dax.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "dax.eu-west-1.amazonaws.com" - | "sa-east-1" -> Some "dax.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "dax.us-east-1.amazonaws.com" - | "us-east-2" -> Some "dax.us-east-2.amazonaws.com" - | "us-west-1" -> Some "dax.us-west-1.amazonaws.com" - | "us-west-2" -> Some "dax.us-west-2.amazonaws.com" - | _ -> None) - | "devicefarm" -> - (match region with - | "us-west-2" -> Some "devicefarm.us-west-2.amazonaws.com" - | _ -> None) - | "directconnect" -> - (match region with - | "ap-northeast-1" -> - Some "directconnect.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "directconnect.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "directconnect.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "directconnect.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "directconnect.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "directconnect.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "directconnect.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "directconnect.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "directconnect.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "directconnect.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "directconnect.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "directconnect.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "directconnect.us-east-1.amazonaws.com" - | "us-east-2" -> Some "directconnect.us-east-2.amazonaws.com" - | "us-west-1" -> Some "directconnect.us-west-1.amazonaws.com" - | "us-west-2" -> Some "directconnect.us-west-2.amazonaws.com" - | _ -> None) - | "discovery" -> - (match region with - | "us-west-2" -> Some "discovery.us-west-2.amazonaws.com" - | _ -> None) - | "dms" -> - (match region with - | "ap-northeast-1" -> Some "dms.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "dms.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "dms.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "dms.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "dms.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "dms.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "dms.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "dms.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "dms.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "dms.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "dms.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "dms.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "dms.us-east-1.amazonaws.com" - | "us-east-2" -> Some "dms.us-east-2.amazonaws.com" - | "us-west-1" -> Some "dms.us-west-1.amazonaws.com" - | "us-west-2" -> Some "dms.us-west-2.amazonaws.com" - | _ -> None) - | "docdb" -> - (match region with - | "eu-west-1" -> Some "rds.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "rds.us-east-1.amazonaws.com" - | "us-east-2" -> Some "rds.us-east-2.amazonaws.com" - | "us-west-2" -> Some "rds.us-west-2.amazonaws.com" - | _ -> None) - | "ds" -> - (match region with - | "ap-northeast-1" -> Some "ds.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "ds.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "ds.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "ds.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "ds.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "ds.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "ds.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "ds.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "ds.eu-west-2.amazonaws.com" - | "sa-east-1" -> Some "ds.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "ds.us-east-1.amazonaws.com" - | "us-east-2" -> Some "ds.us-east-2.amazonaws.com" - | "us-west-1" -> Some "ds.us-west-1.amazonaws.com" - | "us-west-2" -> Some "ds.us-west-2.amazonaws.com" - | _ -> None) - | "dynamodb" -> - (match region with - | "ap-northeast-1" -> Some "dynamodb.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "dynamodb.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "dynamodb.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "dynamodb.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "dynamodb.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "dynamodb.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "dynamodb.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "dynamodb.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "dynamodb.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "dynamodb.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "dynamodb.eu-west-3.amazonaws.com" - | "local" -> Some "localhost:8000" - | "sa-east-1" -> Some "dynamodb.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "dynamodb.us-east-1.amazonaws.com" - | "us-east-2" -> Some "dynamodb.us-east-2.amazonaws.com" - | "us-west-1" -> Some "dynamodb.us-west-1.amazonaws.com" - | "us-west-2" -> Some "dynamodb.us-west-2.amazonaws.com" - | _ -> None) - | "ec2" -> - (match region with - | "ap-northeast-1" -> Some "ec2.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "ec2.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "ec2.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "ec2.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "ec2.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "ec2.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "ec2.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "ec2.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "ec2.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "ec2.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "ec2.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "ec2.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "ec2.us-east-1.amazonaws.com" - | "us-east-2" -> Some "ec2.us-east-2.amazonaws.com" - | "us-west-1" -> Some "ec2.us-west-1.amazonaws.com" - | "us-west-2" -> Some "ec2.us-west-2.amazonaws.com" - | _ -> None) - | "ecs" -> - (match region with - | "ap-northeast-1" -> Some "ecs.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "ecs.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "ecs.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "ecs.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "ecs.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "ecs.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "ecs.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "ecs.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "ecs.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "ecs.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "ecs.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "ecs.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "ecs.us-east-1.amazonaws.com" - | "us-east-2" -> Some "ecs.us-east-2.amazonaws.com" - | "us-west-1" -> Some "ecs.us-west-1.amazonaws.com" - | "us-west-2" -> Some "ecs.us-west-2.amazonaws.com" - | _ -> None) - | "elasticache" -> - (match region with - | "ap-northeast-1" -> Some "elasticache.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "elasticache.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "elasticache.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "elasticache.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "elasticache.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "elasticache.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "elasticache.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "elasticache.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "elasticache.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "elasticache.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "elasticache.eu-west-3.amazonaws.com" - | "fips" -> Some "elasticache-fips.us-west-1.amazonaws.com" - | "sa-east-1" -> Some "elasticache.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "elasticache.us-east-1.amazonaws.com" - | "us-east-2" -> Some "elasticache.us-east-2.amazonaws.com" - | "us-west-1" -> Some "elasticache.us-west-1.amazonaws.com" - | "us-west-2" -> Some "elasticache.us-west-2.amazonaws.com" - | _ -> None) - | "elasticbeanstalk" -> - (match region with - | "ap-northeast-1" -> - Some "elasticbeanstalk.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "elasticbeanstalk.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "elasticbeanstalk.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "elasticbeanstalk.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "elasticbeanstalk.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "elasticbeanstalk.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "elasticbeanstalk.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "elasticbeanstalk.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "elasticbeanstalk.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "elasticbeanstalk.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "elasticbeanstalk.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "elasticbeanstalk.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "elasticbeanstalk.us-east-1.amazonaws.com" - | "us-east-2" -> Some "elasticbeanstalk.us-east-2.amazonaws.com" - | "us-west-1" -> Some "elasticbeanstalk.us-west-1.amazonaws.com" - | "us-west-2" -> Some "elasticbeanstalk.us-west-2.amazonaws.com" - | _ -> None) - | "elasticfilesystem" -> - (match region with - | "ap-northeast-1" -> - Some "elasticfilesystem.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "elasticfilesystem.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> - Some "elasticfilesystem.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "elasticfilesystem.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> - Some "elasticfilesystem.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "elasticfilesystem.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "elasticfilesystem.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "elasticfilesystem.us-east-1.amazonaws.com" - | "us-east-2" -> Some "elasticfilesystem.us-east-2.amazonaws.com" - | "us-west-1" -> Some "elasticfilesystem.us-west-1.amazonaws.com" - | "us-west-2" -> Some "elasticfilesystem.us-west-2.amazonaws.com" - | _ -> None) - | "elasticloadbalancing" -> - (match region with - | "ap-northeast-1" -> - Some "elasticloadbalancing.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "elasticloadbalancing.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "elasticloadbalancing.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "elasticloadbalancing.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "elasticloadbalancing.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> - Some "elasticloadbalancing.ca-central-1.amazonaws.com" - | "eu-central-1" -> - Some "elasticloadbalancing.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "elasticloadbalancing.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "elasticloadbalancing.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "elasticloadbalancing.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "elasticloadbalancing.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "elasticloadbalancing.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "elasticloadbalancing.us-east-1.amazonaws.com" - | "us-east-2" -> Some "elasticloadbalancing.us-east-2.amazonaws.com" - | "us-west-1" -> Some "elasticloadbalancing.us-west-1.amazonaws.com" - | "us-west-2" -> Some "elasticloadbalancing.us-west-2.amazonaws.com" - | _ -> None) - | "elasticmapreduce" -> - (match region with - | "ap-northeast-1" -> - Some "elasticmapreduce.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "elasticmapreduce.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "elasticmapreduce.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "elasticmapreduce.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "elasticmapreduce.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "elasticmapreduce.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "elasticmapreduce.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "elasticmapreduce.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "elasticmapreduce.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "elasticmapreduce.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "elasticmapreduce.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "elasticmapreduce.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "elasticmapreduce.us-east-1.amazonaws.com" - | "us-east-2" -> Some "elasticmapreduce.us-east-2.amazonaws.com" - | "us-west-1" -> Some "elasticmapreduce.us-west-1.amazonaws.com" - | "us-west-2" -> Some "elasticmapreduce.us-west-2.amazonaws.com" - | _ -> None) - | "elastictranscoder" -> - (match region with - | "ap-northeast-1" -> - Some "elastictranscoder.ap-northeast-1.amazonaws.com" - | "ap-south-1" -> Some "elastictranscoder.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "elastictranscoder.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "elastictranscoder.ap-southeast-2.amazonaws.com" - | "eu-west-1" -> Some "elastictranscoder.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "elastictranscoder.us-east-1.amazonaws.com" - | "us-west-1" -> Some "elastictranscoder.us-west-1.amazonaws.com" - | "us-west-2" -> Some "elastictranscoder.us-west-2.amazonaws.com" - | _ -> None) - | "email" -> - (match region with - | "eu-west-1" -> Some "email.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "email.us-east-1.amazonaws.com" - | "us-west-2" -> Some "email.us-west-2.amazonaws.com" - | _ -> None) - | "entitlement.marketplace" -> - (match region with - | "us-east-1" -> - Some "entitlement.marketplace.us-east-1.amazonaws.com" - | _ -> None) - | "es" -> - (match region with - | "ap-northeast-1" -> Some "es.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "es.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "es.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "es.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "es.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "es.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "es.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "es.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "es.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "es.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "es.eu-west-3.amazonaws.com" - | "fips" -> Some "es-fips.us-west-1.amazonaws.com" - | "sa-east-1" -> Some "es.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "es.us-east-1.amazonaws.com" - | "us-east-2" -> Some "es.us-east-2.amazonaws.com" - | "us-west-1" -> Some "es.us-west-1.amazonaws.com" - | "us-west-2" -> Some "es.us-west-2.amazonaws.com" - | _ -> None) - | "events" -> - (match region with - | "ap-northeast-1" -> Some "events.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "events.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "events.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "events.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "events.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "events.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "events.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "events.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "events.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "events.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "events.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "events.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "events.us-east-1.amazonaws.com" - | "us-east-2" -> Some "events.us-east-2.amazonaws.com" - | "us-west-1" -> Some "events.us-west-1.amazonaws.com" - | "us-west-2" -> Some "events.us-west-2.amazonaws.com" - | _ -> None) - | "firehose" -> - (match region with - | "ap-northeast-1" -> Some "firehose.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "firehose.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "firehose.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "firehose.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "firehose.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "firehose.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "firehose.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "firehose.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "firehose.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "firehose.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "firehose.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "firehose.us-east-1.amazonaws.com" - | "us-east-2" -> Some "firehose.us-east-2.amazonaws.com" - | "us-west-1" -> Some "firehose.us-west-1.amazonaws.com" - | "us-west-2" -> Some "firehose.us-west-2.amazonaws.com" - | _ -> None) - | "fms" -> - (match region with - | "ap-northeast-1" -> Some "fms.ap-northeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "fms.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "fms.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "fms.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "fms.us-east-1.amazonaws.com" - | "us-east-2" -> Some "fms.us-east-2.amazonaws.com" - | "us-west-2" -> Some "fms.us-west-2.amazonaws.com" - | _ -> None) - | "fsx" -> - (match region with - | "eu-west-1" -> Some "fsx.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "fsx.us-east-1.amazonaws.com" - | "us-east-2" -> Some "fsx.us-east-2.amazonaws.com" - | "us-west-2" -> Some "fsx.us-west-2.amazonaws.com" - | _ -> None) - | "gamelift" -> - (match region with - | "ap-northeast-1" -> Some "gamelift.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "gamelift.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "gamelift.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "gamelift.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "gamelift.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "gamelift.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "gamelift.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "gamelift.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "gamelift.eu-west-2.amazonaws.com" - | "sa-east-1" -> Some "gamelift.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "gamelift.us-east-1.amazonaws.com" - | "us-east-2" -> Some "gamelift.us-east-2.amazonaws.com" - | "us-west-1" -> Some "gamelift.us-west-1.amazonaws.com" - | "us-west-2" -> Some "gamelift.us-west-2.amazonaws.com" - | _ -> None) - | "glacier" -> - (match region with - | "ap-northeast-1" -> Some "glacier.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "glacier.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "glacier.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "glacier.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "glacier.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "glacier.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "glacier.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "glacier.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "glacier.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "glacier.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "glacier.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "glacier.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "glacier.us-east-1.amazonaws.com" - | "us-east-2" -> Some "glacier.us-east-2.amazonaws.com" - | "us-west-1" -> Some "glacier.us-west-1.amazonaws.com" - | "us-west-2" -> Some "glacier.us-west-2.amazonaws.com" - | _ -> None) - | "glue" -> - (match region with - | "ap-northeast-1" -> Some "glue.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "glue.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "glue.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "glue.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "glue.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "glue.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "glue.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "glue.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "glue.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "glue.eu-west-3.amazonaws.com" - | "us-east-1" -> Some "glue.us-east-1.amazonaws.com" - | "us-east-2" -> Some "glue.us-east-2.amazonaws.com" - | "us-west-1" -> Some "glue.us-west-1.amazonaws.com" - | "us-west-2" -> Some "glue.us-west-2.amazonaws.com" - | _ -> None) - | "greengrass" -> - (match region with - | "ap-northeast-1" -> Some "greengrass.ap-northeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "greengrass.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "greengrass.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "greengrass.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "greengrass.us-east-1.amazonaws.com" - | "us-west-2" -> Some "greengrass.us-west-2.amazonaws.com" - | _ -> None) - | "guardduty" -> - (match region with - | "ap-northeast-1" -> Some "guardduty.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "guardduty.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "guardduty.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "guardduty.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "guardduty.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "guardduty.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "guardduty.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "guardduty.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "guardduty.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "guardduty.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "guardduty.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "guardduty.us-east-1.amazonaws.com" - | "us-east-2" -> Some "guardduty.us-east-2.amazonaws.com" - | "us-west-1" -> Some "guardduty.us-west-1.amazonaws.com" - | "us-west-2" -> Some "guardduty.us-west-2.amazonaws.com" - | _ -> None) - | "health" -> - (match region with - | "us-east-1" -> Some "health.us-east-1.amazonaws.com" - | _ -> None) - | "iam" -> - (match region with - | "aws-global" -> Some "iam.amazonaws.com" - | _ -> None) - | "importexport" -> - (match region with - | "aws-global" -> Some "importexport.amazonaws.com" - | _ -> None) - | "inspector" -> - (match region with - | "ap-northeast-1" -> Some "inspector.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "inspector.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "inspector.ap-south-1.amazonaws.com" - | "ap-southeast-2" -> Some "inspector.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "inspector.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "inspector.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "inspector.us-east-1.amazonaws.com" - | "us-east-2" -> Some "inspector.us-east-2.amazonaws.com" - | "us-west-1" -> Some "inspector.us-west-1.amazonaws.com" - | "us-west-2" -> Some "inspector.us-west-2.amazonaws.com" - | _ -> None) - | "iot" -> - (match region with - | "ap-northeast-1" -> Some "iot.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "iot.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "iot.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "iot.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "iot.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "iot.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "iot.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "iot.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "iot.us-east-1.amazonaws.com" - | "us-east-2" -> Some "iot.us-east-2.amazonaws.com" - | "us-west-2" -> Some "iot.us-west-2.amazonaws.com" - | _ -> None) - | "iotanalytics" -> - (match region with - | "ap-northeast-1" -> Some "iotanalytics.ap-northeast-1.amazonaws.com" - | "eu-central-1" -> Some "iotanalytics.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "iotanalytics.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "iotanalytics.us-east-1.amazonaws.com" - | "us-east-2" -> Some "iotanalytics.us-east-2.amazonaws.com" - | "us-west-2" -> Some "iotanalytics.us-west-2.amazonaws.com" - | _ -> None) - | "kinesis" -> - (match region with - | "ap-northeast-1" -> Some "kinesis.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "kinesis.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "kinesis.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "kinesis.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "kinesis.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "kinesis.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "kinesis.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "kinesis.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "kinesis.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "kinesis.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "kinesis.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "kinesis.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "kinesis.us-east-1.amazonaws.com" - | "us-east-2" -> Some "kinesis.us-east-2.amazonaws.com" - | "us-west-1" -> Some "kinesis.us-west-1.amazonaws.com" - | "us-west-2" -> Some "kinesis.us-west-2.amazonaws.com" - | _ -> None) - | "kinesisanalytics" -> - (match region with - | "eu-central-1" -> Some "kinesisanalytics.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "kinesisanalytics.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "kinesisanalytics.us-east-1.amazonaws.com" - | "us-east-2" -> Some "kinesisanalytics.us-east-2.amazonaws.com" - | "us-west-2" -> Some "kinesisanalytics.us-west-2.amazonaws.com" - | _ -> None) - | "kinesisvideo" -> - (match region with - | "ap-northeast-1" -> Some "kinesisvideo.ap-northeast-1.amazonaws.com" - | "eu-central-1" -> Some "kinesisvideo.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "kinesisvideo.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "kinesisvideo.us-east-1.amazonaws.com" - | "us-west-2" -> Some "kinesisvideo.us-west-2.amazonaws.com" - | _ -> None) - | "kms" -> - (match region with - | "ProdFips" -> Some "kms-fips.ca-central-1.amazonaws.com" - | "ap-northeast-1" -> Some "kms.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "kms.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "kms.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "kms.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "kms.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "kms.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "kms.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "kms.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "kms.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "kms.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "kms.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "kms.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "kms.us-east-1.amazonaws.com" - | "us-east-2" -> Some "kms.us-east-2.amazonaws.com" - | "us-west-1" -> Some "kms.us-west-1.amazonaws.com" - | "us-west-2" -> Some "kms.us-west-2.amazonaws.com" - | _ -> None) - | "lambda" -> - (match region with - | "ap-northeast-1" -> Some "lambda.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "lambda.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "lambda.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "lambda.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "lambda.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "lambda.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "lambda.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "lambda.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "lambda.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "lambda.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "lambda.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "lambda.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "lambda.us-east-1.amazonaws.com" - | "us-east-2" -> Some "lambda.us-east-2.amazonaws.com" - | "us-west-1" -> Some "lambda.us-west-1.amazonaws.com" - | "us-west-2" -> Some "lambda.us-west-2.amazonaws.com" - | _ -> None) - | "license-manager" -> - (match region with - | "ap-northeast-1" -> - Some "license-manager.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "license-manager.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "license-manager.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "license-manager.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "license-manager.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "license-manager.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "license-manager.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "license-manager.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "license-manager.us-east-1.amazonaws.com" - | "us-east-2" -> Some "license-manager.us-east-2.amazonaws.com" - | "us-west-2" -> Some "license-manager.us-west-2.amazonaws.com" - | _ -> None) - | "lightsail" -> - (match region with - | "ap-northeast-1" -> Some "lightsail.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "lightsail.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "lightsail.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "lightsail.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "lightsail.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "lightsail.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "lightsail.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "lightsail.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "lightsail.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "lightsail.eu-west-3.amazonaws.com" - | "us-east-1" -> Some "lightsail.us-east-1.amazonaws.com" - | "us-east-2" -> Some "lightsail.us-east-2.amazonaws.com" - | "us-west-2" -> Some "lightsail.us-west-2.amazonaws.com" - | _ -> None) - | "logs" -> - (match region with - | "ap-northeast-1" -> Some "logs.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "logs.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "logs.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "logs.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "logs.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "logs.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "logs.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "logs.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "logs.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "logs.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "logs.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "logs.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "logs.us-east-1.amazonaws.com" - | "us-east-2" -> Some "logs.us-east-2.amazonaws.com" - | "us-west-1" -> Some "logs.us-west-1.amazonaws.com" - | "us-west-2" -> Some "logs.us-west-2.amazonaws.com" - | _ -> None) - | "machinelearning" -> - (match region with - | "eu-west-1" -> Some "machinelearning.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "machinelearning.us-east-1.amazonaws.com" - | _ -> None) - | "marketplacecommerceanalytics" -> - (match region with - | "us-east-1" -> - Some "marketplacecommerceanalytics.us-east-1.amazonaws.com" - | _ -> None) - | "mediaconvert" -> - (match region with - | "ap-northeast-1" -> Some "mediaconvert.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "mediaconvert.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "mediaconvert.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "mediaconvert.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "mediaconvert.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "mediaconvert.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "mediaconvert.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "mediaconvert.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "mediaconvert.eu-west-2.amazonaws.com" - | "sa-east-1" -> Some "mediaconvert.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "mediaconvert.us-east-1.amazonaws.com" - | "us-east-2" -> Some "mediaconvert.us-east-2.amazonaws.com" - | "us-west-1" -> Some "mediaconvert.us-west-1.amazonaws.com" - | "us-west-2" -> Some "mediaconvert.us-west-2.amazonaws.com" - | _ -> None) - | "medialive" -> - (match region with - | "ap-northeast-1" -> Some "medialive.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "medialive.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "medialive.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "medialive.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "medialive.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "medialive.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "medialive.eu-west-1.amazonaws.com" - | "sa-east-1" -> Some "medialive.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "medialive.us-east-1.amazonaws.com" - | "us-west-2" -> Some "medialive.us-west-2.amazonaws.com" - | _ -> None) - | "mediapackage" -> - (match region with - | "ap-northeast-1" -> Some "mediapackage.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "mediapackage.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "mediapackage.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "mediapackage.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "mediapackage.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "mediapackage.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "mediapackage.eu-west-1.amazonaws.com" - | "eu-west-3" -> Some "mediapackage.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "mediapackage.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "mediapackage.us-east-1.amazonaws.com" - | "us-west-1" -> Some "mediapackage.us-west-1.amazonaws.com" - | "us-west-2" -> Some "mediapackage.us-west-2.amazonaws.com" - | _ -> None) - | "mediastore" -> - (match region with - | "ap-northeast-1" -> Some "mediastore.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "mediastore.ap-northeast-2.amazonaws.com" - | "ap-southeast-2" -> Some "mediastore.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "mediastore.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "mediastore.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "mediastore.us-east-1.amazonaws.com" - | "us-west-2" -> Some "mediastore.us-west-2.amazonaws.com" - | _ -> None) - | "metering.marketplace" -> - (match region with - | "ap-northeast-1" -> - Some "metering.marketplace.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "metering.marketplace.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "metering.marketplace.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "metering.marketplace.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "metering.marketplace.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> - Some "metering.marketplace.ca-central-1.amazonaws.com" - | "eu-central-1" -> - Some "metering.marketplace.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "metering.marketplace.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "metering.marketplace.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "metering.marketplace.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "metering.marketplace.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "metering.marketplace.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "metering.marketplace.us-east-1.amazonaws.com" - | "us-east-2" -> Some "metering.marketplace.us-east-2.amazonaws.com" - | "us-west-1" -> Some "metering.marketplace.us-west-1.amazonaws.com" - | "us-west-2" -> Some "metering.marketplace.us-west-2.amazonaws.com" - | _ -> None) - | "mgh" -> - (match region with - | "us-west-2" -> Some "mgh.us-west-2.amazonaws.com" - | _ -> None) - | "mobileanalytics" -> - (match region with - | "us-east-1" -> Some "mobileanalytics.us-east-1.amazonaws.com" - | _ -> None) - | "models.lex" -> - (match region with - | "eu-west-1" -> Some "models.lex.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "models.lex.us-east-1.amazonaws.com" - | "us-west-2" -> Some "models.lex.us-west-2.amazonaws.com" - | _ -> None) - | "monitoring" -> - (match region with - | "ap-northeast-1" -> Some "monitoring.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "monitoring.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "monitoring.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "monitoring.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "monitoring.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "monitoring.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "monitoring.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "monitoring.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "monitoring.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "monitoring.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "monitoring.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "monitoring.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "monitoring.us-east-1.amazonaws.com" - | "us-east-2" -> Some "monitoring.us-east-2.amazonaws.com" - | "us-west-1" -> Some "monitoring.us-west-1.amazonaws.com" - | "us-west-2" -> Some "monitoring.us-west-2.amazonaws.com" - | _ -> None) - | "mq" -> - (match region with - | "ap-northeast-1" -> Some "mq.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "mq.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> Some "mq.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "mq.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "mq.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "mq.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "mq.us-east-1.amazonaws.com" - | "us-east-2" -> Some "mq.us-east-2.amazonaws.com" - | "us-west-1" -> Some "mq.us-west-1.amazonaws.com" - | "us-west-2" -> Some "mq.us-west-2.amazonaws.com" - | _ -> None) - | "mturk-requester" -> - (match region with - | "sandbox" -> Some "mturk-requester-sandbox.us-east-1.amazonaws.com" - | "us-east-1" -> Some "mturk-requester.us-east-1.amazonaws.com" - | _ -> None) - | "neptune" -> - (match region with - | "ap-northeast-1" -> Some "rds.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> Some "rds.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "rds.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "rds.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "rds.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "rds.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "rds.us-east-1.amazonaws.com" - | "us-east-2" -> Some "rds.us-east-2.amazonaws.com" - | "us-west-2" -> Some "rds.us-west-2.amazonaws.com" - | _ -> None) - | "opsworks" -> - (match region with - | "ap-northeast-1" -> Some "opsworks.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "opsworks.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "opsworks.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "opsworks.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "opsworks.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "opsworks.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "opsworks.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "opsworks.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "opsworks.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "opsworks.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "opsworks.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "opsworks.us-east-1.amazonaws.com" - | "us-east-2" -> Some "opsworks.us-east-2.amazonaws.com" - | "us-west-1" -> Some "opsworks.us-west-1.amazonaws.com" - | "us-west-2" -> Some "opsworks.us-west-2.amazonaws.com" - | _ -> None) - | "opsworks-cm" -> - (match region with - | "ap-northeast-1" -> Some "opsworks-cm.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> Some "opsworks-cm.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "opsworks-cm.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "opsworks-cm.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "opsworks-cm.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "opsworks-cm.us-east-1.amazonaws.com" - | "us-east-2" -> Some "opsworks-cm.us-east-2.amazonaws.com" - | "us-west-1" -> Some "opsworks-cm.us-west-1.amazonaws.com" - | "us-west-2" -> Some "opsworks-cm.us-west-2.amazonaws.com" - | _ -> None) - | "organizations" -> - (match region with - | "aws-global" -> Some "organizations.us-east-1.amazonaws.com" - | _ -> None) - | "pinpoint" -> - (match region with - | "eu-central-1" -> Some "pinpoint.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "pinpoint.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "pinpoint.us-east-1.amazonaws.com" - | "us-west-2" -> Some "pinpoint.us-west-2.amazonaws.com" - | _ -> None) - | "polly" -> - (match region with - | "ap-northeast-1" -> Some "polly.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "polly.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "polly.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "polly.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "polly.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "polly.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "polly.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "polly.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "polly.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "polly.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "polly.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "polly.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "polly.us-east-1.amazonaws.com" - | "us-east-2" -> Some "polly.us-east-2.amazonaws.com" - | "us-west-1" -> Some "polly.us-west-1.amazonaws.com" - | "us-west-2" -> Some "polly.us-west-2.amazonaws.com" - | _ -> None) - | "rds" -> - (match region with - | "ap-northeast-1" -> Some "rds.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "rds.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "rds.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "rds.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "rds.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "rds.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "rds.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "rds.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "rds.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "rds.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "rds.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "rds.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "rds.us-east-1.amazonaws.com" - | "us-east-2" -> Some "rds.us-east-2.amazonaws.com" - | "us-west-1" -> Some "rds.us-west-1.amazonaws.com" - | "us-west-2" -> Some "rds.us-west-2.amazonaws.com" - | _ -> None) - | "redshift" -> - (match region with - | "ap-northeast-1" -> Some "redshift.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "redshift.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "redshift.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "redshift.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "redshift.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "redshift.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "redshift.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "redshift.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "redshift.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "redshift.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "redshift.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "redshift.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "redshift.us-east-1.amazonaws.com" - | "us-east-2" -> Some "redshift.us-east-2.amazonaws.com" - | "us-west-1" -> Some "redshift.us-west-1.amazonaws.com" - | "us-west-2" -> Some "redshift.us-west-2.amazonaws.com" - | _ -> None) - | "rekognition" -> - (match region with - | "ap-northeast-1" -> Some "rekognition.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "rekognition.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "rekognition.ap-south-1.amazonaws.com" - | "ap-southeast-2" -> Some "rekognition.ap-southeast-2.amazonaws.com" - | "eu-west-1" -> Some "rekognition.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "rekognition.us-east-1.amazonaws.com" - | "us-east-2" -> Some "rekognition.us-east-2.amazonaws.com" - | "us-west-2" -> Some "rekognition.us-west-2.amazonaws.com" - | _ -> None) - | "resource-groups" -> - (match region with - | "ap-northeast-1" -> - Some "resource-groups.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "resource-groups.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "resource-groups.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "resource-groups.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "resource-groups.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "resource-groups.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "resource-groups.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "resource-groups.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "resource-groups.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "resource-groups.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "resource-groups.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "resource-groups.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "resource-groups.us-east-1.amazonaws.com" - | "us-east-2" -> Some "resource-groups.us-east-2.amazonaws.com" - | "us-west-1" -> Some "resource-groups.us-west-1.amazonaws.com" - | "us-west-2" -> Some "resource-groups.us-west-2.amazonaws.com" - | _ -> None) - | "robomaker" -> - (match region with - | "eu-west-1" -> Some "robomaker.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "robomaker.us-east-1.amazonaws.com" - | "us-west-2" -> Some "robomaker.us-west-2.amazonaws.com" - | _ -> None) - | "route53" -> - (match region with - | "aws-global" -> Some "route53.amazonaws.com" - | _ -> None) - | "route53domains" -> - (match region with - | "us-east-1" -> Some "route53domains.us-east-1.amazonaws.com" - | _ -> None) - | "route53resolver" -> - (match region with - | "ap-northeast-1" -> - Some "route53resolver.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "route53resolver.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "route53resolver.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "route53resolver.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "route53resolver.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "route53resolver.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "route53resolver.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "route53resolver.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "route53resolver.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "route53resolver.eu-west-3.amazonaws.com" - | "us-east-1" -> Some "route53resolver.us-east-1.amazonaws.com" - | "us-east-2" -> Some "route53resolver.us-east-2.amazonaws.com" - | "us-west-1" -> Some "route53resolver.us-west-1.amazonaws.com" - | "us-west-2" -> Some "route53resolver.us-west-2.amazonaws.com" - | _ -> None) - | "runtime.lex" -> - (match region with - | "eu-west-1" -> Some "runtime.lex.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "runtime.lex.us-east-1.amazonaws.com" - | "us-west-2" -> Some "runtime.lex.us-west-2.amazonaws.com" - | _ -> None) - | "runtime.sagemaker" -> - (match region with - | "ap-northeast-1" -> - Some "runtime.sagemaker.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "runtime.sagemaker.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "runtime.sagemaker.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "runtime.sagemaker.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "runtime.sagemaker.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> - Some "runtime.sagemaker.ca-central-1.amazonaws.com" - | "eu-central-1" -> - Some "runtime.sagemaker.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "runtime.sagemaker.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "runtime.sagemaker.eu-west-2.amazonaws.com" - | "us-east-1" -> Some "runtime.sagemaker.us-east-1.amazonaws.com" - | "us-east-2" -> Some "runtime.sagemaker.us-east-2.amazonaws.com" - | "us-west-1" -> Some "runtime.sagemaker.us-west-1.amazonaws.com" - | "us-west-2" -> Some "runtime.sagemaker.us-west-2.amazonaws.com" - | _ -> None) - | "s3" -> - (match region with - | "ap-northeast-1" -> Some "s3.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "s3.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "s3.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "s3.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "s3.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "s3.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "s3.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "s3.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "s3.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "s3.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "s3.eu-west-3.amazonaws.com" - | "s3-external-1" -> Some "s3-external-1.amazonaws.com" - | "sa-east-1" -> Some "s3.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "s3.amazonaws.com" - | "us-east-2" -> Some "s3.us-east-2.amazonaws.com" - | "us-west-1" -> Some "s3.us-west-1.amazonaws.com" - | "us-west-2" -> Some "s3.us-west-2.amazonaws.com" - | _ -> None) - | "s3-control" -> - (match region with - | "ap-northeast-1" -> Some "s3-control.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "s3-control.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "s3-control.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "s3-control.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "s3-control.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "s3-control.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "s3-control.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "s3-control.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "s3-control.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "s3-control.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "s3-control.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "s3-control.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "s3-control.us-east-1.amazonaws.com" - | "us-east-1-fips" -> Some "s3-control-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "s3-control.us-east-2.amazonaws.com" - | "us-east-2-fips" -> Some "s3-control-fips.us-east-2.amazonaws.com" - | "us-west-1" -> Some "s3-control.us-west-1.amazonaws.com" - | "us-west-1-fips" -> Some "s3-control-fips.us-west-1.amazonaws.com" - | "us-west-2" -> Some "s3-control.us-west-2.amazonaws.com" - | "us-west-2-fips" -> Some "s3-control-fips.us-west-2.amazonaws.com" - | _ -> None) - | "sdb" -> - (match region with - | "ap-northeast-1" -> Some "sdb.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> Some "sdb.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "sdb.ap-southeast-2.amazonaws.com" - | "eu-west-1" -> Some "sdb.eu-west-1.amazonaws.com" - | "sa-east-1" -> Some "sdb.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "sdb.amazonaws.com" - | "us-west-1" -> Some "sdb.us-west-1.amazonaws.com" - | "us-west-2" -> Some "sdb.us-west-2.amazonaws.com" - | _ -> None) - | "secretsmanager" -> - (match region with - | "ap-northeast-1" -> - Some "secretsmanager.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "secretsmanager.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "secretsmanager.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "secretsmanager.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "secretsmanager.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "secretsmanager.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "secretsmanager.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "secretsmanager.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "secretsmanager.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "secretsmanager.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "secretsmanager.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "secretsmanager.us-east-1.amazonaws.com" - | "us-east-1-fips" -> - Some "secretsmanager-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "secretsmanager.us-east-2.amazonaws.com" - | "us-east-2-fips" -> - Some "secretsmanager-fips.us-east-2.amazonaws.com" - | "us-west-1" -> Some "secretsmanager.us-west-1.amazonaws.com" - | "us-west-1-fips" -> - Some "secretsmanager-fips.us-west-1.amazonaws.com" - | "us-west-2" -> Some "secretsmanager.us-west-2.amazonaws.com" - | "us-west-2-fips" -> - Some "secretsmanager-fips.us-west-2.amazonaws.com" - | _ -> None) - | "securityhub" -> - (match region with - | "ap-northeast-1" -> Some "securityhub.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "securityhub.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "securityhub.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "securityhub.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "securityhub.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "securityhub.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "securityhub.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "securityhub.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "securityhub.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "securityhub.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "securityhub.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "securityhub.us-east-1.amazonaws.com" - | "us-east-2" -> Some "securityhub.us-east-2.amazonaws.com" - | "us-west-1" -> Some "securityhub.us-west-1.amazonaws.com" - | "us-west-2" -> Some "securityhub.us-west-2.amazonaws.com" - | _ -> None) - | "serverlessrepo" -> - (match region with - | "ap-northeast-1" -> - Some "serverlessrepo.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "serverlessrepo.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "serverlessrepo.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "serverlessrepo.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "serverlessrepo.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "serverlessrepo.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "serverlessrepo.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "serverlessrepo.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "serverlessrepo.eu-west-2.amazonaws.com" - | "sa-east-1" -> Some "serverlessrepo.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "serverlessrepo.us-east-1.amazonaws.com" - | "us-east-2" -> Some "serverlessrepo.us-east-2.amazonaws.com" - | "us-west-1" -> Some "serverlessrepo.us-west-1.amazonaws.com" - | "us-west-2" -> Some "serverlessrepo.us-west-2.amazonaws.com" - | _ -> None) - | "servicecatalog" -> - (match region with - | "ap-northeast-1" -> - Some "servicecatalog.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "servicecatalog.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "servicecatalog.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "servicecatalog.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "servicecatalog.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "servicecatalog.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "servicecatalog.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "servicecatalog.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "servicecatalog.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "servicecatalog.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "servicecatalog.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "servicecatalog.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "servicecatalog.us-east-1.amazonaws.com" - | "us-east-1-fips" -> - Some "servicecatalog-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "servicecatalog.us-east-2.amazonaws.com" - | "us-east-2-fips" -> - Some "servicecatalog-fips.us-east-2.amazonaws.com" - | "us-west-1" -> Some "servicecatalog.us-west-1.amazonaws.com" - | "us-west-1-fips" -> - Some "servicecatalog-fips.us-west-1.amazonaws.com" - | "us-west-2" -> Some "servicecatalog.us-west-2.amazonaws.com" - | "us-west-2-fips" -> - Some "servicecatalog-fips.us-west-2.amazonaws.com" - | _ -> None) - | "servicediscovery" -> - (match region with - | "ap-northeast-1" -> - Some "servicediscovery.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "servicediscovery.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "servicediscovery.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "servicediscovery.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "servicediscovery.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "servicediscovery.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "servicediscovery.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "servicediscovery.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "servicediscovery.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "servicediscovery.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "servicediscovery.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "servicediscovery.us-east-1.amazonaws.com" - | "us-east-2" -> Some "servicediscovery.us-east-2.amazonaws.com" - | "us-west-1" -> Some "servicediscovery.us-west-1.amazonaws.com" - | "us-west-2" -> Some "servicediscovery.us-west-2.amazonaws.com" - | _ -> None) - | "shield" -> - (match region with - | "us-east-1" -> Some "shield.us-east-1.amazonaws.com" - | _ -> None) - | "sms" -> - (match region with - | "ap-northeast-1" -> Some "sms.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "sms.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "sms.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "sms.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "sms.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "sms.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "sms.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "sms.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "sms.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "sms.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "sms.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "sms.us-east-1.amazonaws.com" - | "us-east-2" -> Some "sms.us-east-2.amazonaws.com" - | "us-west-1" -> Some "sms.us-west-1.amazonaws.com" - | "us-west-2" -> Some "sms.us-west-2.amazonaws.com" - | _ -> None) - | "snowball" -> - (match region with - | "ap-northeast-1" -> Some "snowball.ap-northeast-1.amazonaws.com" - | "ap-south-1" -> Some "snowball.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "snowball.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "snowball.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "snowball.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "snowball.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "snowball.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "snowball.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "snowball.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "snowball.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "snowball.us-east-1.amazonaws.com" - | "us-east-2" -> Some "snowball.us-east-2.amazonaws.com" - | "us-west-1" -> Some "snowball.us-west-1.amazonaws.com" - | "us-west-2" -> Some "snowball.us-west-2.amazonaws.com" - | _ -> None) - | "sns" -> - (match region with - | "ap-northeast-1" -> Some "sns.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "sns.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "sns.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "sns.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "sns.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "sns.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "sns.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "sns.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "sns.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "sns.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "sns.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "sns.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "sns.us-east-1.amazonaws.com" - | "us-east-2" -> Some "sns.us-east-2.amazonaws.com" - | "us-west-1" -> Some "sns.us-west-1.amazonaws.com" - | "us-west-2" -> Some "sns.us-west-2.amazonaws.com" - | _ -> None) - | "sqs" -> - (match region with - | "ap-northeast-1" -> Some "sqs.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "sqs.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "sqs.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "sqs.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "sqs.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "sqs.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "sqs.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "sqs.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "sqs.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "sqs.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "sqs.eu-west-3.amazonaws.com" - | "fips-us-east-1" -> Some "sqs-fips.us-east-1.amazonaws.com" - | "fips-us-east-2" -> Some "sqs-fips.us-east-2.amazonaws.com" - | "fips-us-west-1" -> Some "sqs-fips.us-west-1.amazonaws.com" - | "fips-us-west-2" -> Some "sqs-fips.us-west-2.amazonaws.com" - | "sa-east-1" -> Some "sqs.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "sqs.us-east-1.amazonaws.com" - | "us-east-2" -> Some "sqs.us-east-2.amazonaws.com" - | "us-west-1" -> Some "sqs.us-west-1.amazonaws.com" - | "us-west-2" -> Some "sqs.us-west-2.amazonaws.com" - | _ -> None) - | "ssm" -> - (match region with - | "ap-northeast-1" -> Some "ssm.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "ssm.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "ssm.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "ssm.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "ssm.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "ssm.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "ssm.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "ssm.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "ssm.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "ssm.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "ssm.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "ssm.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "ssm.us-east-1.amazonaws.com" - | "us-east-2" -> Some "ssm.us-east-2.amazonaws.com" - | "us-west-1" -> Some "ssm.us-west-1.amazonaws.com" - | "us-west-2" -> Some "ssm.us-west-2.amazonaws.com" - | _ -> None) - | "states" -> - (match region with - | "ap-northeast-1" -> Some "states.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "states.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "states.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "states.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "states.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "states.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "states.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "states.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "states.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "states.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "states.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "states.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "states.us-east-1.amazonaws.com" - | "us-east-2" -> Some "states.us-east-2.amazonaws.com" - | "us-west-1" -> Some "states.us-west-1.amazonaws.com" - | "us-west-2" -> Some "states.us-west-2.amazonaws.com" - | _ -> None) - | "storagegateway" -> - (match region with - | "ap-northeast-1" -> - Some "storagegateway.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "storagegateway.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "storagegateway.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "storagegateway.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "storagegateway.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "storagegateway.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "storagegateway.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "storagegateway.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "storagegateway.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "storagegateway.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "storagegateway.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "storagegateway.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "storagegateway.us-east-1.amazonaws.com" - | "us-east-2" -> Some "storagegateway.us-east-2.amazonaws.com" - | "us-west-1" -> Some "storagegateway.us-west-1.amazonaws.com" - | "us-west-2" -> Some "storagegateway.us-west-2.amazonaws.com" - | _ -> None) - | "streams.dynamodb" -> - (match region with - | "ap-northeast-1" -> - Some "streams.dynamodb.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> - Some "streams.dynamodb.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "streams.dynamodb.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> - Some "streams.dynamodb.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> - Some "streams.dynamodb.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "streams.dynamodb.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "streams.dynamodb.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "streams.dynamodb.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "streams.dynamodb.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "streams.dynamodb.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "streams.dynamodb.eu-west-3.amazonaws.com" - | "local" -> Some "localhost:8000" - | "sa-east-1" -> Some "streams.dynamodb.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "streams.dynamodb.us-east-1.amazonaws.com" - | "us-east-2" -> Some "streams.dynamodb.us-east-2.amazonaws.com" - | "us-west-1" -> Some "streams.dynamodb.us-west-1.amazonaws.com" - | "us-west-2" -> Some "streams.dynamodb.us-west-2.amazonaws.com" - | _ -> None) - | "sts" -> - (match region with - | "ap-northeast-1" -> Some "sts.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "sts.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "sts.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "sts.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "sts.ap-southeast-2.amazonaws.com" - | "aws-global" -> Some "sts.aws-global.amazonaws.com" - | "ca-central-1" -> Some "sts.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "sts.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "sts.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "sts.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "sts.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "sts.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "sts.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "sts.us-east-1.amazonaws.com" - | "us-east-1-fips" -> Some "sts-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "sts.us-east-2.amazonaws.com" - | "us-east-2-fips" -> Some "sts-fips.us-east-2.amazonaws.com" - | "us-west-1" -> Some "sts.us-west-1.amazonaws.com" - | "us-west-1-fips" -> Some "sts-fips.us-west-1.amazonaws.com" - | "us-west-2" -> Some "sts.us-west-2.amazonaws.com" - | "us-west-2-fips" -> Some "sts-fips.us-west-2.amazonaws.com" - | _ -> None) - | "support" -> - (match region with - | "us-east-1" -> Some "support.us-east-1.amazonaws.com" - | _ -> None) - | "swf" -> - (match region with - | "ap-northeast-1" -> Some "swf.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "swf.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "swf.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "swf.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "swf.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "swf.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "swf.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "swf.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "swf.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "swf.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "swf.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "swf.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "swf.us-east-1.amazonaws.com" - | "us-east-2" -> Some "swf.us-east-2.amazonaws.com" - | "us-west-1" -> Some "swf.us-west-1.amazonaws.com" - | "us-west-2" -> Some "swf.us-west-2.amazonaws.com" - | _ -> None) - | "tagging" -> - (match region with - | "ap-northeast-1" -> Some "tagging.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "tagging.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "tagging.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "tagging.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "tagging.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "tagging.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "tagging.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "tagging.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "tagging.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "tagging.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "tagging.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "tagging.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "tagging.us-east-1.amazonaws.com" - | "us-east-2" -> Some "tagging.us-east-2.amazonaws.com" - | "us-west-1" -> Some "tagging.us-west-1.amazonaws.com" - | "us-west-2" -> Some "tagging.us-west-2.amazonaws.com" - | _ -> None) - | "transfer" -> - (match region with - | "ap-northeast-1" -> Some "transfer.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "transfer.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "transfer.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "transfer.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "transfer.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "transfer.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "transfer.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "transfer.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "transfer.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "transfer.eu-west-3.amazonaws.com" - | "us-east-1" -> Some "transfer.us-east-1.amazonaws.com" - | "us-east-2" -> Some "transfer.us-east-2.amazonaws.com" - | "us-west-1" -> Some "transfer.us-west-1.amazonaws.com" - | "us-west-2" -> Some "transfer.us-west-2.amazonaws.com" - | _ -> None) - | "translate" -> - (match region with - | "eu-west-1" -> Some "translate.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "translate.us-east-1.amazonaws.com" - | "us-east-1-fips" -> Some "translate-fips.us-east-1.amazonaws.com" - | "us-east-2" -> Some "translate.us-east-2.amazonaws.com" - | "us-east-2-fips" -> Some "translate-fips.us-east-2.amazonaws.com" - | "us-west-2" -> Some "translate.us-west-2.amazonaws.com" - | "us-west-2-fips" -> Some "translate-fips.us-west-2.amazonaws.com" - | _ -> None) - | "waf" -> - (match region with - | "aws-global" -> Some "waf.amazonaws.com" - | _ -> None) - | "waf-regional" -> - (match region with - | "ap-northeast-1" -> Some "waf-regional.ap-northeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "waf-regional.ap-southeast-2.amazonaws.com" - | "eu-central-1" -> Some "waf-regional.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "waf-regional.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "waf-regional.us-east-1.amazonaws.com" - | "us-east-2" -> Some "waf-regional.us-east-2.amazonaws.com" - | "us-west-1" -> Some "waf-regional.us-west-1.amazonaws.com" - | "us-west-2" -> Some "waf-regional.us-west-2.amazonaws.com" - | _ -> None) - | "workdocs" -> - (match region with - | "ap-northeast-1" -> Some "workdocs.ap-northeast-1.amazonaws.com" - | "ap-southeast-1" -> Some "workdocs.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "workdocs.ap-southeast-2.amazonaws.com" - | "eu-west-1" -> Some "workdocs.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "workdocs.us-east-1.amazonaws.com" - | "us-west-2" -> Some "workdocs.us-west-2.amazonaws.com" - | _ -> None) - | "workmail" -> - (match region with - | "eu-west-1" -> Some "workmail.eu-west-1.amazonaws.com" - | "us-east-1" -> Some "workmail.us-east-1.amazonaws.com" - | "us-west-2" -> Some "workmail.us-west-2.amazonaws.com" - | _ -> None) - | "workspaces" -> - (match region with - | "ap-northeast-1" -> Some "workspaces.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "workspaces.ap-northeast-2.amazonaws.com" - | "ap-southeast-1" -> Some "workspaces.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "workspaces.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "workspaces.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "workspaces.eu-central-1.amazonaws.com" - | "eu-west-1" -> Some "workspaces.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "workspaces.eu-west-2.amazonaws.com" - | "sa-east-1" -> Some "workspaces.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "workspaces.us-east-1.amazonaws.com" - | "us-west-2" -> Some "workspaces.us-west-2.amazonaws.com" - | _ -> None) - | "xray" -> - (match region with - | "ap-northeast-1" -> Some "xray.ap-northeast-1.amazonaws.com" - | "ap-northeast-2" -> Some "xray.ap-northeast-2.amazonaws.com" - | "ap-south-1" -> Some "xray.ap-south-1.amazonaws.com" - | "ap-southeast-1" -> Some "xray.ap-southeast-1.amazonaws.com" - | "ap-southeast-2" -> Some "xray.ap-southeast-2.amazonaws.com" - | "ca-central-1" -> Some "xray.ca-central-1.amazonaws.com" - | "eu-central-1" -> Some "xray.eu-central-1.amazonaws.com" - | "eu-north-1" -> Some "xray.eu-north-1.amazonaws.com" - | "eu-west-1" -> Some "xray.eu-west-1.amazonaws.com" - | "eu-west-2" -> Some "xray.eu-west-2.amazonaws.com" - | "eu-west-3" -> Some "xray.eu-west-3.amazonaws.com" - | "sa-east-1" -> Some "xray.sa-east-1.amazonaws.com" - | "us-east-1" -> Some "xray.us-east-1.amazonaws.com" - | "us-east-2" -> Some "xray.us-east-2.amazonaws.com" - | "us-west-1" -> Some "xray.us-west-1.amazonaws.com" - | "us-west-2" -> Some "xray.us-west-2.amazonaws.com" - | _ -> None) + | "a4b" -> ( + match region with + | "us-east-1" -> Some "a4b.us-east-1.amazonaws.com" + | _ -> None) + | "acm" -> ( + match region with + | "ap-northeast-1" -> Some "acm.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "acm.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "acm.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "acm.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "acm.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "acm.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "acm.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "acm.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "acm.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "acm.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "acm.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "acm.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "acm.us-east-1.amazonaws.com" + | "us-east-2" -> Some "acm.us-east-2.amazonaws.com" + | "us-west-1" -> Some "acm.us-west-1.amazonaws.com" + | "us-west-2" -> Some "acm.us-west-2.amazonaws.com" + | _ -> None) + | "acm-pca" -> ( + match region with + | "ap-northeast-1" -> Some "acm-pca.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "acm-pca.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "acm-pca.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "acm-pca.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "acm-pca.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "acm-pca.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "acm-pca.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "acm-pca.us-east-1.amazonaws.com" + | "us-east-2" -> Some "acm-pca.us-east-2.amazonaws.com" + | "us-west-2" -> Some "acm-pca.us-west-2.amazonaws.com" + | _ -> None) + | "api.ecr" -> ( + match region with + | "ap-northeast-1" -> Some "api.ecr.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "api.ecr.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "api.ecr.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "api.ecr.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "api.ecr.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "api.ecr.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "api.ecr.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "api.ecr.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "api.ecr.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "api.ecr.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "api.ecr.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "api.ecr.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "api.ecr.us-east-1.amazonaws.com" + | "us-east-2" -> Some "api.ecr.us-east-2.amazonaws.com" + | "us-west-1" -> Some "api.ecr.us-west-1.amazonaws.com" + | "us-west-2" -> Some "api.ecr.us-west-2.amazonaws.com" + | _ -> None) + | "api.mediatailor" -> ( + match region with + | "ap-northeast-1" -> Some "api.mediatailor.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "api.mediatailor.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "api.mediatailor.ap-southeast-2.amazonaws.com" + | "eu-west-1" -> Some "api.mediatailor.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "api.mediatailor.us-east-1.amazonaws.com" + | "us-west-2" -> Some "api.mediatailor.us-west-2.amazonaws.com" + | _ -> None) + | "api.pricing" -> ( + match region with + | "ap-south-1" -> Some "api.pricing.ap-south-1.amazonaws.com" + | "us-east-1" -> Some "api.pricing.us-east-1.amazonaws.com" + | _ -> None) + | "api.sagemaker" -> ( + match region with + | "ap-northeast-1" -> Some "api.sagemaker.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "api.sagemaker.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "api.sagemaker.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "api.sagemaker.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "api.sagemaker.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "api.sagemaker.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "api.sagemaker.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "api.sagemaker.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "api.sagemaker.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "api.sagemaker.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "api-fips.sagemaker.us-east-1.amazonaws.com" + | "us-east-2" -> Some "api.sagemaker.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "api-fips.sagemaker.us-east-2.amazonaws.com" + | "us-west-1" -> Some "api.sagemaker.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "api-fips.sagemaker.us-west-1.amazonaws.com" + | "us-west-2" -> Some "api.sagemaker.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "api-fips.sagemaker.us-west-2.amazonaws.com" + | _ -> None) + | "apigateway" -> ( + match region with + | "ap-northeast-1" -> Some "apigateway.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "apigateway.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "apigateway.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "apigateway.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "apigateway.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "apigateway.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "apigateway.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "apigateway.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "apigateway.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "apigateway.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "apigateway.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "apigateway.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "apigateway.us-east-1.amazonaws.com" + | "us-east-2" -> Some "apigateway.us-east-2.amazonaws.com" + | "us-west-1" -> Some "apigateway.us-west-1.amazonaws.com" + | "us-west-2" -> Some "apigateway.us-west-2.amazonaws.com" + | _ -> None) + | "application-autoscaling" -> ( + match region with + | "ap-northeast-1" -> Some "application-autoscaling.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "application-autoscaling.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "application-autoscaling.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "application-autoscaling.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "application-autoscaling.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "application-autoscaling.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "application-autoscaling.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "application-autoscaling.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "application-autoscaling.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "application-autoscaling.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "application-autoscaling.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "application-autoscaling.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "application-autoscaling.us-east-1.amazonaws.com" + | "us-east-2" -> Some "application-autoscaling.us-east-2.amazonaws.com" + | "us-west-1" -> Some "application-autoscaling.us-west-1.amazonaws.com" + | "us-west-2" -> Some "application-autoscaling.us-west-2.amazonaws.com" + | _ -> None) + | "appstream2" -> ( + match region with + | "ap-northeast-1" -> Some "appstream2.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "appstream2.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "appstream2.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "appstream2.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "appstream2.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "appstream2.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "appstream2.us-east-1.amazonaws.com" + | "us-west-2" -> Some "appstream2.us-west-2.amazonaws.com" + | _ -> None) + | "appsync" -> ( + match region with + | "ap-northeast-1" -> Some "appsync.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "appsync.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "appsync.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "appsync.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "appsync.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "appsync.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "appsync.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "appsync.us-east-1.amazonaws.com" + | "us-east-2" -> Some "appsync.us-east-2.amazonaws.com" + | "us-west-2" -> Some "appsync.us-west-2.amazonaws.com" + | _ -> None) + | "athena" -> ( + match region with + | "ap-northeast-1" -> Some "athena.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "athena.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "athena.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "athena.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "athena.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "athena.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "athena.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "athena.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "athena.us-east-1.amazonaws.com" + | "us-east-2" -> Some "athena.us-east-2.amazonaws.com" + | "us-west-2" -> Some "athena.us-west-2.amazonaws.com" + | _ -> None) + | "autoscaling" -> ( + match region with + | "ap-northeast-1" -> Some "autoscaling.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "autoscaling.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "autoscaling.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "autoscaling.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "autoscaling.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "autoscaling.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "autoscaling.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "autoscaling.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "autoscaling.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "autoscaling.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "autoscaling.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "autoscaling.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "autoscaling.us-east-1.amazonaws.com" + | "us-east-2" -> Some "autoscaling.us-east-2.amazonaws.com" + | "us-west-1" -> Some "autoscaling.us-west-1.amazonaws.com" + | "us-west-2" -> Some "autoscaling.us-west-2.amazonaws.com" + | _ -> None) + | "autoscaling-plans" -> ( + match region with + | "ap-northeast-1" -> Some "autoscaling-plans.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "autoscaling-plans.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "autoscaling-plans.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "autoscaling-plans.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "autoscaling-plans.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "autoscaling-plans.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "autoscaling-plans.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "autoscaling-plans.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "autoscaling-plans.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "autoscaling-plans.us-east-1.amazonaws.com" + | "us-east-2" -> Some "autoscaling-plans.us-east-2.amazonaws.com" + | "us-west-1" -> Some "autoscaling-plans.us-west-1.amazonaws.com" + | "us-west-2" -> Some "autoscaling-plans.us-west-2.amazonaws.com" + | _ -> None) + | "batch" -> ( + match region with + | "ap-northeast-1" -> Some "batch.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "batch.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "batch.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "batch.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "batch.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "batch.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "batch.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "batch.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "batch.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "batch.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "batch.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "batch.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "batch.us-east-1.amazonaws.com" + | "us-east-2" -> Some "batch.us-east-2.amazonaws.com" + | "us-west-1" -> Some "batch.us-west-1.amazonaws.com" + | "us-west-2" -> Some "batch.us-west-2.amazonaws.com" + | _ -> None) + | "budgets" -> ( + match region with + | "aws-global" -> Some "budgets.amazonaws.com" + | _ -> None) + | "ce" -> ( + match region with + | "aws-global" -> Some "ce.us-east-1.amazonaws.com" + | _ -> None) + | "chime" -> ( + match region with + | "aws-global" -> Some "service.chime.aws.amazon.com" + | _ -> None) + | "cloud9" -> ( + match region with + | "ap-southeast-1" -> Some "cloud9.ap-southeast-1.amazonaws.com" + | "eu-west-1" -> Some "cloud9.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "cloud9.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cloud9.us-east-2.amazonaws.com" + | "us-west-2" -> Some "cloud9.us-west-2.amazonaws.com" + | _ -> None) + | "clouddirectory" -> ( + match region with + | "ap-southeast-1" -> Some "clouddirectory.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "clouddirectory.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "clouddirectory.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "clouddirectory.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "clouddirectory.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "clouddirectory.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "clouddirectory.us-east-1.amazonaws.com" + | "us-east-2" -> Some "clouddirectory.us-east-2.amazonaws.com" + | "us-west-2" -> Some "clouddirectory.us-west-2.amazonaws.com" + | _ -> None) + | "cloudformation" -> ( + match region with + | "ap-northeast-1" -> Some "cloudformation.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cloudformation.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "cloudformation.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "cloudformation.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cloudformation.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "cloudformation.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "cloudformation.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "cloudformation.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "cloudformation.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "cloudformation.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "cloudformation.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "cloudformation.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "cloudformation.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cloudformation.us-east-2.amazonaws.com" + | "us-west-1" -> Some "cloudformation.us-west-1.amazonaws.com" + | "us-west-2" -> Some "cloudformation.us-west-2.amazonaws.com" + | _ -> None) + | "cloudfront" -> ( + match region with + | "aws-global" -> Some "cloudfront.amazonaws.com" + | _ -> None) + | "cloudhsm" -> ( + match region with + | "ap-northeast-1" -> Some "cloudhsm.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "cloudhsm.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cloudhsm.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "cloudhsm.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "cloudhsm.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "cloudhsm.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "cloudhsm.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cloudhsm.us-east-2.amazonaws.com" + | "us-west-1" -> Some "cloudhsm.us-west-1.amazonaws.com" + | "us-west-2" -> Some "cloudhsm.us-west-2.amazonaws.com" + | _ -> None) + | "cloudhsmv2" -> ( + match region with + | "ap-northeast-1" -> Some "cloudhsmv2.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cloudhsmv2.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "cloudhsmv2.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "cloudhsmv2.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cloudhsmv2.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "cloudhsmv2.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "cloudhsmv2.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "cloudhsmv2.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "cloudhsmv2.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "cloudhsmv2.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "cloudhsmv2.eu-west-3.amazonaws.com" + | "us-east-1" -> Some "cloudhsmv2.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cloudhsmv2.us-east-2.amazonaws.com" + | "us-west-1" -> Some "cloudhsmv2.us-west-1.amazonaws.com" + | "us-west-2" -> Some "cloudhsmv2.us-west-2.amazonaws.com" + | _ -> None) + | "cloudsearch" -> ( + match region with + | "ap-northeast-1" -> Some "cloudsearch.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cloudsearch.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "cloudsearch.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cloudsearch.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "cloudsearch.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "cloudsearch.eu-west-1.amazonaws.com" + | "sa-east-1" -> Some "cloudsearch.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "cloudsearch.us-east-1.amazonaws.com" + | "us-west-1" -> Some "cloudsearch.us-west-1.amazonaws.com" + | "us-west-2" -> Some "cloudsearch.us-west-2.amazonaws.com" + | _ -> None) + | "cloudtrail" -> ( + match region with + | "ap-northeast-1" -> Some "cloudtrail.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cloudtrail.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "cloudtrail.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "cloudtrail.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cloudtrail.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "cloudtrail.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "cloudtrail.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "cloudtrail.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "cloudtrail.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "cloudtrail.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "cloudtrail.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "cloudtrail.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "cloudtrail.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cloudtrail.us-east-2.amazonaws.com" + | "us-west-1" -> Some "cloudtrail.us-west-1.amazonaws.com" + | "us-west-2" -> Some "cloudtrail.us-west-2.amazonaws.com" + | _ -> None) + | "codebuild" -> ( + match region with + | "ap-northeast-1" -> Some "codebuild.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "codebuild.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "codebuild.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "codebuild.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "codebuild.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "codebuild.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "codebuild.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "codebuild.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "codebuild.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "codebuild.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "codebuild.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "codebuild.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "codebuild-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "codebuild.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "codebuild-fips.us-east-2.amazonaws.com" + | "us-west-1" -> Some "codebuild.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "codebuild-fips.us-west-1.amazonaws.com" + | "us-west-2" -> Some "codebuild.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "codebuild-fips.us-west-2.amazonaws.com" + | _ -> None) + | "codecommit" -> ( + match region with + | "ap-northeast-1" -> Some "codecommit.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "codecommit.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "codecommit.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "codecommit.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "codecommit.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "codecommit.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "codecommit.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "codecommit.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "codecommit.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "codecommit.eu-west-3.amazonaws.com" + | "fips" -> Some "codecommit-fips.ca-central-1.amazonaws.com" + | "sa-east-1" -> Some "codecommit.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "codecommit.us-east-1.amazonaws.com" + | "us-east-2" -> Some "codecommit.us-east-2.amazonaws.com" + | "us-west-1" -> Some "codecommit.us-west-1.amazonaws.com" + | "us-west-2" -> Some "codecommit.us-west-2.amazonaws.com" + | _ -> None) + | "codedeploy" -> ( + match region with + | "ap-northeast-1" -> Some "codedeploy.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "codedeploy.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "codedeploy.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "codedeploy.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "codedeploy.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "codedeploy.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "codedeploy.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "codedeploy.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "codedeploy.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "codedeploy.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "codedeploy.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "codedeploy.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "codedeploy.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "codedeploy-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "codedeploy.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "codedeploy-fips.us-east-2.amazonaws.com" + | "us-west-1" -> Some "codedeploy.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "codedeploy-fips.us-west-1.amazonaws.com" + | "us-west-2" -> Some "codedeploy.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "codedeploy-fips.us-west-2.amazonaws.com" + | _ -> None) + | "codepipeline" -> ( + match region with + | "ap-northeast-1" -> Some "codepipeline.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "codepipeline.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "codepipeline.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "codepipeline.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "codepipeline.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "codepipeline.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "codepipeline.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "codepipeline.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "codepipeline.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "codepipeline.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "codepipeline.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "codepipeline.us-east-1.amazonaws.com" + | "us-east-2" -> Some "codepipeline.us-east-2.amazonaws.com" + | "us-west-1" -> Some "codepipeline.us-west-1.amazonaws.com" + | "us-west-2" -> Some "codepipeline.us-west-2.amazonaws.com" + | _ -> None) + | "codestar" -> ( + match region with + | "ap-northeast-1" -> Some "codestar.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "codestar.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "codestar.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "codestar.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "codestar.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "codestar.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "codestar.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "codestar.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "codestar.us-east-1.amazonaws.com" + | "us-east-2" -> Some "codestar.us-east-2.amazonaws.com" + | "us-west-1" -> Some "codestar.us-west-1.amazonaws.com" + | "us-west-2" -> Some "codestar.us-west-2.amazonaws.com" + | _ -> None) + | "cognito-identity" -> ( + match region with + | "ap-northeast-1" -> Some "cognito-identity.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cognito-identity.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "cognito-identity.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "cognito-identity.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cognito-identity.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "cognito-identity.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "cognito-identity.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "cognito-identity.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "cognito-identity.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "cognito-identity.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cognito-identity.us-east-2.amazonaws.com" + | "us-west-2" -> Some "cognito-identity.us-west-2.amazonaws.com" + | _ -> None) + | "cognito-idp" -> ( + match region with + | "ap-northeast-1" -> Some "cognito-idp.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cognito-idp.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "cognito-idp.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "cognito-idp.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cognito-idp.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "cognito-idp.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "cognito-idp.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "cognito-idp.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "cognito-idp.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "cognito-idp.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cognito-idp.us-east-2.amazonaws.com" + | "us-west-2" -> Some "cognito-idp.us-west-2.amazonaws.com" + | _ -> None) + | "cognito-sync" -> ( + match region with + | "ap-northeast-1" -> Some "cognito-sync.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "cognito-sync.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "cognito-sync.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "cognito-sync.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "cognito-sync.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "cognito-sync.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "cognito-sync.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "cognito-sync.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "cognito-sync.us-east-1.amazonaws.com" + | "us-east-2" -> Some "cognito-sync.us-east-2.amazonaws.com" + | "us-west-2" -> Some "cognito-sync.us-west-2.amazonaws.com" + | _ -> None) + | "comprehend" -> ( + match region with + | "ap-southeast-1" -> Some "comprehend.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "comprehend.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "comprehend.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "comprehend.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "comprehend.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "comprehend.us-east-1.amazonaws.com" + | "us-east-2" -> Some "comprehend.us-east-2.amazonaws.com" + | "us-west-2" -> Some "comprehend.us-west-2.amazonaws.com" + | _ -> None) + | "config" -> ( + match region with + | "ap-northeast-1" -> Some "config.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "config.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "config.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "config.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "config.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "config.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "config.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "config.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "config.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "config.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "config.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "config.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "config.us-east-1.amazonaws.com" + | "us-east-2" -> Some "config.us-east-2.amazonaws.com" + | "us-west-1" -> Some "config.us-west-1.amazonaws.com" + | "us-west-2" -> Some "config.us-west-2.amazonaws.com" + | _ -> None) + | "cur" -> ( + match region with + | "us-east-1" -> Some "cur.us-east-1.amazonaws.com" + | _ -> None) + | "data.iot" -> ( + match region with + | "ap-northeast-1" -> Some "data.iot.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "data.iot.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "data.iot.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "data.iot.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "data.iot.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "data.iot.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "data.iot.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "data.iot.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "data.iot.us-east-1.amazonaws.com" + | "us-east-2" -> Some "data.iot.us-east-2.amazonaws.com" + | "us-west-2" -> Some "data.iot.us-west-2.amazonaws.com" + | _ -> None) + | "datapipeline" -> ( + match region with + | "ap-northeast-1" -> Some "datapipeline.ap-northeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "datapipeline.ap-southeast-2.amazonaws.com" + | "eu-west-1" -> Some "datapipeline.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "datapipeline.us-east-1.amazonaws.com" + | "us-west-2" -> Some "datapipeline.us-west-2.amazonaws.com" + | _ -> None) + | "datasync" -> ( + match region with + | "ap-northeast-1" -> Some "datasync.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "datasync.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "datasync.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "datasync.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "datasync.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "datasync.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "datasync.us-east-1.amazonaws.com" + | "us-east-2" -> Some "datasync.us-east-2.amazonaws.com" + | "us-west-1" -> Some "datasync.us-west-1.amazonaws.com" + | "us-west-2" -> Some "datasync.us-west-2.amazonaws.com" + | _ -> None) + | "dax" -> ( + match region with + | "ap-northeast-1" -> Some "dax.ap-northeast-1.amazonaws.com" + | "ap-south-1" -> Some "dax.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "dax.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "dax.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "dax.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "dax.eu-west-1.amazonaws.com" + | "sa-east-1" -> Some "dax.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "dax.us-east-1.amazonaws.com" + | "us-east-2" -> Some "dax.us-east-2.amazonaws.com" + | "us-west-1" -> Some "dax.us-west-1.amazonaws.com" + | "us-west-2" -> Some "dax.us-west-2.amazonaws.com" + | _ -> None) + | "devicefarm" -> ( + match region with + | "us-west-2" -> Some "devicefarm.us-west-2.amazonaws.com" + | _ -> None) + | "directconnect" -> ( + match region with + | "ap-northeast-1" -> Some "directconnect.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "directconnect.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "directconnect.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "directconnect.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "directconnect.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "directconnect.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "directconnect.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "directconnect.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "directconnect.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "directconnect.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "directconnect.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "directconnect.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "directconnect.us-east-1.amazonaws.com" + | "us-east-2" -> Some "directconnect.us-east-2.amazonaws.com" + | "us-west-1" -> Some "directconnect.us-west-1.amazonaws.com" + | "us-west-2" -> Some "directconnect.us-west-2.amazonaws.com" + | _ -> None) + | "discovery" -> ( + match region with + | "us-west-2" -> Some "discovery.us-west-2.amazonaws.com" + | _ -> None) + | "dms" -> ( + match region with + | "ap-northeast-1" -> Some "dms.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "dms.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "dms.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "dms.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "dms.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "dms.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "dms.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "dms.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "dms.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "dms.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "dms.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "dms.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "dms.us-east-1.amazonaws.com" + | "us-east-2" -> Some "dms.us-east-2.amazonaws.com" + | "us-west-1" -> Some "dms.us-west-1.amazonaws.com" + | "us-west-2" -> Some "dms.us-west-2.amazonaws.com" + | _ -> None) + | "docdb" -> ( + match region with + | "eu-west-1" -> Some "rds.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "rds.us-east-1.amazonaws.com" + | "us-east-2" -> Some "rds.us-east-2.amazonaws.com" + | "us-west-2" -> Some "rds.us-west-2.amazonaws.com" + | _ -> None) + | "ds" -> ( + match region with + | "ap-northeast-1" -> Some "ds.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "ds.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "ds.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "ds.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "ds.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "ds.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "ds.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "ds.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "ds.eu-west-2.amazonaws.com" + | "sa-east-1" -> Some "ds.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "ds.us-east-1.amazonaws.com" + | "us-east-2" -> Some "ds.us-east-2.amazonaws.com" + | "us-west-1" -> Some "ds.us-west-1.amazonaws.com" + | "us-west-2" -> Some "ds.us-west-2.amazonaws.com" + | _ -> None) + | "dynamodb" -> ( + match region with + | "ap-northeast-1" -> Some "dynamodb.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "dynamodb.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "dynamodb.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "dynamodb.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "dynamodb.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "dynamodb.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "dynamodb.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "dynamodb.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "dynamodb.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "dynamodb.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "dynamodb.eu-west-3.amazonaws.com" + | "local" -> Some "localhost:8000" + | "sa-east-1" -> Some "dynamodb.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "dynamodb.us-east-1.amazonaws.com" + | "us-east-2" -> Some "dynamodb.us-east-2.amazonaws.com" + | "us-west-1" -> Some "dynamodb.us-west-1.amazonaws.com" + | "us-west-2" -> Some "dynamodb.us-west-2.amazonaws.com" + | _ -> None) + | "ec2" -> ( + match region with + | "ap-northeast-1" -> Some "ec2.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "ec2.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "ec2.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "ec2.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "ec2.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "ec2.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "ec2.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "ec2.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "ec2.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "ec2.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "ec2.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "ec2.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "ec2.us-east-1.amazonaws.com" + | "us-east-2" -> Some "ec2.us-east-2.amazonaws.com" + | "us-west-1" -> Some "ec2.us-west-1.amazonaws.com" + | "us-west-2" -> Some "ec2.us-west-2.amazonaws.com" + | _ -> None) + | "ecs" -> ( + match region with + | "ap-northeast-1" -> Some "ecs.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "ecs.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "ecs.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "ecs.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "ecs.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "ecs.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "ecs.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "ecs.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "ecs.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "ecs.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "ecs.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "ecs.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "ecs.us-east-1.amazonaws.com" + | "us-east-2" -> Some "ecs.us-east-2.amazonaws.com" + | "us-west-1" -> Some "ecs.us-west-1.amazonaws.com" + | "us-west-2" -> Some "ecs.us-west-2.amazonaws.com" + | _ -> None) + | "elasticache" -> ( + match region with + | "ap-northeast-1" -> Some "elasticache.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "elasticache.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "elasticache.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "elasticache.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "elasticache.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "elasticache.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "elasticache.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "elasticache.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "elasticache.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "elasticache.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "elasticache.eu-west-3.amazonaws.com" + | "fips" -> Some "elasticache-fips.us-west-1.amazonaws.com" + | "sa-east-1" -> Some "elasticache.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "elasticache.us-east-1.amazonaws.com" + | "us-east-2" -> Some "elasticache.us-east-2.amazonaws.com" + | "us-west-1" -> Some "elasticache.us-west-1.amazonaws.com" + | "us-west-2" -> Some "elasticache.us-west-2.amazonaws.com" + | _ -> None) + | "elasticbeanstalk" -> ( + match region with + | "ap-northeast-1" -> Some "elasticbeanstalk.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "elasticbeanstalk.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "elasticbeanstalk.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "elasticbeanstalk.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "elasticbeanstalk.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "elasticbeanstalk.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "elasticbeanstalk.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "elasticbeanstalk.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "elasticbeanstalk.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "elasticbeanstalk.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "elasticbeanstalk.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "elasticbeanstalk.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "elasticbeanstalk.us-east-1.amazonaws.com" + | "us-east-2" -> Some "elasticbeanstalk.us-east-2.amazonaws.com" + | "us-west-1" -> Some "elasticbeanstalk.us-west-1.amazonaws.com" + | "us-west-2" -> Some "elasticbeanstalk.us-west-2.amazonaws.com" + | _ -> None) + | "elasticfilesystem" -> ( + match region with + | "ap-northeast-1" -> Some "elasticfilesystem.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "elasticfilesystem.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "elasticfilesystem.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "elasticfilesystem.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "elasticfilesystem.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "elasticfilesystem.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "elasticfilesystem.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "elasticfilesystem.us-east-1.amazonaws.com" + | "us-east-2" -> Some "elasticfilesystem.us-east-2.amazonaws.com" + | "us-west-1" -> Some "elasticfilesystem.us-west-1.amazonaws.com" + | "us-west-2" -> Some "elasticfilesystem.us-west-2.amazonaws.com" + | _ -> None) + | "elasticloadbalancing" -> ( + match region with + | "ap-northeast-1" -> Some "elasticloadbalancing.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "elasticloadbalancing.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "elasticloadbalancing.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "elasticloadbalancing.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "elasticloadbalancing.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "elasticloadbalancing.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "elasticloadbalancing.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "elasticloadbalancing.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "elasticloadbalancing.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "elasticloadbalancing.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "elasticloadbalancing.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "elasticloadbalancing.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "elasticloadbalancing.us-east-1.amazonaws.com" + | "us-east-2" -> Some "elasticloadbalancing.us-east-2.amazonaws.com" + | "us-west-1" -> Some "elasticloadbalancing.us-west-1.amazonaws.com" + | "us-west-2" -> Some "elasticloadbalancing.us-west-2.amazonaws.com" + | _ -> None) + | "elasticmapreduce" -> ( + match region with + | "ap-northeast-1" -> Some "elasticmapreduce.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "elasticmapreduce.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "elasticmapreduce.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "elasticmapreduce.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "elasticmapreduce.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "elasticmapreduce.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "elasticmapreduce.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "elasticmapreduce.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "elasticmapreduce.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "elasticmapreduce.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "elasticmapreduce.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "elasticmapreduce.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "elasticmapreduce.us-east-1.amazonaws.com" + | "us-east-2" -> Some "elasticmapreduce.us-east-2.amazonaws.com" + | "us-west-1" -> Some "elasticmapreduce.us-west-1.amazonaws.com" + | "us-west-2" -> Some "elasticmapreduce.us-west-2.amazonaws.com" + | _ -> None) + | "elastictranscoder" -> ( + match region with + | "ap-northeast-1" -> Some "elastictranscoder.ap-northeast-1.amazonaws.com" + | "ap-south-1" -> Some "elastictranscoder.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "elastictranscoder.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "elastictranscoder.ap-southeast-2.amazonaws.com" + | "eu-west-1" -> Some "elastictranscoder.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "elastictranscoder.us-east-1.amazonaws.com" + | "us-west-1" -> Some "elastictranscoder.us-west-1.amazonaws.com" + | "us-west-2" -> Some "elastictranscoder.us-west-2.amazonaws.com" + | _ -> None) + | "email" -> ( + match region with + | "eu-west-1" -> Some "email.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "email.us-east-1.amazonaws.com" + | "us-west-2" -> Some "email.us-west-2.amazonaws.com" + | _ -> None) + | "entitlement.marketplace" -> ( + match region with + | "us-east-1" -> Some "entitlement.marketplace.us-east-1.amazonaws.com" + | _ -> None) + | "es" -> ( + match region with + | "ap-northeast-1" -> Some "es.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "es.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "es.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "es.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "es.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "es.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "es.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "es.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "es.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "es.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "es.eu-west-3.amazonaws.com" + | "fips" -> Some "es-fips.us-west-1.amazonaws.com" + | "sa-east-1" -> Some "es.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "es.us-east-1.amazonaws.com" + | "us-east-2" -> Some "es.us-east-2.amazonaws.com" + | "us-west-1" -> Some "es.us-west-1.amazonaws.com" + | "us-west-2" -> Some "es.us-west-2.amazonaws.com" + | _ -> None) + | "events" -> ( + match region with + | "ap-northeast-1" -> Some "events.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "events.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "events.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "events.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "events.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "events.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "events.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "events.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "events.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "events.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "events.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "events.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "events.us-east-1.amazonaws.com" + | "us-east-2" -> Some "events.us-east-2.amazonaws.com" + | "us-west-1" -> Some "events.us-west-1.amazonaws.com" + | "us-west-2" -> Some "events.us-west-2.amazonaws.com" + | _ -> None) + | "firehose" -> ( + match region with + | "ap-northeast-1" -> Some "firehose.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "firehose.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "firehose.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "firehose.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "firehose.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "firehose.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "firehose.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "firehose.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "firehose.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "firehose.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "firehose.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "firehose.us-east-1.amazonaws.com" + | "us-east-2" -> Some "firehose.us-east-2.amazonaws.com" + | "us-west-1" -> Some "firehose.us-west-1.amazonaws.com" + | "us-west-2" -> Some "firehose.us-west-2.amazonaws.com" + | _ -> None) + | "fms" -> ( + match region with + | "ap-northeast-1" -> Some "fms.ap-northeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "fms.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "fms.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "fms.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "fms.us-east-1.amazonaws.com" + | "us-east-2" -> Some "fms.us-east-2.amazonaws.com" + | "us-west-2" -> Some "fms.us-west-2.amazonaws.com" + | _ -> None) + | "fsx" -> ( + match region with + | "eu-west-1" -> Some "fsx.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "fsx.us-east-1.amazonaws.com" + | "us-east-2" -> Some "fsx.us-east-2.amazonaws.com" + | "us-west-2" -> Some "fsx.us-west-2.amazonaws.com" + | _ -> None) + | "gamelift" -> ( + match region with + | "ap-northeast-1" -> Some "gamelift.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "gamelift.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "gamelift.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "gamelift.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "gamelift.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "gamelift.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "gamelift.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "gamelift.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "gamelift.eu-west-2.amazonaws.com" + | "sa-east-1" -> Some "gamelift.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "gamelift.us-east-1.amazonaws.com" + | "us-east-2" -> Some "gamelift.us-east-2.amazonaws.com" + | "us-west-1" -> Some "gamelift.us-west-1.amazonaws.com" + | "us-west-2" -> Some "gamelift.us-west-2.amazonaws.com" + | _ -> None) + | "glacier" -> ( + match region with + | "ap-northeast-1" -> Some "glacier.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "glacier.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "glacier.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "glacier.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "glacier.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "glacier.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "glacier.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "glacier.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "glacier.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "glacier.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "glacier.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "glacier.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "glacier.us-east-1.amazonaws.com" + | "us-east-2" -> Some "glacier.us-east-2.amazonaws.com" + | "us-west-1" -> Some "glacier.us-west-1.amazonaws.com" + | "us-west-2" -> Some "glacier.us-west-2.amazonaws.com" + | _ -> None) + | "glue" -> ( + match region with + | "ap-northeast-1" -> Some "glue.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "glue.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "glue.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "glue.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "glue.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "glue.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "glue.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "glue.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "glue.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "glue.eu-west-3.amazonaws.com" + | "us-east-1" -> Some "glue.us-east-1.amazonaws.com" + | "us-east-2" -> Some "glue.us-east-2.amazonaws.com" + | "us-west-1" -> Some "glue.us-west-1.amazonaws.com" + | "us-west-2" -> Some "glue.us-west-2.amazonaws.com" + | _ -> None) + | "greengrass" -> ( + match region with + | "ap-northeast-1" -> Some "greengrass.ap-northeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "greengrass.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "greengrass.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "greengrass.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "greengrass.us-east-1.amazonaws.com" + | "us-west-2" -> Some "greengrass.us-west-2.amazonaws.com" + | _ -> None) + | "guardduty" -> ( + match region with + | "ap-northeast-1" -> Some "guardduty.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "guardduty.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "guardduty.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "guardduty.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "guardduty.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "guardduty.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "guardduty.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "guardduty.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "guardduty.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "guardduty.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "guardduty.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "guardduty.us-east-1.amazonaws.com" + | "us-east-2" -> Some "guardduty.us-east-2.amazonaws.com" + | "us-west-1" -> Some "guardduty.us-west-1.amazonaws.com" + | "us-west-2" -> Some "guardduty.us-west-2.amazonaws.com" + | _ -> None) + | "health" -> ( + match region with + | "us-east-1" -> Some "health.us-east-1.amazonaws.com" + | _ -> None) + | "iam" -> ( + match region with + | "aws-global" -> Some "iam.amazonaws.com" + | _ -> None) + | "importexport" -> ( + match region with + | "aws-global" -> Some "importexport.amazonaws.com" + | _ -> None) + | "inspector" -> ( + match region with + | "ap-northeast-1" -> Some "inspector.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "inspector.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "inspector.ap-south-1.amazonaws.com" + | "ap-southeast-2" -> Some "inspector.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "inspector.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "inspector.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "inspector.us-east-1.amazonaws.com" + | "us-east-2" -> Some "inspector.us-east-2.amazonaws.com" + | "us-west-1" -> Some "inspector.us-west-1.amazonaws.com" + | "us-west-2" -> Some "inspector.us-west-2.amazonaws.com" + | _ -> None) + | "iot" -> ( + match region with + | "ap-northeast-1" -> Some "iot.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "iot.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "iot.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "iot.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "iot.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "iot.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "iot.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "iot.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "iot.us-east-1.amazonaws.com" + | "us-east-2" -> Some "iot.us-east-2.amazonaws.com" + | "us-west-2" -> Some "iot.us-west-2.amazonaws.com" + | _ -> None) + | "iotanalytics" -> ( + match region with + | "ap-northeast-1" -> Some "iotanalytics.ap-northeast-1.amazonaws.com" + | "eu-central-1" -> Some "iotanalytics.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "iotanalytics.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "iotanalytics.us-east-1.amazonaws.com" + | "us-east-2" -> Some "iotanalytics.us-east-2.amazonaws.com" + | "us-west-2" -> Some "iotanalytics.us-west-2.amazonaws.com" + | _ -> None) + | "kinesis" -> ( + match region with + | "ap-northeast-1" -> Some "kinesis.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "kinesis.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "kinesis.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "kinesis.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "kinesis.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "kinesis.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "kinesis.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "kinesis.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "kinesis.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "kinesis.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "kinesis.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "kinesis.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "kinesis.us-east-1.amazonaws.com" + | "us-east-2" -> Some "kinesis.us-east-2.amazonaws.com" + | "us-west-1" -> Some "kinesis.us-west-1.amazonaws.com" + | "us-west-2" -> Some "kinesis.us-west-2.amazonaws.com" + | _ -> None) + | "kinesisanalytics" -> ( + match region with + | "eu-central-1" -> Some "kinesisanalytics.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "kinesisanalytics.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "kinesisanalytics.us-east-1.amazonaws.com" + | "us-east-2" -> Some "kinesisanalytics.us-east-2.amazonaws.com" + | "us-west-2" -> Some "kinesisanalytics.us-west-2.amazonaws.com" + | _ -> None) + | "kinesisvideo" -> ( + match region with + | "ap-northeast-1" -> Some "kinesisvideo.ap-northeast-1.amazonaws.com" + | "eu-central-1" -> Some "kinesisvideo.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "kinesisvideo.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "kinesisvideo.us-east-1.amazonaws.com" + | "us-west-2" -> Some "kinesisvideo.us-west-2.amazonaws.com" + | _ -> None) + | "kms" -> ( + match region with + | "ProdFips" -> Some "kms-fips.ca-central-1.amazonaws.com" + | "ap-northeast-1" -> Some "kms.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "kms.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "kms.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "kms.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "kms.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "kms.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "kms.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "kms.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "kms.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "kms.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "kms.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "kms.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "kms.us-east-1.amazonaws.com" + | "us-east-2" -> Some "kms.us-east-2.amazonaws.com" + | "us-west-1" -> Some "kms.us-west-1.amazonaws.com" + | "us-west-2" -> Some "kms.us-west-2.amazonaws.com" + | _ -> None) + | "lambda" -> ( + match region with + | "ap-northeast-1" -> Some "lambda.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "lambda.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "lambda.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "lambda.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "lambda.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "lambda.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "lambda.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "lambda.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "lambda.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "lambda.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "lambda.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "lambda.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "lambda.us-east-1.amazonaws.com" + | "us-east-2" -> Some "lambda.us-east-2.amazonaws.com" + | "us-west-1" -> Some "lambda.us-west-1.amazonaws.com" + | "us-west-2" -> Some "lambda.us-west-2.amazonaws.com" + | _ -> None) + | "license-manager" -> ( + match region with + | "ap-northeast-1" -> Some "license-manager.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "license-manager.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "license-manager.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "license-manager.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "license-manager.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "license-manager.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "license-manager.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "license-manager.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "license-manager.us-east-1.amazonaws.com" + | "us-east-2" -> Some "license-manager.us-east-2.amazonaws.com" + | "us-west-2" -> Some "license-manager.us-west-2.amazonaws.com" + | _ -> None) + | "lightsail" -> ( + match region with + | "ap-northeast-1" -> Some "lightsail.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "lightsail.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "lightsail.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "lightsail.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "lightsail.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "lightsail.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "lightsail.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "lightsail.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "lightsail.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "lightsail.eu-west-3.amazonaws.com" + | "us-east-1" -> Some "lightsail.us-east-1.amazonaws.com" + | "us-east-2" -> Some "lightsail.us-east-2.amazonaws.com" + | "us-west-2" -> Some "lightsail.us-west-2.amazonaws.com" + | _ -> None) + | "logs" -> ( + match region with + | "ap-northeast-1" -> Some "logs.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "logs.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "logs.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "logs.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "logs.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "logs.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "logs.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "logs.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "logs.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "logs.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "logs.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "logs.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "logs.us-east-1.amazonaws.com" + | "us-east-2" -> Some "logs.us-east-2.amazonaws.com" + | "us-west-1" -> Some "logs.us-west-1.amazonaws.com" + | "us-west-2" -> Some "logs.us-west-2.amazonaws.com" + | _ -> None) + | "machinelearning" -> ( + match region with + | "eu-west-1" -> Some "machinelearning.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "machinelearning.us-east-1.amazonaws.com" + | _ -> None) + | "marketplacecommerceanalytics" -> ( + match region with + | "us-east-1" -> Some "marketplacecommerceanalytics.us-east-1.amazonaws.com" + | _ -> None) + | "mediaconvert" -> ( + match region with + | "ap-northeast-1" -> Some "mediaconvert.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "mediaconvert.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "mediaconvert.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "mediaconvert.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "mediaconvert.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "mediaconvert.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "mediaconvert.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "mediaconvert.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "mediaconvert.eu-west-2.amazonaws.com" + | "sa-east-1" -> Some "mediaconvert.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "mediaconvert.us-east-1.amazonaws.com" + | "us-east-2" -> Some "mediaconvert.us-east-2.amazonaws.com" + | "us-west-1" -> Some "mediaconvert.us-west-1.amazonaws.com" + | "us-west-2" -> Some "mediaconvert.us-west-2.amazonaws.com" + | _ -> None) + | "medialive" -> ( + match region with + | "ap-northeast-1" -> Some "medialive.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "medialive.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "medialive.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "medialive.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "medialive.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "medialive.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "medialive.eu-west-1.amazonaws.com" + | "sa-east-1" -> Some "medialive.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "medialive.us-east-1.amazonaws.com" + | "us-west-2" -> Some "medialive.us-west-2.amazonaws.com" + | _ -> None) + | "mediapackage" -> ( + match region with + | "ap-northeast-1" -> Some "mediapackage.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "mediapackage.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "mediapackage.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "mediapackage.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "mediapackage.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "mediapackage.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "mediapackage.eu-west-1.amazonaws.com" + | "eu-west-3" -> Some "mediapackage.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "mediapackage.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "mediapackage.us-east-1.amazonaws.com" + | "us-west-1" -> Some "mediapackage.us-west-1.amazonaws.com" + | "us-west-2" -> Some "mediapackage.us-west-2.amazonaws.com" + | _ -> None) + | "mediastore" -> ( + match region with + | "ap-northeast-1" -> Some "mediastore.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "mediastore.ap-northeast-2.amazonaws.com" + | "ap-southeast-2" -> Some "mediastore.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "mediastore.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "mediastore.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "mediastore.us-east-1.amazonaws.com" + | "us-west-2" -> Some "mediastore.us-west-2.amazonaws.com" + | _ -> None) + | "metering.marketplace" -> ( + match region with + | "ap-northeast-1" -> Some "metering.marketplace.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "metering.marketplace.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "metering.marketplace.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "metering.marketplace.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "metering.marketplace.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "metering.marketplace.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "metering.marketplace.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "metering.marketplace.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "metering.marketplace.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "metering.marketplace.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "metering.marketplace.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "metering.marketplace.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "metering.marketplace.us-east-1.amazonaws.com" + | "us-east-2" -> Some "metering.marketplace.us-east-2.amazonaws.com" + | "us-west-1" -> Some "metering.marketplace.us-west-1.amazonaws.com" + | "us-west-2" -> Some "metering.marketplace.us-west-2.amazonaws.com" + | _ -> None) + | "mgh" -> ( + match region with + | "us-west-2" -> Some "mgh.us-west-2.amazonaws.com" + | _ -> None) + | "mobileanalytics" -> ( + match region with + | "us-east-1" -> Some "mobileanalytics.us-east-1.amazonaws.com" + | _ -> None) + | "models.lex" -> ( + match region with + | "eu-west-1" -> Some "models.lex.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "models.lex.us-east-1.amazonaws.com" + | "us-west-2" -> Some "models.lex.us-west-2.amazonaws.com" + | _ -> None) + | "monitoring" -> ( + match region with + | "ap-northeast-1" -> Some "monitoring.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "monitoring.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "monitoring.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "monitoring.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "monitoring.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "monitoring.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "monitoring.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "monitoring.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "monitoring.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "monitoring.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "monitoring.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "monitoring.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "monitoring.us-east-1.amazonaws.com" + | "us-east-2" -> Some "monitoring.us-east-2.amazonaws.com" + | "us-west-1" -> Some "monitoring.us-west-1.amazonaws.com" + | "us-west-2" -> Some "monitoring.us-west-2.amazonaws.com" + | _ -> None) + | "mq" -> ( + match region with + | "ap-northeast-1" -> Some "mq.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "mq.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "mq.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "mq.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "mq.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "mq.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "mq.us-east-1.amazonaws.com" + | "us-east-2" -> Some "mq.us-east-2.amazonaws.com" + | "us-west-1" -> Some "mq.us-west-1.amazonaws.com" + | "us-west-2" -> Some "mq.us-west-2.amazonaws.com" + | _ -> None) + | "mturk-requester" -> ( + match region with + | "sandbox" -> Some "mturk-requester-sandbox.us-east-1.amazonaws.com" + | "us-east-1" -> Some "mturk-requester.us-east-1.amazonaws.com" + | _ -> None) + | "neptune" -> ( + match region with + | "ap-northeast-1" -> Some "rds.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "rds.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "rds.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "rds.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "rds.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "rds.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "rds.us-east-1.amazonaws.com" + | "us-east-2" -> Some "rds.us-east-2.amazonaws.com" + | "us-west-2" -> Some "rds.us-west-2.amazonaws.com" + | _ -> None) + | "opsworks" -> ( + match region with + | "ap-northeast-1" -> Some "opsworks.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "opsworks.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "opsworks.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "opsworks.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "opsworks.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "opsworks.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "opsworks.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "opsworks.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "opsworks.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "opsworks.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "opsworks.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "opsworks.us-east-1.amazonaws.com" + | "us-east-2" -> Some "opsworks.us-east-2.amazonaws.com" + | "us-west-1" -> Some "opsworks.us-west-1.amazonaws.com" + | "us-west-2" -> Some "opsworks.us-west-2.amazonaws.com" + | _ -> None) + | "opsworks-cm" -> ( + match region with + | "ap-northeast-1" -> Some "opsworks-cm.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "opsworks-cm.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "opsworks-cm.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "opsworks-cm.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "opsworks-cm.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "opsworks-cm.us-east-1.amazonaws.com" + | "us-east-2" -> Some "opsworks-cm.us-east-2.amazonaws.com" + | "us-west-1" -> Some "opsworks-cm.us-west-1.amazonaws.com" + | "us-west-2" -> Some "opsworks-cm.us-west-2.amazonaws.com" + | _ -> None) + | "organizations" -> ( + match region with + | "aws-global" -> Some "organizations.us-east-1.amazonaws.com" + | _ -> None) + | "pinpoint" -> ( + match region with + | "eu-central-1" -> Some "pinpoint.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "pinpoint.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "pinpoint.us-east-1.amazonaws.com" + | "us-west-2" -> Some "pinpoint.us-west-2.amazonaws.com" + | _ -> None) + | "polly" -> ( + match region with + | "ap-northeast-1" -> Some "polly.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "polly.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "polly.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "polly.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "polly.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "polly.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "polly.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "polly.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "polly.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "polly.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "polly.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "polly.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "polly.us-east-1.amazonaws.com" + | "us-east-2" -> Some "polly.us-east-2.amazonaws.com" + | "us-west-1" -> Some "polly.us-west-1.amazonaws.com" + | "us-west-2" -> Some "polly.us-west-2.amazonaws.com" + | _ -> None) + | "rds" -> ( + match region with + | "ap-northeast-1" -> Some "rds.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "rds.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "rds.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "rds.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "rds.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "rds.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "rds.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "rds.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "rds.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "rds.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "rds.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "rds.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "rds.us-east-1.amazonaws.com" + | "us-east-2" -> Some "rds.us-east-2.amazonaws.com" + | "us-west-1" -> Some "rds.us-west-1.amazonaws.com" + | "us-west-2" -> Some "rds.us-west-2.amazonaws.com" + | _ -> None) + | "redshift" -> ( + match region with + | "ap-northeast-1" -> Some "redshift.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "redshift.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "redshift.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "redshift.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "redshift.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "redshift.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "redshift.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "redshift.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "redshift.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "redshift.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "redshift.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "redshift.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "redshift.us-east-1.amazonaws.com" + | "us-east-2" -> Some "redshift.us-east-2.amazonaws.com" + | "us-west-1" -> Some "redshift.us-west-1.amazonaws.com" + | "us-west-2" -> Some "redshift.us-west-2.amazonaws.com" + | _ -> None) + | "rekognition" -> ( + match region with + | "ap-northeast-1" -> Some "rekognition.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "rekognition.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "rekognition.ap-south-1.amazonaws.com" + | "ap-southeast-2" -> Some "rekognition.ap-southeast-2.amazonaws.com" + | "eu-west-1" -> Some "rekognition.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "rekognition.us-east-1.amazonaws.com" + | "us-east-2" -> Some "rekognition.us-east-2.amazonaws.com" + | "us-west-2" -> Some "rekognition.us-west-2.amazonaws.com" + | _ -> None) + | "resource-groups" -> ( + match region with + | "ap-northeast-1" -> Some "resource-groups.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "resource-groups.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "resource-groups.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "resource-groups.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "resource-groups.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "resource-groups.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "resource-groups.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "resource-groups.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "resource-groups.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "resource-groups.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "resource-groups.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "resource-groups.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "resource-groups.us-east-1.amazonaws.com" + | "us-east-2" -> Some "resource-groups.us-east-2.amazonaws.com" + | "us-west-1" -> Some "resource-groups.us-west-1.amazonaws.com" + | "us-west-2" -> Some "resource-groups.us-west-2.amazonaws.com" + | _ -> None) + | "robomaker" -> ( + match region with + | "eu-west-1" -> Some "robomaker.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "robomaker.us-east-1.amazonaws.com" + | "us-west-2" -> Some "robomaker.us-west-2.amazonaws.com" + | _ -> None) + | "route53" -> ( + match region with + | "aws-global" -> Some "route53.amazonaws.com" + | _ -> None) + | "route53domains" -> ( + match region with + | "us-east-1" -> Some "route53domains.us-east-1.amazonaws.com" + | _ -> None) + | "route53resolver" -> ( + match region with + | "ap-northeast-1" -> Some "route53resolver.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "route53resolver.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "route53resolver.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "route53resolver.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "route53resolver.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "route53resolver.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "route53resolver.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "route53resolver.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "route53resolver.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "route53resolver.eu-west-3.amazonaws.com" + | "us-east-1" -> Some "route53resolver.us-east-1.amazonaws.com" + | "us-east-2" -> Some "route53resolver.us-east-2.amazonaws.com" + | "us-west-1" -> Some "route53resolver.us-west-1.amazonaws.com" + | "us-west-2" -> Some "route53resolver.us-west-2.amazonaws.com" + | _ -> None) + | "runtime.lex" -> ( + match region with + | "eu-west-1" -> Some "runtime.lex.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "runtime.lex.us-east-1.amazonaws.com" + | "us-west-2" -> Some "runtime.lex.us-west-2.amazonaws.com" + | _ -> None) + | "runtime.sagemaker" -> ( + match region with + | "ap-northeast-1" -> Some "runtime.sagemaker.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "runtime.sagemaker.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "runtime.sagemaker.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "runtime.sagemaker.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "runtime.sagemaker.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "runtime.sagemaker.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "runtime.sagemaker.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "runtime.sagemaker.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "runtime.sagemaker.eu-west-2.amazonaws.com" + | "us-east-1" -> Some "runtime.sagemaker.us-east-1.amazonaws.com" + | "us-east-2" -> Some "runtime.sagemaker.us-east-2.amazonaws.com" + | "us-west-1" -> Some "runtime.sagemaker.us-west-1.amazonaws.com" + | "us-west-2" -> Some "runtime.sagemaker.us-west-2.amazonaws.com" + | _ -> None) + | "s3" -> ( + match region with + | "ap-northeast-1" -> Some "s3.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "s3.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "s3.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "s3.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "s3.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "s3.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "s3.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "s3.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "s3.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "s3.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "s3.eu-west-3.amazonaws.com" + | "s3-external-1" -> Some "s3-external-1.amazonaws.com" + | "sa-east-1" -> Some "s3.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "s3.amazonaws.com" + | "us-east-2" -> Some "s3.us-east-2.amazonaws.com" + | "us-west-1" -> Some "s3.us-west-1.amazonaws.com" + | "us-west-2" -> Some "s3.us-west-2.amazonaws.com" + | _ -> None) + | "s3-control" -> ( + match region with + | "ap-northeast-1" -> Some "s3-control.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "s3-control.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "s3-control.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "s3-control.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "s3-control.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "s3-control.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "s3-control.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "s3-control.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "s3-control.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "s3-control.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "s3-control.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "s3-control.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "s3-control.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "s3-control-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "s3-control.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "s3-control-fips.us-east-2.amazonaws.com" + | "us-west-1" -> Some "s3-control.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "s3-control-fips.us-west-1.amazonaws.com" + | "us-west-2" -> Some "s3-control.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "s3-control-fips.us-west-2.amazonaws.com" + | _ -> None) + | "sdb" -> ( + match region with + | "ap-northeast-1" -> Some "sdb.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "sdb.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "sdb.ap-southeast-2.amazonaws.com" + | "eu-west-1" -> Some "sdb.eu-west-1.amazonaws.com" + | "sa-east-1" -> Some "sdb.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "sdb.amazonaws.com" + | "us-west-1" -> Some "sdb.us-west-1.amazonaws.com" + | "us-west-2" -> Some "sdb.us-west-2.amazonaws.com" + | _ -> None) + | "secretsmanager" -> ( + match region with + | "ap-northeast-1" -> Some "secretsmanager.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "secretsmanager.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "secretsmanager.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "secretsmanager.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "secretsmanager.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "secretsmanager.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "secretsmanager.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "secretsmanager.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "secretsmanager.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "secretsmanager.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "secretsmanager.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "secretsmanager.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "secretsmanager-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "secretsmanager.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "secretsmanager-fips.us-east-2.amazonaws.com" + | "us-west-1" -> Some "secretsmanager.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "secretsmanager-fips.us-west-1.amazonaws.com" + | "us-west-2" -> Some "secretsmanager.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "secretsmanager-fips.us-west-2.amazonaws.com" + | _ -> None) + | "securityhub" -> ( + match region with + | "ap-northeast-1" -> Some "securityhub.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "securityhub.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "securityhub.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "securityhub.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "securityhub.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "securityhub.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "securityhub.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "securityhub.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "securityhub.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "securityhub.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "securityhub.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "securityhub.us-east-1.amazonaws.com" + | "us-east-2" -> Some "securityhub.us-east-2.amazonaws.com" + | "us-west-1" -> Some "securityhub.us-west-1.amazonaws.com" + | "us-west-2" -> Some "securityhub.us-west-2.amazonaws.com" + | _ -> None) + | "serverlessrepo" -> ( + match region with + | "ap-northeast-1" -> Some "serverlessrepo.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "serverlessrepo.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "serverlessrepo.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "serverlessrepo.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "serverlessrepo.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "serverlessrepo.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "serverlessrepo.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "serverlessrepo.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "serverlessrepo.eu-west-2.amazonaws.com" + | "sa-east-1" -> Some "serverlessrepo.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "serverlessrepo.us-east-1.amazonaws.com" + | "us-east-2" -> Some "serverlessrepo.us-east-2.amazonaws.com" + | "us-west-1" -> Some "serverlessrepo.us-west-1.amazonaws.com" + | "us-west-2" -> Some "serverlessrepo.us-west-2.amazonaws.com" + | _ -> None) + | "servicecatalog" -> ( + match region with + | "ap-northeast-1" -> Some "servicecatalog.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "servicecatalog.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "servicecatalog.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "servicecatalog.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "servicecatalog.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "servicecatalog.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "servicecatalog.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "servicecatalog.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "servicecatalog.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "servicecatalog.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "servicecatalog.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "servicecatalog.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "servicecatalog.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "servicecatalog-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "servicecatalog.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "servicecatalog-fips.us-east-2.amazonaws.com" + | "us-west-1" -> Some "servicecatalog.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "servicecatalog-fips.us-west-1.amazonaws.com" + | "us-west-2" -> Some "servicecatalog.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "servicecatalog-fips.us-west-2.amazonaws.com" + | _ -> None) + | "servicediscovery" -> ( + match region with + | "ap-northeast-1" -> Some "servicediscovery.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "servicediscovery.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "servicediscovery.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "servicediscovery.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "servicediscovery.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "servicediscovery.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "servicediscovery.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "servicediscovery.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "servicediscovery.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "servicediscovery.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "servicediscovery.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "servicediscovery.us-east-1.amazonaws.com" + | "us-east-2" -> Some "servicediscovery.us-east-2.amazonaws.com" + | "us-west-1" -> Some "servicediscovery.us-west-1.amazonaws.com" + | "us-west-2" -> Some "servicediscovery.us-west-2.amazonaws.com" + | _ -> None) + | "shield" -> ( + match region with + | "us-east-1" -> Some "shield.us-east-1.amazonaws.com" + | _ -> None) + | "sms" -> ( + match region with + | "ap-northeast-1" -> Some "sms.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "sms.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "sms.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "sms.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "sms.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "sms.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "sms.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "sms.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "sms.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "sms.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "sms.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "sms.us-east-1.amazonaws.com" + | "us-east-2" -> Some "sms.us-east-2.amazonaws.com" + | "us-west-1" -> Some "sms.us-west-1.amazonaws.com" + | "us-west-2" -> Some "sms.us-west-2.amazonaws.com" + | _ -> None) + | "snowball" -> ( + match region with + | "ap-northeast-1" -> Some "snowball.ap-northeast-1.amazonaws.com" + | "ap-south-1" -> Some "snowball.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "snowball.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "snowball.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "snowball.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "snowball.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "snowball.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "snowball.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "snowball.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "snowball.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "snowball.us-east-1.amazonaws.com" + | "us-east-2" -> Some "snowball.us-east-2.amazonaws.com" + | "us-west-1" -> Some "snowball.us-west-1.amazonaws.com" + | "us-west-2" -> Some "snowball.us-west-2.amazonaws.com" + | _ -> None) + | "sns" -> ( + match region with + | "ap-northeast-1" -> Some "sns.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "sns.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "sns.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "sns.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "sns.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "sns.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "sns.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "sns.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "sns.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "sns.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "sns.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "sns.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "sns.us-east-1.amazonaws.com" + | "us-east-2" -> Some "sns.us-east-2.amazonaws.com" + | "us-west-1" -> Some "sns.us-west-1.amazonaws.com" + | "us-west-2" -> Some "sns.us-west-2.amazonaws.com" + | _ -> None) + | "sqs" -> ( + match region with + | "ap-northeast-1" -> Some "sqs.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "sqs.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "sqs.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "sqs.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "sqs.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "sqs.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "sqs.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "sqs.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "sqs.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "sqs.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "sqs.eu-west-3.amazonaws.com" + | "fips-us-east-1" -> Some "sqs-fips.us-east-1.amazonaws.com" + | "fips-us-east-2" -> Some "sqs-fips.us-east-2.amazonaws.com" + | "fips-us-west-1" -> Some "sqs-fips.us-west-1.amazonaws.com" + | "fips-us-west-2" -> Some "sqs-fips.us-west-2.amazonaws.com" + | "sa-east-1" -> Some "sqs.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "sqs.us-east-1.amazonaws.com" + | "us-east-2" -> Some "sqs.us-east-2.amazonaws.com" + | "us-west-1" -> Some "sqs.us-west-1.amazonaws.com" + | "us-west-2" -> Some "sqs.us-west-2.amazonaws.com" + | _ -> None) + | "ssm" -> ( + match region with + | "ap-northeast-1" -> Some "ssm.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "ssm.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "ssm.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "ssm.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "ssm.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "ssm.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "ssm.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "ssm.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "ssm.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "ssm.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "ssm.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "ssm.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "ssm.us-east-1.amazonaws.com" + | "us-east-2" -> Some "ssm.us-east-2.amazonaws.com" + | "us-west-1" -> Some "ssm.us-west-1.amazonaws.com" + | "us-west-2" -> Some "ssm.us-west-2.amazonaws.com" + | _ -> None) + | "states" -> ( + match region with + | "ap-northeast-1" -> Some "states.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "states.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "states.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "states.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "states.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "states.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "states.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "states.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "states.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "states.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "states.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "states.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "states.us-east-1.amazonaws.com" + | "us-east-2" -> Some "states.us-east-2.amazonaws.com" + | "us-west-1" -> Some "states.us-west-1.amazonaws.com" + | "us-west-2" -> Some "states.us-west-2.amazonaws.com" + | _ -> None) + | "storagegateway" -> ( + match region with + | "ap-northeast-1" -> Some "storagegateway.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "storagegateway.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "storagegateway.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "storagegateway.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "storagegateway.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "storagegateway.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "storagegateway.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "storagegateway.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "storagegateway.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "storagegateway.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "storagegateway.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "storagegateway.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "storagegateway.us-east-1.amazonaws.com" + | "us-east-2" -> Some "storagegateway.us-east-2.amazonaws.com" + | "us-west-1" -> Some "storagegateway.us-west-1.amazonaws.com" + | "us-west-2" -> Some "storagegateway.us-west-2.amazonaws.com" + | _ -> None) + | "streams.dynamodb" -> ( + match region with + | "ap-northeast-1" -> Some "streams.dynamodb.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "streams.dynamodb.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "streams.dynamodb.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "streams.dynamodb.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "streams.dynamodb.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "streams.dynamodb.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "streams.dynamodb.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "streams.dynamodb.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "streams.dynamodb.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "streams.dynamodb.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "streams.dynamodb.eu-west-3.amazonaws.com" + | "local" -> Some "localhost:8000" + | "sa-east-1" -> Some "streams.dynamodb.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "streams.dynamodb.us-east-1.amazonaws.com" + | "us-east-2" -> Some "streams.dynamodb.us-east-2.amazonaws.com" + | "us-west-1" -> Some "streams.dynamodb.us-west-1.amazonaws.com" + | "us-west-2" -> Some "streams.dynamodb.us-west-2.amazonaws.com" + | _ -> None) + | "sts" -> ( + match region with + | "ap-northeast-1" -> Some "sts.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "sts.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "sts.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "sts.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "sts.ap-southeast-2.amazonaws.com" + | "aws-global" -> Some "sts.aws-global.amazonaws.com" + | "ca-central-1" -> Some "sts.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "sts.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "sts.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "sts.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "sts.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "sts.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "sts.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "sts.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "sts-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "sts.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "sts-fips.us-east-2.amazonaws.com" + | "us-west-1" -> Some "sts.us-west-1.amazonaws.com" + | "us-west-1-fips" -> Some "sts-fips.us-west-1.amazonaws.com" + | "us-west-2" -> Some "sts.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "sts-fips.us-west-2.amazonaws.com" + | _ -> None) + | "support" -> ( + match region with + | "us-east-1" -> Some "support.us-east-1.amazonaws.com" + | _ -> None) + | "swf" -> ( + match region with + | "ap-northeast-1" -> Some "swf.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "swf.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "swf.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "swf.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "swf.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "swf.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "swf.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "swf.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "swf.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "swf.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "swf.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "swf.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "swf.us-east-1.amazonaws.com" + | "us-east-2" -> Some "swf.us-east-2.amazonaws.com" + | "us-west-1" -> Some "swf.us-west-1.amazonaws.com" + | "us-west-2" -> Some "swf.us-west-2.amazonaws.com" + | _ -> None) + | "tagging" -> ( + match region with + | "ap-northeast-1" -> Some "tagging.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "tagging.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "tagging.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "tagging.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "tagging.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "tagging.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "tagging.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "tagging.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "tagging.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "tagging.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "tagging.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "tagging.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "tagging.us-east-1.amazonaws.com" + | "us-east-2" -> Some "tagging.us-east-2.amazonaws.com" + | "us-west-1" -> Some "tagging.us-west-1.amazonaws.com" + | "us-west-2" -> Some "tagging.us-west-2.amazonaws.com" + | _ -> None) + | "transfer" -> ( + match region with + | "ap-northeast-1" -> Some "transfer.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "transfer.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "transfer.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "transfer.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "transfer.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "transfer.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "transfer.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "transfer.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "transfer.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "transfer.eu-west-3.amazonaws.com" + | "us-east-1" -> Some "transfer.us-east-1.amazonaws.com" + | "us-east-2" -> Some "transfer.us-east-2.amazonaws.com" + | "us-west-1" -> Some "transfer.us-west-1.amazonaws.com" + | "us-west-2" -> Some "transfer.us-west-2.amazonaws.com" + | _ -> None) + | "translate" -> ( + match region with + | "eu-west-1" -> Some "translate.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "translate.us-east-1.amazonaws.com" + | "us-east-1-fips" -> Some "translate-fips.us-east-1.amazonaws.com" + | "us-east-2" -> Some "translate.us-east-2.amazonaws.com" + | "us-east-2-fips" -> Some "translate-fips.us-east-2.amazonaws.com" + | "us-west-2" -> Some "translate.us-west-2.amazonaws.com" + | "us-west-2-fips" -> Some "translate-fips.us-west-2.amazonaws.com" + | _ -> None) + | "waf" -> ( + match region with + | "aws-global" -> Some "waf.amazonaws.com" + | _ -> None) + | "waf-regional" -> ( + match region with + | "ap-northeast-1" -> Some "waf-regional.ap-northeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "waf-regional.ap-southeast-2.amazonaws.com" + | "eu-central-1" -> Some "waf-regional.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "waf-regional.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "waf-regional.us-east-1.amazonaws.com" + | "us-east-2" -> Some "waf-regional.us-east-2.amazonaws.com" + | "us-west-1" -> Some "waf-regional.us-west-1.amazonaws.com" + | "us-west-2" -> Some "waf-regional.us-west-2.amazonaws.com" + | _ -> None) + | "workdocs" -> ( + match region with + | "ap-northeast-1" -> Some "workdocs.ap-northeast-1.amazonaws.com" + | "ap-southeast-1" -> Some "workdocs.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "workdocs.ap-southeast-2.amazonaws.com" + | "eu-west-1" -> Some "workdocs.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "workdocs.us-east-1.amazonaws.com" + | "us-west-2" -> Some "workdocs.us-west-2.amazonaws.com" + | _ -> None) + | "workmail" -> ( + match region with + | "eu-west-1" -> Some "workmail.eu-west-1.amazonaws.com" + | "us-east-1" -> Some "workmail.us-east-1.amazonaws.com" + | "us-west-2" -> Some "workmail.us-west-2.amazonaws.com" + | _ -> None) + | "workspaces" -> ( + match region with + | "ap-northeast-1" -> Some "workspaces.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "workspaces.ap-northeast-2.amazonaws.com" + | "ap-southeast-1" -> Some "workspaces.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "workspaces.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "workspaces.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "workspaces.eu-central-1.amazonaws.com" + | "eu-west-1" -> Some "workspaces.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "workspaces.eu-west-2.amazonaws.com" + | "sa-east-1" -> Some "workspaces.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "workspaces.us-east-1.amazonaws.com" + | "us-west-2" -> Some "workspaces.us-west-2.amazonaws.com" + | _ -> None) + | "xray" -> ( + match region with + | "ap-northeast-1" -> Some "xray.ap-northeast-1.amazonaws.com" + | "ap-northeast-2" -> Some "xray.ap-northeast-2.amazonaws.com" + | "ap-south-1" -> Some "xray.ap-south-1.amazonaws.com" + | "ap-southeast-1" -> Some "xray.ap-southeast-1.amazonaws.com" + | "ap-southeast-2" -> Some "xray.ap-southeast-2.amazonaws.com" + | "ca-central-1" -> Some "xray.ca-central-1.amazonaws.com" + | "eu-central-1" -> Some "xray.eu-central-1.amazonaws.com" + | "eu-north-1" -> Some "xray.eu-north-1.amazonaws.com" + | "eu-west-1" -> Some "xray.eu-west-1.amazonaws.com" + | "eu-west-2" -> Some "xray.eu-west-2.amazonaws.com" + | "eu-west-3" -> Some "xray.eu-west-3.amazonaws.com" + | "sa-east-1" -> Some "xray.sa-east-1.amazonaws.com" + | "us-east-1" -> Some "xray.us-east-1.amazonaws.com" + | "us-east-2" -> Some "xray.us-east-2.amazonaws.com" + | "us-west-1" -> Some "xray.us-west-1.amazonaws.com" + | "us-west-2" -> Some "xray.us-west-2.amazonaws.com" + | _ -> None) | _ -> None + let url_of svc_name region = match endpoint_of svc_name region with | Some var -> Some ("https://" ^ var) - | None -> None \ No newline at end of file + | None -> None diff --git a/lib/signing.ml b/lib/signing.ml index 9782d83bd..1c1a07406 100644 --- a/lib/signing.ml +++ b/lib/signing.ml @@ -5,9 +5,7 @@ module Hash = struct | None -> Digestif.SHA256.digest_string str let sha256 ?key str = _sha256 ?key str |> Digestif.SHA256.to_raw_string - let sha256_hex ?key str = _sha256 ?key str |> Digestif.SHA256.to_hex - let sha256_base64 ?key str = Base64.encode_string @@ sha256 ?key str end diff --git a/lib/time.ml b/lib/time.ml index 280dd464d..e578ce7b6 100644 --- a/lib/time.ml +++ b/lib/time.ml @@ -2,11 +2,8 @@ module C = CalendarLib.Calendar module P = CalendarLib.Printer.Calendar let date_yymmdd = P.sprint "%Y%m%d" - let date_time_iso8601 = P.sprint "%Y-%m-%dT%H:%M:%S" - let date_time = P.sprint "%Y%m%dT%H%M%SZ" - let now_utc () = C.(now () |> to_gmt) (* (tmcgilchrist) This function is expecting datetimes like diff --git a/lib/xml.ml b/lib/xml.ml index 78ac12d51..aa71c40f9 100644 --- a/lib/xml.ml +++ b/lib/xml.ml @@ -4,7 +4,6 @@ let member tag xml = try Some (Ezxmlm.member tag xml) with Ezxmlm.Tag_not_found _ -> None let members tag xml = try Ezxmlm.members tag xml with Ezxmlm.Tag_not_found _ -> [] - let data_to_string = Ezxmlm.data_to_string let required nm a = diff --git a/libraries/autoscaling/lib/attachInstances.ml b/libraries/autoscaling/lib/attachInstances.ml index adfa61350..2716b6d05 100644 --- a/libraries/autoscaling/lib/attachInstances.ml +++ b/libraries/autoscaling/lib/attachInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachInstancesQuery.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/attachInstances.mli b/libraries/autoscaling/lib/attachInstances.mli index d47f9ae82..a207423a5 100644 --- a/libraries/autoscaling/lib/attachInstances.mli +++ b/libraries/autoscaling/lib/attachInstances.mli @@ -1,9 +1,7 @@ open Types type input = AttachInstancesQuery.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/attachLoadBalancers.ml b/libraries/autoscaling/lib/attachLoadBalancers.ml index 33e284b06..e27e4d41b 100644 --- a/libraries/autoscaling/lib/attachLoadBalancers.ml +++ b/libraries/autoscaling/lib/attachLoadBalancers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachLoadBalancersType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/attachLoadBalancers.mli b/libraries/autoscaling/lib/attachLoadBalancers.mli index ddf98301f..3afa27b80 100644 --- a/libraries/autoscaling/lib/attachLoadBalancers.mli +++ b/libraries/autoscaling/lib/attachLoadBalancers.mli @@ -1,9 +1,7 @@ open Types type input = AttachLoadBalancersType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/completeLifecycleAction.ml b/libraries/autoscaling/lib/completeLifecycleAction.ml index c891e36c9..d41ebf9db 100644 --- a/libraries/autoscaling/lib/completeLifecycleAction.ml +++ b/libraries/autoscaling/lib/completeLifecycleAction.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CompleteLifecycleActionType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/completeLifecycleAction.mli b/libraries/autoscaling/lib/completeLifecycleAction.mli index 61aae8ede..769bef8d8 100644 --- a/libraries/autoscaling/lib/completeLifecycleAction.mli +++ b/libraries/autoscaling/lib/completeLifecycleAction.mli @@ -1,9 +1,7 @@ open Types type input = CompleteLifecycleActionType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/createAutoScalingGroup.ml b/libraries/autoscaling/lib/createAutoScalingGroup.ml index 4a0642305..5b141dc65 100644 --- a/libraries/autoscaling/lib/createAutoScalingGroup.ml +++ b/libraries/autoscaling/lib/createAutoScalingGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateAutoScalingGroupType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/createAutoScalingGroup.mli b/libraries/autoscaling/lib/createAutoScalingGroup.mli index a3c560283..2b84b006d 100644 --- a/libraries/autoscaling/lib/createAutoScalingGroup.mli +++ b/libraries/autoscaling/lib/createAutoScalingGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateAutoScalingGroupType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/createLaunchConfiguration.ml b/libraries/autoscaling/lib/createLaunchConfiguration.ml index 2ffa36724..36b9cab2e 100644 --- a/libraries/autoscaling/lib/createLaunchConfiguration.ml +++ b/libraries/autoscaling/lib/createLaunchConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLaunchConfigurationType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/createLaunchConfiguration.mli b/libraries/autoscaling/lib/createLaunchConfiguration.mli index 61994ac7e..39a987d25 100644 --- a/libraries/autoscaling/lib/createLaunchConfiguration.mli +++ b/libraries/autoscaling/lib/createLaunchConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = CreateLaunchConfigurationType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/createOrUpdateTags.ml b/libraries/autoscaling/lib/createOrUpdateTags.ml index e10931d05..b115c7ea6 100644 --- a/libraries/autoscaling/lib/createOrUpdateTags.ml +++ b/libraries/autoscaling/lib/createOrUpdateTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateOrUpdateTagsType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/createOrUpdateTags.mli b/libraries/autoscaling/lib/createOrUpdateTags.mli index 2aec2e0ef..40b53a968 100644 --- a/libraries/autoscaling/lib/createOrUpdateTags.mli +++ b/libraries/autoscaling/lib/createOrUpdateTags.mli @@ -1,9 +1,7 @@ open Types type input = CreateOrUpdateTagsType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deleteAutoScalingGroup.ml b/libraries/autoscaling/lib/deleteAutoScalingGroup.ml index 285243de6..bf9136a1a 100644 --- a/libraries/autoscaling/lib/deleteAutoScalingGroup.ml +++ b/libraries/autoscaling/lib/deleteAutoScalingGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAutoScalingGroupType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deleteAutoScalingGroup.mli b/libraries/autoscaling/lib/deleteAutoScalingGroup.mli index bac19f3a1..22cc2ee1f 100644 --- a/libraries/autoscaling/lib/deleteAutoScalingGroup.mli +++ b/libraries/autoscaling/lib/deleteAutoScalingGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAutoScalingGroupType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deleteLaunchConfiguration.ml b/libraries/autoscaling/lib/deleteLaunchConfiguration.ml index 94f4eaec5..10e3a96c0 100644 --- a/libraries/autoscaling/lib/deleteLaunchConfiguration.ml +++ b/libraries/autoscaling/lib/deleteLaunchConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = LaunchConfigurationNameType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deleteLaunchConfiguration.mli b/libraries/autoscaling/lib/deleteLaunchConfiguration.mli index bf76a4100..fb61464f2 100644 --- a/libraries/autoscaling/lib/deleteLaunchConfiguration.mli +++ b/libraries/autoscaling/lib/deleteLaunchConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = LaunchConfigurationNameType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deleteLifecycleHook.ml b/libraries/autoscaling/lib/deleteLifecycleHook.ml index 6273b8844..76a499c69 100644 --- a/libraries/autoscaling/lib/deleteLifecycleHook.ml +++ b/libraries/autoscaling/lib/deleteLifecycleHook.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLifecycleHookType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deleteLifecycleHook.mli b/libraries/autoscaling/lib/deleteLifecycleHook.mli index aed23a645..1d8d5978b 100644 --- a/libraries/autoscaling/lib/deleteLifecycleHook.mli +++ b/libraries/autoscaling/lib/deleteLifecycleHook.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLifecycleHookType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deleteNotificationConfiguration.ml b/libraries/autoscaling/lib/deleteNotificationConfiguration.ml index a6b687366..291ea6517 100644 --- a/libraries/autoscaling/lib/deleteNotificationConfiguration.ml +++ b/libraries/autoscaling/lib/deleteNotificationConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteNotificationConfigurationType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deleteNotificationConfiguration.mli b/libraries/autoscaling/lib/deleteNotificationConfiguration.mli index 9b3ccb61f..735715264 100644 --- a/libraries/autoscaling/lib/deleteNotificationConfiguration.mli +++ b/libraries/autoscaling/lib/deleteNotificationConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = DeleteNotificationConfigurationType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deletePolicy.ml b/libraries/autoscaling/lib/deletePolicy.ml index 455d6fba1..75dbadddc 100644 --- a/libraries/autoscaling/lib/deletePolicy.ml +++ b/libraries/autoscaling/lib/deletePolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeletePolicyType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deletePolicy.mli b/libraries/autoscaling/lib/deletePolicy.mli index 4eafe69b5..54b09985a 100644 --- a/libraries/autoscaling/lib/deletePolicy.mli +++ b/libraries/autoscaling/lib/deletePolicy.mli @@ -1,9 +1,7 @@ open Types type input = DeletePolicyType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deleteScheduledAction.ml b/libraries/autoscaling/lib/deleteScheduledAction.ml index 9b0a262bb..a1993e63c 100644 --- a/libraries/autoscaling/lib/deleteScheduledAction.ml +++ b/libraries/autoscaling/lib/deleteScheduledAction.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteScheduledActionType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deleteScheduledAction.mli b/libraries/autoscaling/lib/deleteScheduledAction.mli index 5c5e26596..f6e55a5c5 100644 --- a/libraries/autoscaling/lib/deleteScheduledAction.mli +++ b/libraries/autoscaling/lib/deleteScheduledAction.mli @@ -1,9 +1,7 @@ open Types type input = DeleteScheduledActionType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/deleteTags.ml b/libraries/autoscaling/lib/deleteTags.ml index dbe8f0a58..e56578f06 100644 --- a/libraries/autoscaling/lib/deleteTags.ml +++ b/libraries/autoscaling/lib/deleteTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTagsType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/deleteTags.mli b/libraries/autoscaling/lib/deleteTags.mli index 514367c39..cabc61316 100644 --- a/libraries/autoscaling/lib/deleteTags.mli +++ b/libraries/autoscaling/lib/deleteTags.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTagsType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeAccountLimits.ml b/libraries/autoscaling/lib/describeAccountLimits.ml index 2cab3a21e..173df4437 100644 --- a/libraries/autoscaling/lib/describeAccountLimits.ml +++ b/libraries/autoscaling/lib/describeAccountLimits.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = DescribeAccountLimitsAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeAccountLimits.mli b/libraries/autoscaling/lib/describeAccountLimits.mli index c69c0d0de..d60b19e9e 100644 --- a/libraries/autoscaling/lib/describeAccountLimits.mli +++ b/libraries/autoscaling/lib/describeAccountLimits.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = DescribeAccountLimitsAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeAdjustmentTypes.ml b/libraries/autoscaling/lib/describeAdjustmentTypes.ml index ba049bb3d..356688e5d 100644 --- a/libraries/autoscaling/lib/describeAdjustmentTypes.ml +++ b/libraries/autoscaling/lib/describeAdjustmentTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = DescribeAdjustmentTypesAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeAdjustmentTypes.mli b/libraries/autoscaling/lib/describeAdjustmentTypes.mli index df6d95780..039f38c72 100644 --- a/libraries/autoscaling/lib/describeAdjustmentTypes.mli +++ b/libraries/autoscaling/lib/describeAdjustmentTypes.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = DescribeAdjustmentTypesAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeAutoScalingGroups.ml b/libraries/autoscaling/lib/describeAutoScalingGroups.ml index 3f3fee0cc..45d8c34d9 100644 --- a/libraries/autoscaling/lib/describeAutoScalingGroups.ml +++ b/libraries/autoscaling/lib/describeAutoScalingGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AutoScalingGroupNamesType.t - type output = AutoScalingGroupsType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeAutoScalingGroups.mli b/libraries/autoscaling/lib/describeAutoScalingGroups.mli index 57623e392..55329f078 100644 --- a/libraries/autoscaling/lib/describeAutoScalingGroups.mli +++ b/libraries/autoscaling/lib/describeAutoScalingGroups.mli @@ -1,9 +1,7 @@ open Types type input = AutoScalingGroupNamesType.t - type output = AutoScalingGroupsType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeAutoScalingInstances.ml b/libraries/autoscaling/lib/describeAutoScalingInstances.ml index 29be28d0d..e991dbd06 100644 --- a/libraries/autoscaling/lib/describeAutoScalingInstances.ml +++ b/libraries/autoscaling/lib/describeAutoScalingInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAutoScalingInstancesType.t - type output = AutoScalingInstancesType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeAutoScalingInstances.mli b/libraries/autoscaling/lib/describeAutoScalingInstances.mli index b7ef8ad7f..f2fc0cf9e 100644 --- a/libraries/autoscaling/lib/describeAutoScalingInstances.mli +++ b/libraries/autoscaling/lib/describeAutoScalingInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAutoScalingInstancesType.t - type output = AutoScalingInstancesType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.ml b/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.ml index 89f95e006..eacbd8793 100644 --- a/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.ml +++ b/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = DescribeAutoScalingNotificationTypesAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.mli b/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.mli index f2f2b7588..16ec12623 100644 --- a/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.mli +++ b/libraries/autoscaling/lib/describeAutoScalingNotificationTypes.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = DescribeAutoScalingNotificationTypesAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeLaunchConfigurations.ml b/libraries/autoscaling/lib/describeLaunchConfigurations.ml index 08e4a8bc9..b4f9a299f 100644 --- a/libraries/autoscaling/lib/describeLaunchConfigurations.ml +++ b/libraries/autoscaling/lib/describeLaunchConfigurations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = LaunchConfigurationNamesType.t - type output = LaunchConfigurationsType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeLaunchConfigurations.mli b/libraries/autoscaling/lib/describeLaunchConfigurations.mli index 609eeb975..6cae21655 100644 --- a/libraries/autoscaling/lib/describeLaunchConfigurations.mli +++ b/libraries/autoscaling/lib/describeLaunchConfigurations.mli @@ -1,9 +1,7 @@ open Types type input = LaunchConfigurationNamesType.t - type output = LaunchConfigurationsType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeLifecycleHookTypes.ml b/libraries/autoscaling/lib/describeLifecycleHookTypes.ml index 8200ca8c1..6a0ebd319 100644 --- a/libraries/autoscaling/lib/describeLifecycleHookTypes.ml +++ b/libraries/autoscaling/lib/describeLifecycleHookTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = DescribeLifecycleHookTypesAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeLifecycleHookTypes.mli b/libraries/autoscaling/lib/describeLifecycleHookTypes.mli index 409b167f9..5fdec7d80 100644 --- a/libraries/autoscaling/lib/describeLifecycleHookTypes.mli +++ b/libraries/autoscaling/lib/describeLifecycleHookTypes.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = DescribeLifecycleHookTypesAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeLifecycleHooks.ml b/libraries/autoscaling/lib/describeLifecycleHooks.ml index 4fde93169..035a4a8d1 100644 --- a/libraries/autoscaling/lib/describeLifecycleHooks.ml +++ b/libraries/autoscaling/lib/describeLifecycleHooks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLifecycleHooksType.t - type output = DescribeLifecycleHooksAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeLifecycleHooks.mli b/libraries/autoscaling/lib/describeLifecycleHooks.mli index b1c5d8598..67063e50f 100644 --- a/libraries/autoscaling/lib/describeLifecycleHooks.mli +++ b/libraries/autoscaling/lib/describeLifecycleHooks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLifecycleHooksType.t - type output = DescribeLifecycleHooksAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeLoadBalancers.ml b/libraries/autoscaling/lib/describeLoadBalancers.ml index dd04ae5ac..8cc9fa235 100644 --- a/libraries/autoscaling/lib/describeLoadBalancers.ml +++ b/libraries/autoscaling/lib/describeLoadBalancers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLoadBalancersRequest.t - type output = DescribeLoadBalancersResponse.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeLoadBalancers.mli b/libraries/autoscaling/lib/describeLoadBalancers.mli index c2c407149..d60b7b7be 100644 --- a/libraries/autoscaling/lib/describeLoadBalancers.mli +++ b/libraries/autoscaling/lib/describeLoadBalancers.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLoadBalancersRequest.t - type output = DescribeLoadBalancersResponse.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeMetricCollectionTypes.ml b/libraries/autoscaling/lib/describeMetricCollectionTypes.ml index 2a49f122e..ce2a70de8 100644 --- a/libraries/autoscaling/lib/describeMetricCollectionTypes.ml +++ b/libraries/autoscaling/lib/describeMetricCollectionTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = DescribeMetricCollectionTypesAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeMetricCollectionTypes.mli b/libraries/autoscaling/lib/describeMetricCollectionTypes.mli index cb1978b5e..5a5c35e00 100644 --- a/libraries/autoscaling/lib/describeMetricCollectionTypes.mli +++ b/libraries/autoscaling/lib/describeMetricCollectionTypes.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = DescribeMetricCollectionTypesAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeNotificationConfigurations.ml b/libraries/autoscaling/lib/describeNotificationConfigurations.ml index 608e4a531..76adfb7eb 100644 --- a/libraries/autoscaling/lib/describeNotificationConfigurations.ml +++ b/libraries/autoscaling/lib/describeNotificationConfigurations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeNotificationConfigurationsType.t - type output = DescribeNotificationConfigurationsAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeNotificationConfigurations.mli b/libraries/autoscaling/lib/describeNotificationConfigurations.mli index ba73b1d36..06e23dfff 100644 --- a/libraries/autoscaling/lib/describeNotificationConfigurations.mli +++ b/libraries/autoscaling/lib/describeNotificationConfigurations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeNotificationConfigurationsType.t - type output = DescribeNotificationConfigurationsAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describePolicies.ml b/libraries/autoscaling/lib/describePolicies.ml index 6ac92b5ed..7d06d9bb1 100644 --- a/libraries/autoscaling/lib/describePolicies.ml +++ b/libraries/autoscaling/lib/describePolicies.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePoliciesType.t - type output = PoliciesType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describePolicies.mli b/libraries/autoscaling/lib/describePolicies.mli index 85d88ed91..154b4f184 100644 --- a/libraries/autoscaling/lib/describePolicies.mli +++ b/libraries/autoscaling/lib/describePolicies.mli @@ -1,9 +1,7 @@ open Types type input = DescribePoliciesType.t - type output = PoliciesType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeScalingActivities.ml b/libraries/autoscaling/lib/describeScalingActivities.ml index 4d4e21096..1bedaea90 100644 --- a/libraries/autoscaling/lib/describeScalingActivities.ml +++ b/libraries/autoscaling/lib/describeScalingActivities.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeScalingActivitiesType.t - type output = ActivitiesType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeScalingActivities.mli b/libraries/autoscaling/lib/describeScalingActivities.mli index 356a409c6..130fd3c52 100644 --- a/libraries/autoscaling/lib/describeScalingActivities.mli +++ b/libraries/autoscaling/lib/describeScalingActivities.mli @@ -1,9 +1,7 @@ open Types type input = DescribeScalingActivitiesType.t - type output = ActivitiesType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeScalingProcessTypes.ml b/libraries/autoscaling/lib/describeScalingProcessTypes.ml index 6f470f05e..ff77034e5 100644 --- a/libraries/autoscaling/lib/describeScalingProcessTypes.ml +++ b/libraries/autoscaling/lib/describeScalingProcessTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = ProcessesType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeScalingProcessTypes.mli b/libraries/autoscaling/lib/describeScalingProcessTypes.mli index dc5c20697..92a3c956b 100644 --- a/libraries/autoscaling/lib/describeScalingProcessTypes.mli +++ b/libraries/autoscaling/lib/describeScalingProcessTypes.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = ProcessesType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeScheduledActions.ml b/libraries/autoscaling/lib/describeScheduledActions.ml index 37f11db51..1437e83fd 100644 --- a/libraries/autoscaling/lib/describeScheduledActions.ml +++ b/libraries/autoscaling/lib/describeScheduledActions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeScheduledActionsType.t - type output = ScheduledActionsType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeScheduledActions.mli b/libraries/autoscaling/lib/describeScheduledActions.mli index 33ecde106..0383460f4 100644 --- a/libraries/autoscaling/lib/describeScheduledActions.mli +++ b/libraries/autoscaling/lib/describeScheduledActions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeScheduledActionsType.t - type output = ScheduledActionsType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeTags.ml b/libraries/autoscaling/lib/describeTags.ml index f236ddfdd..fb614cb86 100644 --- a/libraries/autoscaling/lib/describeTags.ml +++ b/libraries/autoscaling/lib/describeTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTagsType.t - type output = TagsType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeTags.mli b/libraries/autoscaling/lib/describeTags.mli index 7fd223dcc..35046aced 100644 --- a/libraries/autoscaling/lib/describeTags.mli +++ b/libraries/autoscaling/lib/describeTags.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTagsType.t - type output = TagsType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/describeTerminationPolicyTypes.ml b/libraries/autoscaling/lib/describeTerminationPolicyTypes.ml index c9e947ab1..c5cd48897 100644 --- a/libraries/autoscaling/lib/describeTerminationPolicyTypes.ml +++ b/libraries/autoscaling/lib/describeTerminationPolicyTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = Aws.BaseTypes.Unit.t - type output = DescribeTerminationPolicyTypesAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/describeTerminationPolicyTypes.mli b/libraries/autoscaling/lib/describeTerminationPolicyTypes.mli index ee67c32b6..e2d977a29 100644 --- a/libraries/autoscaling/lib/describeTerminationPolicyTypes.mli +++ b/libraries/autoscaling/lib/describeTerminationPolicyTypes.mli @@ -1,9 +1,7 @@ open Types type input = Aws.BaseTypes.Unit.t - type output = DescribeTerminationPolicyTypesAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/detachInstances.ml b/libraries/autoscaling/lib/detachInstances.ml index faad9fe52..3ae38e147 100644 --- a/libraries/autoscaling/lib/detachInstances.ml +++ b/libraries/autoscaling/lib/detachInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachInstancesQuery.t - type output = DetachInstancesAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/detachInstances.mli b/libraries/autoscaling/lib/detachInstances.mli index 22006b284..24458e7fe 100644 --- a/libraries/autoscaling/lib/detachInstances.mli +++ b/libraries/autoscaling/lib/detachInstances.mli @@ -1,9 +1,7 @@ open Types type input = DetachInstancesQuery.t - type output = DetachInstancesAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/detachLoadBalancers.ml b/libraries/autoscaling/lib/detachLoadBalancers.ml index cd3d063b4..4b78c6761 100644 --- a/libraries/autoscaling/lib/detachLoadBalancers.ml +++ b/libraries/autoscaling/lib/detachLoadBalancers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachLoadBalancersType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/detachLoadBalancers.mli b/libraries/autoscaling/lib/detachLoadBalancers.mli index ca88f7af8..32e1ac9f1 100644 --- a/libraries/autoscaling/lib/detachLoadBalancers.mli +++ b/libraries/autoscaling/lib/detachLoadBalancers.mli @@ -1,9 +1,7 @@ open Types type input = DetachLoadBalancersType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/disableMetricsCollection.ml b/libraries/autoscaling/lib/disableMetricsCollection.ml index 60704bd31..4b1716ab5 100644 --- a/libraries/autoscaling/lib/disableMetricsCollection.ml +++ b/libraries/autoscaling/lib/disableMetricsCollection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableMetricsCollectionQuery.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/disableMetricsCollection.mli b/libraries/autoscaling/lib/disableMetricsCollection.mli index 924c6aab8..ce29c13a2 100644 --- a/libraries/autoscaling/lib/disableMetricsCollection.mli +++ b/libraries/autoscaling/lib/disableMetricsCollection.mli @@ -1,9 +1,7 @@ open Types type input = DisableMetricsCollectionQuery.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/enableMetricsCollection.ml b/libraries/autoscaling/lib/enableMetricsCollection.ml index f2b5611d5..68f40dfc5 100644 --- a/libraries/autoscaling/lib/enableMetricsCollection.ml +++ b/libraries/autoscaling/lib/enableMetricsCollection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableMetricsCollectionQuery.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/enableMetricsCollection.mli b/libraries/autoscaling/lib/enableMetricsCollection.mli index 801013673..86e752b99 100644 --- a/libraries/autoscaling/lib/enableMetricsCollection.mli +++ b/libraries/autoscaling/lib/enableMetricsCollection.mli @@ -1,9 +1,7 @@ open Types type input = EnableMetricsCollectionQuery.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/enterStandby.ml b/libraries/autoscaling/lib/enterStandby.ml index d81b2919b..4dd14724d 100644 --- a/libraries/autoscaling/lib/enterStandby.ml +++ b/libraries/autoscaling/lib/enterStandby.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnterStandbyQuery.t - type output = EnterStandbyAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/enterStandby.mli b/libraries/autoscaling/lib/enterStandby.mli index 8a2afbc5b..60344ae6a 100644 --- a/libraries/autoscaling/lib/enterStandby.mli +++ b/libraries/autoscaling/lib/enterStandby.mli @@ -1,9 +1,7 @@ open Types type input = EnterStandbyQuery.t - type output = EnterStandbyAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/executePolicy.ml b/libraries/autoscaling/lib/executePolicy.ml index 6c33c65f8..efbfceed3 100644 --- a/libraries/autoscaling/lib/executePolicy.ml +++ b/libraries/autoscaling/lib/executePolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExecutePolicyType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/executePolicy.mli b/libraries/autoscaling/lib/executePolicy.mli index 20f6cf371..c4dcf0a54 100644 --- a/libraries/autoscaling/lib/executePolicy.mli +++ b/libraries/autoscaling/lib/executePolicy.mli @@ -1,9 +1,7 @@ open Types type input = ExecutePolicyType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/exitStandby.ml b/libraries/autoscaling/lib/exitStandby.ml index 8f48689d0..378384563 100644 --- a/libraries/autoscaling/lib/exitStandby.ml +++ b/libraries/autoscaling/lib/exitStandby.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExitStandbyQuery.t - type output = ExitStandbyAnswer.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/exitStandby.mli b/libraries/autoscaling/lib/exitStandby.mli index 3345fbc11..bd8fbb4a6 100644 --- a/libraries/autoscaling/lib/exitStandby.mli +++ b/libraries/autoscaling/lib/exitStandby.mli @@ -1,9 +1,7 @@ open Types type input = ExitStandbyQuery.t - type output = ExitStandbyAnswer.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/putLifecycleHook.ml b/libraries/autoscaling/lib/putLifecycleHook.ml index f18dbbb9f..53cde962a 100644 --- a/libraries/autoscaling/lib/putLifecycleHook.ml +++ b/libraries/autoscaling/lib/putLifecycleHook.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutLifecycleHookType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/putLifecycleHook.mli b/libraries/autoscaling/lib/putLifecycleHook.mli index c226bca06..bae69f5c6 100644 --- a/libraries/autoscaling/lib/putLifecycleHook.mli +++ b/libraries/autoscaling/lib/putLifecycleHook.mli @@ -1,9 +1,7 @@ open Types type input = PutLifecycleHookType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/putNotificationConfiguration.ml b/libraries/autoscaling/lib/putNotificationConfiguration.ml index 3668c5a0b..98920bf17 100644 --- a/libraries/autoscaling/lib/putNotificationConfiguration.ml +++ b/libraries/autoscaling/lib/putNotificationConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutNotificationConfigurationType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/putNotificationConfiguration.mli b/libraries/autoscaling/lib/putNotificationConfiguration.mli index 9e5e1d078..39fdcae21 100644 --- a/libraries/autoscaling/lib/putNotificationConfiguration.mli +++ b/libraries/autoscaling/lib/putNotificationConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = PutNotificationConfigurationType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/putScalingPolicy.ml b/libraries/autoscaling/lib/putScalingPolicy.ml index 280d6f022..59c040d6d 100644 --- a/libraries/autoscaling/lib/putScalingPolicy.ml +++ b/libraries/autoscaling/lib/putScalingPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutScalingPolicyType.t - type output = PolicyARNType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/putScalingPolicy.mli b/libraries/autoscaling/lib/putScalingPolicy.mli index e59ea5f15..c6498cec3 100644 --- a/libraries/autoscaling/lib/putScalingPolicy.mli +++ b/libraries/autoscaling/lib/putScalingPolicy.mli @@ -1,9 +1,7 @@ open Types type input = PutScalingPolicyType.t - type output = PolicyARNType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/putScheduledUpdateGroupAction.ml b/libraries/autoscaling/lib/putScheduledUpdateGroupAction.ml index 79f85ec6e..d7df651bb 100644 --- a/libraries/autoscaling/lib/putScheduledUpdateGroupAction.ml +++ b/libraries/autoscaling/lib/putScheduledUpdateGroupAction.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutScheduledUpdateGroupActionType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/putScheduledUpdateGroupAction.mli b/libraries/autoscaling/lib/putScheduledUpdateGroupAction.mli index b20f14290..4dd37798c 100644 --- a/libraries/autoscaling/lib/putScheduledUpdateGroupAction.mli +++ b/libraries/autoscaling/lib/putScheduledUpdateGroupAction.mli @@ -1,9 +1,7 @@ open Types type input = PutScheduledUpdateGroupActionType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.ml b/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.ml index 1282ea42e..4a5359f45 100644 --- a/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.ml +++ b/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RecordLifecycleActionHeartbeatType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.mli b/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.mli index 62c60c97c..6125b5f30 100644 --- a/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.mli +++ b/libraries/autoscaling/lib/recordLifecycleActionHeartbeat.mli @@ -1,9 +1,7 @@ open Types type input = RecordLifecycleActionHeartbeatType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/resumeProcesses.ml b/libraries/autoscaling/lib/resumeProcesses.ml index 1f018d544..284083b72 100644 --- a/libraries/autoscaling/lib/resumeProcesses.ml +++ b/libraries/autoscaling/lib/resumeProcesses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ScalingProcessQuery.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/resumeProcesses.mli b/libraries/autoscaling/lib/resumeProcesses.mli index 7d068f6b6..91061d8a4 100644 --- a/libraries/autoscaling/lib/resumeProcesses.mli +++ b/libraries/autoscaling/lib/resumeProcesses.mli @@ -1,9 +1,7 @@ open Types type input = ScalingProcessQuery.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/setDesiredCapacity.ml b/libraries/autoscaling/lib/setDesiredCapacity.ml index a5cab030c..66d181eaa 100644 --- a/libraries/autoscaling/lib/setDesiredCapacity.ml +++ b/libraries/autoscaling/lib/setDesiredCapacity.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetDesiredCapacityType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/setDesiredCapacity.mli b/libraries/autoscaling/lib/setDesiredCapacity.mli index 7797463bd..8750efa60 100644 --- a/libraries/autoscaling/lib/setDesiredCapacity.mli +++ b/libraries/autoscaling/lib/setDesiredCapacity.mli @@ -1,9 +1,7 @@ open Types type input = SetDesiredCapacityType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/setInstanceHealth.ml b/libraries/autoscaling/lib/setInstanceHealth.ml index aa3bcd0f6..0ab18d9d7 100644 --- a/libraries/autoscaling/lib/setInstanceHealth.ml +++ b/libraries/autoscaling/lib/setInstanceHealth.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetInstanceHealthQuery.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/setInstanceHealth.mli b/libraries/autoscaling/lib/setInstanceHealth.mli index 33c05ac94..78bcc66c7 100644 --- a/libraries/autoscaling/lib/setInstanceHealth.mli +++ b/libraries/autoscaling/lib/setInstanceHealth.mli @@ -1,9 +1,7 @@ open Types type input = SetInstanceHealthQuery.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/suspendProcesses.ml b/libraries/autoscaling/lib/suspendProcesses.ml index 5488ae33a..da35413f8 100644 --- a/libraries/autoscaling/lib/suspendProcesses.ml +++ b/libraries/autoscaling/lib/suspendProcesses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ScalingProcessQuery.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/suspendProcesses.mli b/libraries/autoscaling/lib/suspendProcesses.mli index 7d068f6b6..91061d8a4 100644 --- a/libraries/autoscaling/lib/suspendProcesses.mli +++ b/libraries/autoscaling/lib/suspendProcesses.mli @@ -1,9 +1,7 @@ open Types type input = ScalingProcessQuery.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.ml b/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.ml index 075243982..5854dd83e 100644 --- a/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.ml +++ b/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TerminateInstanceInAutoScalingGroupType.t - type output = ActivityType.t - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.mli b/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.mli index 471fbe893..bc6931913 100644 --- a/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.mli +++ b/libraries/autoscaling/lib/terminateInstanceInAutoScalingGroup.mli @@ -1,9 +1,7 @@ open Types type input = TerminateInstanceInAutoScalingGroupType.t - type output = ActivityType.t - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib/types.ml b/libraries/autoscaling/lib/types.ml index 74f6fd386..75931ba83 100644 --- a/libraries/autoscaling/lib/types.ml +++ b/libraries/autoscaling/lib/types.ml @@ -11,9 +11,7 @@ module Values = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -66,9 +64,7 @@ module ProcessNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -105,9 +101,7 @@ module SecurityGroups = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -144,9 +138,7 @@ module ClassicLinkVPCSecurityGroups = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -269,9 +261,7 @@ module BlockDeviceMappings = struct Aws.Util.option_all (List.map BlockDeviceMapping.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list BlockDeviceMapping.to_query v - let to_json v = `List (List.map BlockDeviceMapping.to_json v) - let of_json j = Aws.Json.to_list BlockDeviceMapping.of_json j end @@ -537,9 +527,7 @@ module LaunchConfigurations = struct (List.map LaunchConfiguration.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list LaunchConfiguration.to_query v - let to_json v = `List (List.map LaunchConfiguration.to_json v) - let of_json j = Aws.Json.to_list LaunchConfiguration.of_json j end @@ -602,9 +590,7 @@ module NotificationConfigurations = struct (List.map NotificationConfiguration.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list NotificationConfiguration.to_query v - let to_json v = `List (List.map NotificationConfiguration.to_json v) - let of_json j = Aws.Json.to_list NotificationConfiguration.of_json j end @@ -657,9 +643,7 @@ module ScheduledActionNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -760,9 +744,7 @@ module InstanceIds = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -956,9 +938,7 @@ module Processes = struct Aws.Util.option_all (List.map ProcessType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ProcessType.to_query v - let to_json v = `List (List.map ProcessType.to_json v) - let of_json j = Aws.Json.to_list ProcessType.of_json j end @@ -1046,9 +1026,7 @@ module Metrics = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1107,9 +1085,7 @@ module LifecycleHookNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1209,9 +1185,7 @@ module ScalingActivityStatusCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1221,7 +1195,6 @@ module ScalingActivityStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1366,9 +1339,7 @@ module Activities = struct Aws.Util.option_all (List.map Activity.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Activity.to_query v - let to_json v = `List (List.map Activity.to_json v) - let of_json j = Aws.Json.to_list Activity.of_json j end @@ -1436,9 +1407,7 @@ module MetricGranularityTypes = struct (List.map MetricGranularityType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MetricGranularityType.to_query v - let to_json v = `List (List.map MetricGranularityType.to_json v) - let of_json j = Aws.Json.to_list MetricGranularityType.of_json j end @@ -1476,9 +1445,7 @@ module MetricCollectionTypes = struct (List.map MetricCollectionType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MetricCollectionType.to_query v - let to_json v = `List (List.map MetricCollectionType.to_json v) - let of_json j = Aws.Json.to_list MetricCollectionType.of_json j end @@ -1611,9 +1578,7 @@ module AutoScalingGroupNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1745,9 +1710,7 @@ module ScheduledUpdateGroupActions = struct (List.map ScheduledUpdateGroupAction.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ScheduledUpdateGroupAction.to_query v - let to_json v = `List (List.map ScheduledUpdateGroupAction.to_json v) - let of_json j = Aws.Json.to_list ScheduledUpdateGroupAction.of_json j end @@ -1779,13 +1742,9 @@ module CompleteLifecycleActionAnswer = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1876,9 +1835,7 @@ module LoadBalancerStates = struct Aws.Util.option_all (List.map LoadBalancerState.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list LoadBalancerState.to_query v - let to_json v = `List (List.map LoadBalancerState.to_json v) - let of_json j = Aws.Json.to_list LoadBalancerState.of_json j end @@ -1935,9 +1892,7 @@ module AutoScalingNotificationTypes = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2067,9 +2022,7 @@ module TerminationPolicies = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2151,9 +2104,7 @@ module TagDescriptionList = struct Aws.Util.option_all (List.map TagDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TagDescription.to_query v - let to_json v = `List (List.map TagDescription.to_json v) - let of_json j = Aws.Json.to_list TagDescription.of_json j end @@ -2166,9 +2117,7 @@ module SuspendedProcesses = struct Aws.Util.option_all (List.map SuspendedProcess.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list SuspendedProcess.to_query v - let to_json v = `List (List.map SuspendedProcess.to_json v) - let of_json j = Aws.Json.to_list SuspendedProcess.of_json j end @@ -2181,9 +2130,7 @@ module LoadBalancerNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2236,9 +2183,7 @@ module LifecycleState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2248,7 +2193,6 @@ module LifecycleState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2346,9 +2290,7 @@ module Instances = struct Aws.Util.option_all (List.map Instance.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Instance.to_query v - let to_json v = `List (List.map Instance.to_json v) - let of_json j = Aws.Json.to_list Instance.of_json j end @@ -2397,9 +2339,7 @@ module EnabledMetrics = struct Aws.Util.option_all (List.map EnabledMetric.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list EnabledMetric.to_query v - let to_json v = `List (List.map EnabledMetric.to_json v) - let of_json j = Aws.Json.to_list EnabledMetric.of_json j end @@ -2412,9 +2352,7 @@ module AvailabilityZones = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2701,9 +2639,7 @@ module AutoScalingGroups = struct Aws.Util.option_all (List.map AutoScalingGroup.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AutoScalingGroup.to_query v - let to_json v = `List (List.map AutoScalingGroup.to_json v) - let of_json j = Aws.Json.to_list AutoScalingGroup.of_json j end @@ -3001,13 +2937,9 @@ module DeleteLifecycleHookAnswer = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3108,13 +3040,9 @@ module Tags = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -3233,9 +3161,7 @@ module AdjustmentTypes = struct Aws.Util.option_all (List.map AdjustmentType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AdjustmentType.to_query v - let to_json v = `List (List.map AdjustmentType.to_json v) - let of_json j = Aws.Json.to_list AdjustmentType.of_json j end @@ -3344,9 +3270,7 @@ module PolicyTypes = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3359,9 +3283,7 @@ module PolicyNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3562,9 +3484,7 @@ module StepAdjustments = struct Aws.Util.option_all (List.map StepAdjustment.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StepAdjustment.to_query v - let to_json v = `List (List.map StepAdjustment.to_json v) - let of_json j = Aws.Json.to_list StepAdjustment.of_json j end @@ -3819,9 +3739,7 @@ module Alarms = struct Aws.Util.option_all (List.map Alarm.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Alarm.to_query v - let to_json v = `List (List.map Alarm.to_json v) - let of_json j = Aws.Json.to_list Alarm.of_json j end @@ -3997,9 +3915,7 @@ module ScalingPolicies = struct Aws.Util.option_all (List.map ScalingPolicy.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ScalingPolicy.to_query v - let to_json v = `List (List.map ScalingPolicy.to_json v) - let of_json j = Aws.Json.to_list ScalingPolicy.of_json j end @@ -4234,9 +4150,7 @@ module LaunchConfigurationNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4370,9 +4284,7 @@ module Filters = struct Aws.Util.option_all (List.map Filter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Filter.to_query v - let to_json v = `List (List.map Filter.to_json v) - let of_json j = Aws.Json.to_list Filter.of_json j end @@ -4791,13 +4703,9 @@ module DetachLoadBalancersResultType = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -4892,9 +4800,7 @@ module ActivityIds = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5085,9 +4991,7 @@ module LifecycleHooks = struct Aws.Util.option_all (List.map LifecycleHook.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list LifecycleHook.to_query v - let to_json v = `List (List.map LifecycleHook.to_json v) - let of_json j = Aws.Json.to_list LifecycleHook.of_json j end @@ -5231,13 +5135,9 @@ module AttachLoadBalancersResultType = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5290,9 +5190,7 @@ module AutoScalingInstances = struct (List.map AutoScalingInstanceDetails.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AutoScalingInstanceDetails.to_query v - let to_json v = `List (List.map AutoScalingInstanceDetails.to_json v) - let of_json j = Aws.Json.to_list AutoScalingInstanceDetails.of_json j end @@ -6232,13 +6130,9 @@ module PutLifecycleHookAnswer = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6477,13 +6371,9 @@ module RecordLifecycleActionHeartbeatAnswer = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/autoscaling/lib/updateAutoScalingGroup.ml b/libraries/autoscaling/lib/updateAutoScalingGroup.ml index ba1f53161..da5fed261 100644 --- a/libraries/autoscaling/lib/updateAutoScalingGroup.ml +++ b/libraries/autoscaling/lib/updateAutoScalingGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateAutoScalingGroupType.t - type output = unit - type error = Errors_internal.t let service = "autoscaling" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/autoscaling/lib/updateAutoScalingGroup.mli b/libraries/autoscaling/lib/updateAutoScalingGroup.mli index 5e7e3d525..6d315e47b 100644 --- a/libraries/autoscaling/lib/updateAutoScalingGroup.mli +++ b/libraries/autoscaling/lib/updateAutoScalingGroup.mli @@ -1,9 +1,7 @@ open Types type input = UpdateAutoScalingGroupType.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/autoscaling/lib_test/test_async.ml b/libraries/autoscaling/lib_test/test_async.ml index dd8a1acd8..e892eae65 100644 --- a/libraries/autoscaling/lib_test/test_async.ml +++ b/libraries/autoscaling/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/autoscaling/lib_test/test_lwt.ml b/libraries/autoscaling/lib_test/test_lwt.ml index 7272d15b7..11d90f6f3 100644 --- a/libraries/autoscaling/lib_test/test_lwt.ml +++ b/libraries/autoscaling/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/cloudformation/lib/cancelUpdateStack.ml b/libraries/cloudformation/lib/cancelUpdateStack.ml index 24989bdfa..baa82116a 100644 --- a/libraries/cloudformation/lib/cancelUpdateStack.ml +++ b/libraries/cloudformation/lib/cancelUpdateStack.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelUpdateStackInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/cancelUpdateStack.mli b/libraries/cloudformation/lib/cancelUpdateStack.mli index aad3206a3..6314e77b3 100644 --- a/libraries/cloudformation/lib/cancelUpdateStack.mli +++ b/libraries/cloudformation/lib/cancelUpdateStack.mli @@ -1,9 +1,7 @@ open Types type input = CancelUpdateStackInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/continueUpdateRollback.ml b/libraries/cloudformation/lib/continueUpdateRollback.ml index 557134c20..257172b76 100644 --- a/libraries/cloudformation/lib/continueUpdateRollback.ml +++ b/libraries/cloudformation/lib/continueUpdateRollback.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ContinueUpdateRollbackInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/continueUpdateRollback.mli b/libraries/cloudformation/lib/continueUpdateRollback.mli index 284291983..d4b2560d1 100644 --- a/libraries/cloudformation/lib/continueUpdateRollback.mli +++ b/libraries/cloudformation/lib/continueUpdateRollback.mli @@ -1,9 +1,7 @@ open Types type input = ContinueUpdateRollbackInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/createChangeSet.ml b/libraries/cloudformation/lib/createChangeSet.ml index 9009cd675..69e770b0a 100644 --- a/libraries/cloudformation/lib/createChangeSet.ml +++ b/libraries/cloudformation/lib/createChangeSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateChangeSetInput.t - type output = CreateChangeSetOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/createChangeSet.mli b/libraries/cloudformation/lib/createChangeSet.mli index a758d0d0d..931b32abc 100644 --- a/libraries/cloudformation/lib/createChangeSet.mli +++ b/libraries/cloudformation/lib/createChangeSet.mli @@ -1,9 +1,7 @@ open Types type input = CreateChangeSetInput.t - type output = CreateChangeSetOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/createStack.ml b/libraries/cloudformation/lib/createStack.ml index 3865e4b4f..314c16edc 100644 --- a/libraries/cloudformation/lib/createStack.ml +++ b/libraries/cloudformation/lib/createStack.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateStackInput.t - type output = CreateStackOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/createStack.mli b/libraries/cloudformation/lib/createStack.mli index 2983a4e6a..a4bbd5b10 100644 --- a/libraries/cloudformation/lib/createStack.mli +++ b/libraries/cloudformation/lib/createStack.mli @@ -1,9 +1,7 @@ open Types type input = CreateStackInput.t - type output = CreateStackOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/createStackInstances.ml b/libraries/cloudformation/lib/createStackInstances.ml index fb15de6b0..0d31bb6d3 100644 --- a/libraries/cloudformation/lib/createStackInstances.ml +++ b/libraries/cloudformation/lib/createStackInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateStackInstancesInput.t - type output = CreateStackInstancesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/createStackInstances.mli b/libraries/cloudformation/lib/createStackInstances.mli index 417af6209..f245021fc 100644 --- a/libraries/cloudformation/lib/createStackInstances.mli +++ b/libraries/cloudformation/lib/createStackInstances.mli @@ -1,9 +1,7 @@ open Types type input = CreateStackInstancesInput.t - type output = CreateStackInstancesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/createStackSet.ml b/libraries/cloudformation/lib/createStackSet.ml index 000dd1560..db563df52 100644 --- a/libraries/cloudformation/lib/createStackSet.ml +++ b/libraries/cloudformation/lib/createStackSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateStackSetInput.t - type output = CreateStackSetOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/createStackSet.mli b/libraries/cloudformation/lib/createStackSet.mli index 476c8a03c..9d7047959 100644 --- a/libraries/cloudformation/lib/createStackSet.mli +++ b/libraries/cloudformation/lib/createStackSet.mli @@ -1,9 +1,7 @@ open Types type input = CreateStackSetInput.t - type output = CreateStackSetOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/deleteChangeSet.ml b/libraries/cloudformation/lib/deleteChangeSet.ml index af876f235..8a0e2a98d 100644 --- a/libraries/cloudformation/lib/deleteChangeSet.ml +++ b/libraries/cloudformation/lib/deleteChangeSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteChangeSetInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/deleteChangeSet.mli b/libraries/cloudformation/lib/deleteChangeSet.mli index f47955316..e108cc2ea 100644 --- a/libraries/cloudformation/lib/deleteChangeSet.mli +++ b/libraries/cloudformation/lib/deleteChangeSet.mli @@ -1,9 +1,7 @@ open Types type input = DeleteChangeSetInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/deleteStack.ml b/libraries/cloudformation/lib/deleteStack.ml index 4365ac847..e385e782e 100644 --- a/libraries/cloudformation/lib/deleteStack.ml +++ b/libraries/cloudformation/lib/deleteStack.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteStackInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/deleteStack.mli b/libraries/cloudformation/lib/deleteStack.mli index a7a555913..271af891a 100644 --- a/libraries/cloudformation/lib/deleteStack.mli +++ b/libraries/cloudformation/lib/deleteStack.mli @@ -1,9 +1,7 @@ open Types type input = DeleteStackInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/deleteStackInstances.ml b/libraries/cloudformation/lib/deleteStackInstances.ml index be79dcca6..b81e40af9 100644 --- a/libraries/cloudformation/lib/deleteStackInstances.ml +++ b/libraries/cloudformation/lib/deleteStackInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteStackInstancesInput.t - type output = DeleteStackInstancesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/deleteStackInstances.mli b/libraries/cloudformation/lib/deleteStackInstances.mli index fb9db7588..5d43024ac 100644 --- a/libraries/cloudformation/lib/deleteStackInstances.mli +++ b/libraries/cloudformation/lib/deleteStackInstances.mli @@ -1,9 +1,7 @@ open Types type input = DeleteStackInstancesInput.t - type output = DeleteStackInstancesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/deleteStackSet.ml b/libraries/cloudformation/lib/deleteStackSet.ml index 957702042..282be392d 100644 --- a/libraries/cloudformation/lib/deleteStackSet.ml +++ b/libraries/cloudformation/lib/deleteStackSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteStackSetInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/deleteStackSet.mli b/libraries/cloudformation/lib/deleteStackSet.mli index c7a2f1ce6..01076466d 100644 --- a/libraries/cloudformation/lib/deleteStackSet.mli +++ b/libraries/cloudformation/lib/deleteStackSet.mli @@ -1,9 +1,7 @@ open Types type input = DeleteStackSetInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/deregisterType.ml b/libraries/cloudformation/lib/deregisterType.ml index 99db481e8..c02e23762 100644 --- a/libraries/cloudformation/lib/deregisterType.ml +++ b/libraries/cloudformation/lib/deregisterType.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterTypeInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/deregisterType.mli b/libraries/cloudformation/lib/deregisterType.mli index d19810344..19e022855 100644 --- a/libraries/cloudformation/lib/deregisterType.mli +++ b/libraries/cloudformation/lib/deregisterType.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterTypeInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeAccountLimits.ml b/libraries/cloudformation/lib/describeAccountLimits.ml index 407ba5c27..c60ee19df 100644 --- a/libraries/cloudformation/lib/describeAccountLimits.ml +++ b/libraries/cloudformation/lib/describeAccountLimits.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAccountLimitsInput.t - type output = DescribeAccountLimitsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeAccountLimits.mli b/libraries/cloudformation/lib/describeAccountLimits.mli index 44f57f2c2..51d175fcf 100644 --- a/libraries/cloudformation/lib/describeAccountLimits.mli +++ b/libraries/cloudformation/lib/describeAccountLimits.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAccountLimitsInput.t - type output = DescribeAccountLimitsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeChangeSet.ml b/libraries/cloudformation/lib/describeChangeSet.ml index 64c98d4e3..d5a870cbb 100644 --- a/libraries/cloudformation/lib/describeChangeSet.ml +++ b/libraries/cloudformation/lib/describeChangeSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeChangeSetInput.t - type output = DescribeChangeSetOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeChangeSet.mli b/libraries/cloudformation/lib/describeChangeSet.mli index 922dd4f65..38ad80c68 100644 --- a/libraries/cloudformation/lib/describeChangeSet.mli +++ b/libraries/cloudformation/lib/describeChangeSet.mli @@ -1,9 +1,7 @@ open Types type input = DescribeChangeSetInput.t - type output = DescribeChangeSetOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackDriftDetectionStatus.ml b/libraries/cloudformation/lib/describeStackDriftDetectionStatus.ml index 635c3ea30..74b59dc94 100644 --- a/libraries/cloudformation/lib/describeStackDriftDetectionStatus.ml +++ b/libraries/cloudformation/lib/describeStackDriftDetectionStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackDriftDetectionStatusInput.t - type output = DescribeStackDriftDetectionStatusOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackDriftDetectionStatus.mli b/libraries/cloudformation/lib/describeStackDriftDetectionStatus.mli index 5239820fa..60d8b7268 100644 --- a/libraries/cloudformation/lib/describeStackDriftDetectionStatus.mli +++ b/libraries/cloudformation/lib/describeStackDriftDetectionStatus.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackDriftDetectionStatusInput.t - type output = DescribeStackDriftDetectionStatusOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackEvents.ml b/libraries/cloudformation/lib/describeStackEvents.ml index c1f032527..0d8f3ad0c 100644 --- a/libraries/cloudformation/lib/describeStackEvents.ml +++ b/libraries/cloudformation/lib/describeStackEvents.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackEventsInput.t - type output = DescribeStackEventsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackEvents.mli b/libraries/cloudformation/lib/describeStackEvents.mli index c3a3fdeea..cbba1e949 100644 --- a/libraries/cloudformation/lib/describeStackEvents.mli +++ b/libraries/cloudformation/lib/describeStackEvents.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackEventsInput.t - type output = DescribeStackEventsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackInstance.ml b/libraries/cloudformation/lib/describeStackInstance.ml index 73c92a818..935c951a8 100644 --- a/libraries/cloudformation/lib/describeStackInstance.ml +++ b/libraries/cloudformation/lib/describeStackInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackInstanceInput.t - type output = DescribeStackInstanceOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackInstance.mli b/libraries/cloudformation/lib/describeStackInstance.mli index 9379f8368..8339e8df7 100644 --- a/libraries/cloudformation/lib/describeStackInstance.mli +++ b/libraries/cloudformation/lib/describeStackInstance.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackInstanceInput.t - type output = DescribeStackInstanceOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackResource.ml b/libraries/cloudformation/lib/describeStackResource.ml index a7ed93174..84f8be64d 100644 --- a/libraries/cloudformation/lib/describeStackResource.ml +++ b/libraries/cloudformation/lib/describeStackResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackResourceInput.t - type output = DescribeStackResourceOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackResource.mli b/libraries/cloudformation/lib/describeStackResource.mli index d0e192b1f..b7f67940a 100644 --- a/libraries/cloudformation/lib/describeStackResource.mli +++ b/libraries/cloudformation/lib/describeStackResource.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackResourceInput.t - type output = DescribeStackResourceOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackResourceDrifts.ml b/libraries/cloudformation/lib/describeStackResourceDrifts.ml index a4f4c65ac..33e2ec88b 100644 --- a/libraries/cloudformation/lib/describeStackResourceDrifts.ml +++ b/libraries/cloudformation/lib/describeStackResourceDrifts.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackResourceDriftsInput.t - type output = DescribeStackResourceDriftsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackResourceDrifts.mli b/libraries/cloudformation/lib/describeStackResourceDrifts.mli index 948d594d0..0fb7583f5 100644 --- a/libraries/cloudformation/lib/describeStackResourceDrifts.mli +++ b/libraries/cloudformation/lib/describeStackResourceDrifts.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackResourceDriftsInput.t - type output = DescribeStackResourceDriftsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackResources.ml b/libraries/cloudformation/lib/describeStackResources.ml index 46a31954f..b4c12d96b 100644 --- a/libraries/cloudformation/lib/describeStackResources.ml +++ b/libraries/cloudformation/lib/describeStackResources.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackResourcesInput.t - type output = DescribeStackResourcesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackResources.mli b/libraries/cloudformation/lib/describeStackResources.mli index 98eb845a1..96cbe736d 100644 --- a/libraries/cloudformation/lib/describeStackResources.mli +++ b/libraries/cloudformation/lib/describeStackResources.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackResourcesInput.t - type output = DescribeStackResourcesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackSet.ml b/libraries/cloudformation/lib/describeStackSet.ml index 029e6fb53..4ca3f9c3f 100644 --- a/libraries/cloudformation/lib/describeStackSet.ml +++ b/libraries/cloudformation/lib/describeStackSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackSetInput.t - type output = DescribeStackSetOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackSet.mli b/libraries/cloudformation/lib/describeStackSet.mli index 217391152..9332dd72e 100644 --- a/libraries/cloudformation/lib/describeStackSet.mli +++ b/libraries/cloudformation/lib/describeStackSet.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackSetInput.t - type output = DescribeStackSetOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStackSetOperation.ml b/libraries/cloudformation/lib/describeStackSetOperation.ml index 0000948d1..8aeb86f0d 100644 --- a/libraries/cloudformation/lib/describeStackSetOperation.ml +++ b/libraries/cloudformation/lib/describeStackSetOperation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStackSetOperationInput.t - type output = DescribeStackSetOperationOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStackSetOperation.mli b/libraries/cloudformation/lib/describeStackSetOperation.mli index 6268c5b77..dd5cb4c60 100644 --- a/libraries/cloudformation/lib/describeStackSetOperation.mli +++ b/libraries/cloudformation/lib/describeStackSetOperation.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStackSetOperationInput.t - type output = DescribeStackSetOperationOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeStacks.ml b/libraries/cloudformation/lib/describeStacks.ml index ba4c250b7..96a96973d 100644 --- a/libraries/cloudformation/lib/describeStacks.ml +++ b/libraries/cloudformation/lib/describeStacks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStacksInput.t - type output = DescribeStacksOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeStacks.mli b/libraries/cloudformation/lib/describeStacks.mli index 976d33e13..45314025c 100644 --- a/libraries/cloudformation/lib/describeStacks.mli +++ b/libraries/cloudformation/lib/describeStacks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStacksInput.t - type output = DescribeStacksOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeType.ml b/libraries/cloudformation/lib/describeType.ml index 62727f795..009fcdfdb 100644 --- a/libraries/cloudformation/lib/describeType.ml +++ b/libraries/cloudformation/lib/describeType.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTypeInput.t - type output = DescribeTypeOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeType.mli b/libraries/cloudformation/lib/describeType.mli index 5bc131817..63ddbe7da 100644 --- a/libraries/cloudformation/lib/describeType.mli +++ b/libraries/cloudformation/lib/describeType.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTypeInput.t - type output = DescribeTypeOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/describeTypeRegistration.ml b/libraries/cloudformation/lib/describeTypeRegistration.ml index 808637093..2e45f92a6 100644 --- a/libraries/cloudformation/lib/describeTypeRegistration.ml +++ b/libraries/cloudformation/lib/describeTypeRegistration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTypeRegistrationInput.t - type output = DescribeTypeRegistrationOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/describeTypeRegistration.mli b/libraries/cloudformation/lib/describeTypeRegistration.mli index e5d9ac5ca..46bdc647e 100644 --- a/libraries/cloudformation/lib/describeTypeRegistration.mli +++ b/libraries/cloudformation/lib/describeTypeRegistration.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTypeRegistrationInput.t - type output = DescribeTypeRegistrationOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/detectStackDrift.ml b/libraries/cloudformation/lib/detectStackDrift.ml index 17dad3ba3..5aac731b6 100644 --- a/libraries/cloudformation/lib/detectStackDrift.ml +++ b/libraries/cloudformation/lib/detectStackDrift.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetectStackDriftInput.t - type output = DetectStackDriftOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/detectStackDrift.mli b/libraries/cloudformation/lib/detectStackDrift.mli index df79b86ba..027b14e3c 100644 --- a/libraries/cloudformation/lib/detectStackDrift.mli +++ b/libraries/cloudformation/lib/detectStackDrift.mli @@ -1,9 +1,7 @@ open Types type input = DetectStackDriftInput.t - type output = DetectStackDriftOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/detectStackResourceDrift.ml b/libraries/cloudformation/lib/detectStackResourceDrift.ml index b8a954d77..a49bd34ab 100644 --- a/libraries/cloudformation/lib/detectStackResourceDrift.ml +++ b/libraries/cloudformation/lib/detectStackResourceDrift.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetectStackResourceDriftInput.t - type output = DetectStackResourceDriftOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/detectStackResourceDrift.mli b/libraries/cloudformation/lib/detectStackResourceDrift.mli index 65f426196..3e5b5f050 100644 --- a/libraries/cloudformation/lib/detectStackResourceDrift.mli +++ b/libraries/cloudformation/lib/detectStackResourceDrift.mli @@ -1,9 +1,7 @@ open Types type input = DetectStackResourceDriftInput.t - type output = DetectStackResourceDriftOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/detectStackSetDrift.ml b/libraries/cloudformation/lib/detectStackSetDrift.ml index 8f5fcf62b..1e56e9b74 100644 --- a/libraries/cloudformation/lib/detectStackSetDrift.ml +++ b/libraries/cloudformation/lib/detectStackSetDrift.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetectStackSetDriftInput.t - type output = DetectStackSetDriftOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/detectStackSetDrift.mli b/libraries/cloudformation/lib/detectStackSetDrift.mli index 803e610cd..8834e0b82 100644 --- a/libraries/cloudformation/lib/detectStackSetDrift.mli +++ b/libraries/cloudformation/lib/detectStackSetDrift.mli @@ -1,9 +1,7 @@ open Types type input = DetectStackSetDriftInput.t - type output = DetectStackSetDriftOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/estimateTemplateCost.ml b/libraries/cloudformation/lib/estimateTemplateCost.ml index 6bb0e8147..d6dc2426a 100644 --- a/libraries/cloudformation/lib/estimateTemplateCost.ml +++ b/libraries/cloudformation/lib/estimateTemplateCost.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EstimateTemplateCostInput.t - type output = EstimateTemplateCostOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/estimateTemplateCost.mli b/libraries/cloudformation/lib/estimateTemplateCost.mli index 8548fe9ff..5acef98e6 100644 --- a/libraries/cloudformation/lib/estimateTemplateCost.mli +++ b/libraries/cloudformation/lib/estimateTemplateCost.mli @@ -1,9 +1,7 @@ open Types type input = EstimateTemplateCostInput.t - type output = EstimateTemplateCostOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/executeChangeSet.ml b/libraries/cloudformation/lib/executeChangeSet.ml index 1b398f968..3a7160e7a 100644 --- a/libraries/cloudformation/lib/executeChangeSet.ml +++ b/libraries/cloudformation/lib/executeChangeSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExecuteChangeSetInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/executeChangeSet.mli b/libraries/cloudformation/lib/executeChangeSet.mli index c6f522fc4..a91aff02c 100644 --- a/libraries/cloudformation/lib/executeChangeSet.mli +++ b/libraries/cloudformation/lib/executeChangeSet.mli @@ -1,9 +1,7 @@ open Types type input = ExecuteChangeSetInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/getStackPolicy.ml b/libraries/cloudformation/lib/getStackPolicy.ml index 27ab6a5e3..1f0f22e54 100644 --- a/libraries/cloudformation/lib/getStackPolicy.ml +++ b/libraries/cloudformation/lib/getStackPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetStackPolicyInput.t - type output = GetStackPolicyOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/getStackPolicy.mli b/libraries/cloudformation/lib/getStackPolicy.mli index a15124c99..5ee03877b 100644 --- a/libraries/cloudformation/lib/getStackPolicy.mli +++ b/libraries/cloudformation/lib/getStackPolicy.mli @@ -1,9 +1,7 @@ open Types type input = GetStackPolicyInput.t - type output = GetStackPolicyOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/getTemplate.ml b/libraries/cloudformation/lib/getTemplate.ml index 628b49c71..a7a8d700d 100644 --- a/libraries/cloudformation/lib/getTemplate.ml +++ b/libraries/cloudformation/lib/getTemplate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTemplateInput.t - type output = GetTemplateOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/getTemplate.mli b/libraries/cloudformation/lib/getTemplate.mli index 412a89b4f..e343174e1 100644 --- a/libraries/cloudformation/lib/getTemplate.mli +++ b/libraries/cloudformation/lib/getTemplate.mli @@ -1,9 +1,7 @@ open Types type input = GetTemplateInput.t - type output = GetTemplateOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/getTemplateSummary.ml b/libraries/cloudformation/lib/getTemplateSummary.ml index f58a17aff..e70cd48d2 100644 --- a/libraries/cloudformation/lib/getTemplateSummary.ml +++ b/libraries/cloudformation/lib/getTemplateSummary.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTemplateSummaryInput.t - type output = GetTemplateSummaryOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/getTemplateSummary.mli b/libraries/cloudformation/lib/getTemplateSummary.mli index 1d95d7658..4be292f5b 100644 --- a/libraries/cloudformation/lib/getTemplateSummary.mli +++ b/libraries/cloudformation/lib/getTemplateSummary.mli @@ -1,9 +1,7 @@ open Types type input = GetTemplateSummaryInput.t - type output = GetTemplateSummaryOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listChangeSets.ml b/libraries/cloudformation/lib/listChangeSets.ml index 9e614f537..fb7107dd1 100644 --- a/libraries/cloudformation/lib/listChangeSets.ml +++ b/libraries/cloudformation/lib/listChangeSets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListChangeSetsInput.t - type output = ListChangeSetsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listChangeSets.mli b/libraries/cloudformation/lib/listChangeSets.mli index 8a8f4af39..06206016a 100644 --- a/libraries/cloudformation/lib/listChangeSets.mli +++ b/libraries/cloudformation/lib/listChangeSets.mli @@ -1,9 +1,7 @@ open Types type input = ListChangeSetsInput.t - type output = ListChangeSetsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listExports.ml b/libraries/cloudformation/lib/listExports.ml index 38453c601..1b910900a 100644 --- a/libraries/cloudformation/lib/listExports.ml +++ b/libraries/cloudformation/lib/listExports.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListExportsInput.t - type output = ListExportsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listExports.mli b/libraries/cloudformation/lib/listExports.mli index 2703fa41c..6cceb93ed 100644 --- a/libraries/cloudformation/lib/listExports.mli +++ b/libraries/cloudformation/lib/listExports.mli @@ -1,9 +1,7 @@ open Types type input = ListExportsInput.t - type output = ListExportsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listImports.ml b/libraries/cloudformation/lib/listImports.ml index 9fbc0eff5..83261483a 100644 --- a/libraries/cloudformation/lib/listImports.ml +++ b/libraries/cloudformation/lib/listImports.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListImportsInput.t - type output = ListImportsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listImports.mli b/libraries/cloudformation/lib/listImports.mli index 1b7a09e34..d551c348c 100644 --- a/libraries/cloudformation/lib/listImports.mli +++ b/libraries/cloudformation/lib/listImports.mli @@ -1,9 +1,7 @@ open Types type input = ListImportsInput.t - type output = ListImportsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listStackInstances.ml b/libraries/cloudformation/lib/listStackInstances.ml index 705c2c7c3..d49cee3ff 100644 --- a/libraries/cloudformation/lib/listStackInstances.ml +++ b/libraries/cloudformation/lib/listStackInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListStackInstancesInput.t - type output = ListStackInstancesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listStackInstances.mli b/libraries/cloudformation/lib/listStackInstances.mli index aab2800f6..beca6c12d 100644 --- a/libraries/cloudformation/lib/listStackInstances.mli +++ b/libraries/cloudformation/lib/listStackInstances.mli @@ -1,9 +1,7 @@ open Types type input = ListStackInstancesInput.t - type output = ListStackInstancesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listStackResources.ml b/libraries/cloudformation/lib/listStackResources.ml index ee17b2b48..0769e09f8 100644 --- a/libraries/cloudformation/lib/listStackResources.ml +++ b/libraries/cloudformation/lib/listStackResources.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListStackResourcesInput.t - type output = ListStackResourcesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listStackResources.mli b/libraries/cloudformation/lib/listStackResources.mli index 44b551632..9889f5104 100644 --- a/libraries/cloudformation/lib/listStackResources.mli +++ b/libraries/cloudformation/lib/listStackResources.mli @@ -1,9 +1,7 @@ open Types type input = ListStackResourcesInput.t - type output = ListStackResourcesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listStackSetOperationResults.ml b/libraries/cloudformation/lib/listStackSetOperationResults.ml index 6bb992c75..00ddcb02c 100644 --- a/libraries/cloudformation/lib/listStackSetOperationResults.ml +++ b/libraries/cloudformation/lib/listStackSetOperationResults.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListStackSetOperationResultsInput.t - type output = ListStackSetOperationResultsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listStackSetOperationResults.mli b/libraries/cloudformation/lib/listStackSetOperationResults.mli index e80fb616e..948c319d7 100644 --- a/libraries/cloudformation/lib/listStackSetOperationResults.mli +++ b/libraries/cloudformation/lib/listStackSetOperationResults.mli @@ -1,9 +1,7 @@ open Types type input = ListStackSetOperationResultsInput.t - type output = ListStackSetOperationResultsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listStackSetOperations.ml b/libraries/cloudformation/lib/listStackSetOperations.ml index b1b40ca3f..1e16b6c05 100644 --- a/libraries/cloudformation/lib/listStackSetOperations.ml +++ b/libraries/cloudformation/lib/listStackSetOperations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListStackSetOperationsInput.t - type output = ListStackSetOperationsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listStackSetOperations.mli b/libraries/cloudformation/lib/listStackSetOperations.mli index 2c5210dd5..8f7af0e6b 100644 --- a/libraries/cloudformation/lib/listStackSetOperations.mli +++ b/libraries/cloudformation/lib/listStackSetOperations.mli @@ -1,9 +1,7 @@ open Types type input = ListStackSetOperationsInput.t - type output = ListStackSetOperationsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listStackSets.ml b/libraries/cloudformation/lib/listStackSets.ml index 5de51f57c..9660e49cb 100644 --- a/libraries/cloudformation/lib/listStackSets.ml +++ b/libraries/cloudformation/lib/listStackSets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListStackSetsInput.t - type output = ListStackSetsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listStackSets.mli b/libraries/cloudformation/lib/listStackSets.mli index 4c5308167..1c35a4a23 100644 --- a/libraries/cloudformation/lib/listStackSets.mli +++ b/libraries/cloudformation/lib/listStackSets.mli @@ -1,9 +1,7 @@ open Types type input = ListStackSetsInput.t - type output = ListStackSetsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listStacks.ml b/libraries/cloudformation/lib/listStacks.ml index 9f08ad943..87a9f4c92 100644 --- a/libraries/cloudformation/lib/listStacks.ml +++ b/libraries/cloudformation/lib/listStacks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListStacksInput.t - type output = ListStacksOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listStacks.mli b/libraries/cloudformation/lib/listStacks.mli index c58560c2b..bc320ebef 100644 --- a/libraries/cloudformation/lib/listStacks.mli +++ b/libraries/cloudformation/lib/listStacks.mli @@ -1,9 +1,7 @@ open Types type input = ListStacksInput.t - type output = ListStacksOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listTypeRegistrations.ml b/libraries/cloudformation/lib/listTypeRegistrations.ml index 062ad1f6c..5826711c1 100644 --- a/libraries/cloudformation/lib/listTypeRegistrations.ml +++ b/libraries/cloudformation/lib/listTypeRegistrations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTypeRegistrationsInput.t - type output = ListTypeRegistrationsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listTypeRegistrations.mli b/libraries/cloudformation/lib/listTypeRegistrations.mli index 5b07688b3..c9f733913 100644 --- a/libraries/cloudformation/lib/listTypeRegistrations.mli +++ b/libraries/cloudformation/lib/listTypeRegistrations.mli @@ -1,9 +1,7 @@ open Types type input = ListTypeRegistrationsInput.t - type output = ListTypeRegistrationsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listTypeVersions.ml b/libraries/cloudformation/lib/listTypeVersions.ml index 5914b50b3..1902f0e67 100644 --- a/libraries/cloudformation/lib/listTypeVersions.ml +++ b/libraries/cloudformation/lib/listTypeVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTypeVersionsInput.t - type output = ListTypeVersionsOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listTypeVersions.mli b/libraries/cloudformation/lib/listTypeVersions.mli index aac7bd457..b9a899057 100644 --- a/libraries/cloudformation/lib/listTypeVersions.mli +++ b/libraries/cloudformation/lib/listTypeVersions.mli @@ -1,9 +1,7 @@ open Types type input = ListTypeVersionsInput.t - type output = ListTypeVersionsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/listTypes.ml b/libraries/cloudformation/lib/listTypes.ml index cce98bed2..510516a56 100644 --- a/libraries/cloudformation/lib/listTypes.ml +++ b/libraries/cloudformation/lib/listTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTypesInput.t - type output = ListTypesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/listTypes.mli b/libraries/cloudformation/lib/listTypes.mli index efc8a1cc1..e98a7cc44 100644 --- a/libraries/cloudformation/lib/listTypes.mli +++ b/libraries/cloudformation/lib/listTypes.mli @@ -1,9 +1,7 @@ open Types type input = ListTypesInput.t - type output = ListTypesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/recordHandlerProgress.ml b/libraries/cloudformation/lib/recordHandlerProgress.ml index 8ab89f4d5..7084d0c7e 100644 --- a/libraries/cloudformation/lib/recordHandlerProgress.ml +++ b/libraries/cloudformation/lib/recordHandlerProgress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RecordHandlerProgressInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/recordHandlerProgress.mli b/libraries/cloudformation/lib/recordHandlerProgress.mli index 12c06a308..6dfb93f54 100644 --- a/libraries/cloudformation/lib/recordHandlerProgress.mli +++ b/libraries/cloudformation/lib/recordHandlerProgress.mli @@ -1,9 +1,7 @@ open Types type input = RecordHandlerProgressInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/registerType.ml b/libraries/cloudformation/lib/registerType.ml index 7a0a7f98a..666b49fb0 100644 --- a/libraries/cloudformation/lib/registerType.ml +++ b/libraries/cloudformation/lib/registerType.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterTypeInput.t - type output = RegisterTypeOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/registerType.mli b/libraries/cloudformation/lib/registerType.mli index eb72ba71c..b49d5af3c 100644 --- a/libraries/cloudformation/lib/registerType.mli +++ b/libraries/cloudformation/lib/registerType.mli @@ -1,9 +1,7 @@ open Types type input = RegisterTypeInput.t - type output = RegisterTypeOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/setStackPolicy.ml b/libraries/cloudformation/lib/setStackPolicy.ml index 55007f553..74a4b36ef 100644 --- a/libraries/cloudformation/lib/setStackPolicy.ml +++ b/libraries/cloudformation/lib/setStackPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetStackPolicyInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/setStackPolicy.mli b/libraries/cloudformation/lib/setStackPolicy.mli index 1ad6f76f1..ffe543c05 100644 --- a/libraries/cloudformation/lib/setStackPolicy.mli +++ b/libraries/cloudformation/lib/setStackPolicy.mli @@ -1,9 +1,7 @@ open Types type input = SetStackPolicyInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/setTypeDefaultVersion.ml b/libraries/cloudformation/lib/setTypeDefaultVersion.ml index ee27f8861..b2a1187bf 100644 --- a/libraries/cloudformation/lib/setTypeDefaultVersion.ml +++ b/libraries/cloudformation/lib/setTypeDefaultVersion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetTypeDefaultVersionInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/setTypeDefaultVersion.mli b/libraries/cloudformation/lib/setTypeDefaultVersion.mli index 9cb46b345..0dccde3c7 100644 --- a/libraries/cloudformation/lib/setTypeDefaultVersion.mli +++ b/libraries/cloudformation/lib/setTypeDefaultVersion.mli @@ -1,9 +1,7 @@ open Types type input = SetTypeDefaultVersionInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/signalResource.ml b/libraries/cloudformation/lib/signalResource.ml index 9e1ff20bd..cc0a0d1be 100644 --- a/libraries/cloudformation/lib/signalResource.ml +++ b/libraries/cloudformation/lib/signalResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SignalResourceInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/signalResource.mli b/libraries/cloudformation/lib/signalResource.mli index f04aeae20..73426f329 100644 --- a/libraries/cloudformation/lib/signalResource.mli +++ b/libraries/cloudformation/lib/signalResource.mli @@ -1,9 +1,7 @@ open Types type input = SignalResourceInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/stopStackSetOperation.ml b/libraries/cloudformation/lib/stopStackSetOperation.ml index 0eaa6a5b3..a443d8eab 100644 --- a/libraries/cloudformation/lib/stopStackSetOperation.ml +++ b/libraries/cloudformation/lib/stopStackSetOperation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopStackSetOperationInput.t - type output = unit - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/stopStackSetOperation.mli b/libraries/cloudformation/lib/stopStackSetOperation.mli index 01c2a6240..11fea7373 100644 --- a/libraries/cloudformation/lib/stopStackSetOperation.mli +++ b/libraries/cloudformation/lib/stopStackSetOperation.mli @@ -1,9 +1,7 @@ open Types type input = StopStackSetOperationInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/types.ml b/libraries/cloudformation/lib/types.ml index cbd5e1b1e..c04345531 100644 --- a/libraries/cloudformation/lib/types.ml +++ b/libraries/cloudformation/lib/types.ml @@ -39,9 +39,7 @@ module RetainResources = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -92,9 +90,7 @@ module RollbackTriggers = struct Aws.Util.option_all (List.map RollbackTrigger.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list RollbackTrigger.to_query v - let to_json v = `List (List.map RollbackTrigger.to_json v) - let of_json j = Aws.Json.to_list RollbackTrigger.of_json j end @@ -173,9 +169,7 @@ module StackSetOperationResultStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -185,7 +179,6 @@ module StackSetOperationResultStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -196,13 +189,9 @@ module AccountGateStatus = struct | SKIPPED let str_to_t = [ "SKIPPED", SKIPPED; "FAILED", FAILED; "SUCCEEDED", SUCCEEDED ] - let t_to_str = [ SKIPPED, "SKIPPED"; FAILED, "FAILED"; SUCCEEDED, "SUCCEEDED" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -212,7 +201,6 @@ module AccountGateStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -354,13 +342,9 @@ module TemplateStage = struct | Processed let str_to_t = [ "Processed", Processed; "Original", Original ] - let t_to_str = [ Processed, "Processed"; Original, "Original" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -370,7 +354,6 @@ module TemplateStage = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -383,9 +366,7 @@ module StageList = struct Aws.Util.option_all (List.map TemplateStage.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TemplateStage.to_query v - let to_json v = `List (List.map TemplateStage.to_json v) - let of_json j = Aws.Json.to_list TemplateStage.of_json j end @@ -442,9 +423,7 @@ module AllowedValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -526,9 +505,7 @@ module RegionList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -592,9 +569,7 @@ module StackResourceDriftStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -604,7 +579,6 @@ module StackResourceDriftStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -615,13 +589,9 @@ module DifferenceType = struct | NOT_EQUAL let str_to_t = [ "NOT_EQUAL", NOT_EQUAL; "REMOVE", REMOVE; "ADD", ADD ] - let t_to_str = [ NOT_EQUAL, "NOT_EQUAL"; REMOVE, "REMOVE"; ADD, "ADD" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -631,7 +601,6 @@ module DifferenceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -709,9 +678,7 @@ module PropertyDifferences = struct Aws.Util.option_all (List.map PropertyDifference.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PropertyDifference.to_query v - let to_json v = `List (List.map PropertyDifference.to_json v) - let of_json j = Aws.Json.to_list PropertyDifference.of_json j end @@ -768,7 +735,6 @@ module PhysicalResourceIdContext = struct Aws.Query.to_query_list PhysicalResourceIdContextKeyValuePair.to_query v let to_json v = `List (List.map PhysicalResourceIdContextKeyValuePair.to_json v) - let of_json j = Aws.Json.to_list PhysicalResourceIdContextKeyValuePair.of_json j end @@ -975,9 +941,7 @@ module LogicalResourceIds = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1033,9 +997,7 @@ module HandlerErrorCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1045,7 +1007,6 @@ module HandlerErrorCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1158,9 +1119,7 @@ module ResourceStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1170,7 +1129,6 @@ module ResourceStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1320,9 +1278,7 @@ module StackResources = struct Aws.Util.option_all (List.map StackResource.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackResource.to_query v - let to_json v = `List (List.map StackResource.to_json v) - let of_json j = Aws.Json.to_list StackResource.of_json j end @@ -1391,13 +1347,9 @@ module StackSetStatus = struct | DELETED let str_to_t = [ "DELETED", DELETED; "ACTIVE", ACTIVE ] - let t_to_str = [ DELETED, "DELETED"; ACTIVE, "ACTIVE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1407,7 +1359,6 @@ module StackSetStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1433,9 +1384,7 @@ module StackDriftStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1445,7 +1394,6 @@ module StackDriftStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1455,13 +1403,9 @@ module PermissionModels = struct | SELF_MANAGED let str_to_t = [ "SELF_MANAGED", SELF_MANAGED; "SERVICE_MANAGED", SERVICE_MANAGED ] - let t_to_str = [ SELF_MANAGED, "SELF_MANAGED"; SERVICE_MANAGED, "SERVICE_MANAGED" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1471,7 +1415,6 @@ module PermissionModels = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1744,9 +1687,7 @@ module StackStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1756,7 +1697,6 @@ module StackStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1953,13 +1893,9 @@ module StackInstanceFilterName = struct type t = DETAILED_STATUS let str_to_t = [ "DETAILED_STATUS", DETAILED_STATUS ] - let t_to_str = [ DETAILED_STATUS, "DETAILED_STATUS" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1969,7 +1905,6 @@ module StackInstanceFilterName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2168,9 +2103,7 @@ module Parameters = struct Aws.Util.option_all (List.map Parameter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Parameter.to_query v - let to_json v = `List (List.map Parameter.to_json v) - let of_json j = Aws.Json.to_list Parameter.of_json j end @@ -2183,9 +2116,7 @@ module OrganizationalUnitIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2198,9 +2129,7 @@ module AccountList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2373,13 +2302,9 @@ module InvalidChangeSetStatusException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2392,9 +2317,7 @@ module RegistrationTokenList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2598,9 +2521,7 @@ module StackEvents = struct Aws.Util.option_all (List.map StackEvent.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackEvent.to_query v - let to_json v = `List (List.map StackEvent.to_json v) - let of_json j = Aws.Json.to_list StackEvent.of_json j end @@ -2662,13 +2583,9 @@ module ChangeAction = struct | Import let str_to_t = [ "Import", Import; "Remove", Remove; "Modify", Modify; "Add", Add ] - let t_to_str = [ Import, "Import"; Remove, "Remove"; Modify, "Modify"; Add, "Add" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2678,7 +2595,6 @@ module ChangeAction = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2724,13 +2640,9 @@ module Tags = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -2743,9 +2655,7 @@ module ResourceTypes = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2756,13 +2666,9 @@ module OnFailure = struct | DELETE let str_to_t = [ "DELETE", DELETE; "ROLLBACK", ROLLBACK; "DO_NOTHING", DO_NOTHING ] - let t_to_str = [ DELETE, "DELETE"; ROLLBACK, "ROLLBACK"; DO_NOTHING, "DO_NOTHING" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2772,7 +2678,6 @@ module OnFailure = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2785,9 +2690,7 @@ module NotificationARNs = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2810,9 +2713,7 @@ module Capability = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2822,7 +2723,6 @@ module Capability = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2835,9 +2735,7 @@ module Capabilities = struct Aws.Util.option_all (List.map Capability.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Capability.to_query v - let to_json v = `List (List.map Capability.to_json v) - let of_json j = Aws.Json.to_list Capability.of_json j end @@ -3166,9 +3064,7 @@ module AccountLimitList = struct Aws.Util.option_all (List.map AccountLimit.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AccountLimit.to_query v - let to_json v = `List (List.map AccountLimit.to_json v) - let of_json j = Aws.Json.to_list AccountLimit.of_json j end @@ -3467,9 +3363,7 @@ module StackInstanceDetailedStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3479,7 +3373,6 @@ module StackInstanceDetailedStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3487,13 +3380,9 @@ module RecordHandlerProgressOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3501,13 +3390,9 @@ module LimitExceededException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3515,13 +3400,9 @@ module ChangeType = struct type t = Resource let str_to_t = [ "Resource", Resource ] - let t_to_str = [ Resource, "Resource" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3531,7 +3412,6 @@ module ChangeType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3642,9 +3522,7 @@ module Outputs = struct Aws.Util.option_all (List.map Output.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Output.to_query v - let to_json v = `List (List.map Output.to_json v) - let of_json j = Aws.Json.to_list Output.of_json j end @@ -3924,9 +3802,7 @@ module Stacks = struct Aws.Util.option_all (List.map Stack.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Stack.to_query v - let to_json v = `List (List.map Stack.to_json v) - let of_json j = Aws.Json.to_list Stack.of_json j end @@ -4002,13 +3878,9 @@ module ResourceSignalStatus = struct | FAILURE let str_to_t = [ "FAILURE", FAILURE; "SUCCESS", SUCCESS ] - let t_to_str = [ FAILURE, "FAILURE"; SUCCESS, "SUCCESS" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4018,7 +3890,6 @@ module ResourceSignalStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4029,13 +3900,9 @@ module StackInstanceStatus = struct | INOPERABLE let str_to_t = [ "INOPERABLE", INOPERABLE; "OUTDATED", OUTDATED; "CURRENT", CURRENT ] - let t_to_str = [ INOPERABLE, "INOPERABLE"; OUTDATED, "OUTDATED"; CURRENT, "CURRENT" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4045,7 +3912,6 @@ module StackInstanceStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4223,9 +4089,7 @@ module StackInstanceSummaries = struct (List.map StackInstanceSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackInstanceSummary.to_query v - let to_json v = `List (List.map StackInstanceSummary.to_json v) - let of_json j = Aws.Json.to_list StackInstanceSummary.of_json j end @@ -4362,9 +4226,7 @@ module ResourceIdentifiers = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4441,9 +4303,7 @@ module ResourceIdentifierSummaries = struct (List.map ResourceIdentifierSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceIdentifierSummary.to_query v - let to_json v = `List (List.map ResourceIdentifierSummary.to_json v) - let of_json j = Aws.Json.to_list ResourceIdentifierSummary.of_json j end @@ -4475,9 +4335,7 @@ module ResourceAttribute = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4487,7 +4345,6 @@ module ResourceAttribute = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4498,13 +4355,9 @@ module RequiresRecreation = struct | Always let str_to_t = [ "Always", Always; "Conditionally", Conditionally; "Never", Never ] - let t_to_str = [ Always, "Always"; Conditionally, "Conditionally"; Never, "Never" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4514,7 +4367,6 @@ module RequiresRecreation = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4577,13 +4429,9 @@ module EvaluationType = struct | Dynamic let str_to_t = [ "Dynamic", Dynamic; "Static", Static ] - let t_to_str = [ Dynamic, "Dynamic"; Static, "Static" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4593,7 +4441,6 @@ module EvaluationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4622,9 +4469,7 @@ module ChangeSource = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4634,7 +4479,6 @@ module ChangeSource = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4921,13 +4765,9 @@ module InvalidStateTransitionException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -4941,9 +4781,7 @@ module ResourceChangeDetails = struct (List.map ResourceChangeDetail.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceChangeDetail.to_query v - let to_json v = `List (List.map ResourceChangeDetail.to_json v) - let of_json j = Aws.Json.to_list ResourceChangeDetail.of_json j end @@ -4975,13 +4813,9 @@ module RegistryType = struct type t = RESOURCE let str_to_t = [ "RESOURCE", RESOURCE ] - let t_to_str = [ RESOURCE, "RESOURCE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4991,7 +4825,6 @@ module RegistryType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5120,13 +4953,9 @@ module StackSetNotEmptyException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5272,13 +5101,9 @@ module StackSetDriftStatus = struct | NOT_CHECKED let str_to_t = [ "NOT_CHECKED", NOT_CHECKED; "IN_SYNC", IN_SYNC; "DRIFTED", DRIFTED ] - let t_to_str = [ NOT_CHECKED, "NOT_CHECKED"; IN_SYNC, "IN_SYNC"; DRIFTED, "DRIFTED" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5288,7 +5113,6 @@ module StackSetDriftStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5317,9 +5141,7 @@ module StackSetDriftDetectionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5329,7 +5151,6 @@ module StackSetDriftDetectionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5861,13 +5682,9 @@ module ExecuteChangeSetOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5881,9 +5698,7 @@ module StackInstanceFilters = struct (List.map StackInstanceFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackInstanceFilter.to_query v - let to_json v = `List (List.map StackInstanceFilter.to_json v) - let of_json j = Aws.Json.to_list StackInstanceFilter.of_json j end @@ -5938,13 +5753,9 @@ module DeleteStackSetOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5958,9 +5769,7 @@ module ParameterDeclarations = struct (List.map ParameterDeclaration.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ParameterDeclaration.to_query v - let to_json v = `List (List.map ParameterDeclaration.to_json v) - let of_json j = Aws.Json.to_list ParameterDeclaration.of_json j end @@ -5968,13 +5777,9 @@ module StackSetNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5987,9 +5792,7 @@ module TransformsList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -6319,9 +6122,7 @@ module StackDriftDetectionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6331,7 +6132,6 @@ module StackDriftDetectionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6638,13 +6438,9 @@ module DeregisterTypeOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6652,13 +6448,9 @@ module OperationStatusCheckFailedException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6714,13 +6506,9 @@ module Visibility = struct | PRIVATE let str_to_t = [ "PRIVATE", PRIVATE; "PUBLIC", PUBLIC ] - let t_to_str = [ PRIVATE, "PRIVATE"; PUBLIC, "PUBLIC" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6730,7 +6518,6 @@ module Visibility = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6753,9 +6540,7 @@ module ProvisioningType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6765,7 +6550,6 @@ module ProvisioningType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6775,13 +6559,9 @@ module DeprecatedStatus = struct | DEPRECATED let str_to_t = [ "DEPRECATED", DEPRECATED; "LIVE", LIVE ] - let t_to_str = [ DEPRECATED, "DEPRECATED"; LIVE, "LIVE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6791,7 +6571,6 @@ module DeprecatedStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7161,9 +6940,7 @@ module StackResourceSummaries = struct (List.map StackResourceSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackResourceSummary.to_query v - let to_json v = `List (List.map StackResourceSummary.to_json v) - let of_json j = Aws.Json.to_list StackResourceSummary.of_json j end @@ -7171,13 +6948,9 @@ module TokenAlreadyExistsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7290,9 +7063,7 @@ module TemplateParameters = struct Aws.Util.option_all (List.map TemplateParameter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TemplateParameter.to_query v - let to_json v = `List (List.map TemplateParameter.to_json v) - let of_json j = Aws.Json.to_list TemplateParameter.of_json j end @@ -7300,13 +7071,9 @@ module StopStackSetOperationOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7317,13 +7084,9 @@ module ChangeSetType = struct | IMPORT let str_to_t = [ "IMPORT", IMPORT; "UPDATE", UPDATE; "CREATE", CREATE ] - let t_to_str = [ IMPORT, "IMPORT"; UPDATE, "UPDATE"; CREATE, "CREATE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7333,7 +7096,6 @@ module ChangeSetType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7388,13 +7150,9 @@ module OperationInProgressException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7481,9 +7239,7 @@ module ExecutionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7493,7 +7249,6 @@ module ExecutionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7506,9 +7261,7 @@ module Scope = struct Aws.Util.option_all (List.map ResourceAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceAttribute.to_query v - let to_json v = `List (List.map ResourceAttribute.to_json v) - let of_json j = Aws.Json.to_list ResourceAttribute.of_json j end @@ -7519,13 +7272,9 @@ module Replacement = struct | Conditional let str_to_t = [ "Conditional", Conditional; "False", False; "True", True ] - let t_to_str = [ Conditional, "Conditional"; False, "False"; True, "True" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7535,7 +7284,6 @@ module Replacement = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7687,13 +7435,9 @@ module RegistrationStatus = struct | FAILED let str_to_t = [ "FAILED", FAILED; "IN_PROGRESS", IN_PROGRESS; "COMPLETE", COMPLETE ] - let t_to_str = [ FAILED, "FAILED"; IN_PROGRESS, "IN_PROGRESS"; COMPLETE, "COMPLETE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7703,7 +7447,6 @@ module RegistrationStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7711,9 +7454,7 @@ module ResourceIdentifierProperties = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -7793,9 +7534,7 @@ module ResourcesToImport = struct Aws.Util.option_all (List.map ResourceToImport.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceToImport.to_query v - let to_json v = `List (List.map ResourceToImport.to_json v) - let of_json j = Aws.Json.to_list ResourceToImport.of_json j end @@ -7821,9 +7560,7 @@ module OperationStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7833,7 +7570,6 @@ module OperationStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8068,9 +7804,7 @@ module StackSetSummaries = struct Aws.Util.option_all (List.map StackSetSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackSetSummary.to_query v - let to_json v = `List (List.map StackSetSummary.to_json v) - let of_json j = Aws.Json.to_list StackSetSummary.of_json j end @@ -8157,9 +7891,7 @@ module StackSetOperationStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -8169,7 +7901,6 @@ module StackSetOperationStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8187,9 +7918,7 @@ module StackSetOperationAction = struct [ DETECT_DRIFT, "DETECT_DRIFT"; DELETE, "DELETE"; UPDATE, "UPDATE"; CREATE, "CREATE" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -8199,7 +7928,6 @@ module StackSetOperationAction = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8281,9 +8009,7 @@ module StackSetOperationSummaries = struct (List.map StackSetOperationSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackSetOperationSummary.to_query v - let to_json v = `List (List.map StackSetOperationSummary.to_json v) - let of_json j = Aws.Json.to_list StackSetOperationSummary.of_json j end @@ -8496,9 +8222,7 @@ module StackSetOperationResultSummaries = struct (List.map StackSetOperationResultSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackSetOperationResultSummary.to_query v - let to_json v = `List (List.map StackSetOperationResultSummary.to_json v) - let of_json j = Aws.Json.to_list StackSetOperationResultSummary.of_json j end @@ -8581,13 +8305,9 @@ module InvalidOperationException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8595,13 +8315,9 @@ module ChangeSetNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8614,9 +8330,7 @@ module StackStatusFilter = struct Aws.Util.option_all (List.map StackStatus.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackStatus.to_query v - let to_json v = `List (List.map StackStatus.to_json v) - let of_json j = Aws.Json.to_list StackStatus.of_json j end @@ -8785,9 +8499,7 @@ module Imports = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8833,13 +8545,9 @@ module DeleteChangeSetOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8852,9 +8560,7 @@ module TypeVersionSummaries = struct Aws.Util.option_all (List.map TypeVersionSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TypeVersionSummary.to_query v - let to_json v = `List (List.map TypeVersionSummary.to_json v) - let of_json j = Aws.Json.to_list TypeVersionSummary.of_json j end @@ -8985,9 +8691,7 @@ module Exports = struct Aws.Util.option_all (List.map Export.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Export.to_query v - let to_json v = `List (List.map Export.to_json v) - let of_json j = Aws.Json.to_list Export.of_json j end @@ -9108,13 +8812,9 @@ module ContinueUpdateRollbackOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9396,9 +9096,7 @@ module TypeSummaries = struct Aws.Util.option_all (List.map TypeSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TypeSummary.to_query v - let to_json v = `List (List.map TypeSummary.to_json v) - let of_json j = Aws.Json.to_list TypeSummary.of_json j end @@ -9864,13 +9562,9 @@ module SetTypeDefaultVersionOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10180,13 +9874,9 @@ module CreatedButModifiedException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10410,9 +10100,7 @@ module ChangeSetStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10422,7 +10110,6 @@ module ChangeSetStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10547,9 +10234,7 @@ module StackSummaries = struct Aws.Util.option_all (List.map StackSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackSummary.to_query v - let to_json v = `List (List.map StackSummary.to_json v) - let of_json j = Aws.Json.to_list StackSummary.of_json j end @@ -10562,9 +10247,7 @@ module ResourcesToSkip = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -10634,13 +10317,9 @@ module AlreadyExistsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10997,13 +10676,9 @@ module OperationIdAlreadyExistsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11162,9 +10837,7 @@ module ChangeSetSummaries = struct Aws.Util.option_all (List.map ChangeSetSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ChangeSetSummary.to_query v - let to_json v = `List (List.map ChangeSetSummary.to_json v) - let of_json j = Aws.Json.to_list ChangeSetSummary.of_json j end @@ -11215,13 +10888,9 @@ module TypeNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11271,13 +10940,9 @@ module InsufficientCapabilitiesException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11285,13 +10950,9 @@ module OperationNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11304,9 +10965,7 @@ module StackResourceDrifts = struct Aws.Util.option_all (List.map StackResourceDrift.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackResourceDrift.to_query v - let to_json v = `List (List.map StackResourceDrift.to_json v) - let of_json j = Aws.Json.to_list StackResourceDrift.of_json j end @@ -11314,13 +10973,9 @@ module StackInstanceNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11432,9 +11087,7 @@ module Changes = struct Aws.Util.option_all (List.map Change.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Change.to_query v - let to_json v = `List (List.map Change.to_json v) - let of_json j = Aws.Json.to_list Change.of_json j end @@ -11662,13 +11315,9 @@ module StaleRequestException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12106,13 +11755,9 @@ module NameAlreadyExistsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12126,9 +11771,7 @@ module StackResourceDriftStatusFilters = struct (List.map StackResourceDriftStatus.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StackResourceDriftStatus.to_query v - let to_json v = `List (List.map StackResourceDriftStatus.to_json v) - let of_json j = Aws.Json.to_list StackResourceDriftStatus.of_json j end diff --git a/libraries/cloudformation/lib/updateStack.ml b/libraries/cloudformation/lib/updateStack.ml index 163bca8f8..9a0859227 100644 --- a/libraries/cloudformation/lib/updateStack.ml +++ b/libraries/cloudformation/lib/updateStack.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateStackInput.t - type output = UpdateStackOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/updateStack.mli b/libraries/cloudformation/lib/updateStack.mli index ecbf2d3e8..4cd471302 100644 --- a/libraries/cloudformation/lib/updateStack.mli +++ b/libraries/cloudformation/lib/updateStack.mli @@ -1,9 +1,7 @@ open Types type input = UpdateStackInput.t - type output = UpdateStackOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/updateStackInstances.ml b/libraries/cloudformation/lib/updateStackInstances.ml index c1fe7e0ec..1a2b50d9c 100644 --- a/libraries/cloudformation/lib/updateStackInstances.ml +++ b/libraries/cloudformation/lib/updateStackInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateStackInstancesInput.t - type output = UpdateStackInstancesOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/updateStackInstances.mli b/libraries/cloudformation/lib/updateStackInstances.mli index 812e0a83e..502c4af65 100644 --- a/libraries/cloudformation/lib/updateStackInstances.mli +++ b/libraries/cloudformation/lib/updateStackInstances.mli @@ -1,9 +1,7 @@ open Types type input = UpdateStackInstancesInput.t - type output = UpdateStackInstancesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/updateStackSet.ml b/libraries/cloudformation/lib/updateStackSet.ml index 33f769117..6f526bf7e 100644 --- a/libraries/cloudformation/lib/updateStackSet.ml +++ b/libraries/cloudformation/lib/updateStackSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateStackSetInput.t - type output = UpdateStackSetOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/updateStackSet.mli b/libraries/cloudformation/lib/updateStackSet.mli index 97bdd9eb2..460bd64f6 100644 --- a/libraries/cloudformation/lib/updateStackSet.mli +++ b/libraries/cloudformation/lib/updateStackSet.mli @@ -1,9 +1,7 @@ open Types type input = UpdateStackSetInput.t - type output = UpdateStackSetOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/updateTerminationProtection.ml b/libraries/cloudformation/lib/updateTerminationProtection.ml index bb8c28b62..93e64dbca 100644 --- a/libraries/cloudformation/lib/updateTerminationProtection.ml +++ b/libraries/cloudformation/lib/updateTerminationProtection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateTerminationProtectionInput.t - type output = UpdateTerminationProtectionOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/updateTerminationProtection.mli b/libraries/cloudformation/lib/updateTerminationProtection.mli index 5bdbc61bc..720ff6197 100644 --- a/libraries/cloudformation/lib/updateTerminationProtection.mli +++ b/libraries/cloudformation/lib/updateTerminationProtection.mli @@ -1,9 +1,7 @@ open Types type input = UpdateTerminationProtectionInput.t - type output = UpdateTerminationProtectionOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib/validateTemplate.ml b/libraries/cloudformation/lib/validateTemplate.ml index ed63abc9d..4e5cfcc9a 100644 --- a/libraries/cloudformation/lib/validateTemplate.ml +++ b/libraries/cloudformation/lib/validateTemplate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ValidateTemplateInput.t - type output = ValidateTemplateOutput.t - type error = Errors_internal.t let service = "cloudformation" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudformation/lib/validateTemplate.mli b/libraries/cloudformation/lib/validateTemplate.mli index 221384b70..3f44c640a 100644 --- a/libraries/cloudformation/lib/validateTemplate.mli +++ b/libraries/cloudformation/lib/validateTemplate.mli @@ -1,9 +1,7 @@ open Types type input = ValidateTemplateInput.t - type output = ValidateTemplateOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudformation/lib_test/test_async.ml b/libraries/cloudformation/lib_test/test_async.ml index 7deaca507..cbc11280a 100644 --- a/libraries/cloudformation/lib_test/test_async.ml +++ b/libraries/cloudformation/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/cloudformation/lib_test/test_lwt.ml b/libraries/cloudformation/lib_test/test_lwt.ml index 00ae32ffe..ad7b5090d 100644 --- a/libraries/cloudformation/lib_test/test_lwt.ml +++ b/libraries/cloudformation/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/cloudtrail/lib/addTags.ml b/libraries/cloudtrail/lib/addTags.ml index cc65f7e66..eeab41bff 100644 --- a/libraries/cloudtrail/lib/addTags.ml +++ b/libraries/cloudtrail/lib/addTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddTagsRequest.t - type output = unit - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/addTags.mli b/libraries/cloudtrail/lib/addTags.mli index 1bcb4f940..cf3a2d669 100644 --- a/libraries/cloudtrail/lib/addTags.mli +++ b/libraries/cloudtrail/lib/addTags.mli @@ -1,9 +1,7 @@ open Types type input = AddTagsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/createTrail.ml b/libraries/cloudtrail/lib/createTrail.ml index 6cd0c954a..a2ad81a30 100644 --- a/libraries/cloudtrail/lib/createTrail.ml +++ b/libraries/cloudtrail/lib/createTrail.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrailRequest.t - type output = CreateTrailResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/createTrail.mli b/libraries/cloudtrail/lib/createTrail.mli index 7a2e9944d..fd5264802 100644 --- a/libraries/cloudtrail/lib/createTrail.mli +++ b/libraries/cloudtrail/lib/createTrail.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrailRequest.t - type output = CreateTrailResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/deleteTrail.ml b/libraries/cloudtrail/lib/deleteTrail.ml index 318aecc23..73284171d 100644 --- a/libraries/cloudtrail/lib/deleteTrail.ml +++ b/libraries/cloudtrail/lib/deleteTrail.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrailRequest.t - type output = unit - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/deleteTrail.mli b/libraries/cloudtrail/lib/deleteTrail.mli index 2bb172290..55a6faf43 100644 --- a/libraries/cloudtrail/lib/deleteTrail.mli +++ b/libraries/cloudtrail/lib/deleteTrail.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrailRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/describeTrails.ml b/libraries/cloudtrail/lib/describeTrails.ml index 159f1a6fd..a4096e774 100644 --- a/libraries/cloudtrail/lib/describeTrails.ml +++ b/libraries/cloudtrail/lib/describeTrails.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTrailsRequest.t - type output = DescribeTrailsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/describeTrails.mli b/libraries/cloudtrail/lib/describeTrails.mli index 87dca9e1a..10ee03316 100644 --- a/libraries/cloudtrail/lib/describeTrails.mli +++ b/libraries/cloudtrail/lib/describeTrails.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTrailsRequest.t - type output = DescribeTrailsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/getEventSelectors.ml b/libraries/cloudtrail/lib/getEventSelectors.ml index f9502058e..9f7117bc4 100644 --- a/libraries/cloudtrail/lib/getEventSelectors.ml +++ b/libraries/cloudtrail/lib/getEventSelectors.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetEventSelectorsRequest.t - type output = GetEventSelectorsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/getEventSelectors.mli b/libraries/cloudtrail/lib/getEventSelectors.mli index 854caf7ec..18d907c07 100644 --- a/libraries/cloudtrail/lib/getEventSelectors.mli +++ b/libraries/cloudtrail/lib/getEventSelectors.mli @@ -1,9 +1,7 @@ open Types type input = GetEventSelectorsRequest.t - type output = GetEventSelectorsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/getInsightSelectors.ml b/libraries/cloudtrail/lib/getInsightSelectors.ml index f489ef80c..bee96c1ff 100644 --- a/libraries/cloudtrail/lib/getInsightSelectors.ml +++ b/libraries/cloudtrail/lib/getInsightSelectors.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetInsightSelectorsRequest.t - type output = GetInsightSelectorsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/getInsightSelectors.mli b/libraries/cloudtrail/lib/getInsightSelectors.mli index c28dafe6b..dc7938644 100644 --- a/libraries/cloudtrail/lib/getInsightSelectors.mli +++ b/libraries/cloudtrail/lib/getInsightSelectors.mli @@ -1,9 +1,7 @@ open Types type input = GetInsightSelectorsRequest.t - type output = GetInsightSelectorsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/getTrail.ml b/libraries/cloudtrail/lib/getTrail.ml index 3d0263a27..6cf8f527c 100644 --- a/libraries/cloudtrail/lib/getTrail.ml +++ b/libraries/cloudtrail/lib/getTrail.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTrailRequest.t - type output = GetTrailResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/getTrail.mli b/libraries/cloudtrail/lib/getTrail.mli index 43e4d0e70..fe56f2965 100644 --- a/libraries/cloudtrail/lib/getTrail.mli +++ b/libraries/cloudtrail/lib/getTrail.mli @@ -1,9 +1,7 @@ open Types type input = GetTrailRequest.t - type output = GetTrailResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/getTrailStatus.ml b/libraries/cloudtrail/lib/getTrailStatus.ml index 90a9b695a..e0e7d332a 100644 --- a/libraries/cloudtrail/lib/getTrailStatus.ml +++ b/libraries/cloudtrail/lib/getTrailStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTrailStatusRequest.t - type output = GetTrailStatusResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/getTrailStatus.mli b/libraries/cloudtrail/lib/getTrailStatus.mli index 83035e78c..9d94cf023 100644 --- a/libraries/cloudtrail/lib/getTrailStatus.mli +++ b/libraries/cloudtrail/lib/getTrailStatus.mli @@ -1,9 +1,7 @@ open Types type input = GetTrailStatusRequest.t - type output = GetTrailStatusResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/listPublicKeys.ml b/libraries/cloudtrail/lib/listPublicKeys.ml index df70dd15f..f44baa96f 100644 --- a/libraries/cloudtrail/lib/listPublicKeys.ml +++ b/libraries/cloudtrail/lib/listPublicKeys.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListPublicKeysRequest.t - type output = ListPublicKeysResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/listPublicKeys.mli b/libraries/cloudtrail/lib/listPublicKeys.mli index efbce3066..db0d837a2 100644 --- a/libraries/cloudtrail/lib/listPublicKeys.mli +++ b/libraries/cloudtrail/lib/listPublicKeys.mli @@ -1,9 +1,7 @@ open Types type input = ListPublicKeysRequest.t - type output = ListPublicKeysResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/listTags.ml b/libraries/cloudtrail/lib/listTags.ml index d8e613ef8..a00ca794e 100644 --- a/libraries/cloudtrail/lib/listTags.ml +++ b/libraries/cloudtrail/lib/listTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsRequest.t - type output = ListTagsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/listTags.mli b/libraries/cloudtrail/lib/listTags.mli index 16cf209b6..4823d83de 100644 --- a/libraries/cloudtrail/lib/listTags.mli +++ b/libraries/cloudtrail/lib/listTags.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsRequest.t - type output = ListTagsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/listTrails.ml b/libraries/cloudtrail/lib/listTrails.ml index 3d57e2cb3..a0124a1e8 100644 --- a/libraries/cloudtrail/lib/listTrails.ml +++ b/libraries/cloudtrail/lib/listTrails.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTrailsRequest.t - type output = ListTrailsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/listTrails.mli b/libraries/cloudtrail/lib/listTrails.mli index efe317c2e..6d48a3d41 100644 --- a/libraries/cloudtrail/lib/listTrails.mli +++ b/libraries/cloudtrail/lib/listTrails.mli @@ -1,9 +1,7 @@ open Types type input = ListTrailsRequest.t - type output = ListTrailsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/lookupEvents.ml b/libraries/cloudtrail/lib/lookupEvents.ml index 1f2cf32d5..93de23ef0 100644 --- a/libraries/cloudtrail/lib/lookupEvents.ml +++ b/libraries/cloudtrail/lib/lookupEvents.ml @@ -2,13 +2,10 @@ open Types open Aws type input = LookupEventsRequest.t - type output = LookupEventsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/lookupEvents.mli b/libraries/cloudtrail/lib/lookupEvents.mli index 858d6c20b..78abe0ad9 100644 --- a/libraries/cloudtrail/lib/lookupEvents.mli +++ b/libraries/cloudtrail/lib/lookupEvents.mli @@ -1,9 +1,7 @@ open Types type input = LookupEventsRequest.t - type output = LookupEventsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/putEventSelectors.ml b/libraries/cloudtrail/lib/putEventSelectors.ml index e754ec853..053745ff1 100644 --- a/libraries/cloudtrail/lib/putEventSelectors.ml +++ b/libraries/cloudtrail/lib/putEventSelectors.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutEventSelectorsRequest.t - type output = PutEventSelectorsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/putEventSelectors.mli b/libraries/cloudtrail/lib/putEventSelectors.mli index e18eb64a4..d9789cb10 100644 --- a/libraries/cloudtrail/lib/putEventSelectors.mli +++ b/libraries/cloudtrail/lib/putEventSelectors.mli @@ -1,9 +1,7 @@ open Types type input = PutEventSelectorsRequest.t - type output = PutEventSelectorsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/putInsightSelectors.ml b/libraries/cloudtrail/lib/putInsightSelectors.ml index 4f04e5b9f..a42e72501 100644 --- a/libraries/cloudtrail/lib/putInsightSelectors.ml +++ b/libraries/cloudtrail/lib/putInsightSelectors.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutInsightSelectorsRequest.t - type output = PutInsightSelectorsResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/putInsightSelectors.mli b/libraries/cloudtrail/lib/putInsightSelectors.mli index f3ca12adc..aa70af36a 100644 --- a/libraries/cloudtrail/lib/putInsightSelectors.mli +++ b/libraries/cloudtrail/lib/putInsightSelectors.mli @@ -1,9 +1,7 @@ open Types type input = PutInsightSelectorsRequest.t - type output = PutInsightSelectorsResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/removeTags.ml b/libraries/cloudtrail/lib/removeTags.ml index 7f22ff139..3a591df9c 100644 --- a/libraries/cloudtrail/lib/removeTags.ml +++ b/libraries/cloudtrail/lib/removeTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveTagsRequest.t - type output = unit - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/removeTags.mli b/libraries/cloudtrail/lib/removeTags.mli index 61c946fce..c9cddd78e 100644 --- a/libraries/cloudtrail/lib/removeTags.mli +++ b/libraries/cloudtrail/lib/removeTags.mli @@ -1,9 +1,7 @@ open Types type input = RemoveTagsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/startLogging.ml b/libraries/cloudtrail/lib/startLogging.ml index 2d1871314..445c0b4cb 100644 --- a/libraries/cloudtrail/lib/startLogging.ml +++ b/libraries/cloudtrail/lib/startLogging.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartLoggingRequest.t - type output = unit - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/startLogging.mli b/libraries/cloudtrail/lib/startLogging.mli index b387012ba..1868a6917 100644 --- a/libraries/cloudtrail/lib/startLogging.mli +++ b/libraries/cloudtrail/lib/startLogging.mli @@ -1,9 +1,7 @@ open Types type input = StartLoggingRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/stopLogging.ml b/libraries/cloudtrail/lib/stopLogging.ml index 64d7310ab..3dd8a6118 100644 --- a/libraries/cloudtrail/lib/stopLogging.ml +++ b/libraries/cloudtrail/lib/stopLogging.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopLoggingRequest.t - type output = unit - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/stopLogging.mli b/libraries/cloudtrail/lib/stopLogging.mli index 3d7ec31da..5d76b1ad9 100644 --- a/libraries/cloudtrail/lib/stopLogging.mli +++ b/libraries/cloudtrail/lib/stopLogging.mli @@ -1,9 +1,7 @@ open Types type input = StopLoggingRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib/types.ml b/libraries/cloudtrail/lib/types.ml index 57ba05bcb..bc038dc65 100644 --- a/libraries/cloudtrail/lib/types.ml +++ b/libraries/cloudtrail/lib/types.ml @@ -209,9 +209,7 @@ module TrailList = struct Aws.Util.option_all (List.map Trail.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Trail.to_query v - let to_json v = `List (List.map Trail.to_json v) - let of_json j = Aws.Json.to_list Trail.of_json j end @@ -451,13 +449,9 @@ module TagsList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -533,9 +527,7 @@ module LookupAttributeKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -545,7 +537,6 @@ module LookupAttributeKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -624,13 +615,9 @@ module InvalidSnsTopicNameException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -698,9 +685,7 @@ module PublicKeyList = struct Aws.Util.option_all (List.map PublicKey.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PublicKey.to_query v - let to_json v = `List (List.map PublicKey.to_json v) - let of_json j = Aws.Json.to_list PublicKey.of_json j end @@ -754,13 +739,9 @@ module ReadWriteType = struct | All let str_to_t = [ "All", All; "WriteOnly", WriteOnly; "ReadOnly", ReadOnly ] - let t_to_str = [ All, "All"; WriteOnly, "WriteOnly"; ReadOnly, "ReadOnly" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -770,7 +751,6 @@ module ReadWriteType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -783,9 +763,7 @@ module ExcludeManagementEventSources = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -798,9 +776,7 @@ module DataResourceValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -852,9 +828,7 @@ module DataResources = struct Aws.Util.option_all (List.map DataResource.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DataResource.to_query v - let to_json v = `List (List.map DataResource.to_json v) - let of_json j = Aws.Json.to_list DataResource.of_json j end @@ -952,9 +926,7 @@ module EventSelectors = struct Aws.Util.option_all (List.map EventSelector.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list EventSelector.to_query v - let to_json v = `List (List.map EventSelector.to_json v) - let of_json j = Aws.Json.to_list EventSelector.of_json j end @@ -962,13 +934,9 @@ module InsightType = struct type t = ApiCallRateInsight let str_to_t = [ "ApiCallRateInsight", ApiCallRateInsight ] - let t_to_str = [ ApiCallRateInsight, "ApiCallRateInsight" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -978,7 +946,6 @@ module InsightType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1022,9 +989,7 @@ module InsightSelectors = struct Aws.Util.option_all (List.map InsightSelector.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InsightSelector.to_query v - let to_json v = `List (List.map InsightSelector.to_json v) - let of_json j = Aws.Json.to_list InsightSelector.of_json j end @@ -1162,13 +1127,9 @@ module MaximumNumberOfTrailsExceededException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1176,13 +1137,9 @@ module InvalidNextTokenException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1190,13 +1147,9 @@ module InvalidS3PrefixException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1204,13 +1157,9 @@ module InvalidCloudWatchLogsLogGroupArnException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1218,13 +1167,9 @@ module OrganizationsNotInUseException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1232,13 +1177,9 @@ module CloudTrailARNInvalidException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1246,13 +1187,9 @@ module InvalidEventCategoryException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1260,13 +1197,9 @@ module InsightNotEnabledException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1274,13 +1207,9 @@ module RemoveTagsResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1288,13 +1217,9 @@ module EventCategory = struct type t = Insight let str_to_t = [ "insight", Insight ] - let t_to_str = [ Insight, "insight" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1304,7 +1229,6 @@ module EventCategory = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1312,13 +1236,9 @@ module NotOrganizationMasterAccountException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1397,9 +1317,7 @@ module ResourceList = struct Aws.Util.option_all (List.map Resource.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Resource.to_query v - let to_json v = `List (List.map Resource.to_json v) - let of_json j = Aws.Json.to_list Resource.of_json j end @@ -1518,9 +1436,7 @@ module EventsList = struct Aws.Util.option_all (List.map Event.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Event.to_query v - let to_json v = `List (List.map Event.to_json v) - let of_json j = Aws.Json.to_list Event.of_json j end @@ -1566,13 +1482,9 @@ module ResourceNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1580,13 +1492,9 @@ module TagsLimitExceededException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1594,13 +1502,9 @@ module KmsKeyNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1608,13 +1512,9 @@ module InsufficientS3BucketPolicyException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1627,9 +1527,7 @@ module ResourceIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1637,13 +1535,9 @@ module InvalidHomeRegionException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1651,13 +1545,9 @@ module InvalidEventSelectorsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1665,13 +1555,9 @@ module InsufficientSnsTopicPolicyException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1679,13 +1565,9 @@ module UnsupportedOperationException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1693,13 +1575,9 @@ module CloudTrailAccessNotEnabledException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1707,13 +1585,9 @@ module InvalidTimeRangeException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1721,13 +1595,9 @@ module InvalidParameterCombinationException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1735,13 +1605,9 @@ module InvalidMaxResultsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1749,13 +1615,9 @@ module CloudWatchLogsDeliveryUnavailableException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1763,13 +1625,9 @@ module OperationNotPermittedException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1777,13 +1635,9 @@ module InsufficientEncryptionPolicyException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1838,9 +1692,7 @@ module TrailNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1895,13 +1747,9 @@ module S3BucketDoesNotExistException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1914,9 +1762,7 @@ module Trails = struct Aws.Util.option_all (List.map TrailInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TrailInfo.to_query v - let to_json v = `List (List.map TrailInfo.to_json v) - let of_json j = Aws.Json.to_list TrailInfo.of_json j end @@ -1924,13 +1770,9 @@ module InvalidTrailNameException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1938,13 +1780,9 @@ module InvalidLookupAttributesException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2285,13 +2123,9 @@ module OrganizationNotInAllFeaturesModeException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2324,13 +2158,9 @@ module StartLoggingResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2338,13 +2168,9 @@ module AddTagsResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2357,9 +2183,7 @@ module ResourceTagList = struct Aws.Util.option_all (List.map ResourceTag.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceTag.to_query v - let to_json v = `List (List.map ResourceTag.to_json v) - let of_json j = Aws.Json.to_list ResourceTag.of_json j end @@ -2692,13 +2516,9 @@ module InvalidTagParameterException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2706,13 +2526,9 @@ module TrailNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2720,13 +2536,9 @@ module KmsKeyDisabledException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2821,13 +2633,9 @@ module TrailNotProvidedException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2840,9 +2648,7 @@ module LookupAttributesList = struct Aws.Util.option_all (List.map LookupAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list LookupAttribute.to_query v - let to_json v = `List (List.map LookupAttribute.to_json v) - let of_json j = Aws.Json.to_list LookupAttribute.of_json j end @@ -2850,13 +2656,9 @@ module InvalidInsightSelectorsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2864,13 +2666,9 @@ module KmsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2878,13 +2676,9 @@ module InvalidKmsKeyIdException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3132,13 +2926,9 @@ module StopLoggingResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3146,13 +2936,9 @@ module InvalidTokenException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3240,13 +3026,9 @@ module InsufficientDependencyServiceAccessPermissionException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3298,13 +3080,9 @@ module InvalidCloudWatchLogsRoleArnException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3353,13 +3131,9 @@ module InvalidS3BucketNameException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3367,13 +3141,9 @@ module ResourceTypeNotSupportedException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3406,13 +3176,9 @@ module TrailAlreadyExistsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3577,12 +3343,8 @@ module DeleteTrailResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/cloudtrail/lib/updateTrail.ml b/libraries/cloudtrail/lib/updateTrail.ml index 42ba2b33f..e60d22501 100644 --- a/libraries/cloudtrail/lib/updateTrail.ml +++ b/libraries/cloudtrail/lib/updateTrail.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateTrailRequest.t - type output = UpdateTrailResponse.t - type error = Errors_internal.t let service = "cloudtrail" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudtrail/lib/updateTrail.mli b/libraries/cloudtrail/lib/updateTrail.mli index ea72fc631..8ea54c31b 100644 --- a/libraries/cloudtrail/lib/updateTrail.mli +++ b/libraries/cloudtrail/lib/updateTrail.mli @@ -1,9 +1,7 @@ open Types type input = UpdateTrailRequest.t - type output = UpdateTrailResponse.t - type error = Errors_internal.t include diff --git a/libraries/cloudtrail/lib_test/test_async.ml b/libraries/cloudtrail/lib_test/test_async.ml index b6c17fd31..3b2442f57 100644 --- a/libraries/cloudtrail/lib_test/test_async.ml +++ b/libraries/cloudtrail/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/cloudtrail/lib_test/test_lwt.ml b/libraries/cloudtrail/lib_test/test_lwt.ml index efec0e5f0..ec37395b5 100644 --- a/libraries/cloudtrail/lib_test/test_lwt.ml +++ b/libraries/cloudtrail/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/cloudwatch/lib/deleteAlarms.ml b/libraries/cloudwatch/lib/deleteAlarms.ml index 3067f3dfa..aa42e6da5 100644 --- a/libraries/cloudwatch/lib/deleteAlarms.ml +++ b/libraries/cloudwatch/lib/deleteAlarms.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAlarmsInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/deleteAlarms.mli b/libraries/cloudwatch/lib/deleteAlarms.mli index e0669afb1..96b8a8d8d 100644 --- a/libraries/cloudwatch/lib/deleteAlarms.mli +++ b/libraries/cloudwatch/lib/deleteAlarms.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAlarmsInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/deleteAnomalyDetector.ml b/libraries/cloudwatch/lib/deleteAnomalyDetector.ml index c377f1a54..fda5d7452 100644 --- a/libraries/cloudwatch/lib/deleteAnomalyDetector.ml +++ b/libraries/cloudwatch/lib/deleteAnomalyDetector.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAnomalyDetectorInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/deleteAnomalyDetector.mli b/libraries/cloudwatch/lib/deleteAnomalyDetector.mli index ad8eb38c2..7458b1a63 100644 --- a/libraries/cloudwatch/lib/deleteAnomalyDetector.mli +++ b/libraries/cloudwatch/lib/deleteAnomalyDetector.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAnomalyDetectorInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/deleteDashboards.ml b/libraries/cloudwatch/lib/deleteDashboards.ml index e511ffa93..402be2d34 100644 --- a/libraries/cloudwatch/lib/deleteDashboards.ml +++ b/libraries/cloudwatch/lib/deleteDashboards.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDashboardsInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/deleteDashboards.mli b/libraries/cloudwatch/lib/deleteDashboards.mli index 19391515f..173073543 100644 --- a/libraries/cloudwatch/lib/deleteDashboards.mli +++ b/libraries/cloudwatch/lib/deleteDashboards.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDashboardsInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/deleteInsightRules.ml b/libraries/cloudwatch/lib/deleteInsightRules.ml index 1314547e5..21c195be6 100644 --- a/libraries/cloudwatch/lib/deleteInsightRules.ml +++ b/libraries/cloudwatch/lib/deleteInsightRules.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteInsightRulesInput.t - type output = DeleteInsightRulesOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/deleteInsightRules.mli b/libraries/cloudwatch/lib/deleteInsightRules.mli index a4e133457..3218cee1a 100644 --- a/libraries/cloudwatch/lib/deleteInsightRules.mli +++ b/libraries/cloudwatch/lib/deleteInsightRules.mli @@ -1,9 +1,7 @@ open Types type input = DeleteInsightRulesInput.t - type output = DeleteInsightRulesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/describeAlarmHistory.ml b/libraries/cloudwatch/lib/describeAlarmHistory.ml index de3ced5ef..6bcf173e6 100644 --- a/libraries/cloudwatch/lib/describeAlarmHistory.ml +++ b/libraries/cloudwatch/lib/describeAlarmHistory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAlarmHistoryInput.t - type output = DescribeAlarmHistoryOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/describeAlarmHistory.mli b/libraries/cloudwatch/lib/describeAlarmHistory.mli index 21612041e..d8933742a 100644 --- a/libraries/cloudwatch/lib/describeAlarmHistory.mli +++ b/libraries/cloudwatch/lib/describeAlarmHistory.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAlarmHistoryInput.t - type output = DescribeAlarmHistoryOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/describeAlarms.ml b/libraries/cloudwatch/lib/describeAlarms.ml index c550b16ea..9aaeb779a 100644 --- a/libraries/cloudwatch/lib/describeAlarms.ml +++ b/libraries/cloudwatch/lib/describeAlarms.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAlarmsInput.t - type output = DescribeAlarmsOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/describeAlarms.mli b/libraries/cloudwatch/lib/describeAlarms.mli index 15d4be477..fa0bde536 100644 --- a/libraries/cloudwatch/lib/describeAlarms.mli +++ b/libraries/cloudwatch/lib/describeAlarms.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAlarmsInput.t - type output = DescribeAlarmsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/describeAlarmsForMetric.ml b/libraries/cloudwatch/lib/describeAlarmsForMetric.ml index eefbcdcfc..7d0005cbb 100644 --- a/libraries/cloudwatch/lib/describeAlarmsForMetric.ml +++ b/libraries/cloudwatch/lib/describeAlarmsForMetric.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAlarmsForMetricInput.t - type output = DescribeAlarmsForMetricOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/describeAlarmsForMetric.mli b/libraries/cloudwatch/lib/describeAlarmsForMetric.mli index 9a5e70af3..fe1618c54 100644 --- a/libraries/cloudwatch/lib/describeAlarmsForMetric.mli +++ b/libraries/cloudwatch/lib/describeAlarmsForMetric.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAlarmsForMetricInput.t - type output = DescribeAlarmsForMetricOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/describeAnomalyDetectors.ml b/libraries/cloudwatch/lib/describeAnomalyDetectors.ml index 8644f8978..58d4d8b90 100644 --- a/libraries/cloudwatch/lib/describeAnomalyDetectors.ml +++ b/libraries/cloudwatch/lib/describeAnomalyDetectors.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAnomalyDetectorsInput.t - type output = DescribeAnomalyDetectorsOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/describeAnomalyDetectors.mli b/libraries/cloudwatch/lib/describeAnomalyDetectors.mli index c19e2bea2..1538a516b 100644 --- a/libraries/cloudwatch/lib/describeAnomalyDetectors.mli +++ b/libraries/cloudwatch/lib/describeAnomalyDetectors.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAnomalyDetectorsInput.t - type output = DescribeAnomalyDetectorsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/describeInsightRules.ml b/libraries/cloudwatch/lib/describeInsightRules.ml index 3d2119cb8..fde9ab264 100644 --- a/libraries/cloudwatch/lib/describeInsightRules.ml +++ b/libraries/cloudwatch/lib/describeInsightRules.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInsightRulesInput.t - type output = DescribeInsightRulesOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/describeInsightRules.mli b/libraries/cloudwatch/lib/describeInsightRules.mli index e1d0026eb..17ea050f5 100644 --- a/libraries/cloudwatch/lib/describeInsightRules.mli +++ b/libraries/cloudwatch/lib/describeInsightRules.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInsightRulesInput.t - type output = DescribeInsightRulesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/disableAlarmActions.ml b/libraries/cloudwatch/lib/disableAlarmActions.ml index 990cc60cd..0a1d46c98 100644 --- a/libraries/cloudwatch/lib/disableAlarmActions.ml +++ b/libraries/cloudwatch/lib/disableAlarmActions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableAlarmActionsInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/disableAlarmActions.mli b/libraries/cloudwatch/lib/disableAlarmActions.mli index 6b5392095..258caa471 100644 --- a/libraries/cloudwatch/lib/disableAlarmActions.mli +++ b/libraries/cloudwatch/lib/disableAlarmActions.mli @@ -1,9 +1,7 @@ open Types type input = DisableAlarmActionsInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/disableInsightRules.ml b/libraries/cloudwatch/lib/disableInsightRules.ml index fa32f2919..1aec3838c 100644 --- a/libraries/cloudwatch/lib/disableInsightRules.ml +++ b/libraries/cloudwatch/lib/disableInsightRules.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableInsightRulesInput.t - type output = DisableInsightRulesOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/disableInsightRules.mli b/libraries/cloudwatch/lib/disableInsightRules.mli index 578586146..84458c99c 100644 --- a/libraries/cloudwatch/lib/disableInsightRules.mli +++ b/libraries/cloudwatch/lib/disableInsightRules.mli @@ -1,9 +1,7 @@ open Types type input = DisableInsightRulesInput.t - type output = DisableInsightRulesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/enableAlarmActions.ml b/libraries/cloudwatch/lib/enableAlarmActions.ml index 7bd969bbd..f52d4f774 100644 --- a/libraries/cloudwatch/lib/enableAlarmActions.ml +++ b/libraries/cloudwatch/lib/enableAlarmActions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableAlarmActionsInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/enableAlarmActions.mli b/libraries/cloudwatch/lib/enableAlarmActions.mli index b092fdbf2..a63c21e00 100644 --- a/libraries/cloudwatch/lib/enableAlarmActions.mli +++ b/libraries/cloudwatch/lib/enableAlarmActions.mli @@ -1,9 +1,7 @@ open Types type input = EnableAlarmActionsInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/enableInsightRules.ml b/libraries/cloudwatch/lib/enableInsightRules.ml index deb300411..dc2214d78 100644 --- a/libraries/cloudwatch/lib/enableInsightRules.ml +++ b/libraries/cloudwatch/lib/enableInsightRules.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableInsightRulesInput.t - type output = EnableInsightRulesOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/enableInsightRules.mli b/libraries/cloudwatch/lib/enableInsightRules.mli index 2396ea38d..8a9727e4a 100644 --- a/libraries/cloudwatch/lib/enableInsightRules.mli +++ b/libraries/cloudwatch/lib/enableInsightRules.mli @@ -1,9 +1,7 @@ open Types type input = EnableInsightRulesInput.t - type output = EnableInsightRulesOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/getDashboard.ml b/libraries/cloudwatch/lib/getDashboard.ml index 2e98b31c9..27edc8a8c 100644 --- a/libraries/cloudwatch/lib/getDashboard.ml +++ b/libraries/cloudwatch/lib/getDashboard.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetDashboardInput.t - type output = GetDashboardOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/getDashboard.mli b/libraries/cloudwatch/lib/getDashboard.mli index 868cbba94..5ad644290 100644 --- a/libraries/cloudwatch/lib/getDashboard.mli +++ b/libraries/cloudwatch/lib/getDashboard.mli @@ -1,9 +1,7 @@ open Types type input = GetDashboardInput.t - type output = GetDashboardOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/getInsightRuleReport.ml b/libraries/cloudwatch/lib/getInsightRuleReport.ml index 01fc35fde..5632cda6e 100644 --- a/libraries/cloudwatch/lib/getInsightRuleReport.ml +++ b/libraries/cloudwatch/lib/getInsightRuleReport.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetInsightRuleReportInput.t - type output = GetInsightRuleReportOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/getInsightRuleReport.mli b/libraries/cloudwatch/lib/getInsightRuleReport.mli index 76faad251..64997157c 100644 --- a/libraries/cloudwatch/lib/getInsightRuleReport.mli +++ b/libraries/cloudwatch/lib/getInsightRuleReport.mli @@ -1,9 +1,7 @@ open Types type input = GetInsightRuleReportInput.t - type output = GetInsightRuleReportOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/getMetricData.ml b/libraries/cloudwatch/lib/getMetricData.ml index f6507d5e8..44f034ca0 100644 --- a/libraries/cloudwatch/lib/getMetricData.ml +++ b/libraries/cloudwatch/lib/getMetricData.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMetricDataInput.t - type output = GetMetricDataOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/getMetricData.mli b/libraries/cloudwatch/lib/getMetricData.mli index 48995129e..aa2f50758 100644 --- a/libraries/cloudwatch/lib/getMetricData.mli +++ b/libraries/cloudwatch/lib/getMetricData.mli @@ -1,9 +1,7 @@ open Types type input = GetMetricDataInput.t - type output = GetMetricDataOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/getMetricStatistics.ml b/libraries/cloudwatch/lib/getMetricStatistics.ml index 82e9f6540..50207ba82 100644 --- a/libraries/cloudwatch/lib/getMetricStatistics.ml +++ b/libraries/cloudwatch/lib/getMetricStatistics.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMetricStatisticsInput.t - type output = GetMetricStatisticsOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/getMetricStatistics.mli b/libraries/cloudwatch/lib/getMetricStatistics.mli index 286dceb69..ac4af6e86 100644 --- a/libraries/cloudwatch/lib/getMetricStatistics.mli +++ b/libraries/cloudwatch/lib/getMetricStatistics.mli @@ -1,9 +1,7 @@ open Types type input = GetMetricStatisticsInput.t - type output = GetMetricStatisticsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/getMetricWidgetImage.ml b/libraries/cloudwatch/lib/getMetricWidgetImage.ml index 0ef741fc8..cbd335091 100644 --- a/libraries/cloudwatch/lib/getMetricWidgetImage.ml +++ b/libraries/cloudwatch/lib/getMetricWidgetImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMetricWidgetImageInput.t - type output = GetMetricWidgetImageOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/getMetricWidgetImage.mli b/libraries/cloudwatch/lib/getMetricWidgetImage.mli index 47e3f47ef..4babdbe24 100644 --- a/libraries/cloudwatch/lib/getMetricWidgetImage.mli +++ b/libraries/cloudwatch/lib/getMetricWidgetImage.mli @@ -1,9 +1,7 @@ open Types type input = GetMetricWidgetImageInput.t - type output = GetMetricWidgetImageOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/listDashboards.ml b/libraries/cloudwatch/lib/listDashboards.ml index 590a32af8..c3582ed56 100644 --- a/libraries/cloudwatch/lib/listDashboards.ml +++ b/libraries/cloudwatch/lib/listDashboards.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListDashboardsInput.t - type output = ListDashboardsOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/listDashboards.mli b/libraries/cloudwatch/lib/listDashboards.mli index bce430eff..b7c311272 100644 --- a/libraries/cloudwatch/lib/listDashboards.mli +++ b/libraries/cloudwatch/lib/listDashboards.mli @@ -1,9 +1,7 @@ open Types type input = ListDashboardsInput.t - type output = ListDashboardsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/listMetrics.ml b/libraries/cloudwatch/lib/listMetrics.ml index 63cdfa613..4fdbafe26 100644 --- a/libraries/cloudwatch/lib/listMetrics.ml +++ b/libraries/cloudwatch/lib/listMetrics.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListMetricsInput.t - type output = ListMetricsOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/listMetrics.mli b/libraries/cloudwatch/lib/listMetrics.mli index 5edb361e4..5fea87772 100644 --- a/libraries/cloudwatch/lib/listMetrics.mli +++ b/libraries/cloudwatch/lib/listMetrics.mli @@ -1,9 +1,7 @@ open Types type input = ListMetricsInput.t - type output = ListMetricsOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/listTagsForResource.ml b/libraries/cloudwatch/lib/listTagsForResource.ml index 16e7c156c..aa9e02142 100644 --- a/libraries/cloudwatch/lib/listTagsForResource.ml +++ b/libraries/cloudwatch/lib/listTagsForResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsForResourceInput.t - type output = ListTagsForResourceOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/listTagsForResource.mli b/libraries/cloudwatch/lib/listTagsForResource.mli index affa928c3..13263cd8b 100644 --- a/libraries/cloudwatch/lib/listTagsForResource.mli +++ b/libraries/cloudwatch/lib/listTagsForResource.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsForResourceInput.t - type output = ListTagsForResourceOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/putAnomalyDetector.ml b/libraries/cloudwatch/lib/putAnomalyDetector.ml index e48fdeef0..1131b6c8c 100644 --- a/libraries/cloudwatch/lib/putAnomalyDetector.ml +++ b/libraries/cloudwatch/lib/putAnomalyDetector.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutAnomalyDetectorInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/putAnomalyDetector.mli b/libraries/cloudwatch/lib/putAnomalyDetector.mli index e08961b82..0496d7297 100644 --- a/libraries/cloudwatch/lib/putAnomalyDetector.mli +++ b/libraries/cloudwatch/lib/putAnomalyDetector.mli @@ -1,9 +1,7 @@ open Types type input = PutAnomalyDetectorInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/putCompositeAlarm.ml b/libraries/cloudwatch/lib/putCompositeAlarm.ml index feff50817..b4d4523a9 100644 --- a/libraries/cloudwatch/lib/putCompositeAlarm.ml +++ b/libraries/cloudwatch/lib/putCompositeAlarm.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutCompositeAlarmInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/putCompositeAlarm.mli b/libraries/cloudwatch/lib/putCompositeAlarm.mli index 345225cb5..3109af4b7 100644 --- a/libraries/cloudwatch/lib/putCompositeAlarm.mli +++ b/libraries/cloudwatch/lib/putCompositeAlarm.mli @@ -1,9 +1,7 @@ open Types type input = PutCompositeAlarmInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/putDashboard.ml b/libraries/cloudwatch/lib/putDashboard.ml index 35bdb4e4b..c171c9103 100644 --- a/libraries/cloudwatch/lib/putDashboard.ml +++ b/libraries/cloudwatch/lib/putDashboard.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutDashboardInput.t - type output = PutDashboardOutput.t - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/putDashboard.mli b/libraries/cloudwatch/lib/putDashboard.mli index 626420346..fb48d3d39 100644 --- a/libraries/cloudwatch/lib/putDashboard.mli +++ b/libraries/cloudwatch/lib/putDashboard.mli @@ -1,9 +1,7 @@ open Types type input = PutDashboardInput.t - type output = PutDashboardOutput.t - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/putInsightRule.ml b/libraries/cloudwatch/lib/putInsightRule.ml index de90f4f69..efd166f18 100644 --- a/libraries/cloudwatch/lib/putInsightRule.ml +++ b/libraries/cloudwatch/lib/putInsightRule.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutInsightRuleInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/putInsightRule.mli b/libraries/cloudwatch/lib/putInsightRule.mli index ad54cd6e8..908b71494 100644 --- a/libraries/cloudwatch/lib/putInsightRule.mli +++ b/libraries/cloudwatch/lib/putInsightRule.mli @@ -1,9 +1,7 @@ open Types type input = PutInsightRuleInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/putMetricAlarm.ml b/libraries/cloudwatch/lib/putMetricAlarm.ml index 5075fa2cb..920bbb02b 100644 --- a/libraries/cloudwatch/lib/putMetricAlarm.ml +++ b/libraries/cloudwatch/lib/putMetricAlarm.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutMetricAlarmInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/putMetricAlarm.mli b/libraries/cloudwatch/lib/putMetricAlarm.mli index ce9652a7c..3f236ec93 100644 --- a/libraries/cloudwatch/lib/putMetricAlarm.mli +++ b/libraries/cloudwatch/lib/putMetricAlarm.mli @@ -1,9 +1,7 @@ open Types type input = PutMetricAlarmInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/putMetricData.ml b/libraries/cloudwatch/lib/putMetricData.ml index 8d6851dae..fb2a25342 100644 --- a/libraries/cloudwatch/lib/putMetricData.ml +++ b/libraries/cloudwatch/lib/putMetricData.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutMetricDataInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/putMetricData.mli b/libraries/cloudwatch/lib/putMetricData.mli index 17e799f0b..d62626d97 100644 --- a/libraries/cloudwatch/lib/putMetricData.mli +++ b/libraries/cloudwatch/lib/putMetricData.mli @@ -1,9 +1,7 @@ open Types type input = PutMetricDataInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/setAlarmState.ml b/libraries/cloudwatch/lib/setAlarmState.ml index 7fbbb05c4..9a999641f 100644 --- a/libraries/cloudwatch/lib/setAlarmState.ml +++ b/libraries/cloudwatch/lib/setAlarmState.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetAlarmStateInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/setAlarmState.mli b/libraries/cloudwatch/lib/setAlarmState.mli index f4ce4f8fe..c13788b61 100644 --- a/libraries/cloudwatch/lib/setAlarmState.mli +++ b/libraries/cloudwatch/lib/setAlarmState.mli @@ -1,9 +1,7 @@ open Types type input = SetAlarmStateInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/tagResource.ml b/libraries/cloudwatch/lib/tagResource.ml index a1c830c45..f04a6e450 100644 --- a/libraries/cloudwatch/lib/tagResource.ml +++ b/libraries/cloudwatch/lib/tagResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TagResourceInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/tagResource.mli b/libraries/cloudwatch/lib/tagResource.mli index 00f23fe23..e41ca618f 100644 --- a/libraries/cloudwatch/lib/tagResource.mli +++ b/libraries/cloudwatch/lib/tagResource.mli @@ -1,9 +1,7 @@ open Types type input = TagResourceInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib/types.ml b/libraries/cloudwatch/lib/types.ml index ab9838df0..26bd4530c 100644 --- a/libraries/cloudwatch/lib/types.ml +++ b/libraries/cloudwatch/lib/types.ml @@ -93,9 +93,7 @@ module StandardUnit = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -105,7 +103,6 @@ module StandardUnit = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -113,9 +110,7 @@ module DatapointValueMap = struct type t = (String.t, Double.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string Double.to_query v let to_json v = @@ -223,9 +218,7 @@ module Datapoints = struct Aws.Util.option_all (List.map Datapoint.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Datapoint.to_query v - let to_json v = `List (List.map Datapoint.to_json v) - let of_json j = Aws.Json.to_list Datapoint.of_json j end @@ -277,9 +270,7 @@ module AlarmNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -321,9 +312,7 @@ module DashboardNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -371,9 +360,7 @@ module Values = struct Aws.Util.option_all (List.map Double.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Double.to_query v - let to_json v = `List (List.map Double.to_json v) - let of_json j = Aws.Json.to_list Double.of_json j end @@ -424,9 +411,7 @@ module Dimensions = struct Aws.Util.option_all (List.map Dimension.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Dimension.to_query v - let to_json v = `List (List.map Dimension.to_json v) - let of_json j = Aws.Json.to_list Dimension.of_json j end @@ -480,9 +465,7 @@ module AnomalyDetectorExcludedTimeRanges = struct Aws.Util.option_all (List.map Range.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Range.to_query v - let to_json v = `List (List.map Range.to_json v) - let of_json j = Aws.Json.to_list Range.of_json j end @@ -618,9 +601,7 @@ module DatapointValues = struct Aws.Util.option_all (List.map Double.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Double.to_query v - let to_json v = `List (List.map Double.to_json v) - let of_json j = Aws.Json.to_list Double.of_json j end @@ -666,13 +647,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -710,9 +687,7 @@ module InsightRuleContributorKeys = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -725,9 +700,7 @@ module Timestamps = struct Aws.Util.option_all (List.map DateTime.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DateTime.to_query v - let to_json v = `List (List.map DateTime.to_json v) - let of_json j = Aws.Json.to_list DateTime.of_json j end @@ -744,9 +717,7 @@ module StatusCode = struct [ PartialData, "PartialData"; InternalError, "InternalError"; Complete, "Complete" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -756,7 +727,6 @@ module StatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -805,9 +775,7 @@ module MetricDataResultMessages = struct Aws.Util.option_all (List.map MessageData.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MessageData.to_query v - let to_json v = `List (List.map MessageData.to_json v) - let of_json j = Aws.Json.to_list MessageData.of_json j end @@ -999,9 +967,7 @@ module Statistic = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1011,7 +977,6 @@ module Statistic = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1022,13 +987,9 @@ module StateValue = struct | INSUFFICIENT_DATA let str_to_t = [ "INSUFFICIENT_DATA", INSUFFICIENT_DATA; "ALARM", ALARM; "OK", OK ] - let t_to_str = [ INSUFFICIENT_DATA, "INSUFFICIENT_DATA"; ALARM, "ALARM"; OK, "OK" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1038,7 +999,6 @@ module StateValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1051,9 +1011,7 @@ module ResourceList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1231,9 +1189,7 @@ module MetricDataQueries = struct Aws.Util.option_all (List.map MetricDataQuery.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MetricDataQuery.to_query v - let to_json v = `List (List.map MetricDataQuery.to_json v) - let of_json j = Aws.Json.to_list MetricDataQuery.of_json j end @@ -1268,9 +1224,7 @@ module ComparisonOperator = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1280,7 +1234,6 @@ module ComparisonOperator = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1609,9 +1562,7 @@ module MetricAlarms = struct Aws.Util.option_all (List.map MetricAlarm.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MetricAlarm.to_query v - let to_json v = `List (List.map MetricAlarm.to_json v) - let of_json j = Aws.Json.to_list MetricAlarm.of_json j end @@ -1665,9 +1616,7 @@ module AnomalyDetectorStateValue = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1677,7 +1626,6 @@ module AnomalyDetectorStateValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1827,9 +1775,7 @@ module Counts = struct Aws.Util.option_all (List.map Double.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Double.to_query v - let to_json v = `List (List.map Double.to_json v) - let of_json j = Aws.Json.to_list Double.of_json j end @@ -1956,9 +1902,7 @@ module MetricData = struct Aws.Util.option_all (List.map MetricDatum.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MetricDatum.to_query v - let to_json v = `List (List.map MetricDatum.to_json v) - let of_json j = Aws.Json.to_list MetricDatum.of_json j end @@ -2012,9 +1956,7 @@ module Statistics = struct Aws.Util.option_all (List.map Statistic.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Statistic.to_query v - let to_json v = `List (List.map Statistic.to_json v) - let of_json j = Aws.Json.to_list Statistic.of_json j end @@ -2027,9 +1969,7 @@ module ExtendedStatistics = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2343,9 +2283,7 @@ module InsightRules = struct Aws.Util.option_all (List.map InsightRule.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InsightRule.to_query v - let to_json v = `List (List.map InsightRule.to_json v) - let of_json j = Aws.Json.to_list InsightRule.of_json j end @@ -2494,9 +2432,7 @@ module HistoryItemType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2506,7 +2442,6 @@ module HistoryItemType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2514,13 +2449,9 @@ module DeleteAnomalyDetectorOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2592,9 +2523,7 @@ module BatchFailures = struct Aws.Util.option_all (List.map PartialFailure.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PartialFailure.to_query v - let to_json v = `List (List.map PartialFailure.to_json v) - let of_json j = Aws.Json.to_list PartialFailure.of_json j end @@ -2640,13 +2569,9 @@ module PutInsightRuleOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2654,13 +2579,9 @@ module LimitExceededException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2698,13 +2619,9 @@ module AlarmType = struct | MetricAlarm let str_to_t = [ "MetricAlarm", MetricAlarm; "CompositeAlarm", CompositeAlarm ] - let t_to_str = [ MetricAlarm, "MetricAlarm"; CompositeAlarm, "CompositeAlarm" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2714,7 +2631,6 @@ module AlarmType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2727,9 +2643,7 @@ module AlarmTypes = struct Aws.Util.option_all (List.map AlarmType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AlarmType.to_query v - let to_json v = `List (List.map AlarmType.to_json v) - let of_json j = Aws.Json.to_list AlarmType.of_json j end @@ -2796,13 +2710,9 @@ module TagResourceOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2815,9 +2725,7 @@ module Metrics = struct Aws.Util.option_all (List.map Metric.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Metric.to_query v - let to_json v = `List (List.map Metric.to_json v) - let of_json j = Aws.Json.to_list Metric.of_json j end @@ -2905,9 +2813,7 @@ module DashboardValidationMessages = struct (List.map DashboardValidationMessage.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DashboardValidationMessage.to_query v - let to_json v = `List (List.map DashboardValidationMessage.to_json v) - let of_json j = Aws.Json.to_list DashboardValidationMessage.of_json j end @@ -3003,9 +2909,7 @@ module AlarmHistoryItems = struct Aws.Util.option_all (List.map AlarmHistoryItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AlarmHistoryItem.to_query v - let to_json v = `List (List.map AlarmHistoryItem.to_json v) - let of_json j = Aws.Json.to_list AlarmHistoryItem.of_json j end @@ -3124,9 +3028,7 @@ module InsightRuleContributorDatapoints = struct (List.map InsightRuleContributorDatapoint.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InsightRuleContributorDatapoint.to_query v - let to_json v = `List (List.map InsightRuleContributorDatapoint.to_json v) - let of_json j = Aws.Json.to_list InsightRuleContributorDatapoint.of_json j end @@ -3207,9 +3109,7 @@ module AnomalyDetectors = struct Aws.Util.option_all (List.map AnomalyDetector.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AnomalyDetector.to_query v - let to_json v = `List (List.map AnomalyDetector.to_json v) - let of_json j = Aws.Json.to_list AnomalyDetector.of_json j end @@ -3302,9 +3202,7 @@ module DashboardEntries = struct Aws.Util.option_all (List.map DashboardEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DashboardEntry.to_query v - let to_json v = `List (List.map DashboardEntry.to_json v) - let of_json j = Aws.Json.to_list DashboardEntry.of_json j end @@ -3385,9 +3283,7 @@ module MetricDataResults = struct Aws.Util.option_all (List.map MetricDataResult.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MetricDataResult.to_query v - let to_json v = `List (List.map MetricDataResult.to_json v) - let of_json j = Aws.Json.to_list MetricDataResult.of_json j end @@ -3460,9 +3356,7 @@ module InsightRuleNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3736,9 +3630,7 @@ module CompositeAlarms = struct Aws.Util.option_all (List.map CompositeAlarm.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CompositeAlarm.to_query v - let to_json v = `List (List.map CompositeAlarm.to_json v) - let of_json j = Aws.Json.to_list CompositeAlarm.of_json j end @@ -3801,13 +3693,9 @@ module DeleteDashboardsOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3881,13 +3769,9 @@ module PutAnomalyDetectorOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3944,9 +3828,7 @@ module InsightRuleMetricList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4062,9 +3944,7 @@ module TagKeyList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4177,9 +4057,7 @@ module InsightRuleMetricDatapoints = struct (List.map InsightRuleMetricDatapoint.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InsightRuleMetricDatapoint.to_query v - let to_json v = `List (List.map InsightRuleMetricDatapoint.to_json v) - let of_json j = Aws.Json.to_list InsightRuleMetricDatapoint.of_json j end @@ -4193,9 +4071,7 @@ module InsightRuleContributors = struct (List.map InsightRuleContributor.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InsightRuleContributor.to_query v - let to_json v = `List (List.map InsightRuleContributor.to_json v) - let of_json j = Aws.Json.to_list InsightRuleContributor.of_json j end @@ -4208,9 +4084,7 @@ module InsightRuleContributorKeyLabels = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4943,9 +4817,7 @@ module ScanBy = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4955,7 +4827,6 @@ module ScanBy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4963,13 +4834,9 @@ module UntagResourceOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5502,13 +5369,9 @@ module ConcurrentModificationException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5581,13 +5444,9 @@ module RecentlyActive = struct type t = PT3H let str_to_t = [ "PT3H", PT3H ] - let t_to_str = [ PT3H, "PT3H" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5597,7 +5456,6 @@ module RecentlyActive = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5610,9 +5468,7 @@ module DimensionFilters = struct Aws.Util.option_all (List.map DimensionFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DimensionFilter.to_query v - let to_json v = `List (List.map DimensionFilter.to_json v) - let of_json j = Aws.Json.to_list DimensionFilter.of_json j end diff --git a/libraries/cloudwatch/lib/untagResource.ml b/libraries/cloudwatch/lib/untagResource.ml index 4930c0772..18409dc92 100644 --- a/libraries/cloudwatch/lib/untagResource.ml +++ b/libraries/cloudwatch/lib/untagResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UntagResourceInput.t - type output = unit - type error = Errors_internal.t let service = "monitoring" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/cloudwatch/lib/untagResource.mli b/libraries/cloudwatch/lib/untagResource.mli index ad0467c32..89e735c8b 100644 --- a/libraries/cloudwatch/lib/untagResource.mli +++ b/libraries/cloudwatch/lib/untagResource.mli @@ -1,9 +1,7 @@ open Types type input = UntagResourceInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/cloudwatch/lib_test/test_async.ml b/libraries/cloudwatch/lib_test/test_async.ml index 89f20917b..06ea3c991 100644 --- a/libraries/cloudwatch/lib_test/test_async.ml +++ b/libraries/cloudwatch/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/cloudwatch/lib_test/test_lwt.ml b/libraries/cloudwatch/lib_test/test_lwt.ml index cc6311d87..ebeeaa473 100644 --- a/libraries/cloudwatch/lib_test/test_lwt.ml +++ b/libraries/cloudwatch/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.ml b/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.ml index f09f2273b..890fc4471 100644 --- a/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.ml +++ b/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AcceptReservedInstancesExchangeQuoteRequest.t - type output = AcceptReservedInstancesExchangeQuoteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.mli b/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.mli index b8768e196..cff462ef3 100644 --- a/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.mli +++ b/libraries/ec2/lib/acceptReservedInstancesExchangeQuote.mli @@ -1,9 +1,7 @@ open Types type input = AcceptReservedInstancesExchangeQuoteRequest.t - type output = AcceptReservedInstancesExchangeQuoteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.ml b/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.ml index 3166115dd..4a29493a5 100644 --- a/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.ml +++ b/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AcceptTransitGatewayPeeringAttachmentRequest.t - type output = AcceptTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.mli b/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.mli index 8c69fbdf4..c5329d360 100644 --- a/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.mli +++ b/libraries/ec2/lib/acceptTransitGatewayPeeringAttachment.mli @@ -1,9 +1,7 @@ open Types type input = AcceptTransitGatewayPeeringAttachmentRequest.t - type output = AcceptTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.ml b/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.ml index 2a94dfc96..6d8a0bc13 100644 --- a/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.ml +++ b/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AcceptTransitGatewayVpcAttachmentRequest.t - type output = AcceptTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.mli b/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.mli index 9cde74f32..161cf2773 100644 --- a/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.mli +++ b/libraries/ec2/lib/acceptTransitGatewayVpcAttachment.mli @@ -1,9 +1,7 @@ open Types type input = AcceptTransitGatewayVpcAttachmentRequest.t - type output = AcceptTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/acceptVpcEndpointConnections.ml b/libraries/ec2/lib/acceptVpcEndpointConnections.ml index 48d0adff7..0540916e3 100644 --- a/libraries/ec2/lib/acceptVpcEndpointConnections.ml +++ b/libraries/ec2/lib/acceptVpcEndpointConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AcceptVpcEndpointConnectionsRequest.t - type output = AcceptVpcEndpointConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/acceptVpcEndpointConnections.mli b/libraries/ec2/lib/acceptVpcEndpointConnections.mli index 053547c0e..c855f59c6 100644 --- a/libraries/ec2/lib/acceptVpcEndpointConnections.mli +++ b/libraries/ec2/lib/acceptVpcEndpointConnections.mli @@ -1,9 +1,7 @@ open Types type input = AcceptVpcEndpointConnectionsRequest.t - type output = AcceptVpcEndpointConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/acceptVpcPeeringConnection.ml b/libraries/ec2/lib/acceptVpcPeeringConnection.ml index 9d77c4590..0560acd40 100644 --- a/libraries/ec2/lib/acceptVpcPeeringConnection.ml +++ b/libraries/ec2/lib/acceptVpcPeeringConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AcceptVpcPeeringConnectionRequest.t - type output = AcceptVpcPeeringConnectionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/acceptVpcPeeringConnection.mli b/libraries/ec2/lib/acceptVpcPeeringConnection.mli index 9093a8b8c..45f8bfd90 100644 --- a/libraries/ec2/lib/acceptVpcPeeringConnection.mli +++ b/libraries/ec2/lib/acceptVpcPeeringConnection.mli @@ -1,9 +1,7 @@ open Types type input = AcceptVpcPeeringConnectionRequest.t - type output = AcceptVpcPeeringConnectionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/advertiseByoipCidr.ml b/libraries/ec2/lib/advertiseByoipCidr.ml index 72c13bbea..d05f6ddfa 100644 --- a/libraries/ec2/lib/advertiseByoipCidr.ml +++ b/libraries/ec2/lib/advertiseByoipCidr.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AdvertiseByoipCidrRequest.t - type output = AdvertiseByoipCidrResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/advertiseByoipCidr.mli b/libraries/ec2/lib/advertiseByoipCidr.mli index e6345b68b..1809fbcd4 100644 --- a/libraries/ec2/lib/advertiseByoipCidr.mli +++ b/libraries/ec2/lib/advertiseByoipCidr.mli @@ -1,9 +1,7 @@ open Types type input = AdvertiseByoipCidrRequest.t - type output = AdvertiseByoipCidrResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/allocateAddress.ml b/libraries/ec2/lib/allocateAddress.ml index 9f8a7714c..0557d5f0c 100644 --- a/libraries/ec2/lib/allocateAddress.ml +++ b/libraries/ec2/lib/allocateAddress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AllocateAddressRequest.t - type output = AllocateAddressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/allocateAddress.mli b/libraries/ec2/lib/allocateAddress.mli index 98348a107..de229b602 100644 --- a/libraries/ec2/lib/allocateAddress.mli +++ b/libraries/ec2/lib/allocateAddress.mli @@ -1,9 +1,7 @@ open Types type input = AllocateAddressRequest.t - type output = AllocateAddressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/allocateHosts.ml b/libraries/ec2/lib/allocateHosts.ml index 1e483a21f..49b83d96b 100644 --- a/libraries/ec2/lib/allocateHosts.ml +++ b/libraries/ec2/lib/allocateHosts.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AllocateHostsRequest.t - type output = AllocateHostsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/allocateHosts.mli b/libraries/ec2/lib/allocateHosts.mli index e667a8d05..711f2a6ad 100644 --- a/libraries/ec2/lib/allocateHosts.mli +++ b/libraries/ec2/lib/allocateHosts.mli @@ -1,9 +1,7 @@ open Types type input = AllocateHostsRequest.t - type output = AllocateHostsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.ml b/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.ml index 861613b59..cd0f4ac7e 100644 --- a/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.ml +++ b/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ApplySecurityGroupsToClientVpnTargetNetworkRequest.t - type output = ApplySecurityGroupsToClientVpnTargetNetworkResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.mli b/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.mli index 437c060bc..70182c5c8 100644 --- a/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.mli +++ b/libraries/ec2/lib/applySecurityGroupsToClientVpnTargetNetwork.mli @@ -1,9 +1,7 @@ open Types type input = ApplySecurityGroupsToClientVpnTargetNetworkRequest.t - type output = ApplySecurityGroupsToClientVpnTargetNetworkResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/assignIpv6Addresses.ml b/libraries/ec2/lib/assignIpv6Addresses.ml index 57e0e5c2f..5ae543436 100644 --- a/libraries/ec2/lib/assignIpv6Addresses.ml +++ b/libraries/ec2/lib/assignIpv6Addresses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssignIpv6AddressesRequest.t - type output = AssignIpv6AddressesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/assignIpv6Addresses.mli b/libraries/ec2/lib/assignIpv6Addresses.mli index 60804bbda..1336e26e6 100644 --- a/libraries/ec2/lib/assignIpv6Addresses.mli +++ b/libraries/ec2/lib/assignIpv6Addresses.mli @@ -1,9 +1,7 @@ open Types type input = AssignIpv6AddressesRequest.t - type output = AssignIpv6AddressesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/assignPrivateIpAddresses.ml b/libraries/ec2/lib/assignPrivateIpAddresses.ml index efc770f4f..512dc5c8d 100644 --- a/libraries/ec2/lib/assignPrivateIpAddresses.ml +++ b/libraries/ec2/lib/assignPrivateIpAddresses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssignPrivateIpAddressesRequest.t - type output = AssignPrivateIpAddressesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/assignPrivateIpAddresses.mli b/libraries/ec2/lib/assignPrivateIpAddresses.mli index 886378e28..26de1c1dd 100644 --- a/libraries/ec2/lib/assignPrivateIpAddresses.mli +++ b/libraries/ec2/lib/assignPrivateIpAddresses.mli @@ -1,9 +1,7 @@ open Types type input = AssignPrivateIpAddressesRequest.t - type output = AssignPrivateIpAddressesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateAddress.ml b/libraries/ec2/lib/associateAddress.ml index aa69117c6..248bd4382 100644 --- a/libraries/ec2/lib/associateAddress.ml +++ b/libraries/ec2/lib/associateAddress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateAddressRequest.t - type output = AssociateAddressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateAddress.mli b/libraries/ec2/lib/associateAddress.mli index e0e0add1e..d94929473 100644 --- a/libraries/ec2/lib/associateAddress.mli +++ b/libraries/ec2/lib/associateAddress.mli @@ -1,9 +1,7 @@ open Types type input = AssociateAddressRequest.t - type output = AssociateAddressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateClientVpnTargetNetwork.ml b/libraries/ec2/lib/associateClientVpnTargetNetwork.ml index 1bc6e7703..f3ada8cbd 100644 --- a/libraries/ec2/lib/associateClientVpnTargetNetwork.ml +++ b/libraries/ec2/lib/associateClientVpnTargetNetwork.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateClientVpnTargetNetworkRequest.t - type output = AssociateClientVpnTargetNetworkResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateClientVpnTargetNetwork.mli b/libraries/ec2/lib/associateClientVpnTargetNetwork.mli index bc647c255..41b964a52 100644 --- a/libraries/ec2/lib/associateClientVpnTargetNetwork.mli +++ b/libraries/ec2/lib/associateClientVpnTargetNetwork.mli @@ -1,9 +1,7 @@ open Types type input = AssociateClientVpnTargetNetworkRequest.t - type output = AssociateClientVpnTargetNetworkResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateDhcpOptions.ml b/libraries/ec2/lib/associateDhcpOptions.ml index 65628d9d5..884c648cf 100644 --- a/libraries/ec2/lib/associateDhcpOptions.ml +++ b/libraries/ec2/lib/associateDhcpOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateDhcpOptionsRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateDhcpOptions.mli b/libraries/ec2/lib/associateDhcpOptions.mli index 83841b428..9f4704faa 100644 --- a/libraries/ec2/lib/associateDhcpOptions.mli +++ b/libraries/ec2/lib/associateDhcpOptions.mli @@ -1,9 +1,7 @@ open Types type input = AssociateDhcpOptionsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateEnclaveCertificateIamRole.ml b/libraries/ec2/lib/associateEnclaveCertificateIamRole.ml index 77605c0f8..c426d8609 100644 --- a/libraries/ec2/lib/associateEnclaveCertificateIamRole.ml +++ b/libraries/ec2/lib/associateEnclaveCertificateIamRole.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateEnclaveCertificateIamRoleRequest.t - type output = AssociateEnclaveCertificateIamRoleResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateEnclaveCertificateIamRole.mli b/libraries/ec2/lib/associateEnclaveCertificateIamRole.mli index ceab36cb0..f8e9be09a 100644 --- a/libraries/ec2/lib/associateEnclaveCertificateIamRole.mli +++ b/libraries/ec2/lib/associateEnclaveCertificateIamRole.mli @@ -1,9 +1,7 @@ open Types type input = AssociateEnclaveCertificateIamRoleRequest.t - type output = AssociateEnclaveCertificateIamRoleResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateIamInstanceProfile.ml b/libraries/ec2/lib/associateIamInstanceProfile.ml index 2bf28bf64..0aa72c317 100644 --- a/libraries/ec2/lib/associateIamInstanceProfile.ml +++ b/libraries/ec2/lib/associateIamInstanceProfile.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateIamInstanceProfileRequest.t - type output = AssociateIamInstanceProfileResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateIamInstanceProfile.mli b/libraries/ec2/lib/associateIamInstanceProfile.mli index 1f89b93ba..eeef67de9 100644 --- a/libraries/ec2/lib/associateIamInstanceProfile.mli +++ b/libraries/ec2/lib/associateIamInstanceProfile.mli @@ -1,9 +1,7 @@ open Types type input = AssociateIamInstanceProfileRequest.t - type output = AssociateIamInstanceProfileResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateRouteTable.ml b/libraries/ec2/lib/associateRouteTable.ml index 50115b75a..ab52d2951 100644 --- a/libraries/ec2/lib/associateRouteTable.ml +++ b/libraries/ec2/lib/associateRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateRouteTableRequest.t - type output = AssociateRouteTableResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateRouteTable.mli b/libraries/ec2/lib/associateRouteTable.mli index 86d8f7214..bf5a5cd90 100644 --- a/libraries/ec2/lib/associateRouteTable.mli +++ b/libraries/ec2/lib/associateRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = AssociateRouteTableRequest.t - type output = AssociateRouteTableResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateSubnetCidrBlock.ml b/libraries/ec2/lib/associateSubnetCidrBlock.ml index 7f9d3701f..eb4f094bd 100644 --- a/libraries/ec2/lib/associateSubnetCidrBlock.ml +++ b/libraries/ec2/lib/associateSubnetCidrBlock.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateSubnetCidrBlockRequest.t - type output = AssociateSubnetCidrBlockResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateSubnetCidrBlock.mli b/libraries/ec2/lib/associateSubnetCidrBlock.mli index 82a897061..04c6f6269 100644 --- a/libraries/ec2/lib/associateSubnetCidrBlock.mli +++ b/libraries/ec2/lib/associateSubnetCidrBlock.mli @@ -1,9 +1,7 @@ open Types type input = AssociateSubnetCidrBlockRequest.t - type output = AssociateSubnetCidrBlockResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateTransitGatewayMulticastDomain.ml b/libraries/ec2/lib/associateTransitGatewayMulticastDomain.ml index 28a277b42..75da895b7 100644 --- a/libraries/ec2/lib/associateTransitGatewayMulticastDomain.ml +++ b/libraries/ec2/lib/associateTransitGatewayMulticastDomain.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateTransitGatewayMulticastDomainRequest.t - type output = AssociateTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateTransitGatewayMulticastDomain.mli b/libraries/ec2/lib/associateTransitGatewayMulticastDomain.mli index 76dbf1a2d..bd54b13e9 100644 --- a/libraries/ec2/lib/associateTransitGatewayMulticastDomain.mli +++ b/libraries/ec2/lib/associateTransitGatewayMulticastDomain.mli @@ -1,9 +1,7 @@ open Types type input = AssociateTransitGatewayMulticastDomainRequest.t - type output = AssociateTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateTransitGatewayRouteTable.ml b/libraries/ec2/lib/associateTransitGatewayRouteTable.ml index 25d253c5b..32d567e99 100644 --- a/libraries/ec2/lib/associateTransitGatewayRouteTable.ml +++ b/libraries/ec2/lib/associateTransitGatewayRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateTransitGatewayRouteTableRequest.t - type output = AssociateTransitGatewayRouteTableResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateTransitGatewayRouteTable.mli b/libraries/ec2/lib/associateTransitGatewayRouteTable.mli index 685f87186..6232db36f 100644 --- a/libraries/ec2/lib/associateTransitGatewayRouteTable.mli +++ b/libraries/ec2/lib/associateTransitGatewayRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = AssociateTransitGatewayRouteTableRequest.t - type output = AssociateTransitGatewayRouteTableResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/associateVpcCidrBlock.ml b/libraries/ec2/lib/associateVpcCidrBlock.ml index ce1900682..a2617e412 100644 --- a/libraries/ec2/lib/associateVpcCidrBlock.ml +++ b/libraries/ec2/lib/associateVpcCidrBlock.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateVpcCidrBlockRequest.t - type output = AssociateVpcCidrBlockResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/associateVpcCidrBlock.mli b/libraries/ec2/lib/associateVpcCidrBlock.mli index 96a2b9881..a8a2bd1e4 100644 --- a/libraries/ec2/lib/associateVpcCidrBlock.mli +++ b/libraries/ec2/lib/associateVpcCidrBlock.mli @@ -1,9 +1,7 @@ open Types type input = AssociateVpcCidrBlockRequest.t - type output = AssociateVpcCidrBlockResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/attachClassicLinkVpc.ml b/libraries/ec2/lib/attachClassicLinkVpc.ml index 445f13dc9..697da4bbc 100644 --- a/libraries/ec2/lib/attachClassicLinkVpc.ml +++ b/libraries/ec2/lib/attachClassicLinkVpc.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachClassicLinkVpcRequest.t - type output = AttachClassicLinkVpcResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/attachClassicLinkVpc.mli b/libraries/ec2/lib/attachClassicLinkVpc.mli index d7e95313f..d3d4317b8 100644 --- a/libraries/ec2/lib/attachClassicLinkVpc.mli +++ b/libraries/ec2/lib/attachClassicLinkVpc.mli @@ -1,9 +1,7 @@ open Types type input = AttachClassicLinkVpcRequest.t - type output = AttachClassicLinkVpcResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/attachInternetGateway.ml b/libraries/ec2/lib/attachInternetGateway.ml index 355d2f94e..44ce4914a 100644 --- a/libraries/ec2/lib/attachInternetGateway.ml +++ b/libraries/ec2/lib/attachInternetGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachInternetGatewayRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/attachInternetGateway.mli b/libraries/ec2/lib/attachInternetGateway.mli index d4c8ba990..98ac15f1e 100644 --- a/libraries/ec2/lib/attachInternetGateway.mli +++ b/libraries/ec2/lib/attachInternetGateway.mli @@ -1,9 +1,7 @@ open Types type input = AttachInternetGatewayRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/attachNetworkInterface.ml b/libraries/ec2/lib/attachNetworkInterface.ml index a254014d2..380dfd056 100644 --- a/libraries/ec2/lib/attachNetworkInterface.ml +++ b/libraries/ec2/lib/attachNetworkInterface.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachNetworkInterfaceRequest.t - type output = AttachNetworkInterfaceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/attachNetworkInterface.mli b/libraries/ec2/lib/attachNetworkInterface.mli index 81c35bebe..aef0bc492 100644 --- a/libraries/ec2/lib/attachNetworkInterface.mli +++ b/libraries/ec2/lib/attachNetworkInterface.mli @@ -1,9 +1,7 @@ open Types type input = AttachNetworkInterfaceRequest.t - type output = AttachNetworkInterfaceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/attachVolume.ml b/libraries/ec2/lib/attachVolume.ml index 78eb633f0..e62236f00 100644 --- a/libraries/ec2/lib/attachVolume.ml +++ b/libraries/ec2/lib/attachVolume.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachVolumeRequest.t - type output = VolumeAttachment.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/attachVolume.mli b/libraries/ec2/lib/attachVolume.mli index eb638a517..dc0a4d3aa 100644 --- a/libraries/ec2/lib/attachVolume.mli +++ b/libraries/ec2/lib/attachVolume.mli @@ -1,9 +1,7 @@ open Types type input = AttachVolumeRequest.t - type output = VolumeAttachment.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/attachVpnGateway.ml b/libraries/ec2/lib/attachVpnGateway.ml index 2b28421c6..1111b6332 100644 --- a/libraries/ec2/lib/attachVpnGateway.ml +++ b/libraries/ec2/lib/attachVpnGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachVpnGatewayRequest.t - type output = AttachVpnGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/attachVpnGateway.mli b/libraries/ec2/lib/attachVpnGateway.mli index a9bd0c5d1..7db01ac2f 100644 --- a/libraries/ec2/lib/attachVpnGateway.mli +++ b/libraries/ec2/lib/attachVpnGateway.mli @@ -1,9 +1,7 @@ open Types type input = AttachVpnGatewayRequest.t - type output = AttachVpnGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/authorizeClientVpnIngress.ml b/libraries/ec2/lib/authorizeClientVpnIngress.ml index 53f2b308a..70974c3b6 100644 --- a/libraries/ec2/lib/authorizeClientVpnIngress.ml +++ b/libraries/ec2/lib/authorizeClientVpnIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AuthorizeClientVpnIngressRequest.t - type output = AuthorizeClientVpnIngressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/authorizeClientVpnIngress.mli b/libraries/ec2/lib/authorizeClientVpnIngress.mli index 625963969..6755fdbce 100644 --- a/libraries/ec2/lib/authorizeClientVpnIngress.mli +++ b/libraries/ec2/lib/authorizeClientVpnIngress.mli @@ -1,9 +1,7 @@ open Types type input = AuthorizeClientVpnIngressRequest.t - type output = AuthorizeClientVpnIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/authorizeSecurityGroupEgress.ml b/libraries/ec2/lib/authorizeSecurityGroupEgress.ml index 31447bf8c..09d2ccc62 100644 --- a/libraries/ec2/lib/authorizeSecurityGroupEgress.ml +++ b/libraries/ec2/lib/authorizeSecurityGroupEgress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AuthorizeSecurityGroupEgressRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/authorizeSecurityGroupEgress.mli b/libraries/ec2/lib/authorizeSecurityGroupEgress.mli index dd4f652ba..88fcd427c 100644 --- a/libraries/ec2/lib/authorizeSecurityGroupEgress.mli +++ b/libraries/ec2/lib/authorizeSecurityGroupEgress.mli @@ -1,9 +1,7 @@ open Types type input = AuthorizeSecurityGroupEgressRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/authorizeSecurityGroupIngress.ml b/libraries/ec2/lib/authorizeSecurityGroupIngress.ml index 164638443..fd497cba8 100644 --- a/libraries/ec2/lib/authorizeSecurityGroupIngress.ml +++ b/libraries/ec2/lib/authorizeSecurityGroupIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AuthorizeSecurityGroupIngressRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/authorizeSecurityGroupIngress.mli b/libraries/ec2/lib/authorizeSecurityGroupIngress.mli index 32963c1c2..167aa1979 100644 --- a/libraries/ec2/lib/authorizeSecurityGroupIngress.mli +++ b/libraries/ec2/lib/authorizeSecurityGroupIngress.mli @@ -1,9 +1,7 @@ open Types type input = AuthorizeSecurityGroupIngressRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/bundleInstance.ml b/libraries/ec2/lib/bundleInstance.ml index de23719cf..fdfd9bf79 100644 --- a/libraries/ec2/lib/bundleInstance.ml +++ b/libraries/ec2/lib/bundleInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = BundleInstanceRequest.t - type output = BundleInstanceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/bundleInstance.mli b/libraries/ec2/lib/bundleInstance.mli index 9909ad2b7..5ee5ce066 100644 --- a/libraries/ec2/lib/bundleInstance.mli +++ b/libraries/ec2/lib/bundleInstance.mli @@ -1,9 +1,7 @@ open Types type input = BundleInstanceRequest.t - type output = BundleInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelBundleTask.ml b/libraries/ec2/lib/cancelBundleTask.ml index 5e890de03..cabc99e01 100644 --- a/libraries/ec2/lib/cancelBundleTask.ml +++ b/libraries/ec2/lib/cancelBundleTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelBundleTaskRequest.t - type output = CancelBundleTaskResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelBundleTask.mli b/libraries/ec2/lib/cancelBundleTask.mli index 55c3b1491..f42f41ac8 100644 --- a/libraries/ec2/lib/cancelBundleTask.mli +++ b/libraries/ec2/lib/cancelBundleTask.mli @@ -1,9 +1,7 @@ open Types type input = CancelBundleTaskRequest.t - type output = CancelBundleTaskResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelCapacityReservation.ml b/libraries/ec2/lib/cancelCapacityReservation.ml index 03ca3c9b3..d5c0ea4c2 100644 --- a/libraries/ec2/lib/cancelCapacityReservation.ml +++ b/libraries/ec2/lib/cancelCapacityReservation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelCapacityReservationRequest.t - type output = CancelCapacityReservationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelCapacityReservation.mli b/libraries/ec2/lib/cancelCapacityReservation.mli index b936d5c77..d813ef270 100644 --- a/libraries/ec2/lib/cancelCapacityReservation.mli +++ b/libraries/ec2/lib/cancelCapacityReservation.mli @@ -1,9 +1,7 @@ open Types type input = CancelCapacityReservationRequest.t - type output = CancelCapacityReservationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelConversionTask.ml b/libraries/ec2/lib/cancelConversionTask.ml index 355e2eba8..d95aa580e 100644 --- a/libraries/ec2/lib/cancelConversionTask.ml +++ b/libraries/ec2/lib/cancelConversionTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelConversionRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelConversionTask.mli b/libraries/ec2/lib/cancelConversionTask.mli index 6d8c3f1db..f5c5d5d5f 100644 --- a/libraries/ec2/lib/cancelConversionTask.mli +++ b/libraries/ec2/lib/cancelConversionTask.mli @@ -1,9 +1,7 @@ open Types type input = CancelConversionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelExportTask.ml b/libraries/ec2/lib/cancelExportTask.ml index f4ad00ab5..724989ecb 100644 --- a/libraries/ec2/lib/cancelExportTask.ml +++ b/libraries/ec2/lib/cancelExportTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelExportTaskRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelExportTask.mli b/libraries/ec2/lib/cancelExportTask.mli index b96ae6ce3..2fea453a4 100644 --- a/libraries/ec2/lib/cancelExportTask.mli +++ b/libraries/ec2/lib/cancelExportTask.mli @@ -1,9 +1,7 @@ open Types type input = CancelExportTaskRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelImportTask.ml b/libraries/ec2/lib/cancelImportTask.ml index d896b381d..08bdb8211 100644 --- a/libraries/ec2/lib/cancelImportTask.ml +++ b/libraries/ec2/lib/cancelImportTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelImportTaskRequest.t - type output = CancelImportTaskResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelImportTask.mli b/libraries/ec2/lib/cancelImportTask.mli index 173cdbf8a..c174b1424 100644 --- a/libraries/ec2/lib/cancelImportTask.mli +++ b/libraries/ec2/lib/cancelImportTask.mli @@ -1,9 +1,7 @@ open Types type input = CancelImportTaskRequest.t - type output = CancelImportTaskResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelReservedInstancesListing.ml b/libraries/ec2/lib/cancelReservedInstancesListing.ml index dfe3c10de..46b5bdfb6 100644 --- a/libraries/ec2/lib/cancelReservedInstancesListing.ml +++ b/libraries/ec2/lib/cancelReservedInstancesListing.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelReservedInstancesListingRequest.t - type output = CancelReservedInstancesListingResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelReservedInstancesListing.mli b/libraries/ec2/lib/cancelReservedInstancesListing.mli index e0fa5e72a..e4416448a 100644 --- a/libraries/ec2/lib/cancelReservedInstancesListing.mli +++ b/libraries/ec2/lib/cancelReservedInstancesListing.mli @@ -1,9 +1,7 @@ open Types type input = CancelReservedInstancesListingRequest.t - type output = CancelReservedInstancesListingResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelSpotFleetRequests.ml b/libraries/ec2/lib/cancelSpotFleetRequests.ml index 41be35b26..027dcb744 100644 --- a/libraries/ec2/lib/cancelSpotFleetRequests.ml +++ b/libraries/ec2/lib/cancelSpotFleetRequests.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelSpotFleetRequestsRequest.t - type output = CancelSpotFleetRequestsResponse.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelSpotFleetRequests.mli b/libraries/ec2/lib/cancelSpotFleetRequests.mli index f7c371202..89ce4b1a1 100644 --- a/libraries/ec2/lib/cancelSpotFleetRequests.mli +++ b/libraries/ec2/lib/cancelSpotFleetRequests.mli @@ -1,9 +1,7 @@ open Types type input = CancelSpotFleetRequestsRequest.t - type output = CancelSpotFleetRequestsResponse.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/cancelSpotInstanceRequests.ml b/libraries/ec2/lib/cancelSpotInstanceRequests.ml index 2484a3a46..3af730715 100644 --- a/libraries/ec2/lib/cancelSpotInstanceRequests.ml +++ b/libraries/ec2/lib/cancelSpotInstanceRequests.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelSpotInstanceRequestsRequest.t - type output = CancelSpotInstanceRequestsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/cancelSpotInstanceRequests.mli b/libraries/ec2/lib/cancelSpotInstanceRequests.mli index 117450c85..54171479f 100644 --- a/libraries/ec2/lib/cancelSpotInstanceRequests.mli +++ b/libraries/ec2/lib/cancelSpotInstanceRequests.mli @@ -1,9 +1,7 @@ open Types type input = CancelSpotInstanceRequestsRequest.t - type output = CancelSpotInstanceRequestsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/confirmProductInstance.ml b/libraries/ec2/lib/confirmProductInstance.ml index 0e493ea8b..de7cab100 100644 --- a/libraries/ec2/lib/confirmProductInstance.ml +++ b/libraries/ec2/lib/confirmProductInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ConfirmProductInstanceRequest.t - type output = ConfirmProductInstanceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/confirmProductInstance.mli b/libraries/ec2/lib/confirmProductInstance.mli index a0f15f75f..349988e8f 100644 --- a/libraries/ec2/lib/confirmProductInstance.mli +++ b/libraries/ec2/lib/confirmProductInstance.mli @@ -1,9 +1,7 @@ open Types type input = ConfirmProductInstanceRequest.t - type output = ConfirmProductInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/copyFpgaImage.ml b/libraries/ec2/lib/copyFpgaImage.ml index 3f82ef3c7..f9ab45a8b 100644 --- a/libraries/ec2/lib/copyFpgaImage.ml +++ b/libraries/ec2/lib/copyFpgaImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyFpgaImageRequest.t - type output = CopyFpgaImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/copyFpgaImage.mli b/libraries/ec2/lib/copyFpgaImage.mli index b07c1ff25..f7be987d7 100644 --- a/libraries/ec2/lib/copyFpgaImage.mli +++ b/libraries/ec2/lib/copyFpgaImage.mli @@ -1,9 +1,7 @@ open Types type input = CopyFpgaImageRequest.t - type output = CopyFpgaImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/copyImage.ml b/libraries/ec2/lib/copyImage.ml index 44d45c932..3116e0548 100644 --- a/libraries/ec2/lib/copyImage.ml +++ b/libraries/ec2/lib/copyImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyImageRequest.t - type output = CopyImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/copyImage.mli b/libraries/ec2/lib/copyImage.mli index 8b7cf042f..a0f9af63c 100644 --- a/libraries/ec2/lib/copyImage.mli +++ b/libraries/ec2/lib/copyImage.mli @@ -1,9 +1,7 @@ open Types type input = CopyImageRequest.t - type output = CopyImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/copySnapshot.ml b/libraries/ec2/lib/copySnapshot.ml index 1cb25fc29..045dd9f2b 100644 --- a/libraries/ec2/lib/copySnapshot.ml +++ b/libraries/ec2/lib/copySnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopySnapshotRequest.t - type output = CopySnapshotResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/copySnapshot.mli b/libraries/ec2/lib/copySnapshot.mli index 60133614a..28152e2dc 100644 --- a/libraries/ec2/lib/copySnapshot.mli +++ b/libraries/ec2/lib/copySnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CopySnapshotRequest.t - type output = CopySnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createCapacityReservation.ml b/libraries/ec2/lib/createCapacityReservation.ml index d897b5047..188267600 100644 --- a/libraries/ec2/lib/createCapacityReservation.ml +++ b/libraries/ec2/lib/createCapacityReservation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCapacityReservationRequest.t - type output = CreateCapacityReservationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createCapacityReservation.mli b/libraries/ec2/lib/createCapacityReservation.mli index 12a0fa1c8..3eeec404b 100644 --- a/libraries/ec2/lib/createCapacityReservation.mli +++ b/libraries/ec2/lib/createCapacityReservation.mli @@ -1,9 +1,7 @@ open Types type input = CreateCapacityReservationRequest.t - type output = CreateCapacityReservationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createCarrierGateway.ml b/libraries/ec2/lib/createCarrierGateway.ml index 4ae77362a..3cf4cc74a 100644 --- a/libraries/ec2/lib/createCarrierGateway.ml +++ b/libraries/ec2/lib/createCarrierGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCarrierGatewayRequest.t - type output = CreateCarrierGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createCarrierGateway.mli b/libraries/ec2/lib/createCarrierGateway.mli index e99134d3c..99773509f 100644 --- a/libraries/ec2/lib/createCarrierGateway.mli +++ b/libraries/ec2/lib/createCarrierGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateCarrierGatewayRequest.t - type output = CreateCarrierGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createClientVpnEndpoint.ml b/libraries/ec2/lib/createClientVpnEndpoint.ml index b7c256e6f..d4e7b19f7 100644 --- a/libraries/ec2/lib/createClientVpnEndpoint.ml +++ b/libraries/ec2/lib/createClientVpnEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateClientVpnEndpointRequest.t - type output = CreateClientVpnEndpointResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createClientVpnEndpoint.mli b/libraries/ec2/lib/createClientVpnEndpoint.mli index 9a3209d13..cf067580a 100644 --- a/libraries/ec2/lib/createClientVpnEndpoint.mli +++ b/libraries/ec2/lib/createClientVpnEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = CreateClientVpnEndpointRequest.t - type output = CreateClientVpnEndpointResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createClientVpnRoute.ml b/libraries/ec2/lib/createClientVpnRoute.ml index 104a0be98..d2f287dd0 100644 --- a/libraries/ec2/lib/createClientVpnRoute.ml +++ b/libraries/ec2/lib/createClientVpnRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateClientVpnRouteRequest.t - type output = CreateClientVpnRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createClientVpnRoute.mli b/libraries/ec2/lib/createClientVpnRoute.mli index 0893e152d..d75e72051 100644 --- a/libraries/ec2/lib/createClientVpnRoute.mli +++ b/libraries/ec2/lib/createClientVpnRoute.mli @@ -1,9 +1,7 @@ open Types type input = CreateClientVpnRouteRequest.t - type output = CreateClientVpnRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createCustomerGateway.ml b/libraries/ec2/lib/createCustomerGateway.ml index d982ac440..782297990 100644 --- a/libraries/ec2/lib/createCustomerGateway.ml +++ b/libraries/ec2/lib/createCustomerGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCustomerGatewayRequest.t - type output = CreateCustomerGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createCustomerGateway.mli b/libraries/ec2/lib/createCustomerGateway.mli index 211945961..49c342b21 100644 --- a/libraries/ec2/lib/createCustomerGateway.mli +++ b/libraries/ec2/lib/createCustomerGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateCustomerGatewayRequest.t - type output = CreateCustomerGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createDefaultSubnet.ml b/libraries/ec2/lib/createDefaultSubnet.ml index 93a46cdd5..7c78e1b87 100644 --- a/libraries/ec2/lib/createDefaultSubnet.ml +++ b/libraries/ec2/lib/createDefaultSubnet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDefaultSubnetRequest.t - type output = CreateDefaultSubnetResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createDefaultSubnet.mli b/libraries/ec2/lib/createDefaultSubnet.mli index bf23a6b97..897c8aa3c 100644 --- a/libraries/ec2/lib/createDefaultSubnet.mli +++ b/libraries/ec2/lib/createDefaultSubnet.mli @@ -1,9 +1,7 @@ open Types type input = CreateDefaultSubnetRequest.t - type output = CreateDefaultSubnetResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createDefaultVpc.ml b/libraries/ec2/lib/createDefaultVpc.ml index f9f0b1177..ff79fa606 100644 --- a/libraries/ec2/lib/createDefaultVpc.ml +++ b/libraries/ec2/lib/createDefaultVpc.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDefaultVpcRequest.t - type output = CreateDefaultVpcResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createDefaultVpc.mli b/libraries/ec2/lib/createDefaultVpc.mli index 72a31301e..5c349c63b 100644 --- a/libraries/ec2/lib/createDefaultVpc.mli +++ b/libraries/ec2/lib/createDefaultVpc.mli @@ -1,9 +1,7 @@ open Types type input = CreateDefaultVpcRequest.t - type output = CreateDefaultVpcResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createDhcpOptions.ml b/libraries/ec2/lib/createDhcpOptions.ml index 6441c57a7..1eeb8e925 100644 --- a/libraries/ec2/lib/createDhcpOptions.ml +++ b/libraries/ec2/lib/createDhcpOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDhcpOptionsRequest.t - type output = CreateDhcpOptionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createDhcpOptions.mli b/libraries/ec2/lib/createDhcpOptions.mli index d508c283f..a711e8f82 100644 --- a/libraries/ec2/lib/createDhcpOptions.mli +++ b/libraries/ec2/lib/createDhcpOptions.mli @@ -1,9 +1,7 @@ open Types type input = CreateDhcpOptionsRequest.t - type output = CreateDhcpOptionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createEgressOnlyInternetGateway.ml b/libraries/ec2/lib/createEgressOnlyInternetGateway.ml index 2a577a84f..f3ba740b6 100644 --- a/libraries/ec2/lib/createEgressOnlyInternetGateway.ml +++ b/libraries/ec2/lib/createEgressOnlyInternetGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateEgressOnlyInternetGatewayRequest.t - type output = CreateEgressOnlyInternetGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createEgressOnlyInternetGateway.mli b/libraries/ec2/lib/createEgressOnlyInternetGateway.mli index dd973c657..69cf5dd86 100644 --- a/libraries/ec2/lib/createEgressOnlyInternetGateway.mli +++ b/libraries/ec2/lib/createEgressOnlyInternetGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateEgressOnlyInternetGatewayRequest.t - type output = CreateEgressOnlyInternetGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createFleet.ml b/libraries/ec2/lib/createFleet.ml index c09396b0e..185fba5bc 100644 --- a/libraries/ec2/lib/createFleet.ml +++ b/libraries/ec2/lib/createFleet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateFleetRequest.t - type output = CreateFleetResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createFleet.mli b/libraries/ec2/lib/createFleet.mli index 43b5fe4e3..ebe131c1f 100644 --- a/libraries/ec2/lib/createFleet.mli +++ b/libraries/ec2/lib/createFleet.mli @@ -1,9 +1,7 @@ open Types type input = CreateFleetRequest.t - type output = CreateFleetResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createFlowLogs.ml b/libraries/ec2/lib/createFlowLogs.ml index 6f40f08fb..d4d3efc30 100644 --- a/libraries/ec2/lib/createFlowLogs.ml +++ b/libraries/ec2/lib/createFlowLogs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateFlowLogsRequest.t - type output = CreateFlowLogsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createFlowLogs.mli b/libraries/ec2/lib/createFlowLogs.mli index 2ce56854b..8559fcbe5 100644 --- a/libraries/ec2/lib/createFlowLogs.mli +++ b/libraries/ec2/lib/createFlowLogs.mli @@ -1,9 +1,7 @@ open Types type input = CreateFlowLogsRequest.t - type output = CreateFlowLogsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createFpgaImage.ml b/libraries/ec2/lib/createFpgaImage.ml index ce154b93d..2eb9c1ba9 100644 --- a/libraries/ec2/lib/createFpgaImage.ml +++ b/libraries/ec2/lib/createFpgaImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateFpgaImageRequest.t - type output = CreateFpgaImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createFpgaImage.mli b/libraries/ec2/lib/createFpgaImage.mli index 16752e212..d3e0ee520 100644 --- a/libraries/ec2/lib/createFpgaImage.mli +++ b/libraries/ec2/lib/createFpgaImage.mli @@ -1,9 +1,7 @@ open Types type input = CreateFpgaImageRequest.t - type output = CreateFpgaImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createImage.ml b/libraries/ec2/lib/createImage.ml index af98503e7..be8d47146 100644 --- a/libraries/ec2/lib/createImage.ml +++ b/libraries/ec2/lib/createImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateImageRequest.t - type output = CreateImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createImage.mli b/libraries/ec2/lib/createImage.mli index 44e230338..70eafa92e 100644 --- a/libraries/ec2/lib/createImage.mli +++ b/libraries/ec2/lib/createImage.mli @@ -1,9 +1,7 @@ open Types type input = CreateImageRequest.t - type output = CreateImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createInstanceExportTask.ml b/libraries/ec2/lib/createInstanceExportTask.ml index 364f11adf..1ff0050ba 100644 --- a/libraries/ec2/lib/createInstanceExportTask.ml +++ b/libraries/ec2/lib/createInstanceExportTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateInstanceExportTaskRequest.t - type output = CreateInstanceExportTaskResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createInstanceExportTask.mli b/libraries/ec2/lib/createInstanceExportTask.mli index 02233359d..3ab6504ac 100644 --- a/libraries/ec2/lib/createInstanceExportTask.mli +++ b/libraries/ec2/lib/createInstanceExportTask.mli @@ -1,9 +1,7 @@ open Types type input = CreateInstanceExportTaskRequest.t - type output = CreateInstanceExportTaskResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createInternetGateway.ml b/libraries/ec2/lib/createInternetGateway.ml index 5fb382451..dfc1f5177 100644 --- a/libraries/ec2/lib/createInternetGateway.ml +++ b/libraries/ec2/lib/createInternetGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateInternetGatewayRequest.t - type output = CreateInternetGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createInternetGateway.mli b/libraries/ec2/lib/createInternetGateway.mli index 9fa17cdc0..0d35541da 100644 --- a/libraries/ec2/lib/createInternetGateway.mli +++ b/libraries/ec2/lib/createInternetGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateInternetGatewayRequest.t - type output = CreateInternetGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createKeyPair.ml b/libraries/ec2/lib/createKeyPair.ml index 2166185ea..176da3790 100644 --- a/libraries/ec2/lib/createKeyPair.ml +++ b/libraries/ec2/lib/createKeyPair.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateKeyPairRequest.t - type output = KeyPair.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createKeyPair.mli b/libraries/ec2/lib/createKeyPair.mli index 4e25def54..5edbed8f5 100644 --- a/libraries/ec2/lib/createKeyPair.mli +++ b/libraries/ec2/lib/createKeyPair.mli @@ -1,9 +1,7 @@ open Types type input = CreateKeyPairRequest.t - type output = KeyPair.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createLaunchTemplate.ml b/libraries/ec2/lib/createLaunchTemplate.ml index 79e15556f..3e253d1d3 100644 --- a/libraries/ec2/lib/createLaunchTemplate.ml +++ b/libraries/ec2/lib/createLaunchTemplate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLaunchTemplateRequest.t - type output = CreateLaunchTemplateResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createLaunchTemplate.mli b/libraries/ec2/lib/createLaunchTemplate.mli index 70c54f339..3665f1dff 100644 --- a/libraries/ec2/lib/createLaunchTemplate.mli +++ b/libraries/ec2/lib/createLaunchTemplate.mli @@ -1,9 +1,7 @@ open Types type input = CreateLaunchTemplateRequest.t - type output = CreateLaunchTemplateResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createLaunchTemplateVersion.ml b/libraries/ec2/lib/createLaunchTemplateVersion.ml index d00b3499a..2372a3092 100644 --- a/libraries/ec2/lib/createLaunchTemplateVersion.ml +++ b/libraries/ec2/lib/createLaunchTemplateVersion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLaunchTemplateVersionRequest.t - type output = CreateLaunchTemplateVersionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createLaunchTemplateVersion.mli b/libraries/ec2/lib/createLaunchTemplateVersion.mli index 0096c31fb..bee9c34a1 100644 --- a/libraries/ec2/lib/createLaunchTemplateVersion.mli +++ b/libraries/ec2/lib/createLaunchTemplateVersion.mli @@ -1,9 +1,7 @@ open Types type input = CreateLaunchTemplateVersionRequest.t - type output = CreateLaunchTemplateVersionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createLocalGatewayRoute.ml b/libraries/ec2/lib/createLocalGatewayRoute.ml index 1dd9de8c0..7d659bde9 100644 --- a/libraries/ec2/lib/createLocalGatewayRoute.ml +++ b/libraries/ec2/lib/createLocalGatewayRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLocalGatewayRouteRequest.t - type output = CreateLocalGatewayRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createLocalGatewayRoute.mli b/libraries/ec2/lib/createLocalGatewayRoute.mli index 509ee3283..6bb18f264 100644 --- a/libraries/ec2/lib/createLocalGatewayRoute.mli +++ b/libraries/ec2/lib/createLocalGatewayRoute.mli @@ -1,9 +1,7 @@ open Types type input = CreateLocalGatewayRouteRequest.t - type output = CreateLocalGatewayRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.ml b/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.ml index 4c0c952de..52b95860b 100644 --- a/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.ml +++ b/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLocalGatewayRouteTableVpcAssociationRequest.t - type output = CreateLocalGatewayRouteTableVpcAssociationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.mli b/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.mli index a92a3bafd..212164ee9 100644 --- a/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.mli +++ b/libraries/ec2/lib/createLocalGatewayRouteTableVpcAssociation.mli @@ -1,9 +1,7 @@ open Types type input = CreateLocalGatewayRouteTableVpcAssociationRequest.t - type output = CreateLocalGatewayRouteTableVpcAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createManagedPrefixList.ml b/libraries/ec2/lib/createManagedPrefixList.ml index c433723a0..ee30d6d39 100644 --- a/libraries/ec2/lib/createManagedPrefixList.ml +++ b/libraries/ec2/lib/createManagedPrefixList.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateManagedPrefixListRequest.t - type output = CreateManagedPrefixListResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createManagedPrefixList.mli b/libraries/ec2/lib/createManagedPrefixList.mli index 70a291bc3..c00d32ce5 100644 --- a/libraries/ec2/lib/createManagedPrefixList.mli +++ b/libraries/ec2/lib/createManagedPrefixList.mli @@ -1,9 +1,7 @@ open Types type input = CreateManagedPrefixListRequest.t - type output = CreateManagedPrefixListResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createNatGateway.ml b/libraries/ec2/lib/createNatGateway.ml index 4635aeba2..3decb1cdf 100644 --- a/libraries/ec2/lib/createNatGateway.ml +++ b/libraries/ec2/lib/createNatGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateNatGatewayRequest.t - type output = CreateNatGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createNatGateway.mli b/libraries/ec2/lib/createNatGateway.mli index ea5dea468..bb131ea37 100644 --- a/libraries/ec2/lib/createNatGateway.mli +++ b/libraries/ec2/lib/createNatGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateNatGatewayRequest.t - type output = CreateNatGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createNetworkAcl.ml b/libraries/ec2/lib/createNetworkAcl.ml index 5f3098936..ea01bc16d 100644 --- a/libraries/ec2/lib/createNetworkAcl.ml +++ b/libraries/ec2/lib/createNetworkAcl.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateNetworkAclRequest.t - type output = CreateNetworkAclResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createNetworkAcl.mli b/libraries/ec2/lib/createNetworkAcl.mli index df3eaddc1..0bfa27947 100644 --- a/libraries/ec2/lib/createNetworkAcl.mli +++ b/libraries/ec2/lib/createNetworkAcl.mli @@ -1,9 +1,7 @@ open Types type input = CreateNetworkAclRequest.t - type output = CreateNetworkAclResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createNetworkAclEntry.ml b/libraries/ec2/lib/createNetworkAclEntry.ml index 553467931..b1a00be38 100644 --- a/libraries/ec2/lib/createNetworkAclEntry.ml +++ b/libraries/ec2/lib/createNetworkAclEntry.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateNetworkAclEntryRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createNetworkAclEntry.mli b/libraries/ec2/lib/createNetworkAclEntry.mli index 70a70fc1d..4cfcb2c4c 100644 --- a/libraries/ec2/lib/createNetworkAclEntry.mli +++ b/libraries/ec2/lib/createNetworkAclEntry.mli @@ -1,9 +1,7 @@ open Types type input = CreateNetworkAclEntryRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createNetworkInterface.ml b/libraries/ec2/lib/createNetworkInterface.ml index 44a4fe547..aa070bb86 100644 --- a/libraries/ec2/lib/createNetworkInterface.ml +++ b/libraries/ec2/lib/createNetworkInterface.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateNetworkInterfaceRequest.t - type output = CreateNetworkInterfaceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createNetworkInterface.mli b/libraries/ec2/lib/createNetworkInterface.mli index 5229a1fad..3ac118fc3 100644 --- a/libraries/ec2/lib/createNetworkInterface.mli +++ b/libraries/ec2/lib/createNetworkInterface.mli @@ -1,9 +1,7 @@ open Types type input = CreateNetworkInterfaceRequest.t - type output = CreateNetworkInterfaceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createNetworkInterfacePermission.ml b/libraries/ec2/lib/createNetworkInterfacePermission.ml index 7d8ed2549..0c1e0c0c6 100644 --- a/libraries/ec2/lib/createNetworkInterfacePermission.ml +++ b/libraries/ec2/lib/createNetworkInterfacePermission.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateNetworkInterfacePermissionRequest.t - type output = CreateNetworkInterfacePermissionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createNetworkInterfacePermission.mli b/libraries/ec2/lib/createNetworkInterfacePermission.mli index b4acbd72d..116a160dc 100644 --- a/libraries/ec2/lib/createNetworkInterfacePermission.mli +++ b/libraries/ec2/lib/createNetworkInterfacePermission.mli @@ -1,9 +1,7 @@ open Types type input = CreateNetworkInterfacePermissionRequest.t - type output = CreateNetworkInterfacePermissionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createPlacementGroup.ml b/libraries/ec2/lib/createPlacementGroup.ml index fd76a3b35..06514adc7 100644 --- a/libraries/ec2/lib/createPlacementGroup.ml +++ b/libraries/ec2/lib/createPlacementGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreatePlacementGroupRequest.t - type output = CreatePlacementGroupResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createPlacementGroup.mli b/libraries/ec2/lib/createPlacementGroup.mli index 2bb52d19b..fade3e23c 100644 --- a/libraries/ec2/lib/createPlacementGroup.mli +++ b/libraries/ec2/lib/createPlacementGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreatePlacementGroupRequest.t - type output = CreatePlacementGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createReservedInstancesListing.ml b/libraries/ec2/lib/createReservedInstancesListing.ml index 6014ef4a8..f2a884216 100644 --- a/libraries/ec2/lib/createReservedInstancesListing.ml +++ b/libraries/ec2/lib/createReservedInstancesListing.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateReservedInstancesListingRequest.t - type output = CreateReservedInstancesListingResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createReservedInstancesListing.mli b/libraries/ec2/lib/createReservedInstancesListing.mli index fb30aaf97..c41164717 100644 --- a/libraries/ec2/lib/createReservedInstancesListing.mli +++ b/libraries/ec2/lib/createReservedInstancesListing.mli @@ -1,9 +1,7 @@ open Types type input = CreateReservedInstancesListingRequest.t - type output = CreateReservedInstancesListingResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createRoute.ml b/libraries/ec2/lib/createRoute.ml index 02541774b..3041f9a83 100644 --- a/libraries/ec2/lib/createRoute.ml +++ b/libraries/ec2/lib/createRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateRouteRequest.t - type output = CreateRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createRoute.mli b/libraries/ec2/lib/createRoute.mli index c86e9670a..4ead89c01 100644 --- a/libraries/ec2/lib/createRoute.mli +++ b/libraries/ec2/lib/createRoute.mli @@ -1,9 +1,7 @@ open Types type input = CreateRouteRequest.t - type output = CreateRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createRouteTable.ml b/libraries/ec2/lib/createRouteTable.ml index 3d80abc35..8870f975f 100644 --- a/libraries/ec2/lib/createRouteTable.ml +++ b/libraries/ec2/lib/createRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateRouteTableRequest.t - type output = CreateRouteTableResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createRouteTable.mli b/libraries/ec2/lib/createRouteTable.mli index cae12ee6e..2abf9270d 100644 --- a/libraries/ec2/lib/createRouteTable.mli +++ b/libraries/ec2/lib/createRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = CreateRouteTableRequest.t - type output = CreateRouteTableResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createSecurityGroup.ml b/libraries/ec2/lib/createSecurityGroup.ml index c4782e94c..7bdd2b7ba 100644 --- a/libraries/ec2/lib/createSecurityGroup.ml +++ b/libraries/ec2/lib/createSecurityGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateSecurityGroupRequest.t - type output = CreateSecurityGroupResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createSecurityGroup.mli b/libraries/ec2/lib/createSecurityGroup.mli index 25bb91724..0d2124f25 100644 --- a/libraries/ec2/lib/createSecurityGroup.mli +++ b/libraries/ec2/lib/createSecurityGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateSecurityGroupRequest.t - type output = CreateSecurityGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createSnapshot.ml b/libraries/ec2/lib/createSnapshot.ml index 16a8dcdec..a1305927c 100644 --- a/libraries/ec2/lib/createSnapshot.ml +++ b/libraries/ec2/lib/createSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateSnapshotRequest.t - type output = Snapshot.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createSnapshot.mli b/libraries/ec2/lib/createSnapshot.mli index e471cef73..eea469d72 100644 --- a/libraries/ec2/lib/createSnapshot.mli +++ b/libraries/ec2/lib/createSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CreateSnapshotRequest.t - type output = Snapshot.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createSnapshots.ml b/libraries/ec2/lib/createSnapshots.ml index 87eea827b..f00a05f5b 100644 --- a/libraries/ec2/lib/createSnapshots.ml +++ b/libraries/ec2/lib/createSnapshots.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateSnapshotsRequest.t - type output = CreateSnapshotsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createSnapshots.mli b/libraries/ec2/lib/createSnapshots.mli index 17f06ff9c..ad01aad61 100644 --- a/libraries/ec2/lib/createSnapshots.mli +++ b/libraries/ec2/lib/createSnapshots.mli @@ -1,9 +1,7 @@ open Types type input = CreateSnapshotsRequest.t - type output = CreateSnapshotsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createSpotDatafeedSubscription.ml b/libraries/ec2/lib/createSpotDatafeedSubscription.ml index 32c8a5faa..3eed68035 100644 --- a/libraries/ec2/lib/createSpotDatafeedSubscription.ml +++ b/libraries/ec2/lib/createSpotDatafeedSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateSpotDatafeedSubscriptionRequest.t - type output = CreateSpotDatafeedSubscriptionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createSpotDatafeedSubscription.mli b/libraries/ec2/lib/createSpotDatafeedSubscription.mli index 9935a450a..043ba939b 100644 --- a/libraries/ec2/lib/createSpotDatafeedSubscription.mli +++ b/libraries/ec2/lib/createSpotDatafeedSubscription.mli @@ -1,9 +1,7 @@ open Types type input = CreateSpotDatafeedSubscriptionRequest.t - type output = CreateSpotDatafeedSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createSubnet.ml b/libraries/ec2/lib/createSubnet.ml index 0b5feeacd..676571123 100644 --- a/libraries/ec2/lib/createSubnet.ml +++ b/libraries/ec2/lib/createSubnet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateSubnetRequest.t - type output = CreateSubnetResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createSubnet.mli b/libraries/ec2/lib/createSubnet.mli index 17f2d8cb4..d3ece9ce4 100644 --- a/libraries/ec2/lib/createSubnet.mli +++ b/libraries/ec2/lib/createSubnet.mli @@ -1,9 +1,7 @@ open Types type input = CreateSubnetRequest.t - type output = CreateSubnetResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTags.ml b/libraries/ec2/lib/createTags.ml index 584dd8e7a..7a01be2e5 100644 --- a/libraries/ec2/lib/createTags.ml +++ b/libraries/ec2/lib/createTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTagsRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTags.mli b/libraries/ec2/lib/createTags.mli index 8e2f024d1..ed6883ca2 100644 --- a/libraries/ec2/lib/createTags.mli +++ b/libraries/ec2/lib/createTags.mli @@ -1,9 +1,7 @@ open Types type input = CreateTagsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTrafficMirrorFilter.ml b/libraries/ec2/lib/createTrafficMirrorFilter.ml index b860d2917..2fc5216b6 100644 --- a/libraries/ec2/lib/createTrafficMirrorFilter.ml +++ b/libraries/ec2/lib/createTrafficMirrorFilter.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficMirrorFilterRequest.t - type output = CreateTrafficMirrorFilterResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTrafficMirrorFilter.mli b/libraries/ec2/lib/createTrafficMirrorFilter.mli index 6ba192afe..0bb2c6e9f 100644 --- a/libraries/ec2/lib/createTrafficMirrorFilter.mli +++ b/libraries/ec2/lib/createTrafficMirrorFilter.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficMirrorFilterRequest.t - type output = CreateTrafficMirrorFilterResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTrafficMirrorFilterRule.ml b/libraries/ec2/lib/createTrafficMirrorFilterRule.ml index 4060a8bd1..fe3232dba 100644 --- a/libraries/ec2/lib/createTrafficMirrorFilterRule.ml +++ b/libraries/ec2/lib/createTrafficMirrorFilterRule.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficMirrorFilterRuleRequest.t - type output = CreateTrafficMirrorFilterRuleResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTrafficMirrorFilterRule.mli b/libraries/ec2/lib/createTrafficMirrorFilterRule.mli index 56ed70d1a..186ed7058 100644 --- a/libraries/ec2/lib/createTrafficMirrorFilterRule.mli +++ b/libraries/ec2/lib/createTrafficMirrorFilterRule.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficMirrorFilterRuleRequest.t - type output = CreateTrafficMirrorFilterRuleResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTrafficMirrorSession.ml b/libraries/ec2/lib/createTrafficMirrorSession.ml index 340644bda..06201446f 100644 --- a/libraries/ec2/lib/createTrafficMirrorSession.ml +++ b/libraries/ec2/lib/createTrafficMirrorSession.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficMirrorSessionRequest.t - type output = CreateTrafficMirrorSessionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTrafficMirrorSession.mli b/libraries/ec2/lib/createTrafficMirrorSession.mli index bc4f9ef81..754043f66 100644 --- a/libraries/ec2/lib/createTrafficMirrorSession.mli +++ b/libraries/ec2/lib/createTrafficMirrorSession.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficMirrorSessionRequest.t - type output = CreateTrafficMirrorSessionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTrafficMirrorTarget.ml b/libraries/ec2/lib/createTrafficMirrorTarget.ml index 16e90e96a..56eb794e3 100644 --- a/libraries/ec2/lib/createTrafficMirrorTarget.ml +++ b/libraries/ec2/lib/createTrafficMirrorTarget.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficMirrorTargetRequest.t - type output = CreateTrafficMirrorTargetResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTrafficMirrorTarget.mli b/libraries/ec2/lib/createTrafficMirrorTarget.mli index 1468436a2..b83cd11a6 100644 --- a/libraries/ec2/lib/createTrafficMirrorTarget.mli +++ b/libraries/ec2/lib/createTrafficMirrorTarget.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficMirrorTargetRequest.t - type output = CreateTrafficMirrorTargetResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGateway.ml b/libraries/ec2/lib/createTransitGateway.ml index cb6544b7f..583cd98d7 100644 --- a/libraries/ec2/lib/createTransitGateway.ml +++ b/libraries/ec2/lib/createTransitGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayRequest.t - type output = CreateTransitGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGateway.mli b/libraries/ec2/lib/createTransitGateway.mli index c3bbd79e5..957309cdd 100644 --- a/libraries/ec2/lib/createTransitGateway.mli +++ b/libraries/ec2/lib/createTransitGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayRequest.t - type output = CreateTransitGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGatewayMulticastDomain.ml b/libraries/ec2/lib/createTransitGatewayMulticastDomain.ml index 47aca746f..2e8d0a393 100644 --- a/libraries/ec2/lib/createTransitGatewayMulticastDomain.ml +++ b/libraries/ec2/lib/createTransitGatewayMulticastDomain.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayMulticastDomainRequest.t - type output = CreateTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGatewayMulticastDomain.mli b/libraries/ec2/lib/createTransitGatewayMulticastDomain.mli index 586e6d3d4..4718adece 100644 --- a/libraries/ec2/lib/createTransitGatewayMulticastDomain.mli +++ b/libraries/ec2/lib/createTransitGatewayMulticastDomain.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayMulticastDomainRequest.t - type output = CreateTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGatewayPeeringAttachment.ml b/libraries/ec2/lib/createTransitGatewayPeeringAttachment.ml index 796b220b4..864179990 100644 --- a/libraries/ec2/lib/createTransitGatewayPeeringAttachment.ml +++ b/libraries/ec2/lib/createTransitGatewayPeeringAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayPeeringAttachmentRequest.t - type output = CreateTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGatewayPeeringAttachment.mli b/libraries/ec2/lib/createTransitGatewayPeeringAttachment.mli index ea1743cb9..eedb4e078 100644 --- a/libraries/ec2/lib/createTransitGatewayPeeringAttachment.mli +++ b/libraries/ec2/lib/createTransitGatewayPeeringAttachment.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayPeeringAttachmentRequest.t - type output = CreateTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGatewayPrefixListReference.ml b/libraries/ec2/lib/createTransitGatewayPrefixListReference.ml index 5a1859a49..08c0af73d 100644 --- a/libraries/ec2/lib/createTransitGatewayPrefixListReference.ml +++ b/libraries/ec2/lib/createTransitGatewayPrefixListReference.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayPrefixListReferenceRequest.t - type output = CreateTransitGatewayPrefixListReferenceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGatewayPrefixListReference.mli b/libraries/ec2/lib/createTransitGatewayPrefixListReference.mli index a4f657b10..78466bbfa 100644 --- a/libraries/ec2/lib/createTransitGatewayPrefixListReference.mli +++ b/libraries/ec2/lib/createTransitGatewayPrefixListReference.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayPrefixListReferenceRequest.t - type output = CreateTransitGatewayPrefixListReferenceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGatewayRoute.ml b/libraries/ec2/lib/createTransitGatewayRoute.ml index 0bdd09d57..dad84a1c5 100644 --- a/libraries/ec2/lib/createTransitGatewayRoute.ml +++ b/libraries/ec2/lib/createTransitGatewayRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayRouteRequest.t - type output = CreateTransitGatewayRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGatewayRoute.mli b/libraries/ec2/lib/createTransitGatewayRoute.mli index 85a2e31f5..87ce1da8b 100644 --- a/libraries/ec2/lib/createTransitGatewayRoute.mli +++ b/libraries/ec2/lib/createTransitGatewayRoute.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayRouteRequest.t - type output = CreateTransitGatewayRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGatewayRouteTable.ml b/libraries/ec2/lib/createTransitGatewayRouteTable.ml index 7b1cc30cb..983ca07e3 100644 --- a/libraries/ec2/lib/createTransitGatewayRouteTable.ml +++ b/libraries/ec2/lib/createTransitGatewayRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayRouteTableRequest.t - type output = CreateTransitGatewayRouteTableResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGatewayRouteTable.mli b/libraries/ec2/lib/createTransitGatewayRouteTable.mli index 872cd61e0..9d6d4a569 100644 --- a/libraries/ec2/lib/createTransitGatewayRouteTable.mli +++ b/libraries/ec2/lib/createTransitGatewayRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayRouteTableRequest.t - type output = CreateTransitGatewayRouteTableResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createTransitGatewayVpcAttachment.ml b/libraries/ec2/lib/createTransitGatewayVpcAttachment.ml index 502e80ac7..22e7c4b5d 100644 --- a/libraries/ec2/lib/createTransitGatewayVpcAttachment.ml +++ b/libraries/ec2/lib/createTransitGatewayVpcAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTransitGatewayVpcAttachmentRequest.t - type output = CreateTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createTransitGatewayVpcAttachment.mli b/libraries/ec2/lib/createTransitGatewayVpcAttachment.mli index ddaf74db4..fb101fcf5 100644 --- a/libraries/ec2/lib/createTransitGatewayVpcAttachment.mli +++ b/libraries/ec2/lib/createTransitGatewayVpcAttachment.mli @@ -1,9 +1,7 @@ open Types type input = CreateTransitGatewayVpcAttachmentRequest.t - type output = CreateTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVolume.ml b/libraries/ec2/lib/createVolume.ml index db0bb05fc..4cc4a0867 100644 --- a/libraries/ec2/lib/createVolume.ml +++ b/libraries/ec2/lib/createVolume.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVolumeRequest.t - type output = Volume.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVolume.mli b/libraries/ec2/lib/createVolume.mli index 2cd06cfc4..913022ded 100644 --- a/libraries/ec2/lib/createVolume.mli +++ b/libraries/ec2/lib/createVolume.mli @@ -1,9 +1,7 @@ open Types type input = CreateVolumeRequest.t - type output = Volume.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpc.ml b/libraries/ec2/lib/createVpc.ml index 161160511..08450e8c4 100644 --- a/libraries/ec2/lib/createVpc.ml +++ b/libraries/ec2/lib/createVpc.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpcRequest.t - type output = CreateVpcResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpc.mli b/libraries/ec2/lib/createVpc.mli index 720e4005c..6958a2757 100644 --- a/libraries/ec2/lib/createVpc.mli +++ b/libraries/ec2/lib/createVpc.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpcRequest.t - type output = CreateVpcResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpcEndpoint.ml b/libraries/ec2/lib/createVpcEndpoint.ml index 667dcbc26..b2ccbf94e 100644 --- a/libraries/ec2/lib/createVpcEndpoint.ml +++ b/libraries/ec2/lib/createVpcEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpcEndpointRequest.t - type output = CreateVpcEndpointResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpcEndpoint.mli b/libraries/ec2/lib/createVpcEndpoint.mli index f1c3d089e..cd0905e06 100644 --- a/libraries/ec2/lib/createVpcEndpoint.mli +++ b/libraries/ec2/lib/createVpcEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpcEndpointRequest.t - type output = CreateVpcEndpointResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpcEndpointConnectionNotification.ml b/libraries/ec2/lib/createVpcEndpointConnectionNotification.ml index 0c480fe1e..886181cc7 100644 --- a/libraries/ec2/lib/createVpcEndpointConnectionNotification.ml +++ b/libraries/ec2/lib/createVpcEndpointConnectionNotification.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpcEndpointConnectionNotificationRequest.t - type output = CreateVpcEndpointConnectionNotificationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpcEndpointConnectionNotification.mli b/libraries/ec2/lib/createVpcEndpointConnectionNotification.mli index a3cc231c6..baa2fb556 100644 --- a/libraries/ec2/lib/createVpcEndpointConnectionNotification.mli +++ b/libraries/ec2/lib/createVpcEndpointConnectionNotification.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpcEndpointConnectionNotificationRequest.t - type output = CreateVpcEndpointConnectionNotificationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpcEndpointServiceConfiguration.ml b/libraries/ec2/lib/createVpcEndpointServiceConfiguration.ml index 38edabe8a..92233c424 100644 --- a/libraries/ec2/lib/createVpcEndpointServiceConfiguration.ml +++ b/libraries/ec2/lib/createVpcEndpointServiceConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpcEndpointServiceConfigurationRequest.t - type output = CreateVpcEndpointServiceConfigurationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpcEndpointServiceConfiguration.mli b/libraries/ec2/lib/createVpcEndpointServiceConfiguration.mli index 940864357..4e301c198 100644 --- a/libraries/ec2/lib/createVpcEndpointServiceConfiguration.mli +++ b/libraries/ec2/lib/createVpcEndpointServiceConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpcEndpointServiceConfigurationRequest.t - type output = CreateVpcEndpointServiceConfigurationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpcPeeringConnection.ml b/libraries/ec2/lib/createVpcPeeringConnection.ml index b4efb22f6..e53f0c42a 100644 --- a/libraries/ec2/lib/createVpcPeeringConnection.ml +++ b/libraries/ec2/lib/createVpcPeeringConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpcPeeringConnectionRequest.t - type output = CreateVpcPeeringConnectionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpcPeeringConnection.mli b/libraries/ec2/lib/createVpcPeeringConnection.mli index 5e033a1c6..f2df16aac 100644 --- a/libraries/ec2/lib/createVpcPeeringConnection.mli +++ b/libraries/ec2/lib/createVpcPeeringConnection.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpcPeeringConnectionRequest.t - type output = CreateVpcPeeringConnectionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpnConnection.ml b/libraries/ec2/lib/createVpnConnection.ml index 062e7c212..218da15a2 100644 --- a/libraries/ec2/lib/createVpnConnection.ml +++ b/libraries/ec2/lib/createVpnConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpnConnectionRequest.t - type output = CreateVpnConnectionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpnConnection.mli b/libraries/ec2/lib/createVpnConnection.mli index ded888cae..994d6ed42 100644 --- a/libraries/ec2/lib/createVpnConnection.mli +++ b/libraries/ec2/lib/createVpnConnection.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpnConnectionRequest.t - type output = CreateVpnConnectionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpnConnectionRoute.ml b/libraries/ec2/lib/createVpnConnectionRoute.ml index e3a11dfb5..587fceab1 100644 --- a/libraries/ec2/lib/createVpnConnectionRoute.ml +++ b/libraries/ec2/lib/createVpnConnectionRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpnConnectionRouteRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpnConnectionRoute.mli b/libraries/ec2/lib/createVpnConnectionRoute.mli index 312106da6..bbddf27d9 100644 --- a/libraries/ec2/lib/createVpnConnectionRoute.mli +++ b/libraries/ec2/lib/createVpnConnectionRoute.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpnConnectionRouteRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/createVpnGateway.ml b/libraries/ec2/lib/createVpnGateway.ml index 731ea1e37..1ef259502 100644 --- a/libraries/ec2/lib/createVpnGateway.ml +++ b/libraries/ec2/lib/createVpnGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVpnGatewayRequest.t - type output = CreateVpnGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/createVpnGateway.mli b/libraries/ec2/lib/createVpnGateway.mli index 9b9a97724..5c5b7737d 100644 --- a/libraries/ec2/lib/createVpnGateway.mli +++ b/libraries/ec2/lib/createVpnGateway.mli @@ -1,9 +1,7 @@ open Types type input = CreateVpnGatewayRequest.t - type output = CreateVpnGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteCarrierGateway.ml b/libraries/ec2/lib/deleteCarrierGateway.ml index 9e048de33..8ba59a898 100644 --- a/libraries/ec2/lib/deleteCarrierGateway.ml +++ b/libraries/ec2/lib/deleteCarrierGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCarrierGatewayRequest.t - type output = DeleteCarrierGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteCarrierGateway.mli b/libraries/ec2/lib/deleteCarrierGateway.mli index b6eff8eca..b2a80012b 100644 --- a/libraries/ec2/lib/deleteCarrierGateway.mli +++ b/libraries/ec2/lib/deleteCarrierGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCarrierGatewayRequest.t - type output = DeleteCarrierGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteClientVpnEndpoint.ml b/libraries/ec2/lib/deleteClientVpnEndpoint.ml index 03e64e700..43b1b74d4 100644 --- a/libraries/ec2/lib/deleteClientVpnEndpoint.ml +++ b/libraries/ec2/lib/deleteClientVpnEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteClientVpnEndpointRequest.t - type output = DeleteClientVpnEndpointResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteClientVpnEndpoint.mli b/libraries/ec2/lib/deleteClientVpnEndpoint.mli index b94a9b0f9..e9cf0d0fb 100644 --- a/libraries/ec2/lib/deleteClientVpnEndpoint.mli +++ b/libraries/ec2/lib/deleteClientVpnEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = DeleteClientVpnEndpointRequest.t - type output = DeleteClientVpnEndpointResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteClientVpnRoute.ml b/libraries/ec2/lib/deleteClientVpnRoute.ml index 7a07b359a..fbacf800b 100644 --- a/libraries/ec2/lib/deleteClientVpnRoute.ml +++ b/libraries/ec2/lib/deleteClientVpnRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteClientVpnRouteRequest.t - type output = DeleteClientVpnRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteClientVpnRoute.mli b/libraries/ec2/lib/deleteClientVpnRoute.mli index f65825497..4f94491b6 100644 --- a/libraries/ec2/lib/deleteClientVpnRoute.mli +++ b/libraries/ec2/lib/deleteClientVpnRoute.mli @@ -1,9 +1,7 @@ open Types type input = DeleteClientVpnRouteRequest.t - type output = DeleteClientVpnRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteCustomerGateway.ml b/libraries/ec2/lib/deleteCustomerGateway.ml index 71f454fde..826b43d37 100644 --- a/libraries/ec2/lib/deleteCustomerGateway.ml +++ b/libraries/ec2/lib/deleteCustomerGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCustomerGatewayRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteCustomerGateway.mli b/libraries/ec2/lib/deleteCustomerGateway.mli index 499deec94..956e7c38e 100644 --- a/libraries/ec2/lib/deleteCustomerGateway.mli +++ b/libraries/ec2/lib/deleteCustomerGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCustomerGatewayRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteDhcpOptions.ml b/libraries/ec2/lib/deleteDhcpOptions.ml index e183c4abc..c2fa57bf7 100644 --- a/libraries/ec2/lib/deleteDhcpOptions.ml +++ b/libraries/ec2/lib/deleteDhcpOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDhcpOptionsRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteDhcpOptions.mli b/libraries/ec2/lib/deleteDhcpOptions.mli index c437b601d..eb4d459a3 100644 --- a/libraries/ec2/lib/deleteDhcpOptions.mli +++ b/libraries/ec2/lib/deleteDhcpOptions.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDhcpOptionsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteEgressOnlyInternetGateway.ml b/libraries/ec2/lib/deleteEgressOnlyInternetGateway.ml index 48f86cdec..f63e6c57f 100644 --- a/libraries/ec2/lib/deleteEgressOnlyInternetGateway.ml +++ b/libraries/ec2/lib/deleteEgressOnlyInternetGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteEgressOnlyInternetGatewayRequest.t - type output = DeleteEgressOnlyInternetGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteEgressOnlyInternetGateway.mli b/libraries/ec2/lib/deleteEgressOnlyInternetGateway.mli index 93723eae8..e27926b50 100644 --- a/libraries/ec2/lib/deleteEgressOnlyInternetGateway.mli +++ b/libraries/ec2/lib/deleteEgressOnlyInternetGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteEgressOnlyInternetGatewayRequest.t - type output = DeleteEgressOnlyInternetGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteFleets.ml b/libraries/ec2/lib/deleteFleets.ml index bf977c606..12dbc0a42 100644 --- a/libraries/ec2/lib/deleteFleets.ml +++ b/libraries/ec2/lib/deleteFleets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteFleetsRequest.t - type output = DeleteFleetsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteFleets.mli b/libraries/ec2/lib/deleteFleets.mli index 090cea2ca..277f66aea 100644 --- a/libraries/ec2/lib/deleteFleets.mli +++ b/libraries/ec2/lib/deleteFleets.mli @@ -1,9 +1,7 @@ open Types type input = DeleteFleetsRequest.t - type output = DeleteFleetsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteFlowLogs.ml b/libraries/ec2/lib/deleteFlowLogs.ml index 985cc2135..7dd0f0b9c 100644 --- a/libraries/ec2/lib/deleteFlowLogs.ml +++ b/libraries/ec2/lib/deleteFlowLogs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteFlowLogsRequest.t - type output = DeleteFlowLogsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteFlowLogs.mli b/libraries/ec2/lib/deleteFlowLogs.mli index fbdd7b7e0..994785667 100644 --- a/libraries/ec2/lib/deleteFlowLogs.mli +++ b/libraries/ec2/lib/deleteFlowLogs.mli @@ -1,9 +1,7 @@ open Types type input = DeleteFlowLogsRequest.t - type output = DeleteFlowLogsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteFpgaImage.ml b/libraries/ec2/lib/deleteFpgaImage.ml index cc7ed8a88..8901923cb 100644 --- a/libraries/ec2/lib/deleteFpgaImage.ml +++ b/libraries/ec2/lib/deleteFpgaImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteFpgaImageRequest.t - type output = DeleteFpgaImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteFpgaImage.mli b/libraries/ec2/lib/deleteFpgaImage.mli index b746d5fbc..7ee7a909d 100644 --- a/libraries/ec2/lib/deleteFpgaImage.mli +++ b/libraries/ec2/lib/deleteFpgaImage.mli @@ -1,9 +1,7 @@ open Types type input = DeleteFpgaImageRequest.t - type output = DeleteFpgaImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteInternetGateway.ml b/libraries/ec2/lib/deleteInternetGateway.ml index bdc999a05..581213e31 100644 --- a/libraries/ec2/lib/deleteInternetGateway.ml +++ b/libraries/ec2/lib/deleteInternetGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteInternetGatewayRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteInternetGateway.mli b/libraries/ec2/lib/deleteInternetGateway.mli index 544eec942..ce50c1ace 100644 --- a/libraries/ec2/lib/deleteInternetGateway.mli +++ b/libraries/ec2/lib/deleteInternetGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteInternetGatewayRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteKeyPair.ml b/libraries/ec2/lib/deleteKeyPair.ml index 026d67fb7..be20d6ad8 100644 --- a/libraries/ec2/lib/deleteKeyPair.ml +++ b/libraries/ec2/lib/deleteKeyPair.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteKeyPairRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteKeyPair.mli b/libraries/ec2/lib/deleteKeyPair.mli index bf76ec5e0..955458f0e 100644 --- a/libraries/ec2/lib/deleteKeyPair.mli +++ b/libraries/ec2/lib/deleteKeyPair.mli @@ -1,9 +1,7 @@ open Types type input = DeleteKeyPairRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteLaunchTemplate.ml b/libraries/ec2/lib/deleteLaunchTemplate.ml index 42f27731c..01e75e5c0 100644 --- a/libraries/ec2/lib/deleteLaunchTemplate.ml +++ b/libraries/ec2/lib/deleteLaunchTemplate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLaunchTemplateRequest.t - type output = DeleteLaunchTemplateResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteLaunchTemplate.mli b/libraries/ec2/lib/deleteLaunchTemplate.mli index cb893e754..e0b22cf73 100644 --- a/libraries/ec2/lib/deleteLaunchTemplate.mli +++ b/libraries/ec2/lib/deleteLaunchTemplate.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLaunchTemplateRequest.t - type output = DeleteLaunchTemplateResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteLaunchTemplateVersions.ml b/libraries/ec2/lib/deleteLaunchTemplateVersions.ml index fe76ddfc4..50e33c208 100644 --- a/libraries/ec2/lib/deleteLaunchTemplateVersions.ml +++ b/libraries/ec2/lib/deleteLaunchTemplateVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLaunchTemplateVersionsRequest.t - type output = DeleteLaunchTemplateVersionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteLaunchTemplateVersions.mli b/libraries/ec2/lib/deleteLaunchTemplateVersions.mli index dce9d4194..69cf8a6e2 100644 --- a/libraries/ec2/lib/deleteLaunchTemplateVersions.mli +++ b/libraries/ec2/lib/deleteLaunchTemplateVersions.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLaunchTemplateVersionsRequest.t - type output = DeleteLaunchTemplateVersionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteLocalGatewayRoute.ml b/libraries/ec2/lib/deleteLocalGatewayRoute.ml index 38e666d99..aad0d6726 100644 --- a/libraries/ec2/lib/deleteLocalGatewayRoute.ml +++ b/libraries/ec2/lib/deleteLocalGatewayRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLocalGatewayRouteRequest.t - type output = DeleteLocalGatewayRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteLocalGatewayRoute.mli b/libraries/ec2/lib/deleteLocalGatewayRoute.mli index f952149e6..894b87603 100644 --- a/libraries/ec2/lib/deleteLocalGatewayRoute.mli +++ b/libraries/ec2/lib/deleteLocalGatewayRoute.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLocalGatewayRouteRequest.t - type output = DeleteLocalGatewayRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.ml b/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.ml index fb9291f6d..d099b190e 100644 --- a/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.ml +++ b/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLocalGatewayRouteTableVpcAssociationRequest.t - type output = DeleteLocalGatewayRouteTableVpcAssociationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.mli b/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.mli index 3765beb0b..4115d33c5 100644 --- a/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.mli +++ b/libraries/ec2/lib/deleteLocalGatewayRouteTableVpcAssociation.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLocalGatewayRouteTableVpcAssociationRequest.t - type output = DeleteLocalGatewayRouteTableVpcAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteManagedPrefixList.ml b/libraries/ec2/lib/deleteManagedPrefixList.ml index 4e618dbb0..f8c54009b 100644 --- a/libraries/ec2/lib/deleteManagedPrefixList.ml +++ b/libraries/ec2/lib/deleteManagedPrefixList.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteManagedPrefixListRequest.t - type output = DeleteManagedPrefixListResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteManagedPrefixList.mli b/libraries/ec2/lib/deleteManagedPrefixList.mli index 78d7bc526..4803fc50c 100644 --- a/libraries/ec2/lib/deleteManagedPrefixList.mli +++ b/libraries/ec2/lib/deleteManagedPrefixList.mli @@ -1,9 +1,7 @@ open Types type input = DeleteManagedPrefixListRequest.t - type output = DeleteManagedPrefixListResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteNatGateway.ml b/libraries/ec2/lib/deleteNatGateway.ml index d1af0d465..a9a428613 100644 --- a/libraries/ec2/lib/deleteNatGateway.ml +++ b/libraries/ec2/lib/deleteNatGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteNatGatewayRequest.t - type output = DeleteNatGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteNatGateway.mli b/libraries/ec2/lib/deleteNatGateway.mli index 8ed1a2be4..50ebb2b3e 100644 --- a/libraries/ec2/lib/deleteNatGateway.mli +++ b/libraries/ec2/lib/deleteNatGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteNatGatewayRequest.t - type output = DeleteNatGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteNetworkAcl.ml b/libraries/ec2/lib/deleteNetworkAcl.ml index 3d2885910..65d68650b 100644 --- a/libraries/ec2/lib/deleteNetworkAcl.ml +++ b/libraries/ec2/lib/deleteNetworkAcl.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteNetworkAclRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteNetworkAcl.mli b/libraries/ec2/lib/deleteNetworkAcl.mli index 9022838a4..ab35cf4a9 100644 --- a/libraries/ec2/lib/deleteNetworkAcl.mli +++ b/libraries/ec2/lib/deleteNetworkAcl.mli @@ -1,9 +1,7 @@ open Types type input = DeleteNetworkAclRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteNetworkAclEntry.ml b/libraries/ec2/lib/deleteNetworkAclEntry.ml index efc7c2daa..8d8bfc4f9 100644 --- a/libraries/ec2/lib/deleteNetworkAclEntry.ml +++ b/libraries/ec2/lib/deleteNetworkAclEntry.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteNetworkAclEntryRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteNetworkAclEntry.mli b/libraries/ec2/lib/deleteNetworkAclEntry.mli index 579fe0d6f..7e303e30d 100644 --- a/libraries/ec2/lib/deleteNetworkAclEntry.mli +++ b/libraries/ec2/lib/deleteNetworkAclEntry.mli @@ -1,9 +1,7 @@ open Types type input = DeleteNetworkAclEntryRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteNetworkInterface.ml b/libraries/ec2/lib/deleteNetworkInterface.ml index 48b545900..f2fa71c40 100644 --- a/libraries/ec2/lib/deleteNetworkInterface.ml +++ b/libraries/ec2/lib/deleteNetworkInterface.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteNetworkInterfaceRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteNetworkInterface.mli b/libraries/ec2/lib/deleteNetworkInterface.mli index 6b0b694df..d50108bc4 100644 --- a/libraries/ec2/lib/deleteNetworkInterface.mli +++ b/libraries/ec2/lib/deleteNetworkInterface.mli @@ -1,9 +1,7 @@ open Types type input = DeleteNetworkInterfaceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteNetworkInterfacePermission.ml b/libraries/ec2/lib/deleteNetworkInterfacePermission.ml index 12e3ac5c7..f736f6fec 100644 --- a/libraries/ec2/lib/deleteNetworkInterfacePermission.ml +++ b/libraries/ec2/lib/deleteNetworkInterfacePermission.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteNetworkInterfacePermissionRequest.t - type output = DeleteNetworkInterfacePermissionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteNetworkInterfacePermission.mli b/libraries/ec2/lib/deleteNetworkInterfacePermission.mli index e5e90bc30..c703e3fc0 100644 --- a/libraries/ec2/lib/deleteNetworkInterfacePermission.mli +++ b/libraries/ec2/lib/deleteNetworkInterfacePermission.mli @@ -1,9 +1,7 @@ open Types type input = DeleteNetworkInterfacePermissionRequest.t - type output = DeleteNetworkInterfacePermissionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deletePlacementGroup.ml b/libraries/ec2/lib/deletePlacementGroup.ml index 0ee73deda..de22e5911 100644 --- a/libraries/ec2/lib/deletePlacementGroup.ml +++ b/libraries/ec2/lib/deletePlacementGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeletePlacementGroupRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deletePlacementGroup.mli b/libraries/ec2/lib/deletePlacementGroup.mli index 07eb6eb44..95636f5ee 100644 --- a/libraries/ec2/lib/deletePlacementGroup.mli +++ b/libraries/ec2/lib/deletePlacementGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeletePlacementGroupRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteQueuedReservedInstances.ml b/libraries/ec2/lib/deleteQueuedReservedInstances.ml index e5f06926a..92937841f 100644 --- a/libraries/ec2/lib/deleteQueuedReservedInstances.ml +++ b/libraries/ec2/lib/deleteQueuedReservedInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteQueuedReservedInstancesRequest.t - type output = DeleteQueuedReservedInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteQueuedReservedInstances.mli b/libraries/ec2/lib/deleteQueuedReservedInstances.mli index 414190c25..4c640cb99 100644 --- a/libraries/ec2/lib/deleteQueuedReservedInstances.mli +++ b/libraries/ec2/lib/deleteQueuedReservedInstances.mli @@ -1,9 +1,7 @@ open Types type input = DeleteQueuedReservedInstancesRequest.t - type output = DeleteQueuedReservedInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteRoute.ml b/libraries/ec2/lib/deleteRoute.ml index 5881b7935..64992e3fd 100644 --- a/libraries/ec2/lib/deleteRoute.ml +++ b/libraries/ec2/lib/deleteRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteRouteRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteRoute.mli b/libraries/ec2/lib/deleteRoute.mli index 1fd11ab11..83931c6b1 100644 --- a/libraries/ec2/lib/deleteRoute.mli +++ b/libraries/ec2/lib/deleteRoute.mli @@ -1,9 +1,7 @@ open Types type input = DeleteRouteRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteRouteTable.ml b/libraries/ec2/lib/deleteRouteTable.ml index 1dbdfca47..22597c6c6 100644 --- a/libraries/ec2/lib/deleteRouteTable.ml +++ b/libraries/ec2/lib/deleteRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteRouteTableRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteRouteTable.mli b/libraries/ec2/lib/deleteRouteTable.mli index 797fe9af4..7fc3a934b 100644 --- a/libraries/ec2/lib/deleteRouteTable.mli +++ b/libraries/ec2/lib/deleteRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = DeleteRouteTableRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteSecurityGroup.ml b/libraries/ec2/lib/deleteSecurityGroup.ml index 519d2e2b1..ab445d51a 100644 --- a/libraries/ec2/lib/deleteSecurityGroup.ml +++ b/libraries/ec2/lib/deleteSecurityGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteSecurityGroupRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteSecurityGroup.mli b/libraries/ec2/lib/deleteSecurityGroup.mli index 56f679fdd..47ce3ed05 100644 --- a/libraries/ec2/lib/deleteSecurityGroup.mli +++ b/libraries/ec2/lib/deleteSecurityGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteSecurityGroupRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteSnapshot.ml b/libraries/ec2/lib/deleteSnapshot.ml index 7212ca7dc..7e4284a74 100644 --- a/libraries/ec2/lib/deleteSnapshot.ml +++ b/libraries/ec2/lib/deleteSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteSnapshotRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteSnapshot.mli b/libraries/ec2/lib/deleteSnapshot.mli index 0a3cf61f7..7e8bc65af 100644 --- a/libraries/ec2/lib/deleteSnapshot.mli +++ b/libraries/ec2/lib/deleteSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = DeleteSnapshotRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteSpotDatafeedSubscription.ml b/libraries/ec2/lib/deleteSpotDatafeedSubscription.ml index cc9d7096b..5fdc45faf 100644 --- a/libraries/ec2/lib/deleteSpotDatafeedSubscription.ml +++ b/libraries/ec2/lib/deleteSpotDatafeedSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteSpotDatafeedSubscriptionRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteSpotDatafeedSubscription.mli b/libraries/ec2/lib/deleteSpotDatafeedSubscription.mli index c659ec311..03e9759bf 100644 --- a/libraries/ec2/lib/deleteSpotDatafeedSubscription.mli +++ b/libraries/ec2/lib/deleteSpotDatafeedSubscription.mli @@ -1,9 +1,7 @@ open Types type input = DeleteSpotDatafeedSubscriptionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteSubnet.ml b/libraries/ec2/lib/deleteSubnet.ml index 554f5ed87..014920eae 100644 --- a/libraries/ec2/lib/deleteSubnet.ml +++ b/libraries/ec2/lib/deleteSubnet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteSubnetRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteSubnet.mli b/libraries/ec2/lib/deleteSubnet.mli index 0879e4cff..1520d6032 100644 --- a/libraries/ec2/lib/deleteSubnet.mli +++ b/libraries/ec2/lib/deleteSubnet.mli @@ -1,9 +1,7 @@ open Types type input = DeleteSubnetRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTags.ml b/libraries/ec2/lib/deleteTags.ml index 96049204c..2b10844c1 100644 --- a/libraries/ec2/lib/deleteTags.ml +++ b/libraries/ec2/lib/deleteTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTagsRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTags.mli b/libraries/ec2/lib/deleteTags.mli index 020853807..76f62c666 100644 --- a/libraries/ec2/lib/deleteTags.mli +++ b/libraries/ec2/lib/deleteTags.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTagsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTrafficMirrorFilter.ml b/libraries/ec2/lib/deleteTrafficMirrorFilter.ml index c763e6f57..85c35d2b0 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorFilter.ml +++ b/libraries/ec2/lib/deleteTrafficMirrorFilter.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrafficMirrorFilterRequest.t - type output = DeleteTrafficMirrorFilterResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTrafficMirrorFilter.mli b/libraries/ec2/lib/deleteTrafficMirrorFilter.mli index 1199b6fef..dc276f737 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorFilter.mli +++ b/libraries/ec2/lib/deleteTrafficMirrorFilter.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrafficMirrorFilterRequest.t - type output = DeleteTrafficMirrorFilterResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTrafficMirrorFilterRule.ml b/libraries/ec2/lib/deleteTrafficMirrorFilterRule.ml index 96ced9cb9..94c115869 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorFilterRule.ml +++ b/libraries/ec2/lib/deleteTrafficMirrorFilterRule.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrafficMirrorFilterRuleRequest.t - type output = DeleteTrafficMirrorFilterRuleResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTrafficMirrorFilterRule.mli b/libraries/ec2/lib/deleteTrafficMirrorFilterRule.mli index e13952678..04d8630a4 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorFilterRule.mli +++ b/libraries/ec2/lib/deleteTrafficMirrorFilterRule.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrafficMirrorFilterRuleRequest.t - type output = DeleteTrafficMirrorFilterRuleResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTrafficMirrorSession.ml b/libraries/ec2/lib/deleteTrafficMirrorSession.ml index ae3fb2d32..a2c41cded 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorSession.ml +++ b/libraries/ec2/lib/deleteTrafficMirrorSession.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrafficMirrorSessionRequest.t - type output = DeleteTrafficMirrorSessionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTrafficMirrorSession.mli b/libraries/ec2/lib/deleteTrafficMirrorSession.mli index 79dbf70e2..df80b30ed 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorSession.mli +++ b/libraries/ec2/lib/deleteTrafficMirrorSession.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrafficMirrorSessionRequest.t - type output = DeleteTrafficMirrorSessionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTrafficMirrorTarget.ml b/libraries/ec2/lib/deleteTrafficMirrorTarget.ml index 03c589d53..916c176f1 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorTarget.ml +++ b/libraries/ec2/lib/deleteTrafficMirrorTarget.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrafficMirrorTargetRequest.t - type output = DeleteTrafficMirrorTargetResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTrafficMirrorTarget.mli b/libraries/ec2/lib/deleteTrafficMirrorTarget.mli index 56c82b520..0fc99b87f 100644 --- a/libraries/ec2/lib/deleteTrafficMirrorTarget.mli +++ b/libraries/ec2/lib/deleteTrafficMirrorTarget.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrafficMirrorTargetRequest.t - type output = DeleteTrafficMirrorTargetResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGateway.ml b/libraries/ec2/lib/deleteTransitGateway.ml index 195bdf0e6..3c663695c 100644 --- a/libraries/ec2/lib/deleteTransitGateway.ml +++ b/libraries/ec2/lib/deleteTransitGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayRequest.t - type output = DeleteTransitGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGateway.mli b/libraries/ec2/lib/deleteTransitGateway.mli index 25e87ffbe..301339f0d 100644 --- a/libraries/ec2/lib/deleteTransitGateway.mli +++ b/libraries/ec2/lib/deleteTransitGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayRequest.t - type output = DeleteTransitGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.ml b/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.ml index 59d7efd81..339ed67dc 100644 --- a/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.ml +++ b/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayMulticastDomainRequest.t - type output = DeleteTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.mli b/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.mli index 50ba2c2a7..2592cd9f7 100644 --- a/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.mli +++ b/libraries/ec2/lib/deleteTransitGatewayMulticastDomain.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayMulticastDomainRequest.t - type output = DeleteTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.ml b/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.ml index a4e310b94..da67bdf3d 100644 --- a/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.ml +++ b/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayPeeringAttachmentRequest.t - type output = DeleteTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.mli b/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.mli index 597ee9e38..3de330be9 100644 --- a/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.mli +++ b/libraries/ec2/lib/deleteTransitGatewayPeeringAttachment.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayPeeringAttachmentRequest.t - type output = DeleteTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.ml b/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.ml index 4d178c6db..a765a5f47 100644 --- a/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.ml +++ b/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayPrefixListReferenceRequest.t - type output = DeleteTransitGatewayPrefixListReferenceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.mli b/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.mli index 4572694f6..c0006a7d7 100644 --- a/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.mli +++ b/libraries/ec2/lib/deleteTransitGatewayPrefixListReference.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayPrefixListReferenceRequest.t - type output = DeleteTransitGatewayPrefixListReferenceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGatewayRoute.ml b/libraries/ec2/lib/deleteTransitGatewayRoute.ml index 551e0f978..ff31eefde 100644 --- a/libraries/ec2/lib/deleteTransitGatewayRoute.ml +++ b/libraries/ec2/lib/deleteTransitGatewayRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayRouteRequest.t - type output = DeleteTransitGatewayRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGatewayRoute.mli b/libraries/ec2/lib/deleteTransitGatewayRoute.mli index c7fa9d349..caeb10059 100644 --- a/libraries/ec2/lib/deleteTransitGatewayRoute.mli +++ b/libraries/ec2/lib/deleteTransitGatewayRoute.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayRouteRequest.t - type output = DeleteTransitGatewayRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGatewayRouteTable.ml b/libraries/ec2/lib/deleteTransitGatewayRouteTable.ml index 4695cc4d4..1602e6eb1 100644 --- a/libraries/ec2/lib/deleteTransitGatewayRouteTable.ml +++ b/libraries/ec2/lib/deleteTransitGatewayRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayRouteTableRequest.t - type output = DeleteTransitGatewayRouteTableResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGatewayRouteTable.mli b/libraries/ec2/lib/deleteTransitGatewayRouteTable.mli index 39bd98e3a..27e805ff6 100644 --- a/libraries/ec2/lib/deleteTransitGatewayRouteTable.mli +++ b/libraries/ec2/lib/deleteTransitGatewayRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayRouteTableRequest.t - type output = DeleteTransitGatewayRouteTableResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.ml b/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.ml index 4257139fb..51d0fc33b 100644 --- a/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.ml +++ b/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTransitGatewayVpcAttachmentRequest.t - type output = DeleteTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.mli b/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.mli index 0ca51b28b..aec435619 100644 --- a/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.mli +++ b/libraries/ec2/lib/deleteTransitGatewayVpcAttachment.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTransitGatewayVpcAttachmentRequest.t - type output = DeleteTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVolume.ml b/libraries/ec2/lib/deleteVolume.ml index 7c3433ce7..96fa2b717 100644 --- a/libraries/ec2/lib/deleteVolume.ml +++ b/libraries/ec2/lib/deleteVolume.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVolumeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVolume.mli b/libraries/ec2/lib/deleteVolume.mli index 61bf8c6f1..bf4feffb8 100644 --- a/libraries/ec2/lib/deleteVolume.mli +++ b/libraries/ec2/lib/deleteVolume.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVolumeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpc.ml b/libraries/ec2/lib/deleteVpc.ml index 95fbc942c..ac4fa5bad 100644 --- a/libraries/ec2/lib/deleteVpc.ml +++ b/libraries/ec2/lib/deleteVpc.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpcRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpc.mli b/libraries/ec2/lib/deleteVpc.mli index 0cd6c05d9..a430e1d8e 100644 --- a/libraries/ec2/lib/deleteVpc.mli +++ b/libraries/ec2/lib/deleteVpc.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpcRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.ml b/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.ml index bf960b2c6..39a9d4f36 100644 --- a/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.ml +++ b/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpcEndpointConnectionNotificationsRequest.t - type output = DeleteVpcEndpointConnectionNotificationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.mli b/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.mli index 8663a8bae..0f2f8d521 100644 --- a/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.mli +++ b/libraries/ec2/lib/deleteVpcEndpointConnectionNotifications.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpcEndpointConnectionNotificationsRequest.t - type output = DeleteVpcEndpointConnectionNotificationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.ml b/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.ml index 8758aad40..f38481fb8 100644 --- a/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.ml +++ b/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpcEndpointServiceConfigurationsRequest.t - type output = DeleteVpcEndpointServiceConfigurationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.mli b/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.mli index 9e80cfdba..fef8a4f52 100644 --- a/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.mli +++ b/libraries/ec2/lib/deleteVpcEndpointServiceConfigurations.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpcEndpointServiceConfigurationsRequest.t - type output = DeleteVpcEndpointServiceConfigurationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpcEndpoints.ml b/libraries/ec2/lib/deleteVpcEndpoints.ml index 651f5c560..99220b53b 100644 --- a/libraries/ec2/lib/deleteVpcEndpoints.ml +++ b/libraries/ec2/lib/deleteVpcEndpoints.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpcEndpointsRequest.t - type output = DeleteVpcEndpointsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpcEndpoints.mli b/libraries/ec2/lib/deleteVpcEndpoints.mli index 7aecd6823..64cc28f45 100644 --- a/libraries/ec2/lib/deleteVpcEndpoints.mli +++ b/libraries/ec2/lib/deleteVpcEndpoints.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpcEndpointsRequest.t - type output = DeleteVpcEndpointsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpcPeeringConnection.ml b/libraries/ec2/lib/deleteVpcPeeringConnection.ml index 9ff59b200..d9a50e804 100644 --- a/libraries/ec2/lib/deleteVpcPeeringConnection.ml +++ b/libraries/ec2/lib/deleteVpcPeeringConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpcPeeringConnectionRequest.t - type output = DeleteVpcPeeringConnectionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpcPeeringConnection.mli b/libraries/ec2/lib/deleteVpcPeeringConnection.mli index c1feda537..68f40463a 100644 --- a/libraries/ec2/lib/deleteVpcPeeringConnection.mli +++ b/libraries/ec2/lib/deleteVpcPeeringConnection.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpcPeeringConnectionRequest.t - type output = DeleteVpcPeeringConnectionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpnConnection.ml b/libraries/ec2/lib/deleteVpnConnection.ml index 0922b6699..44204ff52 100644 --- a/libraries/ec2/lib/deleteVpnConnection.ml +++ b/libraries/ec2/lib/deleteVpnConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpnConnectionRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpnConnection.mli b/libraries/ec2/lib/deleteVpnConnection.mli index 9010031cb..1a234b633 100644 --- a/libraries/ec2/lib/deleteVpnConnection.mli +++ b/libraries/ec2/lib/deleteVpnConnection.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpnConnectionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpnConnectionRoute.ml b/libraries/ec2/lib/deleteVpnConnectionRoute.ml index 49d131343..1ccb20e2a 100644 --- a/libraries/ec2/lib/deleteVpnConnectionRoute.ml +++ b/libraries/ec2/lib/deleteVpnConnectionRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpnConnectionRouteRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpnConnectionRoute.mli b/libraries/ec2/lib/deleteVpnConnectionRoute.mli index 9f2c54b3e..31d291ef4 100644 --- a/libraries/ec2/lib/deleteVpnConnectionRoute.mli +++ b/libraries/ec2/lib/deleteVpnConnectionRoute.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpnConnectionRouteRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deleteVpnGateway.ml b/libraries/ec2/lib/deleteVpnGateway.ml index 05c08800b..f3bf0020f 100644 --- a/libraries/ec2/lib/deleteVpnGateway.ml +++ b/libraries/ec2/lib/deleteVpnGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVpnGatewayRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deleteVpnGateway.mli b/libraries/ec2/lib/deleteVpnGateway.mli index 08c23718e..3619eecd9 100644 --- a/libraries/ec2/lib/deleteVpnGateway.mli +++ b/libraries/ec2/lib/deleteVpnGateway.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVpnGatewayRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deprovisionByoipCidr.ml b/libraries/ec2/lib/deprovisionByoipCidr.ml index 85c525114..766ee9ca7 100644 --- a/libraries/ec2/lib/deprovisionByoipCidr.ml +++ b/libraries/ec2/lib/deprovisionByoipCidr.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeprovisionByoipCidrRequest.t - type output = DeprovisionByoipCidrResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deprovisionByoipCidr.mli b/libraries/ec2/lib/deprovisionByoipCidr.mli index c57e7d8ea..2f78aa355 100644 --- a/libraries/ec2/lib/deprovisionByoipCidr.mli +++ b/libraries/ec2/lib/deprovisionByoipCidr.mli @@ -1,9 +1,7 @@ open Types type input = DeprovisionByoipCidrRequest.t - type output = DeprovisionByoipCidrResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deregisterImage.ml b/libraries/ec2/lib/deregisterImage.ml index dff375458..0dcc52ec3 100644 --- a/libraries/ec2/lib/deregisterImage.ml +++ b/libraries/ec2/lib/deregisterImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterImageRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deregisterImage.mli b/libraries/ec2/lib/deregisterImage.mli index 45ed16fed..ef4c6864e 100644 --- a/libraries/ec2/lib/deregisterImage.mli +++ b/libraries/ec2/lib/deregisterImage.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterImageRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.ml b/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.ml index b6d8a5895..9ffc4cb8a 100644 --- a/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.ml +++ b/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterInstanceEventNotificationAttributesRequest.t - type output = DeregisterInstanceEventNotificationAttributesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.mli b/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.mli index d4f11377b..246d1b70c 100644 --- a/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.mli +++ b/libraries/ec2/lib/deregisterInstanceEventNotificationAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterInstanceEventNotificationAttributesRequest.t - type output = DeregisterInstanceEventNotificationAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.ml b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.ml index 9a7a83f9b..812aaaa8e 100644 --- a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.ml +++ b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterTransitGatewayMulticastGroupMembersRequest.t - type output = DeregisterTransitGatewayMulticastGroupMembersResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.mli b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.mli index 865c84e1c..f8f9e64cf 100644 --- a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.mli +++ b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupMembers.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterTransitGatewayMulticastGroupMembersRequest.t - type output = DeregisterTransitGatewayMulticastGroupMembersResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.ml b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.ml index 4aabb48fb..d5d1dd774 100644 --- a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.ml +++ b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterTransitGatewayMulticastGroupSourcesRequest.t - type output = DeregisterTransitGatewayMulticastGroupSourcesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.mli b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.mli index 89d3fe077..ecc34a2d7 100644 --- a/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.mli +++ b/libraries/ec2/lib/deregisterTransitGatewayMulticastGroupSources.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterTransitGatewayMulticastGroupSourcesRequest.t - type output = DeregisterTransitGatewayMulticastGroupSourcesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeAccountAttributes.ml b/libraries/ec2/lib/describeAccountAttributes.ml index fd3f0427e..135060a46 100644 --- a/libraries/ec2/lib/describeAccountAttributes.ml +++ b/libraries/ec2/lib/describeAccountAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAccountAttributesRequest.t - type output = DescribeAccountAttributesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeAccountAttributes.mli b/libraries/ec2/lib/describeAccountAttributes.mli index cfbfade2e..3d8ac6ecb 100644 --- a/libraries/ec2/lib/describeAccountAttributes.mli +++ b/libraries/ec2/lib/describeAccountAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAccountAttributesRequest.t - type output = DescribeAccountAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeAddresses.ml b/libraries/ec2/lib/describeAddresses.ml index 34a332bab..f462d582f 100644 --- a/libraries/ec2/lib/describeAddresses.ml +++ b/libraries/ec2/lib/describeAddresses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAddressesRequest.t - type output = DescribeAddressesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeAddresses.mli b/libraries/ec2/lib/describeAddresses.mli index 16706aa79..d951fab12 100644 --- a/libraries/ec2/lib/describeAddresses.mli +++ b/libraries/ec2/lib/describeAddresses.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAddressesRequest.t - type output = DescribeAddressesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeAggregateIdFormat.ml b/libraries/ec2/lib/describeAggregateIdFormat.ml index 062c74a6b..2df7e19ad 100644 --- a/libraries/ec2/lib/describeAggregateIdFormat.ml +++ b/libraries/ec2/lib/describeAggregateIdFormat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAggregateIdFormatRequest.t - type output = DescribeAggregateIdFormatResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeAggregateIdFormat.mli b/libraries/ec2/lib/describeAggregateIdFormat.mli index 00e7e2b80..ccc79f6aa 100644 --- a/libraries/ec2/lib/describeAggregateIdFormat.mli +++ b/libraries/ec2/lib/describeAggregateIdFormat.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAggregateIdFormatRequest.t - type output = DescribeAggregateIdFormatResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeAvailabilityZones.ml b/libraries/ec2/lib/describeAvailabilityZones.ml index 9e87ec11f..a5d191ed2 100644 --- a/libraries/ec2/lib/describeAvailabilityZones.ml +++ b/libraries/ec2/lib/describeAvailabilityZones.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAvailabilityZonesRequest.t - type output = DescribeAvailabilityZonesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeAvailabilityZones.mli b/libraries/ec2/lib/describeAvailabilityZones.mli index 9fefcad04..d576ebcdd 100644 --- a/libraries/ec2/lib/describeAvailabilityZones.mli +++ b/libraries/ec2/lib/describeAvailabilityZones.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAvailabilityZonesRequest.t - type output = DescribeAvailabilityZonesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeBundleTasks.ml b/libraries/ec2/lib/describeBundleTasks.ml index 11b600ec1..6b2bf739a 100644 --- a/libraries/ec2/lib/describeBundleTasks.ml +++ b/libraries/ec2/lib/describeBundleTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeBundleTasksRequest.t - type output = DescribeBundleTasksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeBundleTasks.mli b/libraries/ec2/lib/describeBundleTasks.mli index e70cce4b3..d7317a799 100644 --- a/libraries/ec2/lib/describeBundleTasks.mli +++ b/libraries/ec2/lib/describeBundleTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeBundleTasksRequest.t - type output = DescribeBundleTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeByoipCidrs.ml b/libraries/ec2/lib/describeByoipCidrs.ml index 57cbbbfe7..fbc4f0a97 100644 --- a/libraries/ec2/lib/describeByoipCidrs.ml +++ b/libraries/ec2/lib/describeByoipCidrs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeByoipCidrsRequest.t - type output = DescribeByoipCidrsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeByoipCidrs.mli b/libraries/ec2/lib/describeByoipCidrs.mli index a30a314e3..26057095c 100644 --- a/libraries/ec2/lib/describeByoipCidrs.mli +++ b/libraries/ec2/lib/describeByoipCidrs.mli @@ -1,9 +1,7 @@ open Types type input = DescribeByoipCidrsRequest.t - type output = DescribeByoipCidrsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeCapacityReservations.ml b/libraries/ec2/lib/describeCapacityReservations.ml index 172eaf184..03bc81d36 100644 --- a/libraries/ec2/lib/describeCapacityReservations.ml +++ b/libraries/ec2/lib/describeCapacityReservations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCapacityReservationsRequest.t - type output = DescribeCapacityReservationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeCapacityReservations.mli b/libraries/ec2/lib/describeCapacityReservations.mli index 8fbf3b0cb..1dab341e2 100644 --- a/libraries/ec2/lib/describeCapacityReservations.mli +++ b/libraries/ec2/lib/describeCapacityReservations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCapacityReservationsRequest.t - type output = DescribeCapacityReservationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeCarrierGateways.ml b/libraries/ec2/lib/describeCarrierGateways.ml index df4c6c475..87842b2a0 100644 --- a/libraries/ec2/lib/describeCarrierGateways.ml +++ b/libraries/ec2/lib/describeCarrierGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCarrierGatewaysRequest.t - type output = DescribeCarrierGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeCarrierGateways.mli b/libraries/ec2/lib/describeCarrierGateways.mli index 40b93bfce..a31491b05 100644 --- a/libraries/ec2/lib/describeCarrierGateways.mli +++ b/libraries/ec2/lib/describeCarrierGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCarrierGatewaysRequest.t - type output = DescribeCarrierGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeClassicLinkInstances.ml b/libraries/ec2/lib/describeClassicLinkInstances.ml index 837d56a5c..2db8de577 100644 --- a/libraries/ec2/lib/describeClassicLinkInstances.ml +++ b/libraries/ec2/lib/describeClassicLinkInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeClassicLinkInstancesRequest.t - type output = DescribeClassicLinkInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeClassicLinkInstances.mli b/libraries/ec2/lib/describeClassicLinkInstances.mli index 046db1b18..20e44c390 100644 --- a/libraries/ec2/lib/describeClassicLinkInstances.mli +++ b/libraries/ec2/lib/describeClassicLinkInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeClassicLinkInstancesRequest.t - type output = DescribeClassicLinkInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeClientVpnAuthorizationRules.ml b/libraries/ec2/lib/describeClientVpnAuthorizationRules.ml index ff3816ae1..cfc27911f 100644 --- a/libraries/ec2/lib/describeClientVpnAuthorizationRules.ml +++ b/libraries/ec2/lib/describeClientVpnAuthorizationRules.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeClientVpnAuthorizationRulesRequest.t - type output = DescribeClientVpnAuthorizationRulesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeClientVpnAuthorizationRules.mli b/libraries/ec2/lib/describeClientVpnAuthorizationRules.mli index 208933a9e..f0ec0281f 100644 --- a/libraries/ec2/lib/describeClientVpnAuthorizationRules.mli +++ b/libraries/ec2/lib/describeClientVpnAuthorizationRules.mli @@ -1,9 +1,7 @@ open Types type input = DescribeClientVpnAuthorizationRulesRequest.t - type output = DescribeClientVpnAuthorizationRulesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeClientVpnConnections.ml b/libraries/ec2/lib/describeClientVpnConnections.ml index 3e596c804..3f6d8dc39 100644 --- a/libraries/ec2/lib/describeClientVpnConnections.ml +++ b/libraries/ec2/lib/describeClientVpnConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeClientVpnConnectionsRequest.t - type output = DescribeClientVpnConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeClientVpnConnections.mli b/libraries/ec2/lib/describeClientVpnConnections.mli index dee6b9f17..a5e442e6e 100644 --- a/libraries/ec2/lib/describeClientVpnConnections.mli +++ b/libraries/ec2/lib/describeClientVpnConnections.mli @@ -1,9 +1,7 @@ open Types type input = DescribeClientVpnConnectionsRequest.t - type output = DescribeClientVpnConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeClientVpnEndpoints.ml b/libraries/ec2/lib/describeClientVpnEndpoints.ml index 746f83c58..1f02e8c1b 100644 --- a/libraries/ec2/lib/describeClientVpnEndpoints.ml +++ b/libraries/ec2/lib/describeClientVpnEndpoints.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeClientVpnEndpointsRequest.t - type output = DescribeClientVpnEndpointsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeClientVpnEndpoints.mli b/libraries/ec2/lib/describeClientVpnEndpoints.mli index 1a6840b2c..fcf282643 100644 --- a/libraries/ec2/lib/describeClientVpnEndpoints.mli +++ b/libraries/ec2/lib/describeClientVpnEndpoints.mli @@ -1,9 +1,7 @@ open Types type input = DescribeClientVpnEndpointsRequest.t - type output = DescribeClientVpnEndpointsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeClientVpnRoutes.ml b/libraries/ec2/lib/describeClientVpnRoutes.ml index ad436995f..0d5509c76 100644 --- a/libraries/ec2/lib/describeClientVpnRoutes.ml +++ b/libraries/ec2/lib/describeClientVpnRoutes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeClientVpnRoutesRequest.t - type output = DescribeClientVpnRoutesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeClientVpnRoutes.mli b/libraries/ec2/lib/describeClientVpnRoutes.mli index 59f106362..0b2aeea01 100644 --- a/libraries/ec2/lib/describeClientVpnRoutes.mli +++ b/libraries/ec2/lib/describeClientVpnRoutes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeClientVpnRoutesRequest.t - type output = DescribeClientVpnRoutesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeClientVpnTargetNetworks.ml b/libraries/ec2/lib/describeClientVpnTargetNetworks.ml index 5f1fc68e9..89c22e675 100644 --- a/libraries/ec2/lib/describeClientVpnTargetNetworks.ml +++ b/libraries/ec2/lib/describeClientVpnTargetNetworks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeClientVpnTargetNetworksRequest.t - type output = DescribeClientVpnTargetNetworksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeClientVpnTargetNetworks.mli b/libraries/ec2/lib/describeClientVpnTargetNetworks.mli index b30673372..b8aac609a 100644 --- a/libraries/ec2/lib/describeClientVpnTargetNetworks.mli +++ b/libraries/ec2/lib/describeClientVpnTargetNetworks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeClientVpnTargetNetworksRequest.t - type output = DescribeClientVpnTargetNetworksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeCoipPools.ml b/libraries/ec2/lib/describeCoipPools.ml index 8660ecc9b..d07201785 100644 --- a/libraries/ec2/lib/describeCoipPools.ml +++ b/libraries/ec2/lib/describeCoipPools.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCoipPoolsRequest.t - type output = DescribeCoipPoolsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeCoipPools.mli b/libraries/ec2/lib/describeCoipPools.mli index 21d52fd31..036118337 100644 --- a/libraries/ec2/lib/describeCoipPools.mli +++ b/libraries/ec2/lib/describeCoipPools.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCoipPoolsRequest.t - type output = DescribeCoipPoolsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeConversionTasks.ml b/libraries/ec2/lib/describeConversionTasks.ml index d81bd3f23..65f0a85d4 100644 --- a/libraries/ec2/lib/describeConversionTasks.ml +++ b/libraries/ec2/lib/describeConversionTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeConversionTasksRequest.t - type output = DescribeConversionTasksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeConversionTasks.mli b/libraries/ec2/lib/describeConversionTasks.mli index ebe1ac60f..a2ca30e79 100644 --- a/libraries/ec2/lib/describeConversionTasks.mli +++ b/libraries/ec2/lib/describeConversionTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeConversionTasksRequest.t - type output = DescribeConversionTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeCustomerGateways.ml b/libraries/ec2/lib/describeCustomerGateways.ml index 2db2f09de..3255a62b7 100644 --- a/libraries/ec2/lib/describeCustomerGateways.ml +++ b/libraries/ec2/lib/describeCustomerGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCustomerGatewaysRequest.t - type output = DescribeCustomerGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeCustomerGateways.mli b/libraries/ec2/lib/describeCustomerGateways.mli index 47d90b42d..c633115e6 100644 --- a/libraries/ec2/lib/describeCustomerGateways.mli +++ b/libraries/ec2/lib/describeCustomerGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCustomerGatewaysRequest.t - type output = DescribeCustomerGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeDhcpOptions.ml b/libraries/ec2/lib/describeDhcpOptions.ml index 1a4a4c1e6..5670ed765 100644 --- a/libraries/ec2/lib/describeDhcpOptions.ml +++ b/libraries/ec2/lib/describeDhcpOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDhcpOptionsRequest.t - type output = DescribeDhcpOptionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeDhcpOptions.mli b/libraries/ec2/lib/describeDhcpOptions.mli index c5b9fd071..665ad2167 100644 --- a/libraries/ec2/lib/describeDhcpOptions.mli +++ b/libraries/ec2/lib/describeDhcpOptions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDhcpOptionsRequest.t - type output = DescribeDhcpOptionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeEgressOnlyInternetGateways.ml b/libraries/ec2/lib/describeEgressOnlyInternetGateways.ml index 0e4623326..7e607ad6b 100644 --- a/libraries/ec2/lib/describeEgressOnlyInternetGateways.ml +++ b/libraries/ec2/lib/describeEgressOnlyInternetGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEgressOnlyInternetGatewaysRequest.t - type output = DescribeEgressOnlyInternetGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeEgressOnlyInternetGateways.mli b/libraries/ec2/lib/describeEgressOnlyInternetGateways.mli index b35d74592..9641ee351 100644 --- a/libraries/ec2/lib/describeEgressOnlyInternetGateways.mli +++ b/libraries/ec2/lib/describeEgressOnlyInternetGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEgressOnlyInternetGatewaysRequest.t - type output = DescribeEgressOnlyInternetGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeElasticGpus.ml b/libraries/ec2/lib/describeElasticGpus.ml index 7721d3560..3094aa4e3 100644 --- a/libraries/ec2/lib/describeElasticGpus.ml +++ b/libraries/ec2/lib/describeElasticGpus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeElasticGpusRequest.t - type output = DescribeElasticGpusResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeElasticGpus.mli b/libraries/ec2/lib/describeElasticGpus.mli index e73a6adfb..bc763dd02 100644 --- a/libraries/ec2/lib/describeElasticGpus.mli +++ b/libraries/ec2/lib/describeElasticGpus.mli @@ -1,9 +1,7 @@ open Types type input = DescribeElasticGpusRequest.t - type output = DescribeElasticGpusResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeExportImageTasks.ml b/libraries/ec2/lib/describeExportImageTasks.ml index 282c5afe7..5ba57a454 100644 --- a/libraries/ec2/lib/describeExportImageTasks.ml +++ b/libraries/ec2/lib/describeExportImageTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeExportImageTasksRequest.t - type output = DescribeExportImageTasksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeExportImageTasks.mli b/libraries/ec2/lib/describeExportImageTasks.mli index 6018d1f61..ca05f698c 100644 --- a/libraries/ec2/lib/describeExportImageTasks.mli +++ b/libraries/ec2/lib/describeExportImageTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeExportImageTasksRequest.t - type output = DescribeExportImageTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeExportTasks.ml b/libraries/ec2/lib/describeExportTasks.ml index d391b2c39..b829b135a 100644 --- a/libraries/ec2/lib/describeExportTasks.ml +++ b/libraries/ec2/lib/describeExportTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeExportTasksRequest.t - type output = DescribeExportTasksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeExportTasks.mli b/libraries/ec2/lib/describeExportTasks.mli index 020416f7b..8d9b0a136 100644 --- a/libraries/ec2/lib/describeExportTasks.mli +++ b/libraries/ec2/lib/describeExportTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeExportTasksRequest.t - type output = DescribeExportTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFastSnapshotRestores.ml b/libraries/ec2/lib/describeFastSnapshotRestores.ml index fdb209625..c999a3a30 100644 --- a/libraries/ec2/lib/describeFastSnapshotRestores.ml +++ b/libraries/ec2/lib/describeFastSnapshotRestores.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFastSnapshotRestoresRequest.t - type output = DescribeFastSnapshotRestoresResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFastSnapshotRestores.mli b/libraries/ec2/lib/describeFastSnapshotRestores.mli index eec5edd56..6e48eab76 100644 --- a/libraries/ec2/lib/describeFastSnapshotRestores.mli +++ b/libraries/ec2/lib/describeFastSnapshotRestores.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFastSnapshotRestoresRequest.t - type output = DescribeFastSnapshotRestoresResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFleetHistory.ml b/libraries/ec2/lib/describeFleetHistory.ml index c5e735de8..60b89b7c2 100644 --- a/libraries/ec2/lib/describeFleetHistory.ml +++ b/libraries/ec2/lib/describeFleetHistory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFleetHistoryRequest.t - type output = DescribeFleetHistoryResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFleetHistory.mli b/libraries/ec2/lib/describeFleetHistory.mli index 27c651091..8baa08095 100644 --- a/libraries/ec2/lib/describeFleetHistory.mli +++ b/libraries/ec2/lib/describeFleetHistory.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFleetHistoryRequest.t - type output = DescribeFleetHistoryResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFleetInstances.ml b/libraries/ec2/lib/describeFleetInstances.ml index 4687c2af2..90b3e000b 100644 --- a/libraries/ec2/lib/describeFleetInstances.ml +++ b/libraries/ec2/lib/describeFleetInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFleetInstancesRequest.t - type output = DescribeFleetInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFleetInstances.mli b/libraries/ec2/lib/describeFleetInstances.mli index e46818a3f..6cedade41 100644 --- a/libraries/ec2/lib/describeFleetInstances.mli +++ b/libraries/ec2/lib/describeFleetInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFleetInstancesRequest.t - type output = DescribeFleetInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFleets.ml b/libraries/ec2/lib/describeFleets.ml index 67c97cc5d..662953410 100644 --- a/libraries/ec2/lib/describeFleets.ml +++ b/libraries/ec2/lib/describeFleets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFleetsRequest.t - type output = DescribeFleetsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFleets.mli b/libraries/ec2/lib/describeFleets.mli index 0daf2bbda..f6ce20801 100644 --- a/libraries/ec2/lib/describeFleets.mli +++ b/libraries/ec2/lib/describeFleets.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFleetsRequest.t - type output = DescribeFleetsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFlowLogs.ml b/libraries/ec2/lib/describeFlowLogs.ml index a3b693f4c..913b5712a 100644 --- a/libraries/ec2/lib/describeFlowLogs.ml +++ b/libraries/ec2/lib/describeFlowLogs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFlowLogsRequest.t - type output = DescribeFlowLogsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFlowLogs.mli b/libraries/ec2/lib/describeFlowLogs.mli index b00dbe0c4..34ac3c425 100644 --- a/libraries/ec2/lib/describeFlowLogs.mli +++ b/libraries/ec2/lib/describeFlowLogs.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFlowLogsRequest.t - type output = DescribeFlowLogsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFpgaImageAttribute.ml b/libraries/ec2/lib/describeFpgaImageAttribute.ml index 481e6ae52..1c89742c8 100644 --- a/libraries/ec2/lib/describeFpgaImageAttribute.ml +++ b/libraries/ec2/lib/describeFpgaImageAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFpgaImageAttributeRequest.t - type output = DescribeFpgaImageAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFpgaImageAttribute.mli b/libraries/ec2/lib/describeFpgaImageAttribute.mli index e4f53c339..6fe105fe3 100644 --- a/libraries/ec2/lib/describeFpgaImageAttribute.mli +++ b/libraries/ec2/lib/describeFpgaImageAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFpgaImageAttributeRequest.t - type output = DescribeFpgaImageAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeFpgaImages.ml b/libraries/ec2/lib/describeFpgaImages.ml index bca1bc754..a532c3127 100644 --- a/libraries/ec2/lib/describeFpgaImages.ml +++ b/libraries/ec2/lib/describeFpgaImages.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeFpgaImagesRequest.t - type output = DescribeFpgaImagesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeFpgaImages.mli b/libraries/ec2/lib/describeFpgaImages.mli index d31ee5ec9..dea470901 100644 --- a/libraries/ec2/lib/describeFpgaImages.mli +++ b/libraries/ec2/lib/describeFpgaImages.mli @@ -1,9 +1,7 @@ open Types type input = DescribeFpgaImagesRequest.t - type output = DescribeFpgaImagesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeHostReservationOfferings.ml b/libraries/ec2/lib/describeHostReservationOfferings.ml index 75b4039e1..43d7cc0c9 100644 --- a/libraries/ec2/lib/describeHostReservationOfferings.ml +++ b/libraries/ec2/lib/describeHostReservationOfferings.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeHostReservationOfferingsRequest.t - type output = DescribeHostReservationOfferingsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeHostReservationOfferings.mli b/libraries/ec2/lib/describeHostReservationOfferings.mli index 0a4b8ebbe..2cf4b9da7 100644 --- a/libraries/ec2/lib/describeHostReservationOfferings.mli +++ b/libraries/ec2/lib/describeHostReservationOfferings.mli @@ -1,9 +1,7 @@ open Types type input = DescribeHostReservationOfferingsRequest.t - type output = DescribeHostReservationOfferingsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeHostReservations.ml b/libraries/ec2/lib/describeHostReservations.ml index 3e83d8d55..eb7f571c2 100644 --- a/libraries/ec2/lib/describeHostReservations.ml +++ b/libraries/ec2/lib/describeHostReservations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeHostReservationsRequest.t - type output = DescribeHostReservationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeHostReservations.mli b/libraries/ec2/lib/describeHostReservations.mli index 5204de077..62e05bfda 100644 --- a/libraries/ec2/lib/describeHostReservations.mli +++ b/libraries/ec2/lib/describeHostReservations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeHostReservationsRequest.t - type output = DescribeHostReservationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeHosts.ml b/libraries/ec2/lib/describeHosts.ml index fb60325d2..299b59605 100644 --- a/libraries/ec2/lib/describeHosts.ml +++ b/libraries/ec2/lib/describeHosts.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeHostsRequest.t - type output = DescribeHostsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeHosts.mli b/libraries/ec2/lib/describeHosts.mli index 6e96907a6..dc135df97 100644 --- a/libraries/ec2/lib/describeHosts.mli +++ b/libraries/ec2/lib/describeHosts.mli @@ -1,9 +1,7 @@ open Types type input = DescribeHostsRequest.t - type output = DescribeHostsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeIamInstanceProfileAssociations.ml b/libraries/ec2/lib/describeIamInstanceProfileAssociations.ml index 7ace1a562..ecee4b95f 100644 --- a/libraries/ec2/lib/describeIamInstanceProfileAssociations.ml +++ b/libraries/ec2/lib/describeIamInstanceProfileAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeIamInstanceProfileAssociationsRequest.t - type output = DescribeIamInstanceProfileAssociationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeIamInstanceProfileAssociations.mli b/libraries/ec2/lib/describeIamInstanceProfileAssociations.mli index d455830d8..ef9c3236f 100644 --- a/libraries/ec2/lib/describeIamInstanceProfileAssociations.mli +++ b/libraries/ec2/lib/describeIamInstanceProfileAssociations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeIamInstanceProfileAssociationsRequest.t - type output = DescribeIamInstanceProfileAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeIdFormat.ml b/libraries/ec2/lib/describeIdFormat.ml index b7fc1adee..b9ce62e37 100644 --- a/libraries/ec2/lib/describeIdFormat.ml +++ b/libraries/ec2/lib/describeIdFormat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeIdFormatRequest.t - type output = DescribeIdFormatResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeIdFormat.mli b/libraries/ec2/lib/describeIdFormat.mli index b7a98d9e9..c9f71acc6 100644 --- a/libraries/ec2/lib/describeIdFormat.mli +++ b/libraries/ec2/lib/describeIdFormat.mli @@ -1,9 +1,7 @@ open Types type input = DescribeIdFormatRequest.t - type output = DescribeIdFormatResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeIdentityIdFormat.ml b/libraries/ec2/lib/describeIdentityIdFormat.ml index 058a1be65..4b8a48880 100644 --- a/libraries/ec2/lib/describeIdentityIdFormat.ml +++ b/libraries/ec2/lib/describeIdentityIdFormat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeIdentityIdFormatRequest.t - type output = DescribeIdentityIdFormatResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeIdentityIdFormat.mli b/libraries/ec2/lib/describeIdentityIdFormat.mli index b293a480e..a3af1a11d 100644 --- a/libraries/ec2/lib/describeIdentityIdFormat.mli +++ b/libraries/ec2/lib/describeIdentityIdFormat.mli @@ -1,9 +1,7 @@ open Types type input = DescribeIdentityIdFormatRequest.t - type output = DescribeIdentityIdFormatResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeImageAttribute.ml b/libraries/ec2/lib/describeImageAttribute.ml index ae0d1bd45..0ed8c13d9 100644 --- a/libraries/ec2/lib/describeImageAttribute.ml +++ b/libraries/ec2/lib/describeImageAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeImageAttributeRequest.t - type output = ImageAttribute.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeImageAttribute.mli b/libraries/ec2/lib/describeImageAttribute.mli index 5c287a2ef..3cc89dfa6 100644 --- a/libraries/ec2/lib/describeImageAttribute.mli +++ b/libraries/ec2/lib/describeImageAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeImageAttributeRequest.t - type output = ImageAttribute.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeImages.ml b/libraries/ec2/lib/describeImages.ml index 704f3907f..bf0b12f92 100644 --- a/libraries/ec2/lib/describeImages.ml +++ b/libraries/ec2/lib/describeImages.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeImagesRequest.t - type output = DescribeImagesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeImages.mli b/libraries/ec2/lib/describeImages.mli index 30f6f9bad..6de07d6b5 100644 --- a/libraries/ec2/lib/describeImages.mli +++ b/libraries/ec2/lib/describeImages.mli @@ -1,9 +1,7 @@ open Types type input = DescribeImagesRequest.t - type output = DescribeImagesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeImportImageTasks.ml b/libraries/ec2/lib/describeImportImageTasks.ml index 891dd5a0e..e782b7a64 100644 --- a/libraries/ec2/lib/describeImportImageTasks.ml +++ b/libraries/ec2/lib/describeImportImageTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeImportImageTasksRequest.t - type output = DescribeImportImageTasksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeImportImageTasks.mli b/libraries/ec2/lib/describeImportImageTasks.mli index b3dc41aa3..c438643f8 100644 --- a/libraries/ec2/lib/describeImportImageTasks.mli +++ b/libraries/ec2/lib/describeImportImageTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeImportImageTasksRequest.t - type output = DescribeImportImageTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeImportSnapshotTasks.ml b/libraries/ec2/lib/describeImportSnapshotTasks.ml index 7cd1d23c7..788094022 100644 --- a/libraries/ec2/lib/describeImportSnapshotTasks.ml +++ b/libraries/ec2/lib/describeImportSnapshotTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeImportSnapshotTasksRequest.t - type output = DescribeImportSnapshotTasksResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeImportSnapshotTasks.mli b/libraries/ec2/lib/describeImportSnapshotTasks.mli index c3da89f29..3e401a8c4 100644 --- a/libraries/ec2/lib/describeImportSnapshotTasks.mli +++ b/libraries/ec2/lib/describeImportSnapshotTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeImportSnapshotTasksRequest.t - type output = DescribeImportSnapshotTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstanceAttribute.ml b/libraries/ec2/lib/describeInstanceAttribute.ml index 13c636fb2..bfa3923fc 100644 --- a/libraries/ec2/lib/describeInstanceAttribute.ml +++ b/libraries/ec2/lib/describeInstanceAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceAttributeRequest.t - type output = InstanceAttribute.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstanceAttribute.mli b/libraries/ec2/lib/describeInstanceAttribute.mli index 94eb0265c..3c4375a2f 100644 --- a/libraries/ec2/lib/describeInstanceAttribute.mli +++ b/libraries/ec2/lib/describeInstanceAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceAttributeRequest.t - type output = InstanceAttribute.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstanceCreditSpecifications.ml b/libraries/ec2/lib/describeInstanceCreditSpecifications.ml index 9a67080e4..d203b712d 100644 --- a/libraries/ec2/lib/describeInstanceCreditSpecifications.ml +++ b/libraries/ec2/lib/describeInstanceCreditSpecifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceCreditSpecificationsRequest.t - type output = DescribeInstanceCreditSpecificationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstanceCreditSpecifications.mli b/libraries/ec2/lib/describeInstanceCreditSpecifications.mli index b16caa95d..92e364766 100644 --- a/libraries/ec2/lib/describeInstanceCreditSpecifications.mli +++ b/libraries/ec2/lib/describeInstanceCreditSpecifications.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceCreditSpecificationsRequest.t - type output = DescribeInstanceCreditSpecificationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstanceEventNotificationAttributes.ml b/libraries/ec2/lib/describeInstanceEventNotificationAttributes.ml index bf9ccdb8b..8adc8306d 100644 --- a/libraries/ec2/lib/describeInstanceEventNotificationAttributes.ml +++ b/libraries/ec2/lib/describeInstanceEventNotificationAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceEventNotificationAttributesRequest.t - type output = DescribeInstanceEventNotificationAttributesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstanceEventNotificationAttributes.mli b/libraries/ec2/lib/describeInstanceEventNotificationAttributes.mli index 304e65f5a..a07820bf4 100644 --- a/libraries/ec2/lib/describeInstanceEventNotificationAttributes.mli +++ b/libraries/ec2/lib/describeInstanceEventNotificationAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceEventNotificationAttributesRequest.t - type output = DescribeInstanceEventNotificationAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstanceStatus.ml b/libraries/ec2/lib/describeInstanceStatus.ml index 2eb5c4d48..5088c88f7 100644 --- a/libraries/ec2/lib/describeInstanceStatus.ml +++ b/libraries/ec2/lib/describeInstanceStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceStatusRequest.t - type output = DescribeInstanceStatusResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstanceStatus.mli b/libraries/ec2/lib/describeInstanceStatus.mli index 54ad47e17..6987a0c11 100644 --- a/libraries/ec2/lib/describeInstanceStatus.mli +++ b/libraries/ec2/lib/describeInstanceStatus.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceStatusRequest.t - type output = DescribeInstanceStatusResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstanceTypeOfferings.ml b/libraries/ec2/lib/describeInstanceTypeOfferings.ml index 16f2c7ec8..93f6f9faa 100644 --- a/libraries/ec2/lib/describeInstanceTypeOfferings.ml +++ b/libraries/ec2/lib/describeInstanceTypeOfferings.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceTypeOfferingsRequest.t - type output = DescribeInstanceTypeOfferingsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstanceTypeOfferings.mli b/libraries/ec2/lib/describeInstanceTypeOfferings.mli index ce482fbd3..cef2ac00b 100644 --- a/libraries/ec2/lib/describeInstanceTypeOfferings.mli +++ b/libraries/ec2/lib/describeInstanceTypeOfferings.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceTypeOfferingsRequest.t - type output = DescribeInstanceTypeOfferingsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstanceTypes.ml b/libraries/ec2/lib/describeInstanceTypes.ml index 234d38b94..f31f5ec6a 100644 --- a/libraries/ec2/lib/describeInstanceTypes.ml +++ b/libraries/ec2/lib/describeInstanceTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceTypesRequest.t - type output = DescribeInstanceTypesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstanceTypes.mli b/libraries/ec2/lib/describeInstanceTypes.mli index 48990b936..87cc41ceb 100644 --- a/libraries/ec2/lib/describeInstanceTypes.mli +++ b/libraries/ec2/lib/describeInstanceTypes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceTypesRequest.t - type output = DescribeInstanceTypesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInstances.ml b/libraries/ec2/lib/describeInstances.ml index 7f53eeacf..696221ee2 100644 --- a/libraries/ec2/lib/describeInstances.ml +++ b/libraries/ec2/lib/describeInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstancesRequest.t - type output = DescribeInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInstances.mli b/libraries/ec2/lib/describeInstances.mli index 88cb7a105..e9ed8f361 100644 --- a/libraries/ec2/lib/describeInstances.mli +++ b/libraries/ec2/lib/describeInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstancesRequest.t - type output = DescribeInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeInternetGateways.ml b/libraries/ec2/lib/describeInternetGateways.ml index 47f57b76c..2f3f57709 100644 --- a/libraries/ec2/lib/describeInternetGateways.ml +++ b/libraries/ec2/lib/describeInternetGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInternetGatewaysRequest.t - type output = DescribeInternetGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeInternetGateways.mli b/libraries/ec2/lib/describeInternetGateways.mli index aae648d9b..145cc62d3 100644 --- a/libraries/ec2/lib/describeInternetGateways.mli +++ b/libraries/ec2/lib/describeInternetGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInternetGatewaysRequest.t - type output = DescribeInternetGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeIpv6Pools.ml b/libraries/ec2/lib/describeIpv6Pools.ml index 3d512026c..1cc66dfbb 100644 --- a/libraries/ec2/lib/describeIpv6Pools.ml +++ b/libraries/ec2/lib/describeIpv6Pools.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeIpv6PoolsRequest.t - type output = DescribeIpv6PoolsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeIpv6Pools.mli b/libraries/ec2/lib/describeIpv6Pools.mli index 9bf5e5ddb..6354fcd06 100644 --- a/libraries/ec2/lib/describeIpv6Pools.mli +++ b/libraries/ec2/lib/describeIpv6Pools.mli @@ -1,9 +1,7 @@ open Types type input = DescribeIpv6PoolsRequest.t - type output = DescribeIpv6PoolsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeKeyPairs.ml b/libraries/ec2/lib/describeKeyPairs.ml index 87ddb2ddd..2247f6774 100644 --- a/libraries/ec2/lib/describeKeyPairs.ml +++ b/libraries/ec2/lib/describeKeyPairs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeKeyPairsRequest.t - type output = DescribeKeyPairsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeKeyPairs.mli b/libraries/ec2/lib/describeKeyPairs.mli index 61f9ca099..8269b9e0b 100644 --- a/libraries/ec2/lib/describeKeyPairs.mli +++ b/libraries/ec2/lib/describeKeyPairs.mli @@ -1,9 +1,7 @@ open Types type input = DescribeKeyPairsRequest.t - type output = DescribeKeyPairsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLaunchTemplateVersions.ml b/libraries/ec2/lib/describeLaunchTemplateVersions.ml index ed6fcda98..825758315 100644 --- a/libraries/ec2/lib/describeLaunchTemplateVersions.ml +++ b/libraries/ec2/lib/describeLaunchTemplateVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLaunchTemplateVersionsRequest.t - type output = DescribeLaunchTemplateVersionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLaunchTemplateVersions.mli b/libraries/ec2/lib/describeLaunchTemplateVersions.mli index 06307e211..85d24702a 100644 --- a/libraries/ec2/lib/describeLaunchTemplateVersions.mli +++ b/libraries/ec2/lib/describeLaunchTemplateVersions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLaunchTemplateVersionsRequest.t - type output = DescribeLaunchTemplateVersionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLaunchTemplates.ml b/libraries/ec2/lib/describeLaunchTemplates.ml index df5327bdc..150820cd7 100644 --- a/libraries/ec2/lib/describeLaunchTemplates.ml +++ b/libraries/ec2/lib/describeLaunchTemplates.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLaunchTemplatesRequest.t - type output = DescribeLaunchTemplatesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLaunchTemplates.mli b/libraries/ec2/lib/describeLaunchTemplates.mli index f9abe4b4f..bf06b7f03 100644 --- a/libraries/ec2/lib/describeLaunchTemplates.mli +++ b/libraries/ec2/lib/describeLaunchTemplates.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLaunchTemplatesRequest.t - type output = DescribeLaunchTemplatesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.ml b/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.ml index 7c19c01c3..241a0cd5e 100644 --- a/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.ml +++ b/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLocalGatewayRouteTableVirtualInterfaceGroupAssociationsRequest.t - type output = DescribeLocalGatewayRouteTableVirtualInterfaceGroupAssociationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.mli b/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.mli index 371c7b989..16f50f32a 100644 --- a/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.mli +++ b/libraries/ec2/lib/describeLocalGatewayRouteTableVirtualInterfaceGroupAssociations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLocalGatewayRouteTableVirtualInterfaceGroupAssociationsRequest.t - type output = DescribeLocalGatewayRouteTableVirtualInterfaceGroupAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.ml b/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.ml index d107bc1f3..a74c66f84 100644 --- a/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.ml +++ b/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLocalGatewayRouteTableVpcAssociationsRequest.t - type output = DescribeLocalGatewayRouteTableVpcAssociationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.mli b/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.mli index 062cfc3ab..3cfe7316d 100644 --- a/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.mli +++ b/libraries/ec2/lib/describeLocalGatewayRouteTableVpcAssociations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLocalGatewayRouteTableVpcAssociationsRequest.t - type output = DescribeLocalGatewayRouteTableVpcAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLocalGatewayRouteTables.ml b/libraries/ec2/lib/describeLocalGatewayRouteTables.ml index cfb29a39c..49269e8a2 100644 --- a/libraries/ec2/lib/describeLocalGatewayRouteTables.ml +++ b/libraries/ec2/lib/describeLocalGatewayRouteTables.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLocalGatewayRouteTablesRequest.t - type output = DescribeLocalGatewayRouteTablesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLocalGatewayRouteTables.mli b/libraries/ec2/lib/describeLocalGatewayRouteTables.mli index 86f74d427..07515841d 100644 --- a/libraries/ec2/lib/describeLocalGatewayRouteTables.mli +++ b/libraries/ec2/lib/describeLocalGatewayRouteTables.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLocalGatewayRouteTablesRequest.t - type output = DescribeLocalGatewayRouteTablesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.ml b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.ml index 8e55f9127..f45a990a6 100644 --- a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.ml +++ b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLocalGatewayVirtualInterfaceGroupsRequest.t - type output = DescribeLocalGatewayVirtualInterfaceGroupsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.mli b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.mli index ee4626d63..70f0939da 100644 --- a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.mli +++ b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaceGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLocalGatewayVirtualInterfaceGroupsRequest.t - type output = DescribeLocalGatewayVirtualInterfaceGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.ml b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.ml index 48f1fe6f7..aa7b0c1a5 100644 --- a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.ml +++ b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLocalGatewayVirtualInterfacesRequest.t - type output = DescribeLocalGatewayVirtualInterfacesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.mli b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.mli index 2478ac771..43f60c578 100644 --- a/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.mli +++ b/libraries/ec2/lib/describeLocalGatewayVirtualInterfaces.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLocalGatewayVirtualInterfacesRequest.t - type output = DescribeLocalGatewayVirtualInterfacesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeLocalGateways.ml b/libraries/ec2/lib/describeLocalGateways.ml index e28adc557..561b50ed1 100644 --- a/libraries/ec2/lib/describeLocalGateways.ml +++ b/libraries/ec2/lib/describeLocalGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLocalGatewaysRequest.t - type output = DescribeLocalGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeLocalGateways.mli b/libraries/ec2/lib/describeLocalGateways.mli index a825c1ce7..e8ca87481 100644 --- a/libraries/ec2/lib/describeLocalGateways.mli +++ b/libraries/ec2/lib/describeLocalGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLocalGatewaysRequest.t - type output = DescribeLocalGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeManagedPrefixLists.ml b/libraries/ec2/lib/describeManagedPrefixLists.ml index a2c2cc86b..a4a24e132 100644 --- a/libraries/ec2/lib/describeManagedPrefixLists.ml +++ b/libraries/ec2/lib/describeManagedPrefixLists.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeManagedPrefixListsRequest.t - type output = DescribeManagedPrefixListsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeManagedPrefixLists.mli b/libraries/ec2/lib/describeManagedPrefixLists.mli index 3f7ff2010..62be9751f 100644 --- a/libraries/ec2/lib/describeManagedPrefixLists.mli +++ b/libraries/ec2/lib/describeManagedPrefixLists.mli @@ -1,9 +1,7 @@ open Types type input = DescribeManagedPrefixListsRequest.t - type output = DescribeManagedPrefixListsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeMovingAddresses.ml b/libraries/ec2/lib/describeMovingAddresses.ml index 3e46a2e41..675bc358b 100644 --- a/libraries/ec2/lib/describeMovingAddresses.ml +++ b/libraries/ec2/lib/describeMovingAddresses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMovingAddressesRequest.t - type output = DescribeMovingAddressesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeMovingAddresses.mli b/libraries/ec2/lib/describeMovingAddresses.mli index 516c5ca1b..e722aa52a 100644 --- a/libraries/ec2/lib/describeMovingAddresses.mli +++ b/libraries/ec2/lib/describeMovingAddresses.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMovingAddressesRequest.t - type output = DescribeMovingAddressesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeNatGateways.ml b/libraries/ec2/lib/describeNatGateways.ml index fd0a51ada..c9e407469 100644 --- a/libraries/ec2/lib/describeNatGateways.ml +++ b/libraries/ec2/lib/describeNatGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeNatGatewaysRequest.t - type output = DescribeNatGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeNatGateways.mli b/libraries/ec2/lib/describeNatGateways.mli index 538ba1e60..a7f0e8342 100644 --- a/libraries/ec2/lib/describeNatGateways.mli +++ b/libraries/ec2/lib/describeNatGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeNatGatewaysRequest.t - type output = DescribeNatGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeNetworkAcls.ml b/libraries/ec2/lib/describeNetworkAcls.ml index 1fb9c713d..ffe0af88b 100644 --- a/libraries/ec2/lib/describeNetworkAcls.ml +++ b/libraries/ec2/lib/describeNetworkAcls.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeNetworkAclsRequest.t - type output = DescribeNetworkAclsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeNetworkAcls.mli b/libraries/ec2/lib/describeNetworkAcls.mli index f87e4bf15..921783cb8 100644 --- a/libraries/ec2/lib/describeNetworkAcls.mli +++ b/libraries/ec2/lib/describeNetworkAcls.mli @@ -1,9 +1,7 @@ open Types type input = DescribeNetworkAclsRequest.t - type output = DescribeNetworkAclsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeNetworkInterfaceAttribute.ml b/libraries/ec2/lib/describeNetworkInterfaceAttribute.ml index 07c8f069b..549ea6cd3 100644 --- a/libraries/ec2/lib/describeNetworkInterfaceAttribute.ml +++ b/libraries/ec2/lib/describeNetworkInterfaceAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeNetworkInterfaceAttributeRequest.t - type output = DescribeNetworkInterfaceAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeNetworkInterfaceAttribute.mli b/libraries/ec2/lib/describeNetworkInterfaceAttribute.mli index 47fe221e5..4f82886f2 100644 --- a/libraries/ec2/lib/describeNetworkInterfaceAttribute.mli +++ b/libraries/ec2/lib/describeNetworkInterfaceAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeNetworkInterfaceAttributeRequest.t - type output = DescribeNetworkInterfaceAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeNetworkInterfacePermissions.ml b/libraries/ec2/lib/describeNetworkInterfacePermissions.ml index ceda19dcd..31767ee60 100644 --- a/libraries/ec2/lib/describeNetworkInterfacePermissions.ml +++ b/libraries/ec2/lib/describeNetworkInterfacePermissions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeNetworkInterfacePermissionsRequest.t - type output = DescribeNetworkInterfacePermissionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeNetworkInterfacePermissions.mli b/libraries/ec2/lib/describeNetworkInterfacePermissions.mli index 473b2c547..e10a29f4d 100644 --- a/libraries/ec2/lib/describeNetworkInterfacePermissions.mli +++ b/libraries/ec2/lib/describeNetworkInterfacePermissions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeNetworkInterfacePermissionsRequest.t - type output = DescribeNetworkInterfacePermissionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeNetworkInterfaces.ml b/libraries/ec2/lib/describeNetworkInterfaces.ml index fbb369cb3..92a613266 100644 --- a/libraries/ec2/lib/describeNetworkInterfaces.ml +++ b/libraries/ec2/lib/describeNetworkInterfaces.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeNetworkInterfacesRequest.t - type output = DescribeNetworkInterfacesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeNetworkInterfaces.mli b/libraries/ec2/lib/describeNetworkInterfaces.mli index 10a79fbce..56cd786d6 100644 --- a/libraries/ec2/lib/describeNetworkInterfaces.mli +++ b/libraries/ec2/lib/describeNetworkInterfaces.mli @@ -1,9 +1,7 @@ open Types type input = DescribeNetworkInterfacesRequest.t - type output = DescribeNetworkInterfacesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describePlacementGroups.ml b/libraries/ec2/lib/describePlacementGroups.ml index 65991c647..3ff3e9b0e 100644 --- a/libraries/ec2/lib/describePlacementGroups.ml +++ b/libraries/ec2/lib/describePlacementGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePlacementGroupsRequest.t - type output = DescribePlacementGroupsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describePlacementGroups.mli b/libraries/ec2/lib/describePlacementGroups.mli index f0bec7f2d..b0c0d9130 100644 --- a/libraries/ec2/lib/describePlacementGroups.mli +++ b/libraries/ec2/lib/describePlacementGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribePlacementGroupsRequest.t - type output = DescribePlacementGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describePrefixLists.ml b/libraries/ec2/lib/describePrefixLists.ml index 3ea81cdf3..d4a2b6223 100644 --- a/libraries/ec2/lib/describePrefixLists.ml +++ b/libraries/ec2/lib/describePrefixLists.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePrefixListsRequest.t - type output = DescribePrefixListsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describePrefixLists.mli b/libraries/ec2/lib/describePrefixLists.mli index d259d6ebd..d8eb71a99 100644 --- a/libraries/ec2/lib/describePrefixLists.mli +++ b/libraries/ec2/lib/describePrefixLists.mli @@ -1,9 +1,7 @@ open Types type input = DescribePrefixListsRequest.t - type output = DescribePrefixListsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describePrincipalIdFormat.ml b/libraries/ec2/lib/describePrincipalIdFormat.ml index 4b8cea4e6..b80740dda 100644 --- a/libraries/ec2/lib/describePrincipalIdFormat.ml +++ b/libraries/ec2/lib/describePrincipalIdFormat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePrincipalIdFormatRequest.t - type output = DescribePrincipalIdFormatResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describePrincipalIdFormat.mli b/libraries/ec2/lib/describePrincipalIdFormat.mli index 3654dcc2b..ef547f773 100644 --- a/libraries/ec2/lib/describePrincipalIdFormat.mli +++ b/libraries/ec2/lib/describePrincipalIdFormat.mli @@ -1,9 +1,7 @@ open Types type input = DescribePrincipalIdFormatRequest.t - type output = DescribePrincipalIdFormatResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describePublicIpv4Pools.ml b/libraries/ec2/lib/describePublicIpv4Pools.ml index eb41d8393..f17803c2d 100644 --- a/libraries/ec2/lib/describePublicIpv4Pools.ml +++ b/libraries/ec2/lib/describePublicIpv4Pools.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePublicIpv4PoolsRequest.t - type output = DescribePublicIpv4PoolsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describePublicIpv4Pools.mli b/libraries/ec2/lib/describePublicIpv4Pools.mli index 5bda8a817..027ee8c85 100644 --- a/libraries/ec2/lib/describePublicIpv4Pools.mli +++ b/libraries/ec2/lib/describePublicIpv4Pools.mli @@ -1,9 +1,7 @@ open Types type input = DescribePublicIpv4PoolsRequest.t - type output = DescribePublicIpv4PoolsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeRegions.ml b/libraries/ec2/lib/describeRegions.ml index 445e6babd..17c10638f 100644 --- a/libraries/ec2/lib/describeRegions.ml +++ b/libraries/ec2/lib/describeRegions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeRegionsRequest.t - type output = DescribeRegionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeRegions.mli b/libraries/ec2/lib/describeRegions.mli index 9906ee0f5..e16d0d28c 100644 --- a/libraries/ec2/lib/describeRegions.mli +++ b/libraries/ec2/lib/describeRegions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeRegionsRequest.t - type output = DescribeRegionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeReservedInstances.ml b/libraries/ec2/lib/describeReservedInstances.ml index ff5b55912..ec01e1aee 100644 --- a/libraries/ec2/lib/describeReservedInstances.ml +++ b/libraries/ec2/lib/describeReservedInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedInstancesRequest.t - type output = DescribeReservedInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeReservedInstances.mli b/libraries/ec2/lib/describeReservedInstances.mli index f373a4657..7df31db1b 100644 --- a/libraries/ec2/lib/describeReservedInstances.mli +++ b/libraries/ec2/lib/describeReservedInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedInstancesRequest.t - type output = DescribeReservedInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeReservedInstancesListings.ml b/libraries/ec2/lib/describeReservedInstancesListings.ml index f094a660e..e293d3d24 100644 --- a/libraries/ec2/lib/describeReservedInstancesListings.ml +++ b/libraries/ec2/lib/describeReservedInstancesListings.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedInstancesListingsRequest.t - type output = DescribeReservedInstancesListingsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeReservedInstancesListings.mli b/libraries/ec2/lib/describeReservedInstancesListings.mli index b89b1d445..f49e4f63f 100644 --- a/libraries/ec2/lib/describeReservedInstancesListings.mli +++ b/libraries/ec2/lib/describeReservedInstancesListings.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedInstancesListingsRequest.t - type output = DescribeReservedInstancesListingsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeReservedInstancesModifications.ml b/libraries/ec2/lib/describeReservedInstancesModifications.ml index 61c3e61c5..9f6f77028 100644 --- a/libraries/ec2/lib/describeReservedInstancesModifications.ml +++ b/libraries/ec2/lib/describeReservedInstancesModifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedInstancesModificationsRequest.t - type output = DescribeReservedInstancesModificationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeReservedInstancesModifications.mli b/libraries/ec2/lib/describeReservedInstancesModifications.mli index 7e1e7d9d0..8d3e43fbe 100644 --- a/libraries/ec2/lib/describeReservedInstancesModifications.mli +++ b/libraries/ec2/lib/describeReservedInstancesModifications.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedInstancesModificationsRequest.t - type output = DescribeReservedInstancesModificationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeReservedInstancesOfferings.ml b/libraries/ec2/lib/describeReservedInstancesOfferings.ml index 4e4d4a86f..fed052696 100644 --- a/libraries/ec2/lib/describeReservedInstancesOfferings.ml +++ b/libraries/ec2/lib/describeReservedInstancesOfferings.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedInstancesOfferingsRequest.t - type output = DescribeReservedInstancesOfferingsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeReservedInstancesOfferings.mli b/libraries/ec2/lib/describeReservedInstancesOfferings.mli index d0674ae7e..f39aa8c2b 100644 --- a/libraries/ec2/lib/describeReservedInstancesOfferings.mli +++ b/libraries/ec2/lib/describeReservedInstancesOfferings.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedInstancesOfferingsRequest.t - type output = DescribeReservedInstancesOfferingsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeRouteTables.ml b/libraries/ec2/lib/describeRouteTables.ml index 7bc2a0ae6..4dc9661e3 100644 --- a/libraries/ec2/lib/describeRouteTables.ml +++ b/libraries/ec2/lib/describeRouteTables.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeRouteTablesRequest.t - type output = DescribeRouteTablesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeRouteTables.mli b/libraries/ec2/lib/describeRouteTables.mli index 365d93e41..8e675f735 100644 --- a/libraries/ec2/lib/describeRouteTables.mli +++ b/libraries/ec2/lib/describeRouteTables.mli @@ -1,9 +1,7 @@ open Types type input = DescribeRouteTablesRequest.t - type output = DescribeRouteTablesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeScheduledInstanceAvailability.ml b/libraries/ec2/lib/describeScheduledInstanceAvailability.ml index 6df1a8a93..a0c051de1 100644 --- a/libraries/ec2/lib/describeScheduledInstanceAvailability.ml +++ b/libraries/ec2/lib/describeScheduledInstanceAvailability.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeScheduledInstanceAvailabilityRequest.t - type output = DescribeScheduledInstanceAvailabilityResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeScheduledInstanceAvailability.mli b/libraries/ec2/lib/describeScheduledInstanceAvailability.mli index ea777428b..f11d358cf 100644 --- a/libraries/ec2/lib/describeScheduledInstanceAvailability.mli +++ b/libraries/ec2/lib/describeScheduledInstanceAvailability.mli @@ -1,9 +1,7 @@ open Types type input = DescribeScheduledInstanceAvailabilityRequest.t - type output = DescribeScheduledInstanceAvailabilityResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeScheduledInstances.ml b/libraries/ec2/lib/describeScheduledInstances.ml index 2102f0a92..1c43d1c96 100644 --- a/libraries/ec2/lib/describeScheduledInstances.ml +++ b/libraries/ec2/lib/describeScheduledInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeScheduledInstancesRequest.t - type output = DescribeScheduledInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeScheduledInstances.mli b/libraries/ec2/lib/describeScheduledInstances.mli index af4ea2b4f..cb7675625 100644 --- a/libraries/ec2/lib/describeScheduledInstances.mli +++ b/libraries/ec2/lib/describeScheduledInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeScheduledInstancesRequest.t - type output = DescribeScheduledInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSecurityGroupReferences.ml b/libraries/ec2/lib/describeSecurityGroupReferences.ml index e77cfffb7..9b33284ea 100644 --- a/libraries/ec2/lib/describeSecurityGroupReferences.ml +++ b/libraries/ec2/lib/describeSecurityGroupReferences.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSecurityGroupReferencesRequest.t - type output = DescribeSecurityGroupReferencesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSecurityGroupReferences.mli b/libraries/ec2/lib/describeSecurityGroupReferences.mli index fecf2b169..4e52e74ba 100644 --- a/libraries/ec2/lib/describeSecurityGroupReferences.mli +++ b/libraries/ec2/lib/describeSecurityGroupReferences.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSecurityGroupReferencesRequest.t - type output = DescribeSecurityGroupReferencesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSecurityGroups.ml b/libraries/ec2/lib/describeSecurityGroups.ml index c2d606435..fcf2589c4 100644 --- a/libraries/ec2/lib/describeSecurityGroups.ml +++ b/libraries/ec2/lib/describeSecurityGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSecurityGroupsRequest.t - type output = DescribeSecurityGroupsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSecurityGroups.mli b/libraries/ec2/lib/describeSecurityGroups.mli index 349d4c1b6..c096443b9 100644 --- a/libraries/ec2/lib/describeSecurityGroups.mli +++ b/libraries/ec2/lib/describeSecurityGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSecurityGroupsRequest.t - type output = DescribeSecurityGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSnapshotAttribute.ml b/libraries/ec2/lib/describeSnapshotAttribute.ml index a596ab717..babe09ad6 100644 --- a/libraries/ec2/lib/describeSnapshotAttribute.ml +++ b/libraries/ec2/lib/describeSnapshotAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSnapshotAttributeRequest.t - type output = DescribeSnapshotAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSnapshotAttribute.mli b/libraries/ec2/lib/describeSnapshotAttribute.mli index efd65beb3..3f9055d79 100644 --- a/libraries/ec2/lib/describeSnapshotAttribute.mli +++ b/libraries/ec2/lib/describeSnapshotAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSnapshotAttributeRequest.t - type output = DescribeSnapshotAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSnapshots.ml b/libraries/ec2/lib/describeSnapshots.ml index 21c1a2bd1..979e8a57a 100644 --- a/libraries/ec2/lib/describeSnapshots.ml +++ b/libraries/ec2/lib/describeSnapshots.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSnapshotsRequest.t - type output = DescribeSnapshotsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSnapshots.mli b/libraries/ec2/lib/describeSnapshots.mli index 6348e2a30..9888f7d4f 100644 --- a/libraries/ec2/lib/describeSnapshots.mli +++ b/libraries/ec2/lib/describeSnapshots.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSnapshotsRequest.t - type output = DescribeSnapshotsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSpotDatafeedSubscription.ml b/libraries/ec2/lib/describeSpotDatafeedSubscription.ml index cd424e046..e7dc520f5 100644 --- a/libraries/ec2/lib/describeSpotDatafeedSubscription.ml +++ b/libraries/ec2/lib/describeSpotDatafeedSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSpotDatafeedSubscriptionRequest.t - type output = DescribeSpotDatafeedSubscriptionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSpotDatafeedSubscription.mli b/libraries/ec2/lib/describeSpotDatafeedSubscription.mli index e0d9738d8..385d8ac03 100644 --- a/libraries/ec2/lib/describeSpotDatafeedSubscription.mli +++ b/libraries/ec2/lib/describeSpotDatafeedSubscription.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSpotDatafeedSubscriptionRequest.t - type output = DescribeSpotDatafeedSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSpotFleetInstances.ml b/libraries/ec2/lib/describeSpotFleetInstances.ml index bfea02280..105d8ee0e 100644 --- a/libraries/ec2/lib/describeSpotFleetInstances.ml +++ b/libraries/ec2/lib/describeSpotFleetInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSpotFleetInstancesRequest.t - type output = DescribeSpotFleetInstancesResponse.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSpotFleetInstances.mli b/libraries/ec2/lib/describeSpotFleetInstances.mli index c163cbfba..c04d9cf14 100644 --- a/libraries/ec2/lib/describeSpotFleetInstances.mli +++ b/libraries/ec2/lib/describeSpotFleetInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSpotFleetInstancesRequest.t - type output = DescribeSpotFleetInstancesResponse.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSpotFleetRequestHistory.ml b/libraries/ec2/lib/describeSpotFleetRequestHistory.ml index a8cc40a80..a85ef7787 100644 --- a/libraries/ec2/lib/describeSpotFleetRequestHistory.ml +++ b/libraries/ec2/lib/describeSpotFleetRequestHistory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSpotFleetRequestHistoryRequest.t - type output = DescribeSpotFleetRequestHistoryResponse.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSpotFleetRequestHistory.mli b/libraries/ec2/lib/describeSpotFleetRequestHistory.mli index 9ba4f473e..23ce10f0b 100644 --- a/libraries/ec2/lib/describeSpotFleetRequestHistory.mli +++ b/libraries/ec2/lib/describeSpotFleetRequestHistory.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSpotFleetRequestHistoryRequest.t - type output = DescribeSpotFleetRequestHistoryResponse.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSpotFleetRequests.ml b/libraries/ec2/lib/describeSpotFleetRequests.ml index a0508d4ee..372317182 100644 --- a/libraries/ec2/lib/describeSpotFleetRequests.ml +++ b/libraries/ec2/lib/describeSpotFleetRequests.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSpotFleetRequestsRequest.t - type output = DescribeSpotFleetRequestsResponse.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSpotFleetRequests.mli b/libraries/ec2/lib/describeSpotFleetRequests.mli index bb6ccdd69..5666d16e5 100644 --- a/libraries/ec2/lib/describeSpotFleetRequests.mli +++ b/libraries/ec2/lib/describeSpotFleetRequests.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSpotFleetRequestsRequest.t - type output = DescribeSpotFleetRequestsResponse.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSpotInstanceRequests.ml b/libraries/ec2/lib/describeSpotInstanceRequests.ml index ab5bd83e3..1352a62e0 100644 --- a/libraries/ec2/lib/describeSpotInstanceRequests.ml +++ b/libraries/ec2/lib/describeSpotInstanceRequests.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSpotInstanceRequestsRequest.t - type output = DescribeSpotInstanceRequestsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSpotInstanceRequests.mli b/libraries/ec2/lib/describeSpotInstanceRequests.mli index 91221f0b4..728350bdd 100644 --- a/libraries/ec2/lib/describeSpotInstanceRequests.mli +++ b/libraries/ec2/lib/describeSpotInstanceRequests.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSpotInstanceRequestsRequest.t - type output = DescribeSpotInstanceRequestsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSpotPriceHistory.ml b/libraries/ec2/lib/describeSpotPriceHistory.ml index 1ad767e01..00350ae73 100644 --- a/libraries/ec2/lib/describeSpotPriceHistory.ml +++ b/libraries/ec2/lib/describeSpotPriceHistory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSpotPriceHistoryRequest.t - type output = DescribeSpotPriceHistoryResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSpotPriceHistory.mli b/libraries/ec2/lib/describeSpotPriceHistory.mli index 6c04eaa55..6951bd475 100644 --- a/libraries/ec2/lib/describeSpotPriceHistory.mli +++ b/libraries/ec2/lib/describeSpotPriceHistory.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSpotPriceHistoryRequest.t - type output = DescribeSpotPriceHistoryResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeStaleSecurityGroups.ml b/libraries/ec2/lib/describeStaleSecurityGroups.ml index 97939f646..74425ee9b 100644 --- a/libraries/ec2/lib/describeStaleSecurityGroups.ml +++ b/libraries/ec2/lib/describeStaleSecurityGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeStaleSecurityGroupsRequest.t - type output = DescribeStaleSecurityGroupsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeStaleSecurityGroups.mli b/libraries/ec2/lib/describeStaleSecurityGroups.mli index 492f255f2..f769756a8 100644 --- a/libraries/ec2/lib/describeStaleSecurityGroups.mli +++ b/libraries/ec2/lib/describeStaleSecurityGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeStaleSecurityGroupsRequest.t - type output = DescribeStaleSecurityGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeSubnets.ml b/libraries/ec2/lib/describeSubnets.ml index dd3cb5f45..a872d1f8b 100644 --- a/libraries/ec2/lib/describeSubnets.ml +++ b/libraries/ec2/lib/describeSubnets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSubnetsRequest.t - type output = DescribeSubnetsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeSubnets.mli b/libraries/ec2/lib/describeSubnets.mli index 558d634a4..47672acb2 100644 --- a/libraries/ec2/lib/describeSubnets.mli +++ b/libraries/ec2/lib/describeSubnets.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSubnetsRequest.t - type output = DescribeSubnetsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTags.ml b/libraries/ec2/lib/describeTags.ml index e560deed0..d15512e22 100644 --- a/libraries/ec2/lib/describeTags.ml +++ b/libraries/ec2/lib/describeTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTagsRequest.t - type output = DescribeTagsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTags.mli b/libraries/ec2/lib/describeTags.mli index 68d6ab61f..ea4d54bd2 100644 --- a/libraries/ec2/lib/describeTags.mli +++ b/libraries/ec2/lib/describeTags.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTagsRequest.t - type output = DescribeTagsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTrafficMirrorFilters.ml b/libraries/ec2/lib/describeTrafficMirrorFilters.ml index 18d61fbc4..7086ed99a 100644 --- a/libraries/ec2/lib/describeTrafficMirrorFilters.ml +++ b/libraries/ec2/lib/describeTrafficMirrorFilters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTrafficMirrorFiltersRequest.t - type output = DescribeTrafficMirrorFiltersResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTrafficMirrorFilters.mli b/libraries/ec2/lib/describeTrafficMirrorFilters.mli index 10b8dc6f1..9be6b7d85 100644 --- a/libraries/ec2/lib/describeTrafficMirrorFilters.mli +++ b/libraries/ec2/lib/describeTrafficMirrorFilters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTrafficMirrorFiltersRequest.t - type output = DescribeTrafficMirrorFiltersResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTrafficMirrorSessions.ml b/libraries/ec2/lib/describeTrafficMirrorSessions.ml index 432812a58..b947b7036 100644 --- a/libraries/ec2/lib/describeTrafficMirrorSessions.ml +++ b/libraries/ec2/lib/describeTrafficMirrorSessions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTrafficMirrorSessionsRequest.t - type output = DescribeTrafficMirrorSessionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTrafficMirrorSessions.mli b/libraries/ec2/lib/describeTrafficMirrorSessions.mli index 281e1a731..bc757b6e7 100644 --- a/libraries/ec2/lib/describeTrafficMirrorSessions.mli +++ b/libraries/ec2/lib/describeTrafficMirrorSessions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTrafficMirrorSessionsRequest.t - type output = DescribeTrafficMirrorSessionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTrafficMirrorTargets.ml b/libraries/ec2/lib/describeTrafficMirrorTargets.ml index 2d0282476..8b7f7ced8 100644 --- a/libraries/ec2/lib/describeTrafficMirrorTargets.ml +++ b/libraries/ec2/lib/describeTrafficMirrorTargets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTrafficMirrorTargetsRequest.t - type output = DescribeTrafficMirrorTargetsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTrafficMirrorTargets.mli b/libraries/ec2/lib/describeTrafficMirrorTargets.mli index 4186c801b..7aba0354a 100644 --- a/libraries/ec2/lib/describeTrafficMirrorTargets.mli +++ b/libraries/ec2/lib/describeTrafficMirrorTargets.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTrafficMirrorTargetsRequest.t - type output = DescribeTrafficMirrorTargetsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTransitGatewayAttachments.ml b/libraries/ec2/lib/describeTransitGatewayAttachments.ml index 5f923e993..46d4989f4 100644 --- a/libraries/ec2/lib/describeTransitGatewayAttachments.ml +++ b/libraries/ec2/lib/describeTransitGatewayAttachments.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTransitGatewayAttachmentsRequest.t - type output = DescribeTransitGatewayAttachmentsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTransitGatewayAttachments.mli b/libraries/ec2/lib/describeTransitGatewayAttachments.mli index 5972be3a4..f5dbe4671 100644 --- a/libraries/ec2/lib/describeTransitGatewayAttachments.mli +++ b/libraries/ec2/lib/describeTransitGatewayAttachments.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTransitGatewayAttachmentsRequest.t - type output = DescribeTransitGatewayAttachmentsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTransitGatewayMulticastDomains.ml b/libraries/ec2/lib/describeTransitGatewayMulticastDomains.ml index ca2cab7ed..2a7a12d94 100644 --- a/libraries/ec2/lib/describeTransitGatewayMulticastDomains.ml +++ b/libraries/ec2/lib/describeTransitGatewayMulticastDomains.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTransitGatewayMulticastDomainsRequest.t - type output = DescribeTransitGatewayMulticastDomainsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTransitGatewayMulticastDomains.mli b/libraries/ec2/lib/describeTransitGatewayMulticastDomains.mli index e66188561..483fe4fea 100644 --- a/libraries/ec2/lib/describeTransitGatewayMulticastDomains.mli +++ b/libraries/ec2/lib/describeTransitGatewayMulticastDomains.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTransitGatewayMulticastDomainsRequest.t - type output = DescribeTransitGatewayMulticastDomainsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.ml b/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.ml index 19f32e7da..ea12097db 100644 --- a/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.ml +++ b/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTransitGatewayPeeringAttachmentsRequest.t - type output = DescribeTransitGatewayPeeringAttachmentsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.mli b/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.mli index 5785d5684..c5b2f024d 100644 --- a/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.mli +++ b/libraries/ec2/lib/describeTransitGatewayPeeringAttachments.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTransitGatewayPeeringAttachmentsRequest.t - type output = DescribeTransitGatewayPeeringAttachmentsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTransitGatewayRouteTables.ml b/libraries/ec2/lib/describeTransitGatewayRouteTables.ml index 4982ffb14..6b909a9a0 100644 --- a/libraries/ec2/lib/describeTransitGatewayRouteTables.ml +++ b/libraries/ec2/lib/describeTransitGatewayRouteTables.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTransitGatewayRouteTablesRequest.t - type output = DescribeTransitGatewayRouteTablesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTransitGatewayRouteTables.mli b/libraries/ec2/lib/describeTransitGatewayRouteTables.mli index 1af3a20b9..b88707006 100644 --- a/libraries/ec2/lib/describeTransitGatewayRouteTables.mli +++ b/libraries/ec2/lib/describeTransitGatewayRouteTables.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTransitGatewayRouteTablesRequest.t - type output = DescribeTransitGatewayRouteTablesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTransitGatewayVpcAttachments.ml b/libraries/ec2/lib/describeTransitGatewayVpcAttachments.ml index c43bcf88a..a1ade7cd4 100644 --- a/libraries/ec2/lib/describeTransitGatewayVpcAttachments.ml +++ b/libraries/ec2/lib/describeTransitGatewayVpcAttachments.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTransitGatewayVpcAttachmentsRequest.t - type output = DescribeTransitGatewayVpcAttachmentsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTransitGatewayVpcAttachments.mli b/libraries/ec2/lib/describeTransitGatewayVpcAttachments.mli index 2b8c5a282..2c7ffda37 100644 --- a/libraries/ec2/lib/describeTransitGatewayVpcAttachments.mli +++ b/libraries/ec2/lib/describeTransitGatewayVpcAttachments.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTransitGatewayVpcAttachmentsRequest.t - type output = DescribeTransitGatewayVpcAttachmentsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeTransitGateways.ml b/libraries/ec2/lib/describeTransitGateways.ml index 3bed0bca4..3f6b5e1d8 100644 --- a/libraries/ec2/lib/describeTransitGateways.ml +++ b/libraries/ec2/lib/describeTransitGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTransitGatewaysRequest.t - type output = DescribeTransitGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeTransitGateways.mli b/libraries/ec2/lib/describeTransitGateways.mli index ca2e9dd6a..79e691faf 100644 --- a/libraries/ec2/lib/describeTransitGateways.mli +++ b/libraries/ec2/lib/describeTransitGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTransitGatewaysRequest.t - type output = DescribeTransitGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVolumeAttribute.ml b/libraries/ec2/lib/describeVolumeAttribute.ml index a4045728c..259d3339d 100644 --- a/libraries/ec2/lib/describeVolumeAttribute.ml +++ b/libraries/ec2/lib/describeVolumeAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVolumeAttributeRequest.t - type output = DescribeVolumeAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVolumeAttribute.mli b/libraries/ec2/lib/describeVolumeAttribute.mli index 913bc544c..cb2f9c9b3 100644 --- a/libraries/ec2/lib/describeVolumeAttribute.mli +++ b/libraries/ec2/lib/describeVolumeAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVolumeAttributeRequest.t - type output = DescribeVolumeAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVolumeStatus.ml b/libraries/ec2/lib/describeVolumeStatus.ml index 5143f1aad..83942bc38 100644 --- a/libraries/ec2/lib/describeVolumeStatus.ml +++ b/libraries/ec2/lib/describeVolumeStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVolumeStatusRequest.t - type output = DescribeVolumeStatusResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVolumeStatus.mli b/libraries/ec2/lib/describeVolumeStatus.mli index 6dc356734..b1fb6b66a 100644 --- a/libraries/ec2/lib/describeVolumeStatus.mli +++ b/libraries/ec2/lib/describeVolumeStatus.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVolumeStatusRequest.t - type output = DescribeVolumeStatusResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVolumes.ml b/libraries/ec2/lib/describeVolumes.ml index 417a5a900..812e8938d 100644 --- a/libraries/ec2/lib/describeVolumes.ml +++ b/libraries/ec2/lib/describeVolumes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVolumesRequest.t - type output = DescribeVolumesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVolumes.mli b/libraries/ec2/lib/describeVolumes.mli index fb5b1098e..6ec47b68f 100644 --- a/libraries/ec2/lib/describeVolumes.mli +++ b/libraries/ec2/lib/describeVolumes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVolumesRequest.t - type output = DescribeVolumesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVolumesModifications.ml b/libraries/ec2/lib/describeVolumesModifications.ml index 03df89e67..e558acfe6 100644 --- a/libraries/ec2/lib/describeVolumesModifications.ml +++ b/libraries/ec2/lib/describeVolumesModifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVolumesModificationsRequest.t - type output = DescribeVolumesModificationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVolumesModifications.mli b/libraries/ec2/lib/describeVolumesModifications.mli index 3c85baaeb..dba22bea0 100644 --- a/libraries/ec2/lib/describeVolumesModifications.mli +++ b/libraries/ec2/lib/describeVolumesModifications.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVolumesModificationsRequest.t - type output = DescribeVolumesModificationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcAttribute.ml b/libraries/ec2/lib/describeVpcAttribute.ml index 70b4f9853..eab724d24 100644 --- a/libraries/ec2/lib/describeVpcAttribute.ml +++ b/libraries/ec2/lib/describeVpcAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcAttributeRequest.t - type output = DescribeVpcAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcAttribute.mli b/libraries/ec2/lib/describeVpcAttribute.mli index 9ef10b1e2..f1e6112ce 100644 --- a/libraries/ec2/lib/describeVpcAttribute.mli +++ b/libraries/ec2/lib/describeVpcAttribute.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcAttributeRequest.t - type output = DescribeVpcAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcClassicLink.ml b/libraries/ec2/lib/describeVpcClassicLink.ml index c2f46109d..b8cbd1d3e 100644 --- a/libraries/ec2/lib/describeVpcClassicLink.ml +++ b/libraries/ec2/lib/describeVpcClassicLink.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcClassicLinkRequest.t - type output = DescribeVpcClassicLinkResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcClassicLink.mli b/libraries/ec2/lib/describeVpcClassicLink.mli index b23449d21..5e4c158bb 100644 --- a/libraries/ec2/lib/describeVpcClassicLink.mli +++ b/libraries/ec2/lib/describeVpcClassicLink.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcClassicLinkRequest.t - type output = DescribeVpcClassicLinkResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.ml b/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.ml index 3eb22a67e..d02554ad3 100644 --- a/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.ml +++ b/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcClassicLinkDnsSupportRequest.t - type output = DescribeVpcClassicLinkDnsSupportResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.mli b/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.mli index d7d6f1c85..fe30d6f17 100644 --- a/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.mli +++ b/libraries/ec2/lib/describeVpcClassicLinkDnsSupport.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcClassicLinkDnsSupportRequest.t - type output = DescribeVpcClassicLinkDnsSupportResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.ml b/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.ml index 6dd44f659..cfe236faa 100644 --- a/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.ml +++ b/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcEndpointConnectionNotificationsRequest.t - type output = DescribeVpcEndpointConnectionNotificationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.mli b/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.mli index 02668f96f..3a844305b 100644 --- a/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.mli +++ b/libraries/ec2/lib/describeVpcEndpointConnectionNotifications.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcEndpointConnectionNotificationsRequest.t - type output = DescribeVpcEndpointConnectionNotificationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcEndpointConnections.ml b/libraries/ec2/lib/describeVpcEndpointConnections.ml index a021f07d9..2c0f82548 100644 --- a/libraries/ec2/lib/describeVpcEndpointConnections.ml +++ b/libraries/ec2/lib/describeVpcEndpointConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcEndpointConnectionsRequest.t - type output = DescribeVpcEndpointConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcEndpointConnections.mli b/libraries/ec2/lib/describeVpcEndpointConnections.mli index 6cc41591d..b75c6147f 100644 --- a/libraries/ec2/lib/describeVpcEndpointConnections.mli +++ b/libraries/ec2/lib/describeVpcEndpointConnections.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcEndpointConnectionsRequest.t - type output = DescribeVpcEndpointConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.ml b/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.ml index 02a28e77e..da63be957 100644 --- a/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.ml +++ b/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcEndpointServiceConfigurationsRequest.t - type output = DescribeVpcEndpointServiceConfigurationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.mli b/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.mli index 5b9bd8955..1f03d5872 100644 --- a/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.mli +++ b/libraries/ec2/lib/describeVpcEndpointServiceConfigurations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcEndpointServiceConfigurationsRequest.t - type output = DescribeVpcEndpointServiceConfigurationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcEndpointServicePermissions.ml b/libraries/ec2/lib/describeVpcEndpointServicePermissions.ml index b50d45bd8..6776c4a9e 100644 --- a/libraries/ec2/lib/describeVpcEndpointServicePermissions.ml +++ b/libraries/ec2/lib/describeVpcEndpointServicePermissions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcEndpointServicePermissionsRequest.t - type output = DescribeVpcEndpointServicePermissionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcEndpointServicePermissions.mli b/libraries/ec2/lib/describeVpcEndpointServicePermissions.mli index 5932399b3..25a39a63a 100644 --- a/libraries/ec2/lib/describeVpcEndpointServicePermissions.mli +++ b/libraries/ec2/lib/describeVpcEndpointServicePermissions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcEndpointServicePermissionsRequest.t - type output = DescribeVpcEndpointServicePermissionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcEndpointServices.ml b/libraries/ec2/lib/describeVpcEndpointServices.ml index e3adec12c..40d03d0f2 100644 --- a/libraries/ec2/lib/describeVpcEndpointServices.ml +++ b/libraries/ec2/lib/describeVpcEndpointServices.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcEndpointServicesRequest.t - type output = DescribeVpcEndpointServicesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcEndpointServices.mli b/libraries/ec2/lib/describeVpcEndpointServices.mli index 570ecafb1..f4afdeb3a 100644 --- a/libraries/ec2/lib/describeVpcEndpointServices.mli +++ b/libraries/ec2/lib/describeVpcEndpointServices.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcEndpointServicesRequest.t - type output = DescribeVpcEndpointServicesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcEndpoints.ml b/libraries/ec2/lib/describeVpcEndpoints.ml index c17fc519e..bc0a87581 100644 --- a/libraries/ec2/lib/describeVpcEndpoints.ml +++ b/libraries/ec2/lib/describeVpcEndpoints.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcEndpointsRequest.t - type output = DescribeVpcEndpointsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcEndpoints.mli b/libraries/ec2/lib/describeVpcEndpoints.mli index 146618dc2..d070f28d0 100644 --- a/libraries/ec2/lib/describeVpcEndpoints.mli +++ b/libraries/ec2/lib/describeVpcEndpoints.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcEndpointsRequest.t - type output = DescribeVpcEndpointsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcPeeringConnections.ml b/libraries/ec2/lib/describeVpcPeeringConnections.ml index fc9cb5240..98e83c96f 100644 --- a/libraries/ec2/lib/describeVpcPeeringConnections.ml +++ b/libraries/ec2/lib/describeVpcPeeringConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcPeeringConnectionsRequest.t - type output = DescribeVpcPeeringConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcPeeringConnections.mli b/libraries/ec2/lib/describeVpcPeeringConnections.mli index 2a49968c9..eae382f31 100644 --- a/libraries/ec2/lib/describeVpcPeeringConnections.mli +++ b/libraries/ec2/lib/describeVpcPeeringConnections.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcPeeringConnectionsRequest.t - type output = DescribeVpcPeeringConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpcs.ml b/libraries/ec2/lib/describeVpcs.ml index da1a4372b..bcc139dd4 100644 --- a/libraries/ec2/lib/describeVpcs.ml +++ b/libraries/ec2/lib/describeVpcs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpcsRequest.t - type output = DescribeVpcsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpcs.mli b/libraries/ec2/lib/describeVpcs.mli index 63aa34725..7db620ce2 100644 --- a/libraries/ec2/lib/describeVpcs.mli +++ b/libraries/ec2/lib/describeVpcs.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpcsRequest.t - type output = DescribeVpcsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpnConnections.ml b/libraries/ec2/lib/describeVpnConnections.ml index 04dac3139..acf4f022b 100644 --- a/libraries/ec2/lib/describeVpnConnections.ml +++ b/libraries/ec2/lib/describeVpnConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpnConnectionsRequest.t - type output = DescribeVpnConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpnConnections.mli b/libraries/ec2/lib/describeVpnConnections.mli index 0fd38d392..820f535ab 100644 --- a/libraries/ec2/lib/describeVpnConnections.mli +++ b/libraries/ec2/lib/describeVpnConnections.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpnConnectionsRequest.t - type output = DescribeVpnConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/describeVpnGateways.ml b/libraries/ec2/lib/describeVpnGateways.ml index d06d087af..8fb27ff8c 100644 --- a/libraries/ec2/lib/describeVpnGateways.ml +++ b/libraries/ec2/lib/describeVpnGateways.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeVpnGatewaysRequest.t - type output = DescribeVpnGatewaysResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/describeVpnGateways.mli b/libraries/ec2/lib/describeVpnGateways.mli index 0249d8d7f..862726f0b 100644 --- a/libraries/ec2/lib/describeVpnGateways.mli +++ b/libraries/ec2/lib/describeVpnGateways.mli @@ -1,9 +1,7 @@ open Types type input = DescribeVpnGatewaysRequest.t - type output = DescribeVpnGatewaysResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/detachClassicLinkVpc.ml b/libraries/ec2/lib/detachClassicLinkVpc.ml index 9216ca1e0..0b1a243b8 100644 --- a/libraries/ec2/lib/detachClassicLinkVpc.ml +++ b/libraries/ec2/lib/detachClassicLinkVpc.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachClassicLinkVpcRequest.t - type output = DetachClassicLinkVpcResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/detachClassicLinkVpc.mli b/libraries/ec2/lib/detachClassicLinkVpc.mli index 1ed38222a..9be161f00 100644 --- a/libraries/ec2/lib/detachClassicLinkVpc.mli +++ b/libraries/ec2/lib/detachClassicLinkVpc.mli @@ -1,9 +1,7 @@ open Types type input = DetachClassicLinkVpcRequest.t - type output = DetachClassicLinkVpcResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/detachInternetGateway.ml b/libraries/ec2/lib/detachInternetGateway.ml index 9ad64cbd7..da10c3459 100644 --- a/libraries/ec2/lib/detachInternetGateway.ml +++ b/libraries/ec2/lib/detachInternetGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachInternetGatewayRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/detachInternetGateway.mli b/libraries/ec2/lib/detachInternetGateway.mli index a58a197b9..318a566ae 100644 --- a/libraries/ec2/lib/detachInternetGateway.mli +++ b/libraries/ec2/lib/detachInternetGateway.mli @@ -1,9 +1,7 @@ open Types type input = DetachInternetGatewayRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/detachNetworkInterface.ml b/libraries/ec2/lib/detachNetworkInterface.ml index bfb135492..3be9fa01d 100644 --- a/libraries/ec2/lib/detachNetworkInterface.ml +++ b/libraries/ec2/lib/detachNetworkInterface.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachNetworkInterfaceRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/detachNetworkInterface.mli b/libraries/ec2/lib/detachNetworkInterface.mli index 27ed9fc0a..e751c0e1b 100644 --- a/libraries/ec2/lib/detachNetworkInterface.mli +++ b/libraries/ec2/lib/detachNetworkInterface.mli @@ -1,9 +1,7 @@ open Types type input = DetachNetworkInterfaceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/detachVolume.ml b/libraries/ec2/lib/detachVolume.ml index fe9b2de03..bc07b9e69 100644 --- a/libraries/ec2/lib/detachVolume.ml +++ b/libraries/ec2/lib/detachVolume.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachVolumeRequest.t - type output = VolumeAttachment.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/detachVolume.mli b/libraries/ec2/lib/detachVolume.mli index 0ed3807ac..79b89de3f 100644 --- a/libraries/ec2/lib/detachVolume.mli +++ b/libraries/ec2/lib/detachVolume.mli @@ -1,9 +1,7 @@ open Types type input = DetachVolumeRequest.t - type output = VolumeAttachment.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/detachVpnGateway.ml b/libraries/ec2/lib/detachVpnGateway.ml index 1e9f8573d..26c18a4ab 100644 --- a/libraries/ec2/lib/detachVpnGateway.ml +++ b/libraries/ec2/lib/detachVpnGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachVpnGatewayRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/detachVpnGateway.mli b/libraries/ec2/lib/detachVpnGateway.mli index 21d2ccb31..01af2b5b8 100644 --- a/libraries/ec2/lib/detachVpnGateway.mli +++ b/libraries/ec2/lib/detachVpnGateway.mli @@ -1,9 +1,7 @@ open Types type input = DetachVpnGatewayRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disableEbsEncryptionByDefault.ml b/libraries/ec2/lib/disableEbsEncryptionByDefault.ml index b8ea8f519..d8693902c 100644 --- a/libraries/ec2/lib/disableEbsEncryptionByDefault.ml +++ b/libraries/ec2/lib/disableEbsEncryptionByDefault.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableEbsEncryptionByDefaultRequest.t - type output = DisableEbsEncryptionByDefaultResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disableEbsEncryptionByDefault.mli b/libraries/ec2/lib/disableEbsEncryptionByDefault.mli index fd01632c8..e0e922dc0 100644 --- a/libraries/ec2/lib/disableEbsEncryptionByDefault.mli +++ b/libraries/ec2/lib/disableEbsEncryptionByDefault.mli @@ -1,9 +1,7 @@ open Types type input = DisableEbsEncryptionByDefaultRequest.t - type output = DisableEbsEncryptionByDefaultResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disableFastSnapshotRestores.ml b/libraries/ec2/lib/disableFastSnapshotRestores.ml index 79872c8e9..462c741b6 100644 --- a/libraries/ec2/lib/disableFastSnapshotRestores.ml +++ b/libraries/ec2/lib/disableFastSnapshotRestores.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableFastSnapshotRestoresRequest.t - type output = DisableFastSnapshotRestoresResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disableFastSnapshotRestores.mli b/libraries/ec2/lib/disableFastSnapshotRestores.mli index ce986a194..38d9ba067 100644 --- a/libraries/ec2/lib/disableFastSnapshotRestores.mli +++ b/libraries/ec2/lib/disableFastSnapshotRestores.mli @@ -1,9 +1,7 @@ open Types type input = DisableFastSnapshotRestoresRequest.t - type output = DisableFastSnapshotRestoresResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.ml b/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.ml index bed83ce84..a77004d88 100644 --- a/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.ml +++ b/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableTransitGatewayRouteTablePropagationRequest.t - type output = DisableTransitGatewayRouteTablePropagationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.mli b/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.mli index 888ae76e4..9492b5ab8 100644 --- a/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.mli +++ b/libraries/ec2/lib/disableTransitGatewayRouteTablePropagation.mli @@ -1,9 +1,7 @@ open Types type input = DisableTransitGatewayRouteTablePropagationRequest.t - type output = DisableTransitGatewayRouteTablePropagationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disableVgwRoutePropagation.ml b/libraries/ec2/lib/disableVgwRoutePropagation.ml index 0d0091a66..12dfb3ad8 100644 --- a/libraries/ec2/lib/disableVgwRoutePropagation.ml +++ b/libraries/ec2/lib/disableVgwRoutePropagation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableVgwRoutePropagationRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disableVgwRoutePropagation.mli b/libraries/ec2/lib/disableVgwRoutePropagation.mli index c99812907..c6ba7460b 100644 --- a/libraries/ec2/lib/disableVgwRoutePropagation.mli +++ b/libraries/ec2/lib/disableVgwRoutePropagation.mli @@ -1,9 +1,7 @@ open Types type input = DisableVgwRoutePropagationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disableVpcClassicLink.ml b/libraries/ec2/lib/disableVpcClassicLink.ml index 076cb79fe..de4e75d9c 100644 --- a/libraries/ec2/lib/disableVpcClassicLink.ml +++ b/libraries/ec2/lib/disableVpcClassicLink.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableVpcClassicLinkRequest.t - type output = DisableVpcClassicLinkResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disableVpcClassicLink.mli b/libraries/ec2/lib/disableVpcClassicLink.mli index f482d4b8d..66dbf9922 100644 --- a/libraries/ec2/lib/disableVpcClassicLink.mli +++ b/libraries/ec2/lib/disableVpcClassicLink.mli @@ -1,9 +1,7 @@ open Types type input = DisableVpcClassicLinkRequest.t - type output = DisableVpcClassicLinkResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.ml b/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.ml index c0140ea94..916b1c9a7 100644 --- a/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.ml +++ b/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableVpcClassicLinkDnsSupportRequest.t - type output = DisableVpcClassicLinkDnsSupportResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.mli b/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.mli index fc2117b10..e237722c2 100644 --- a/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.mli +++ b/libraries/ec2/lib/disableVpcClassicLinkDnsSupport.mli @@ -1,9 +1,7 @@ open Types type input = DisableVpcClassicLinkDnsSupportRequest.t - type output = DisableVpcClassicLinkDnsSupportResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateAddress.ml b/libraries/ec2/lib/disassociateAddress.ml index 088cff5e1..3e1a613a4 100644 --- a/libraries/ec2/lib/disassociateAddress.ml +++ b/libraries/ec2/lib/disassociateAddress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateAddressRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateAddress.mli b/libraries/ec2/lib/disassociateAddress.mli index df9c10dec..4ad8c74f8 100644 --- a/libraries/ec2/lib/disassociateAddress.mli +++ b/libraries/ec2/lib/disassociateAddress.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateAddressRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateClientVpnTargetNetwork.ml b/libraries/ec2/lib/disassociateClientVpnTargetNetwork.ml index 872a67431..074843c4b 100644 --- a/libraries/ec2/lib/disassociateClientVpnTargetNetwork.ml +++ b/libraries/ec2/lib/disassociateClientVpnTargetNetwork.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateClientVpnTargetNetworkRequest.t - type output = DisassociateClientVpnTargetNetworkResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateClientVpnTargetNetwork.mli b/libraries/ec2/lib/disassociateClientVpnTargetNetwork.mli index bbb6b09a2..1eb47d49c 100644 --- a/libraries/ec2/lib/disassociateClientVpnTargetNetwork.mli +++ b/libraries/ec2/lib/disassociateClientVpnTargetNetwork.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateClientVpnTargetNetworkRequest.t - type output = DisassociateClientVpnTargetNetworkResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.ml b/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.ml index fd0b61128..26614e1ed 100644 --- a/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.ml +++ b/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateEnclaveCertificateIamRoleRequest.t - type output = DisassociateEnclaveCertificateIamRoleResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.mli b/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.mli index 8a05c5665..7c8147d62 100644 --- a/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.mli +++ b/libraries/ec2/lib/disassociateEnclaveCertificateIamRole.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateEnclaveCertificateIamRoleRequest.t - type output = DisassociateEnclaveCertificateIamRoleResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateIamInstanceProfile.ml b/libraries/ec2/lib/disassociateIamInstanceProfile.ml index 01abded06..e858d94f8 100644 --- a/libraries/ec2/lib/disassociateIamInstanceProfile.ml +++ b/libraries/ec2/lib/disassociateIamInstanceProfile.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateIamInstanceProfileRequest.t - type output = DisassociateIamInstanceProfileResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateIamInstanceProfile.mli b/libraries/ec2/lib/disassociateIamInstanceProfile.mli index bc63b3e3f..597a19da7 100644 --- a/libraries/ec2/lib/disassociateIamInstanceProfile.mli +++ b/libraries/ec2/lib/disassociateIamInstanceProfile.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateIamInstanceProfileRequest.t - type output = DisassociateIamInstanceProfileResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateRouteTable.ml b/libraries/ec2/lib/disassociateRouteTable.ml index f6e9ec28e..ade32bba4 100644 --- a/libraries/ec2/lib/disassociateRouteTable.ml +++ b/libraries/ec2/lib/disassociateRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateRouteTableRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateRouteTable.mli b/libraries/ec2/lib/disassociateRouteTable.mli index e343f0430..5f4e8c6d4 100644 --- a/libraries/ec2/lib/disassociateRouteTable.mli +++ b/libraries/ec2/lib/disassociateRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateRouteTableRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateSubnetCidrBlock.ml b/libraries/ec2/lib/disassociateSubnetCidrBlock.ml index c792fd47c..aa6a0f105 100644 --- a/libraries/ec2/lib/disassociateSubnetCidrBlock.ml +++ b/libraries/ec2/lib/disassociateSubnetCidrBlock.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateSubnetCidrBlockRequest.t - type output = DisassociateSubnetCidrBlockResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateSubnetCidrBlock.mli b/libraries/ec2/lib/disassociateSubnetCidrBlock.mli index c85248192..8cf53a1ea 100644 --- a/libraries/ec2/lib/disassociateSubnetCidrBlock.mli +++ b/libraries/ec2/lib/disassociateSubnetCidrBlock.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateSubnetCidrBlockRequest.t - type output = DisassociateSubnetCidrBlockResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.ml b/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.ml index 057524705..f85fed9f8 100644 --- a/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.ml +++ b/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateTransitGatewayMulticastDomainRequest.t - type output = DisassociateTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.mli b/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.mli index da0fb3bb0..13f6c6b80 100644 --- a/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.mli +++ b/libraries/ec2/lib/disassociateTransitGatewayMulticastDomain.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateTransitGatewayMulticastDomainRequest.t - type output = DisassociateTransitGatewayMulticastDomainResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateTransitGatewayRouteTable.ml b/libraries/ec2/lib/disassociateTransitGatewayRouteTable.ml index 3f33727ca..a967bbcd3 100644 --- a/libraries/ec2/lib/disassociateTransitGatewayRouteTable.ml +++ b/libraries/ec2/lib/disassociateTransitGatewayRouteTable.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateTransitGatewayRouteTableRequest.t - type output = DisassociateTransitGatewayRouteTableResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateTransitGatewayRouteTable.mli b/libraries/ec2/lib/disassociateTransitGatewayRouteTable.mli index c3505fa62..41b321636 100644 --- a/libraries/ec2/lib/disassociateTransitGatewayRouteTable.mli +++ b/libraries/ec2/lib/disassociateTransitGatewayRouteTable.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateTransitGatewayRouteTableRequest.t - type output = DisassociateTransitGatewayRouteTableResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/disassociateVpcCidrBlock.ml b/libraries/ec2/lib/disassociateVpcCidrBlock.ml index 63055e6e1..ff2cf1821 100644 --- a/libraries/ec2/lib/disassociateVpcCidrBlock.ml +++ b/libraries/ec2/lib/disassociateVpcCidrBlock.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateVpcCidrBlockRequest.t - type output = DisassociateVpcCidrBlockResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/disassociateVpcCidrBlock.mli b/libraries/ec2/lib/disassociateVpcCidrBlock.mli index ca4339bfa..650f1a1cf 100644 --- a/libraries/ec2/lib/disassociateVpcCidrBlock.mli +++ b/libraries/ec2/lib/disassociateVpcCidrBlock.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateVpcCidrBlockRequest.t - type output = DisassociateVpcCidrBlockResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableEbsEncryptionByDefault.ml b/libraries/ec2/lib/enableEbsEncryptionByDefault.ml index a75a4f74d..ee18bf253 100644 --- a/libraries/ec2/lib/enableEbsEncryptionByDefault.ml +++ b/libraries/ec2/lib/enableEbsEncryptionByDefault.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableEbsEncryptionByDefaultRequest.t - type output = EnableEbsEncryptionByDefaultResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableEbsEncryptionByDefault.mli b/libraries/ec2/lib/enableEbsEncryptionByDefault.mli index 069cc6296..813ee21ad 100644 --- a/libraries/ec2/lib/enableEbsEncryptionByDefault.mli +++ b/libraries/ec2/lib/enableEbsEncryptionByDefault.mli @@ -1,9 +1,7 @@ open Types type input = EnableEbsEncryptionByDefaultRequest.t - type output = EnableEbsEncryptionByDefaultResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableFastSnapshotRestores.ml b/libraries/ec2/lib/enableFastSnapshotRestores.ml index 002fd118e..86b0e0eae 100644 --- a/libraries/ec2/lib/enableFastSnapshotRestores.ml +++ b/libraries/ec2/lib/enableFastSnapshotRestores.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableFastSnapshotRestoresRequest.t - type output = EnableFastSnapshotRestoresResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableFastSnapshotRestores.mli b/libraries/ec2/lib/enableFastSnapshotRestores.mli index 93d7c970f..9fa9ccd0f 100644 --- a/libraries/ec2/lib/enableFastSnapshotRestores.mli +++ b/libraries/ec2/lib/enableFastSnapshotRestores.mli @@ -1,9 +1,7 @@ open Types type input = EnableFastSnapshotRestoresRequest.t - type output = EnableFastSnapshotRestoresResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.ml b/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.ml index 5a7cc4afc..6cd0064a3 100644 --- a/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.ml +++ b/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableTransitGatewayRouteTablePropagationRequest.t - type output = EnableTransitGatewayRouteTablePropagationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.mli b/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.mli index e619ed4ed..da0e06464 100644 --- a/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.mli +++ b/libraries/ec2/lib/enableTransitGatewayRouteTablePropagation.mli @@ -1,9 +1,7 @@ open Types type input = EnableTransitGatewayRouteTablePropagationRequest.t - type output = EnableTransitGatewayRouteTablePropagationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableVgwRoutePropagation.ml b/libraries/ec2/lib/enableVgwRoutePropagation.ml index 68f21b022..f518d7347 100644 --- a/libraries/ec2/lib/enableVgwRoutePropagation.ml +++ b/libraries/ec2/lib/enableVgwRoutePropagation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableVgwRoutePropagationRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableVgwRoutePropagation.mli b/libraries/ec2/lib/enableVgwRoutePropagation.mli index 573dbdb42..39b2c7361 100644 --- a/libraries/ec2/lib/enableVgwRoutePropagation.mli +++ b/libraries/ec2/lib/enableVgwRoutePropagation.mli @@ -1,9 +1,7 @@ open Types type input = EnableVgwRoutePropagationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableVolumeIO.ml b/libraries/ec2/lib/enableVolumeIO.ml index c17a3b242..4f1e86e75 100644 --- a/libraries/ec2/lib/enableVolumeIO.ml +++ b/libraries/ec2/lib/enableVolumeIO.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableVolumeIORequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableVolumeIO.mli b/libraries/ec2/lib/enableVolumeIO.mli index 5d82d11b7..28f041637 100644 --- a/libraries/ec2/lib/enableVolumeIO.mli +++ b/libraries/ec2/lib/enableVolumeIO.mli @@ -1,9 +1,7 @@ open Types type input = EnableVolumeIORequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableVpcClassicLink.ml b/libraries/ec2/lib/enableVpcClassicLink.ml index 6b3f71a83..846ded190 100644 --- a/libraries/ec2/lib/enableVpcClassicLink.ml +++ b/libraries/ec2/lib/enableVpcClassicLink.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableVpcClassicLinkRequest.t - type output = EnableVpcClassicLinkResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableVpcClassicLink.mli b/libraries/ec2/lib/enableVpcClassicLink.mli index 9e04a88b9..e64be7d58 100644 --- a/libraries/ec2/lib/enableVpcClassicLink.mli +++ b/libraries/ec2/lib/enableVpcClassicLink.mli @@ -1,9 +1,7 @@ open Types type input = EnableVpcClassicLinkRequest.t - type output = EnableVpcClassicLinkResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.ml b/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.ml index 027dd5f1d..11f33b9b8 100644 --- a/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.ml +++ b/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableVpcClassicLinkDnsSupportRequest.t - type output = EnableVpcClassicLinkDnsSupportResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.mli b/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.mli index 57dfd2c73..7572a49bc 100644 --- a/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.mli +++ b/libraries/ec2/lib/enableVpcClassicLinkDnsSupport.mli @@ -1,9 +1,7 @@ open Types type input = EnableVpcClassicLinkDnsSupportRequest.t - type output = EnableVpcClassicLinkDnsSupportResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.ml b/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.ml index ef0822616..fa990124a 100644 --- a/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.ml +++ b/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExportClientVpnClientCertificateRevocationListRequest.t - type output = ExportClientVpnClientCertificateRevocationListResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.mli b/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.mli index de0c31149..d7a983723 100644 --- a/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.mli +++ b/libraries/ec2/lib/exportClientVpnClientCertificateRevocationList.mli @@ -1,9 +1,7 @@ open Types type input = ExportClientVpnClientCertificateRevocationListRequest.t - type output = ExportClientVpnClientCertificateRevocationListResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/exportClientVpnClientConfiguration.ml b/libraries/ec2/lib/exportClientVpnClientConfiguration.ml index 7590da5f1..92168aef6 100644 --- a/libraries/ec2/lib/exportClientVpnClientConfiguration.ml +++ b/libraries/ec2/lib/exportClientVpnClientConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExportClientVpnClientConfigurationRequest.t - type output = ExportClientVpnClientConfigurationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/exportClientVpnClientConfiguration.mli b/libraries/ec2/lib/exportClientVpnClientConfiguration.mli index 8ef450c04..8d70f2948 100644 --- a/libraries/ec2/lib/exportClientVpnClientConfiguration.mli +++ b/libraries/ec2/lib/exportClientVpnClientConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = ExportClientVpnClientConfigurationRequest.t - type output = ExportClientVpnClientConfigurationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/exportImage.ml b/libraries/ec2/lib/exportImage.ml index 486ee400b..1975ef3e1 100644 --- a/libraries/ec2/lib/exportImage.ml +++ b/libraries/ec2/lib/exportImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExportImageRequest.t - type output = ExportImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/exportImage.mli b/libraries/ec2/lib/exportImage.mli index 1faa225d6..b39b6a085 100644 --- a/libraries/ec2/lib/exportImage.mli +++ b/libraries/ec2/lib/exportImage.mli @@ -1,9 +1,7 @@ open Types type input = ExportImageRequest.t - type output = ExportImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/exportTransitGatewayRoutes.ml b/libraries/ec2/lib/exportTransitGatewayRoutes.ml index affeb9d5d..c580436eb 100644 --- a/libraries/ec2/lib/exportTransitGatewayRoutes.ml +++ b/libraries/ec2/lib/exportTransitGatewayRoutes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ExportTransitGatewayRoutesRequest.t - type output = ExportTransitGatewayRoutesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/exportTransitGatewayRoutes.mli b/libraries/ec2/lib/exportTransitGatewayRoutes.mli index fa8c51bec..0339ca9b9 100644 --- a/libraries/ec2/lib/exportTransitGatewayRoutes.mli +++ b/libraries/ec2/lib/exportTransitGatewayRoutes.mli @@ -1,9 +1,7 @@ open Types type input = ExportTransitGatewayRoutesRequest.t - type output = ExportTransitGatewayRoutesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.ml b/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.ml index 103e4493f..26a6aca76 100644 --- a/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.ml +++ b/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetAssociatedEnclaveCertificateIamRolesRequest.t - type output = GetAssociatedEnclaveCertificateIamRolesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.mli b/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.mli index fb25f5b06..9e0856645 100644 --- a/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.mli +++ b/libraries/ec2/lib/getAssociatedEnclaveCertificateIamRoles.mli @@ -1,9 +1,7 @@ open Types type input = GetAssociatedEnclaveCertificateIamRolesRequest.t - type output = GetAssociatedEnclaveCertificateIamRolesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.ml b/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.ml index a01835754..ad0c5becc 100644 --- a/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.ml +++ b/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetAssociatedIpv6PoolCidrsRequest.t - type output = GetAssociatedIpv6PoolCidrsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.mli b/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.mli index 52aa5f932..a94600661 100644 --- a/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.mli +++ b/libraries/ec2/lib/getAssociatedIpv6PoolCidrs.mli @@ -1,9 +1,7 @@ open Types type input = GetAssociatedIpv6PoolCidrsRequest.t - type output = GetAssociatedIpv6PoolCidrsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getCapacityReservationUsage.ml b/libraries/ec2/lib/getCapacityReservationUsage.ml index 062716224..86e98ef8d 100644 --- a/libraries/ec2/lib/getCapacityReservationUsage.ml +++ b/libraries/ec2/lib/getCapacityReservationUsage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetCapacityReservationUsageRequest.t - type output = GetCapacityReservationUsageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getCapacityReservationUsage.mli b/libraries/ec2/lib/getCapacityReservationUsage.mli index 51c02d59b..d3d8fae77 100644 --- a/libraries/ec2/lib/getCapacityReservationUsage.mli +++ b/libraries/ec2/lib/getCapacityReservationUsage.mli @@ -1,9 +1,7 @@ open Types type input = GetCapacityReservationUsageRequest.t - type output = GetCapacityReservationUsageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getCoipPoolUsage.ml b/libraries/ec2/lib/getCoipPoolUsage.ml index 340f770f4..6a608f055 100644 --- a/libraries/ec2/lib/getCoipPoolUsage.ml +++ b/libraries/ec2/lib/getCoipPoolUsage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetCoipPoolUsageRequest.t - type output = GetCoipPoolUsageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getCoipPoolUsage.mli b/libraries/ec2/lib/getCoipPoolUsage.mli index 174f96e3f..66b676115 100644 --- a/libraries/ec2/lib/getCoipPoolUsage.mli +++ b/libraries/ec2/lib/getCoipPoolUsage.mli @@ -1,9 +1,7 @@ open Types type input = GetCoipPoolUsageRequest.t - type output = GetCoipPoolUsageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getConsoleOutput.ml b/libraries/ec2/lib/getConsoleOutput.ml index a7e31ba3a..f3f2c8dec 100644 --- a/libraries/ec2/lib/getConsoleOutput.ml +++ b/libraries/ec2/lib/getConsoleOutput.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetConsoleOutputRequest.t - type output = GetConsoleOutputResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getConsoleOutput.mli b/libraries/ec2/lib/getConsoleOutput.mli index 28a39500e..ffedfae14 100644 --- a/libraries/ec2/lib/getConsoleOutput.mli +++ b/libraries/ec2/lib/getConsoleOutput.mli @@ -1,9 +1,7 @@ open Types type input = GetConsoleOutputRequest.t - type output = GetConsoleOutputResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getConsoleScreenshot.ml b/libraries/ec2/lib/getConsoleScreenshot.ml index 5d1f1e10c..d1bc63b1c 100644 --- a/libraries/ec2/lib/getConsoleScreenshot.ml +++ b/libraries/ec2/lib/getConsoleScreenshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetConsoleScreenshotRequest.t - type output = GetConsoleScreenshotResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getConsoleScreenshot.mli b/libraries/ec2/lib/getConsoleScreenshot.mli index aa63d57f8..14823631e 100644 --- a/libraries/ec2/lib/getConsoleScreenshot.mli +++ b/libraries/ec2/lib/getConsoleScreenshot.mli @@ -1,9 +1,7 @@ open Types type input = GetConsoleScreenshotRequest.t - type output = GetConsoleScreenshotResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getDefaultCreditSpecification.ml b/libraries/ec2/lib/getDefaultCreditSpecification.ml index 358347e1e..11129ddf9 100644 --- a/libraries/ec2/lib/getDefaultCreditSpecification.ml +++ b/libraries/ec2/lib/getDefaultCreditSpecification.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetDefaultCreditSpecificationRequest.t - type output = GetDefaultCreditSpecificationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getDefaultCreditSpecification.mli b/libraries/ec2/lib/getDefaultCreditSpecification.mli index 6cd96509a..fe28c6333 100644 --- a/libraries/ec2/lib/getDefaultCreditSpecification.mli +++ b/libraries/ec2/lib/getDefaultCreditSpecification.mli @@ -1,9 +1,7 @@ open Types type input = GetDefaultCreditSpecificationRequest.t - type output = GetDefaultCreditSpecificationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getEbsDefaultKmsKeyId.ml b/libraries/ec2/lib/getEbsDefaultKmsKeyId.ml index a8d75d98d..61fdbf132 100644 --- a/libraries/ec2/lib/getEbsDefaultKmsKeyId.ml +++ b/libraries/ec2/lib/getEbsDefaultKmsKeyId.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetEbsDefaultKmsKeyIdRequest.t - type output = GetEbsDefaultKmsKeyIdResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getEbsDefaultKmsKeyId.mli b/libraries/ec2/lib/getEbsDefaultKmsKeyId.mli index f97f1f011..b0698598c 100644 --- a/libraries/ec2/lib/getEbsDefaultKmsKeyId.mli +++ b/libraries/ec2/lib/getEbsDefaultKmsKeyId.mli @@ -1,9 +1,7 @@ open Types type input = GetEbsDefaultKmsKeyIdRequest.t - type output = GetEbsDefaultKmsKeyIdResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getEbsEncryptionByDefault.ml b/libraries/ec2/lib/getEbsEncryptionByDefault.ml index ff3890cbd..a7c243e1d 100644 --- a/libraries/ec2/lib/getEbsEncryptionByDefault.ml +++ b/libraries/ec2/lib/getEbsEncryptionByDefault.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetEbsEncryptionByDefaultRequest.t - type output = GetEbsEncryptionByDefaultResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getEbsEncryptionByDefault.mli b/libraries/ec2/lib/getEbsEncryptionByDefault.mli index a04dfed47..d56f79dca 100644 --- a/libraries/ec2/lib/getEbsEncryptionByDefault.mli +++ b/libraries/ec2/lib/getEbsEncryptionByDefault.mli @@ -1,9 +1,7 @@ open Types type input = GetEbsEncryptionByDefaultRequest.t - type output = GetEbsEncryptionByDefaultResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getGroupsForCapacityReservation.ml b/libraries/ec2/lib/getGroupsForCapacityReservation.ml index a9b1f440f..809f71b48 100644 --- a/libraries/ec2/lib/getGroupsForCapacityReservation.ml +++ b/libraries/ec2/lib/getGroupsForCapacityReservation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetGroupsForCapacityReservationRequest.t - type output = GetGroupsForCapacityReservationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getGroupsForCapacityReservation.mli b/libraries/ec2/lib/getGroupsForCapacityReservation.mli index cd555570e..16d4aa712 100644 --- a/libraries/ec2/lib/getGroupsForCapacityReservation.mli +++ b/libraries/ec2/lib/getGroupsForCapacityReservation.mli @@ -1,9 +1,7 @@ open Types type input = GetGroupsForCapacityReservationRequest.t - type output = GetGroupsForCapacityReservationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getHostReservationPurchasePreview.ml b/libraries/ec2/lib/getHostReservationPurchasePreview.ml index 827699e06..b694002f0 100644 --- a/libraries/ec2/lib/getHostReservationPurchasePreview.ml +++ b/libraries/ec2/lib/getHostReservationPurchasePreview.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetHostReservationPurchasePreviewRequest.t - type output = GetHostReservationPurchasePreviewResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getHostReservationPurchasePreview.mli b/libraries/ec2/lib/getHostReservationPurchasePreview.mli index 1e3619648..d0eeb15f7 100644 --- a/libraries/ec2/lib/getHostReservationPurchasePreview.mli +++ b/libraries/ec2/lib/getHostReservationPurchasePreview.mli @@ -1,9 +1,7 @@ open Types type input = GetHostReservationPurchasePreviewRequest.t - type output = GetHostReservationPurchasePreviewResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getLaunchTemplateData.ml b/libraries/ec2/lib/getLaunchTemplateData.ml index 8dec967f3..41dc54ab1 100644 --- a/libraries/ec2/lib/getLaunchTemplateData.ml +++ b/libraries/ec2/lib/getLaunchTemplateData.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetLaunchTemplateDataRequest.t - type output = GetLaunchTemplateDataResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getLaunchTemplateData.mli b/libraries/ec2/lib/getLaunchTemplateData.mli index 627ecf112..324cd2cc5 100644 --- a/libraries/ec2/lib/getLaunchTemplateData.mli +++ b/libraries/ec2/lib/getLaunchTemplateData.mli @@ -1,9 +1,7 @@ open Types type input = GetLaunchTemplateDataRequest.t - type output = GetLaunchTemplateDataResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getManagedPrefixListAssociations.ml b/libraries/ec2/lib/getManagedPrefixListAssociations.ml index 9db5cde2b..54cb19d6a 100644 --- a/libraries/ec2/lib/getManagedPrefixListAssociations.ml +++ b/libraries/ec2/lib/getManagedPrefixListAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetManagedPrefixListAssociationsRequest.t - type output = GetManagedPrefixListAssociationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getManagedPrefixListAssociations.mli b/libraries/ec2/lib/getManagedPrefixListAssociations.mli index dd0906da0..29cc75792 100644 --- a/libraries/ec2/lib/getManagedPrefixListAssociations.mli +++ b/libraries/ec2/lib/getManagedPrefixListAssociations.mli @@ -1,9 +1,7 @@ open Types type input = GetManagedPrefixListAssociationsRequest.t - type output = GetManagedPrefixListAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getManagedPrefixListEntries.ml b/libraries/ec2/lib/getManagedPrefixListEntries.ml index 042f8e598..4e6251b5a 100644 --- a/libraries/ec2/lib/getManagedPrefixListEntries.ml +++ b/libraries/ec2/lib/getManagedPrefixListEntries.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetManagedPrefixListEntriesRequest.t - type output = GetManagedPrefixListEntriesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getManagedPrefixListEntries.mli b/libraries/ec2/lib/getManagedPrefixListEntries.mli index 4903a748c..3a0b7ecb9 100644 --- a/libraries/ec2/lib/getManagedPrefixListEntries.mli +++ b/libraries/ec2/lib/getManagedPrefixListEntries.mli @@ -1,9 +1,7 @@ open Types type input = GetManagedPrefixListEntriesRequest.t - type output = GetManagedPrefixListEntriesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getPasswordData.ml b/libraries/ec2/lib/getPasswordData.ml index 645a12303..dee2a2191 100644 --- a/libraries/ec2/lib/getPasswordData.ml +++ b/libraries/ec2/lib/getPasswordData.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetPasswordDataRequest.t - type output = GetPasswordDataResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getPasswordData.mli b/libraries/ec2/lib/getPasswordData.mli index c05f09c19..bc54e1aee 100644 --- a/libraries/ec2/lib/getPasswordData.mli +++ b/libraries/ec2/lib/getPasswordData.mli @@ -1,9 +1,7 @@ open Types type input = GetPasswordDataRequest.t - type output = GetPasswordDataResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getReservedInstancesExchangeQuote.ml b/libraries/ec2/lib/getReservedInstancesExchangeQuote.ml index 8644e45f9..32b22f4e0 100644 --- a/libraries/ec2/lib/getReservedInstancesExchangeQuote.ml +++ b/libraries/ec2/lib/getReservedInstancesExchangeQuote.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetReservedInstancesExchangeQuoteRequest.t - type output = GetReservedInstancesExchangeQuoteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getReservedInstancesExchangeQuote.mli b/libraries/ec2/lib/getReservedInstancesExchangeQuote.mli index 006fd79d6..890dc7531 100644 --- a/libraries/ec2/lib/getReservedInstancesExchangeQuote.mli +++ b/libraries/ec2/lib/getReservedInstancesExchangeQuote.mli @@ -1,9 +1,7 @@ open Types type input = GetReservedInstancesExchangeQuoteRequest.t - type output = GetReservedInstancesExchangeQuoteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.ml b/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.ml index 33f2422d6..f4f7aae12 100644 --- a/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.ml +++ b/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTransitGatewayAttachmentPropagationsRequest.t - type output = GetTransitGatewayAttachmentPropagationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.mli b/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.mli index 124ae45c4..1fba4b903 100644 --- a/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.mli +++ b/libraries/ec2/lib/getTransitGatewayAttachmentPropagations.mli @@ -1,9 +1,7 @@ open Types type input = GetTransitGatewayAttachmentPropagationsRequest.t - type output = GetTransitGatewayAttachmentPropagationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.ml b/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.ml index bf657ab14..a29ca8a25 100644 --- a/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.ml +++ b/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTransitGatewayMulticastDomainAssociationsRequest.t - type output = GetTransitGatewayMulticastDomainAssociationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.mli b/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.mli index f86a9dc2e..2d1b7a9cf 100644 --- a/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.mli +++ b/libraries/ec2/lib/getTransitGatewayMulticastDomainAssociations.mli @@ -1,9 +1,7 @@ open Types type input = GetTransitGatewayMulticastDomainAssociationsRequest.t - type output = GetTransitGatewayMulticastDomainAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getTransitGatewayPrefixListReferences.ml b/libraries/ec2/lib/getTransitGatewayPrefixListReferences.ml index 23072a046..8545b6003 100644 --- a/libraries/ec2/lib/getTransitGatewayPrefixListReferences.ml +++ b/libraries/ec2/lib/getTransitGatewayPrefixListReferences.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTransitGatewayPrefixListReferencesRequest.t - type output = GetTransitGatewayPrefixListReferencesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getTransitGatewayPrefixListReferences.mli b/libraries/ec2/lib/getTransitGatewayPrefixListReferences.mli index 91bad6893..2bf79abf8 100644 --- a/libraries/ec2/lib/getTransitGatewayPrefixListReferences.mli +++ b/libraries/ec2/lib/getTransitGatewayPrefixListReferences.mli @@ -1,9 +1,7 @@ open Types type input = GetTransitGatewayPrefixListReferencesRequest.t - type output = GetTransitGatewayPrefixListReferencesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.ml b/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.ml index 8ff4bd964..bb55df8a6 100644 --- a/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.ml +++ b/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTransitGatewayRouteTableAssociationsRequest.t - type output = GetTransitGatewayRouteTableAssociationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.mli b/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.mli index a27836675..e01d81e00 100644 --- a/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.mli +++ b/libraries/ec2/lib/getTransitGatewayRouteTableAssociations.mli @@ -1,9 +1,7 @@ open Types type input = GetTransitGatewayRouteTableAssociationsRequest.t - type output = GetTransitGatewayRouteTableAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.ml b/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.ml index 8852238c1..a83b15828 100644 --- a/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.ml +++ b/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTransitGatewayRouteTablePropagationsRequest.t - type output = GetTransitGatewayRouteTablePropagationsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.mli b/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.mli index 6746469a1..11b675410 100644 --- a/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.mli +++ b/libraries/ec2/lib/getTransitGatewayRouteTablePropagations.mli @@ -1,9 +1,7 @@ open Types type input = GetTransitGatewayRouteTablePropagationsRequest.t - type output = GetTransitGatewayRouteTablePropagationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.ml b/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.ml index 252745606..9c8378833 100644 --- a/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.ml +++ b/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportClientVpnClientCertificateRevocationListRequest.t - type output = ImportClientVpnClientCertificateRevocationListResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.mli b/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.mli index b6460e20e..89be9f9d5 100644 --- a/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.mli +++ b/libraries/ec2/lib/importClientVpnClientCertificateRevocationList.mli @@ -1,9 +1,7 @@ open Types type input = ImportClientVpnClientCertificateRevocationListRequest.t - type output = ImportClientVpnClientCertificateRevocationListResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/importImage.ml b/libraries/ec2/lib/importImage.ml index 563a14063..95e2662c3 100644 --- a/libraries/ec2/lib/importImage.ml +++ b/libraries/ec2/lib/importImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportImageRequest.t - type output = ImportImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/importImage.mli b/libraries/ec2/lib/importImage.mli index 11dcc7973..1df86521b 100644 --- a/libraries/ec2/lib/importImage.mli +++ b/libraries/ec2/lib/importImage.mli @@ -1,9 +1,7 @@ open Types type input = ImportImageRequest.t - type output = ImportImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/importInstance.ml b/libraries/ec2/lib/importInstance.ml index d4e7e8b12..fc2335025 100644 --- a/libraries/ec2/lib/importInstance.ml +++ b/libraries/ec2/lib/importInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportInstanceRequest.t - type output = ImportInstanceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/importInstance.mli b/libraries/ec2/lib/importInstance.mli index 7691d3e3e..9f8097c64 100644 --- a/libraries/ec2/lib/importInstance.mli +++ b/libraries/ec2/lib/importInstance.mli @@ -1,9 +1,7 @@ open Types type input = ImportInstanceRequest.t - type output = ImportInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/importKeyPair.ml b/libraries/ec2/lib/importKeyPair.ml index 1a28b4b71..2139e33eb 100644 --- a/libraries/ec2/lib/importKeyPair.ml +++ b/libraries/ec2/lib/importKeyPair.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportKeyPairRequest.t - type output = ImportKeyPairResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/importKeyPair.mli b/libraries/ec2/lib/importKeyPair.mli index ae9e6603e..3937e16c4 100644 --- a/libraries/ec2/lib/importKeyPair.mli +++ b/libraries/ec2/lib/importKeyPair.mli @@ -1,9 +1,7 @@ open Types type input = ImportKeyPairRequest.t - type output = ImportKeyPairResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/importSnapshot.ml b/libraries/ec2/lib/importSnapshot.ml index 1db5d99c4..5f4f94aae 100644 --- a/libraries/ec2/lib/importSnapshot.ml +++ b/libraries/ec2/lib/importSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportSnapshotRequest.t - type output = ImportSnapshotResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/importSnapshot.mli b/libraries/ec2/lib/importSnapshot.mli index c3744a5dc..5d6736fd5 100644 --- a/libraries/ec2/lib/importSnapshot.mli +++ b/libraries/ec2/lib/importSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = ImportSnapshotRequest.t - type output = ImportSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/importVolume.ml b/libraries/ec2/lib/importVolume.ml index 52492fa1f..1dcde72d9 100644 --- a/libraries/ec2/lib/importVolume.ml +++ b/libraries/ec2/lib/importVolume.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportVolumeRequest.t - type output = ImportVolumeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/importVolume.mli b/libraries/ec2/lib/importVolume.mli index 728b2ce34..737e3403b 100644 --- a/libraries/ec2/lib/importVolume.mli +++ b/libraries/ec2/lib/importVolume.mli @@ -1,9 +1,7 @@ open Types type input = ImportVolumeRequest.t - type output = ImportVolumeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyAvailabilityZoneGroup.ml b/libraries/ec2/lib/modifyAvailabilityZoneGroup.ml index d4a10b8a6..802be266b 100644 --- a/libraries/ec2/lib/modifyAvailabilityZoneGroup.ml +++ b/libraries/ec2/lib/modifyAvailabilityZoneGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyAvailabilityZoneGroupRequest.t - type output = ModifyAvailabilityZoneGroupResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyAvailabilityZoneGroup.mli b/libraries/ec2/lib/modifyAvailabilityZoneGroup.mli index c55779edd..75ead85da 100644 --- a/libraries/ec2/lib/modifyAvailabilityZoneGroup.mli +++ b/libraries/ec2/lib/modifyAvailabilityZoneGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyAvailabilityZoneGroupRequest.t - type output = ModifyAvailabilityZoneGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyCapacityReservation.ml b/libraries/ec2/lib/modifyCapacityReservation.ml index 5a2f39a08..02117a7ba 100644 --- a/libraries/ec2/lib/modifyCapacityReservation.ml +++ b/libraries/ec2/lib/modifyCapacityReservation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyCapacityReservationRequest.t - type output = ModifyCapacityReservationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyCapacityReservation.mli b/libraries/ec2/lib/modifyCapacityReservation.mli index 120bd59d5..926d91e59 100644 --- a/libraries/ec2/lib/modifyCapacityReservation.mli +++ b/libraries/ec2/lib/modifyCapacityReservation.mli @@ -1,9 +1,7 @@ open Types type input = ModifyCapacityReservationRequest.t - type output = ModifyCapacityReservationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyClientVpnEndpoint.ml b/libraries/ec2/lib/modifyClientVpnEndpoint.ml index 830b25f78..a34a14692 100644 --- a/libraries/ec2/lib/modifyClientVpnEndpoint.ml +++ b/libraries/ec2/lib/modifyClientVpnEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyClientVpnEndpointRequest.t - type output = ModifyClientVpnEndpointResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyClientVpnEndpoint.mli b/libraries/ec2/lib/modifyClientVpnEndpoint.mli index 63f5026b4..cff350164 100644 --- a/libraries/ec2/lib/modifyClientVpnEndpoint.mli +++ b/libraries/ec2/lib/modifyClientVpnEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = ModifyClientVpnEndpointRequest.t - type output = ModifyClientVpnEndpointResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyDefaultCreditSpecification.ml b/libraries/ec2/lib/modifyDefaultCreditSpecification.ml index 528fe837a..c55169ec9 100644 --- a/libraries/ec2/lib/modifyDefaultCreditSpecification.ml +++ b/libraries/ec2/lib/modifyDefaultCreditSpecification.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDefaultCreditSpecificationRequest.t - type output = ModifyDefaultCreditSpecificationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyDefaultCreditSpecification.mli b/libraries/ec2/lib/modifyDefaultCreditSpecification.mli index 16d1008a9..37633993b 100644 --- a/libraries/ec2/lib/modifyDefaultCreditSpecification.mli +++ b/libraries/ec2/lib/modifyDefaultCreditSpecification.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDefaultCreditSpecificationRequest.t - type output = ModifyDefaultCreditSpecificationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.ml b/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.ml index 01e03cb86..3bb06e1fa 100644 --- a/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.ml +++ b/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyEbsDefaultKmsKeyIdRequest.t - type output = ModifyEbsDefaultKmsKeyIdResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.mli b/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.mli index 5f0d8c00d..198fe9bdc 100644 --- a/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.mli +++ b/libraries/ec2/lib/modifyEbsDefaultKmsKeyId.mli @@ -1,9 +1,7 @@ open Types type input = ModifyEbsDefaultKmsKeyIdRequest.t - type output = ModifyEbsDefaultKmsKeyIdResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyFleet.ml b/libraries/ec2/lib/modifyFleet.ml index aa6c005fb..c81d23711 100644 --- a/libraries/ec2/lib/modifyFleet.ml +++ b/libraries/ec2/lib/modifyFleet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyFleetRequest.t - type output = ModifyFleetResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyFleet.mli b/libraries/ec2/lib/modifyFleet.mli index 0c16092ae..ba5760f1b 100644 --- a/libraries/ec2/lib/modifyFleet.mli +++ b/libraries/ec2/lib/modifyFleet.mli @@ -1,9 +1,7 @@ open Types type input = ModifyFleetRequest.t - type output = ModifyFleetResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyFpgaImageAttribute.ml b/libraries/ec2/lib/modifyFpgaImageAttribute.ml index 91aeee54f..c4423cbad 100644 --- a/libraries/ec2/lib/modifyFpgaImageAttribute.ml +++ b/libraries/ec2/lib/modifyFpgaImageAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyFpgaImageAttributeRequest.t - type output = ModifyFpgaImageAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyFpgaImageAttribute.mli b/libraries/ec2/lib/modifyFpgaImageAttribute.mli index 89179672b..5c017f604 100644 --- a/libraries/ec2/lib/modifyFpgaImageAttribute.mli +++ b/libraries/ec2/lib/modifyFpgaImageAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyFpgaImageAttributeRequest.t - type output = ModifyFpgaImageAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyHosts.ml b/libraries/ec2/lib/modifyHosts.ml index 1f5e2ec2c..26ff32e3c 100644 --- a/libraries/ec2/lib/modifyHosts.ml +++ b/libraries/ec2/lib/modifyHosts.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyHostsRequest.t - type output = ModifyHostsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyHosts.mli b/libraries/ec2/lib/modifyHosts.mli index df647fd79..d1051d1ac 100644 --- a/libraries/ec2/lib/modifyHosts.mli +++ b/libraries/ec2/lib/modifyHosts.mli @@ -1,9 +1,7 @@ open Types type input = ModifyHostsRequest.t - type output = ModifyHostsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyIdFormat.ml b/libraries/ec2/lib/modifyIdFormat.ml index 013110f54..5ed51d1ba 100644 --- a/libraries/ec2/lib/modifyIdFormat.ml +++ b/libraries/ec2/lib/modifyIdFormat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyIdFormatRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyIdFormat.mli b/libraries/ec2/lib/modifyIdFormat.mli index 9b9846f4b..4315e4138 100644 --- a/libraries/ec2/lib/modifyIdFormat.mli +++ b/libraries/ec2/lib/modifyIdFormat.mli @@ -1,9 +1,7 @@ open Types type input = ModifyIdFormatRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyIdentityIdFormat.ml b/libraries/ec2/lib/modifyIdentityIdFormat.ml index 3556f0736..252d69ae1 100644 --- a/libraries/ec2/lib/modifyIdentityIdFormat.ml +++ b/libraries/ec2/lib/modifyIdentityIdFormat.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyIdentityIdFormatRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyIdentityIdFormat.mli b/libraries/ec2/lib/modifyIdentityIdFormat.mli index 72eeac6b4..6b6e7a9c6 100644 --- a/libraries/ec2/lib/modifyIdentityIdFormat.mli +++ b/libraries/ec2/lib/modifyIdentityIdFormat.mli @@ -1,9 +1,7 @@ open Types type input = ModifyIdentityIdFormatRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyImageAttribute.ml b/libraries/ec2/lib/modifyImageAttribute.ml index a87db1908..cbdb27e94 100644 --- a/libraries/ec2/lib/modifyImageAttribute.ml +++ b/libraries/ec2/lib/modifyImageAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyImageAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyImageAttribute.mli b/libraries/ec2/lib/modifyImageAttribute.mli index 4e169469d..23f0fe5e3 100644 --- a/libraries/ec2/lib/modifyImageAttribute.mli +++ b/libraries/ec2/lib/modifyImageAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyImageAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyInstanceAttribute.ml b/libraries/ec2/lib/modifyInstanceAttribute.ml index 359935752..963adce5b 100644 --- a/libraries/ec2/lib/modifyInstanceAttribute.ml +++ b/libraries/ec2/lib/modifyInstanceAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyInstanceAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyInstanceAttribute.mli b/libraries/ec2/lib/modifyInstanceAttribute.mli index f39b22c6d..114a05b32 100644 --- a/libraries/ec2/lib/modifyInstanceAttribute.mli +++ b/libraries/ec2/lib/modifyInstanceAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyInstanceAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.ml b/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.ml index 2d9630c1f..9b426dd83 100644 --- a/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.ml +++ b/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyInstanceCapacityReservationAttributesRequest.t - type output = ModifyInstanceCapacityReservationAttributesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.mli b/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.mli index cdadb55ee..45c98641a 100644 --- a/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.mli +++ b/libraries/ec2/lib/modifyInstanceCapacityReservationAttributes.mli @@ -1,9 +1,7 @@ open Types type input = ModifyInstanceCapacityReservationAttributesRequest.t - type output = ModifyInstanceCapacityReservationAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyInstanceCreditSpecification.ml b/libraries/ec2/lib/modifyInstanceCreditSpecification.ml index 3efa9a5cd..7e61b9c8b 100644 --- a/libraries/ec2/lib/modifyInstanceCreditSpecification.ml +++ b/libraries/ec2/lib/modifyInstanceCreditSpecification.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyInstanceCreditSpecificationRequest.t - type output = ModifyInstanceCreditSpecificationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyInstanceCreditSpecification.mli b/libraries/ec2/lib/modifyInstanceCreditSpecification.mli index c63b909f0..0105f1f8c 100644 --- a/libraries/ec2/lib/modifyInstanceCreditSpecification.mli +++ b/libraries/ec2/lib/modifyInstanceCreditSpecification.mli @@ -1,9 +1,7 @@ open Types type input = ModifyInstanceCreditSpecificationRequest.t - type output = ModifyInstanceCreditSpecificationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyInstanceEventStartTime.ml b/libraries/ec2/lib/modifyInstanceEventStartTime.ml index e59867952..a4c9ac97e 100644 --- a/libraries/ec2/lib/modifyInstanceEventStartTime.ml +++ b/libraries/ec2/lib/modifyInstanceEventStartTime.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyInstanceEventStartTimeRequest.t - type output = ModifyInstanceEventStartTimeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyInstanceEventStartTime.mli b/libraries/ec2/lib/modifyInstanceEventStartTime.mli index c70855a6c..c2fe7bf10 100644 --- a/libraries/ec2/lib/modifyInstanceEventStartTime.mli +++ b/libraries/ec2/lib/modifyInstanceEventStartTime.mli @@ -1,9 +1,7 @@ open Types type input = ModifyInstanceEventStartTimeRequest.t - type output = ModifyInstanceEventStartTimeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyInstanceMetadataOptions.ml b/libraries/ec2/lib/modifyInstanceMetadataOptions.ml index 1e6562b5d..f02f6862a 100644 --- a/libraries/ec2/lib/modifyInstanceMetadataOptions.ml +++ b/libraries/ec2/lib/modifyInstanceMetadataOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyInstanceMetadataOptionsRequest.t - type output = ModifyInstanceMetadataOptionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyInstanceMetadataOptions.mli b/libraries/ec2/lib/modifyInstanceMetadataOptions.mli index 78c8637fb..2a20184f1 100644 --- a/libraries/ec2/lib/modifyInstanceMetadataOptions.mli +++ b/libraries/ec2/lib/modifyInstanceMetadataOptions.mli @@ -1,9 +1,7 @@ open Types type input = ModifyInstanceMetadataOptionsRequest.t - type output = ModifyInstanceMetadataOptionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyInstancePlacement.ml b/libraries/ec2/lib/modifyInstancePlacement.ml index 7badb18ce..d60a08d87 100644 --- a/libraries/ec2/lib/modifyInstancePlacement.ml +++ b/libraries/ec2/lib/modifyInstancePlacement.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyInstancePlacementRequest.t - type output = ModifyInstancePlacementResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyInstancePlacement.mli b/libraries/ec2/lib/modifyInstancePlacement.mli index c6555c428..94bee1d73 100644 --- a/libraries/ec2/lib/modifyInstancePlacement.mli +++ b/libraries/ec2/lib/modifyInstancePlacement.mli @@ -1,9 +1,7 @@ open Types type input = ModifyInstancePlacementRequest.t - type output = ModifyInstancePlacementResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyLaunchTemplate.ml b/libraries/ec2/lib/modifyLaunchTemplate.ml index c71f6928d..bbb861a33 100644 --- a/libraries/ec2/lib/modifyLaunchTemplate.ml +++ b/libraries/ec2/lib/modifyLaunchTemplate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyLaunchTemplateRequest.t - type output = ModifyLaunchTemplateResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyLaunchTemplate.mli b/libraries/ec2/lib/modifyLaunchTemplate.mli index 960264773..e5cf56ca9 100644 --- a/libraries/ec2/lib/modifyLaunchTemplate.mli +++ b/libraries/ec2/lib/modifyLaunchTemplate.mli @@ -1,9 +1,7 @@ open Types type input = ModifyLaunchTemplateRequest.t - type output = ModifyLaunchTemplateResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyManagedPrefixList.ml b/libraries/ec2/lib/modifyManagedPrefixList.ml index 077b81fd4..bf06bdbb1 100644 --- a/libraries/ec2/lib/modifyManagedPrefixList.ml +++ b/libraries/ec2/lib/modifyManagedPrefixList.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyManagedPrefixListRequest.t - type output = ModifyManagedPrefixListResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyManagedPrefixList.mli b/libraries/ec2/lib/modifyManagedPrefixList.mli index 59cabe7bc..0d2be52a3 100644 --- a/libraries/ec2/lib/modifyManagedPrefixList.mli +++ b/libraries/ec2/lib/modifyManagedPrefixList.mli @@ -1,9 +1,7 @@ open Types type input = ModifyManagedPrefixListRequest.t - type output = ModifyManagedPrefixListResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyNetworkInterfaceAttribute.ml b/libraries/ec2/lib/modifyNetworkInterfaceAttribute.ml index 79b67d1ab..a16bbb68f 100644 --- a/libraries/ec2/lib/modifyNetworkInterfaceAttribute.ml +++ b/libraries/ec2/lib/modifyNetworkInterfaceAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyNetworkInterfaceAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyNetworkInterfaceAttribute.mli b/libraries/ec2/lib/modifyNetworkInterfaceAttribute.mli index 533c2776b..67fb1329c 100644 --- a/libraries/ec2/lib/modifyNetworkInterfaceAttribute.mli +++ b/libraries/ec2/lib/modifyNetworkInterfaceAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyNetworkInterfaceAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyReservedInstances.ml b/libraries/ec2/lib/modifyReservedInstances.ml index 2697d3bac..8130c71e4 100644 --- a/libraries/ec2/lib/modifyReservedInstances.ml +++ b/libraries/ec2/lib/modifyReservedInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyReservedInstancesRequest.t - type output = ModifyReservedInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyReservedInstances.mli b/libraries/ec2/lib/modifyReservedInstances.mli index 4616b39e0..20d442792 100644 --- a/libraries/ec2/lib/modifyReservedInstances.mli +++ b/libraries/ec2/lib/modifyReservedInstances.mli @@ -1,9 +1,7 @@ open Types type input = ModifyReservedInstancesRequest.t - type output = ModifyReservedInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifySnapshotAttribute.ml b/libraries/ec2/lib/modifySnapshotAttribute.ml index 123b46d64..97e2d80ee 100644 --- a/libraries/ec2/lib/modifySnapshotAttribute.ml +++ b/libraries/ec2/lib/modifySnapshotAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifySnapshotAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifySnapshotAttribute.mli b/libraries/ec2/lib/modifySnapshotAttribute.mli index 6fc1edf24..8fb03aca3 100644 --- a/libraries/ec2/lib/modifySnapshotAttribute.mli +++ b/libraries/ec2/lib/modifySnapshotAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifySnapshotAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifySpotFleetRequest.ml b/libraries/ec2/lib/modifySpotFleetRequest.ml index 1bbc4c620..df524b038 100644 --- a/libraries/ec2/lib/modifySpotFleetRequest.ml +++ b/libraries/ec2/lib/modifySpotFleetRequest.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifySpotFleetRequestRequest.t - type output = ModifySpotFleetRequestResponse.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifySpotFleetRequest.mli b/libraries/ec2/lib/modifySpotFleetRequest.mli index ba93e496b..4c2cea5bd 100644 --- a/libraries/ec2/lib/modifySpotFleetRequest.mli +++ b/libraries/ec2/lib/modifySpotFleetRequest.mli @@ -1,9 +1,7 @@ open Types type input = ModifySpotFleetRequestRequest.t - type output = ModifySpotFleetRequestResponse.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifySubnetAttribute.ml b/libraries/ec2/lib/modifySubnetAttribute.ml index a47397bb2..30eb9d0a7 100644 --- a/libraries/ec2/lib/modifySubnetAttribute.ml +++ b/libraries/ec2/lib/modifySubnetAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifySubnetAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifySubnetAttribute.mli b/libraries/ec2/lib/modifySubnetAttribute.mli index e2d05fd96..22395418f 100644 --- a/libraries/ec2/lib/modifySubnetAttribute.mli +++ b/libraries/ec2/lib/modifySubnetAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifySubnetAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.ml b/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.ml index cc7cb4055..a767e7b92 100644 --- a/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.ml +++ b/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyTrafficMirrorFilterNetworkServicesRequest.t - type output = ModifyTrafficMirrorFilterNetworkServicesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.mli b/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.mli index 5e579fe1b..984deec7b 100644 --- a/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.mli +++ b/libraries/ec2/lib/modifyTrafficMirrorFilterNetworkServices.mli @@ -1,9 +1,7 @@ open Types type input = ModifyTrafficMirrorFilterNetworkServicesRequest.t - type output = ModifyTrafficMirrorFilterNetworkServicesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyTrafficMirrorFilterRule.ml b/libraries/ec2/lib/modifyTrafficMirrorFilterRule.ml index fbcc12513..26cb6f05d 100644 --- a/libraries/ec2/lib/modifyTrafficMirrorFilterRule.ml +++ b/libraries/ec2/lib/modifyTrafficMirrorFilterRule.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyTrafficMirrorFilterRuleRequest.t - type output = ModifyTrafficMirrorFilterRuleResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyTrafficMirrorFilterRule.mli b/libraries/ec2/lib/modifyTrafficMirrorFilterRule.mli index 81d008678..8446a53ff 100644 --- a/libraries/ec2/lib/modifyTrafficMirrorFilterRule.mli +++ b/libraries/ec2/lib/modifyTrafficMirrorFilterRule.mli @@ -1,9 +1,7 @@ open Types type input = ModifyTrafficMirrorFilterRuleRequest.t - type output = ModifyTrafficMirrorFilterRuleResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyTrafficMirrorSession.ml b/libraries/ec2/lib/modifyTrafficMirrorSession.ml index ff12be316..d9666faba 100644 --- a/libraries/ec2/lib/modifyTrafficMirrorSession.ml +++ b/libraries/ec2/lib/modifyTrafficMirrorSession.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyTrafficMirrorSessionRequest.t - type output = ModifyTrafficMirrorSessionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyTrafficMirrorSession.mli b/libraries/ec2/lib/modifyTrafficMirrorSession.mli index 09d1336ea..d9f0ce5d5 100644 --- a/libraries/ec2/lib/modifyTrafficMirrorSession.mli +++ b/libraries/ec2/lib/modifyTrafficMirrorSession.mli @@ -1,9 +1,7 @@ open Types type input = ModifyTrafficMirrorSessionRequest.t - type output = ModifyTrafficMirrorSessionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyTransitGateway.ml b/libraries/ec2/lib/modifyTransitGateway.ml index 956823243..9993b7218 100644 --- a/libraries/ec2/lib/modifyTransitGateway.ml +++ b/libraries/ec2/lib/modifyTransitGateway.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyTransitGatewayRequest.t - type output = ModifyTransitGatewayResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyTransitGateway.mli b/libraries/ec2/lib/modifyTransitGateway.mli index 5d84cfa00..c1fb5e84a 100644 --- a/libraries/ec2/lib/modifyTransitGateway.mli +++ b/libraries/ec2/lib/modifyTransitGateway.mli @@ -1,9 +1,7 @@ open Types type input = ModifyTransitGatewayRequest.t - type output = ModifyTransitGatewayResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.ml b/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.ml index 71c9e05a5..2a6ea160a 100644 --- a/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.ml +++ b/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyTransitGatewayPrefixListReferenceRequest.t - type output = ModifyTransitGatewayPrefixListReferenceResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.mli b/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.mli index 7af891c61..ab9809241 100644 --- a/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.mli +++ b/libraries/ec2/lib/modifyTransitGatewayPrefixListReference.mli @@ -1,9 +1,7 @@ open Types type input = ModifyTransitGatewayPrefixListReferenceRequest.t - type output = ModifyTransitGatewayPrefixListReferenceResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.ml b/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.ml index 81e6f13d1..3326f97a3 100644 --- a/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.ml +++ b/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyTransitGatewayVpcAttachmentRequest.t - type output = ModifyTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.mli b/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.mli index 830eaaba9..aa7a828ab 100644 --- a/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.mli +++ b/libraries/ec2/lib/modifyTransitGatewayVpcAttachment.mli @@ -1,9 +1,7 @@ open Types type input = ModifyTransitGatewayVpcAttachmentRequest.t - type output = ModifyTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVolume.ml b/libraries/ec2/lib/modifyVolume.ml index 5c9e9ba58..65eec4373 100644 --- a/libraries/ec2/lib/modifyVolume.ml +++ b/libraries/ec2/lib/modifyVolume.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVolumeRequest.t - type output = ModifyVolumeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVolume.mli b/libraries/ec2/lib/modifyVolume.mli index 1e138b9e7..76cf6c731 100644 --- a/libraries/ec2/lib/modifyVolume.mli +++ b/libraries/ec2/lib/modifyVolume.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVolumeRequest.t - type output = ModifyVolumeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVolumeAttribute.ml b/libraries/ec2/lib/modifyVolumeAttribute.ml index f8b26d9d0..0040907ef 100644 --- a/libraries/ec2/lib/modifyVolumeAttribute.ml +++ b/libraries/ec2/lib/modifyVolumeAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVolumeAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVolumeAttribute.mli b/libraries/ec2/lib/modifyVolumeAttribute.mli index 9dc804ca0..beaba216f 100644 --- a/libraries/ec2/lib/modifyVolumeAttribute.mli +++ b/libraries/ec2/lib/modifyVolumeAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVolumeAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcAttribute.ml b/libraries/ec2/lib/modifyVpcAttribute.ml index bf8a31907..0220d4d5c 100644 --- a/libraries/ec2/lib/modifyVpcAttribute.ml +++ b/libraries/ec2/lib/modifyVpcAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcAttribute.mli b/libraries/ec2/lib/modifyVpcAttribute.mli index 35daeca21..1384351f4 100644 --- a/libraries/ec2/lib/modifyVpcAttribute.mli +++ b/libraries/ec2/lib/modifyVpcAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcEndpoint.ml b/libraries/ec2/lib/modifyVpcEndpoint.ml index 2a81a59ed..b9ab75b73 100644 --- a/libraries/ec2/lib/modifyVpcEndpoint.ml +++ b/libraries/ec2/lib/modifyVpcEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcEndpointRequest.t - type output = ModifyVpcEndpointResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcEndpoint.mli b/libraries/ec2/lib/modifyVpcEndpoint.mli index 855463b62..4a8d87357 100644 --- a/libraries/ec2/lib/modifyVpcEndpoint.mli +++ b/libraries/ec2/lib/modifyVpcEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcEndpointRequest.t - type output = ModifyVpcEndpointResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.ml b/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.ml index 0872ddee6..a13d640c6 100644 --- a/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.ml +++ b/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcEndpointConnectionNotificationRequest.t - type output = ModifyVpcEndpointConnectionNotificationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.mli b/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.mli index 389069479..c32622b8b 100644 --- a/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.mli +++ b/libraries/ec2/lib/modifyVpcEndpointConnectionNotification.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcEndpointConnectionNotificationRequest.t - type output = ModifyVpcEndpointConnectionNotificationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.ml b/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.ml index 60b47a74a..35c0d5dc8 100644 --- a/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.ml +++ b/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcEndpointServiceConfigurationRequest.t - type output = ModifyVpcEndpointServiceConfigurationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.mli b/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.mli index c99d89cda..256e14a6d 100644 --- a/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.mli +++ b/libraries/ec2/lib/modifyVpcEndpointServiceConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcEndpointServiceConfigurationRequest.t - type output = ModifyVpcEndpointServiceConfigurationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcEndpointServicePermissions.ml b/libraries/ec2/lib/modifyVpcEndpointServicePermissions.ml index 12bc249ee..c220f9cb1 100644 --- a/libraries/ec2/lib/modifyVpcEndpointServicePermissions.ml +++ b/libraries/ec2/lib/modifyVpcEndpointServicePermissions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcEndpointServicePermissionsRequest.t - type output = ModifyVpcEndpointServicePermissionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcEndpointServicePermissions.mli b/libraries/ec2/lib/modifyVpcEndpointServicePermissions.mli index 47268862d..47fece518 100644 --- a/libraries/ec2/lib/modifyVpcEndpointServicePermissions.mli +++ b/libraries/ec2/lib/modifyVpcEndpointServicePermissions.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcEndpointServicePermissionsRequest.t - type output = ModifyVpcEndpointServicePermissionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.ml b/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.ml index c3a6aaad8..ea45ac3a8 100644 --- a/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.ml +++ b/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcPeeringConnectionOptionsRequest.t - type output = ModifyVpcPeeringConnectionOptionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.mli b/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.mli index 420bddf0a..22830b486 100644 --- a/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.mli +++ b/libraries/ec2/lib/modifyVpcPeeringConnectionOptions.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcPeeringConnectionOptionsRequest.t - type output = ModifyVpcPeeringConnectionOptionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpcTenancy.ml b/libraries/ec2/lib/modifyVpcTenancy.ml index fca2cd4d8..89daa1201 100644 --- a/libraries/ec2/lib/modifyVpcTenancy.ml +++ b/libraries/ec2/lib/modifyVpcTenancy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpcTenancyRequest.t - type output = ModifyVpcTenancyResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpcTenancy.mli b/libraries/ec2/lib/modifyVpcTenancy.mli index fddac5e6a..3b14eaa15 100644 --- a/libraries/ec2/lib/modifyVpcTenancy.mli +++ b/libraries/ec2/lib/modifyVpcTenancy.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpcTenancyRequest.t - type output = ModifyVpcTenancyResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpnConnection.ml b/libraries/ec2/lib/modifyVpnConnection.ml index 10b1204f6..834e28fec 100644 --- a/libraries/ec2/lib/modifyVpnConnection.ml +++ b/libraries/ec2/lib/modifyVpnConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpnConnectionRequest.t - type output = ModifyVpnConnectionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpnConnection.mli b/libraries/ec2/lib/modifyVpnConnection.mli index b00c89f54..c992d077b 100644 --- a/libraries/ec2/lib/modifyVpnConnection.mli +++ b/libraries/ec2/lib/modifyVpnConnection.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpnConnectionRequest.t - type output = ModifyVpnConnectionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpnConnectionOptions.ml b/libraries/ec2/lib/modifyVpnConnectionOptions.ml index 111a3309a..fd7475de5 100644 --- a/libraries/ec2/lib/modifyVpnConnectionOptions.ml +++ b/libraries/ec2/lib/modifyVpnConnectionOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpnConnectionOptionsRequest.t - type output = ModifyVpnConnectionOptionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpnConnectionOptions.mli b/libraries/ec2/lib/modifyVpnConnectionOptions.mli index fd8624eea..5e2635d9e 100644 --- a/libraries/ec2/lib/modifyVpnConnectionOptions.mli +++ b/libraries/ec2/lib/modifyVpnConnectionOptions.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpnConnectionOptionsRequest.t - type output = ModifyVpnConnectionOptionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpnTunnelCertificate.ml b/libraries/ec2/lib/modifyVpnTunnelCertificate.ml index f6250710b..0c99c7f7e 100644 --- a/libraries/ec2/lib/modifyVpnTunnelCertificate.ml +++ b/libraries/ec2/lib/modifyVpnTunnelCertificate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpnTunnelCertificateRequest.t - type output = ModifyVpnTunnelCertificateResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpnTunnelCertificate.mli b/libraries/ec2/lib/modifyVpnTunnelCertificate.mli index 7511ee931..3d1f1eacf 100644 --- a/libraries/ec2/lib/modifyVpnTunnelCertificate.mli +++ b/libraries/ec2/lib/modifyVpnTunnelCertificate.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpnTunnelCertificateRequest.t - type output = ModifyVpnTunnelCertificateResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/modifyVpnTunnelOptions.ml b/libraries/ec2/lib/modifyVpnTunnelOptions.ml index 0b4dba5dc..656e8d63f 100644 --- a/libraries/ec2/lib/modifyVpnTunnelOptions.ml +++ b/libraries/ec2/lib/modifyVpnTunnelOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyVpnTunnelOptionsRequest.t - type output = ModifyVpnTunnelOptionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/modifyVpnTunnelOptions.mli b/libraries/ec2/lib/modifyVpnTunnelOptions.mli index 5f73aaace..7a9de74dc 100644 --- a/libraries/ec2/lib/modifyVpnTunnelOptions.mli +++ b/libraries/ec2/lib/modifyVpnTunnelOptions.mli @@ -1,9 +1,7 @@ open Types type input = ModifyVpnTunnelOptionsRequest.t - type output = ModifyVpnTunnelOptionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/monitorInstances.ml b/libraries/ec2/lib/monitorInstances.ml index 608e4b0d4..033003ccb 100644 --- a/libraries/ec2/lib/monitorInstances.ml +++ b/libraries/ec2/lib/monitorInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = MonitorInstancesRequest.t - type output = MonitorInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/monitorInstances.mli b/libraries/ec2/lib/monitorInstances.mli index 3a7848d9f..38f0cf2e5 100644 --- a/libraries/ec2/lib/monitorInstances.mli +++ b/libraries/ec2/lib/monitorInstances.mli @@ -1,9 +1,7 @@ open Types type input = MonitorInstancesRequest.t - type output = MonitorInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/moveAddressToVpc.ml b/libraries/ec2/lib/moveAddressToVpc.ml index b54111180..9e26f8a70 100644 --- a/libraries/ec2/lib/moveAddressToVpc.ml +++ b/libraries/ec2/lib/moveAddressToVpc.ml @@ -2,13 +2,10 @@ open Types open Aws type input = MoveAddressToVpcRequest.t - type output = MoveAddressToVpcResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/moveAddressToVpc.mli b/libraries/ec2/lib/moveAddressToVpc.mli index 1335fa510..c6b7eebfc 100644 --- a/libraries/ec2/lib/moveAddressToVpc.mli +++ b/libraries/ec2/lib/moveAddressToVpc.mli @@ -1,9 +1,7 @@ open Types type input = MoveAddressToVpcRequest.t - type output = MoveAddressToVpcResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/provisionByoipCidr.ml b/libraries/ec2/lib/provisionByoipCidr.ml index f257c3ecb..4eb7311a9 100644 --- a/libraries/ec2/lib/provisionByoipCidr.ml +++ b/libraries/ec2/lib/provisionByoipCidr.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ProvisionByoipCidrRequest.t - type output = ProvisionByoipCidrResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/provisionByoipCidr.mli b/libraries/ec2/lib/provisionByoipCidr.mli index efb5beb8e..70a8e6297 100644 --- a/libraries/ec2/lib/provisionByoipCidr.mli +++ b/libraries/ec2/lib/provisionByoipCidr.mli @@ -1,9 +1,7 @@ open Types type input = ProvisionByoipCidrRequest.t - type output = ProvisionByoipCidrResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/purchaseHostReservation.ml b/libraries/ec2/lib/purchaseHostReservation.ml index e69f35090..2c8ec92c2 100644 --- a/libraries/ec2/lib/purchaseHostReservation.ml +++ b/libraries/ec2/lib/purchaseHostReservation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PurchaseHostReservationRequest.t - type output = PurchaseHostReservationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/purchaseHostReservation.mli b/libraries/ec2/lib/purchaseHostReservation.mli index 120bc9d68..be4c4657c 100644 --- a/libraries/ec2/lib/purchaseHostReservation.mli +++ b/libraries/ec2/lib/purchaseHostReservation.mli @@ -1,9 +1,7 @@ open Types type input = PurchaseHostReservationRequest.t - type output = PurchaseHostReservationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/purchaseReservedInstancesOffering.ml b/libraries/ec2/lib/purchaseReservedInstancesOffering.ml index 47469e426..5adc1328e 100644 --- a/libraries/ec2/lib/purchaseReservedInstancesOffering.ml +++ b/libraries/ec2/lib/purchaseReservedInstancesOffering.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PurchaseReservedInstancesOfferingRequest.t - type output = PurchaseReservedInstancesOfferingResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/purchaseReservedInstancesOffering.mli b/libraries/ec2/lib/purchaseReservedInstancesOffering.mli index cf55d40cf..6282715b6 100644 --- a/libraries/ec2/lib/purchaseReservedInstancesOffering.mli +++ b/libraries/ec2/lib/purchaseReservedInstancesOffering.mli @@ -1,9 +1,7 @@ open Types type input = PurchaseReservedInstancesOfferingRequest.t - type output = PurchaseReservedInstancesOfferingResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/purchaseScheduledInstances.ml b/libraries/ec2/lib/purchaseScheduledInstances.ml index 8115299de..58518815f 100644 --- a/libraries/ec2/lib/purchaseScheduledInstances.ml +++ b/libraries/ec2/lib/purchaseScheduledInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PurchaseScheduledInstancesRequest.t - type output = PurchaseScheduledInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/purchaseScheduledInstances.mli b/libraries/ec2/lib/purchaseScheduledInstances.mli index eca7e07e9..c2e75279d 100644 --- a/libraries/ec2/lib/purchaseScheduledInstances.mli +++ b/libraries/ec2/lib/purchaseScheduledInstances.mli @@ -1,9 +1,7 @@ open Types type input = PurchaseScheduledInstancesRequest.t - type output = PurchaseScheduledInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/rebootInstances.ml b/libraries/ec2/lib/rebootInstances.ml index 8207a6033..5eee7201c 100644 --- a/libraries/ec2/lib/rebootInstances.ml +++ b/libraries/ec2/lib/rebootInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RebootInstancesRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/rebootInstances.mli b/libraries/ec2/lib/rebootInstances.mli index c8e4585f8..ec87a8b34 100644 --- a/libraries/ec2/lib/rebootInstances.mli +++ b/libraries/ec2/lib/rebootInstances.mli @@ -1,9 +1,7 @@ open Types type input = RebootInstancesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/registerImage.ml b/libraries/ec2/lib/registerImage.ml index 7a51bbbf9..7b235c553 100644 --- a/libraries/ec2/lib/registerImage.ml +++ b/libraries/ec2/lib/registerImage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterImageRequest.t - type output = RegisterImageResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/registerImage.mli b/libraries/ec2/lib/registerImage.mli index b74e1deee..9fe012454 100644 --- a/libraries/ec2/lib/registerImage.mli +++ b/libraries/ec2/lib/registerImage.mli @@ -1,9 +1,7 @@ open Types type input = RegisterImageRequest.t - type output = RegisterImageResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/registerInstanceEventNotificationAttributes.ml b/libraries/ec2/lib/registerInstanceEventNotificationAttributes.ml index 4b489d53b..e968d6567 100644 --- a/libraries/ec2/lib/registerInstanceEventNotificationAttributes.ml +++ b/libraries/ec2/lib/registerInstanceEventNotificationAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterInstanceEventNotificationAttributesRequest.t - type output = RegisterInstanceEventNotificationAttributesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/registerInstanceEventNotificationAttributes.mli b/libraries/ec2/lib/registerInstanceEventNotificationAttributes.mli index 256b86e04..69a7343ae 100644 --- a/libraries/ec2/lib/registerInstanceEventNotificationAttributes.mli +++ b/libraries/ec2/lib/registerInstanceEventNotificationAttributes.mli @@ -1,9 +1,7 @@ open Types type input = RegisterInstanceEventNotificationAttributesRequest.t - type output = RegisterInstanceEventNotificationAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.ml b/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.ml index f41334ff0..87fefb8e2 100644 --- a/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.ml +++ b/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterTransitGatewayMulticastGroupMembersRequest.t - type output = RegisterTransitGatewayMulticastGroupMembersResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.mli b/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.mli index 842613c35..c4562f7b9 100644 --- a/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.mli +++ b/libraries/ec2/lib/registerTransitGatewayMulticastGroupMembers.mli @@ -1,9 +1,7 @@ open Types type input = RegisterTransitGatewayMulticastGroupMembersRequest.t - type output = RegisterTransitGatewayMulticastGroupMembersResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.ml b/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.ml index 191f4455a..1702017db 100644 --- a/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.ml +++ b/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterTransitGatewayMulticastGroupSourcesRequest.t - type output = RegisterTransitGatewayMulticastGroupSourcesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.mli b/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.mli index 483960583..0fac21723 100644 --- a/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.mli +++ b/libraries/ec2/lib/registerTransitGatewayMulticastGroupSources.mli @@ -1,9 +1,7 @@ open Types type input = RegisterTransitGatewayMulticastGroupSourcesRequest.t - type output = RegisterTransitGatewayMulticastGroupSourcesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.ml b/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.ml index 894da428b..7cb09cec2 100644 --- a/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.ml +++ b/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RejectTransitGatewayPeeringAttachmentRequest.t - type output = RejectTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.mli b/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.mli index 65d4d06ba..68eda24d4 100644 --- a/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.mli +++ b/libraries/ec2/lib/rejectTransitGatewayPeeringAttachment.mli @@ -1,9 +1,7 @@ open Types type input = RejectTransitGatewayPeeringAttachmentRequest.t - type output = RejectTransitGatewayPeeringAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.ml b/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.ml index b4a2df25d..69eefd1b3 100644 --- a/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.ml +++ b/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RejectTransitGatewayVpcAttachmentRequest.t - type output = RejectTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.mli b/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.mli index d770d273e..86d312ef1 100644 --- a/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.mli +++ b/libraries/ec2/lib/rejectTransitGatewayVpcAttachment.mli @@ -1,9 +1,7 @@ open Types type input = RejectTransitGatewayVpcAttachmentRequest.t - type output = RejectTransitGatewayVpcAttachmentResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/rejectVpcEndpointConnections.ml b/libraries/ec2/lib/rejectVpcEndpointConnections.ml index ece1c5625..26254cb68 100644 --- a/libraries/ec2/lib/rejectVpcEndpointConnections.ml +++ b/libraries/ec2/lib/rejectVpcEndpointConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RejectVpcEndpointConnectionsRequest.t - type output = RejectVpcEndpointConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/rejectVpcEndpointConnections.mli b/libraries/ec2/lib/rejectVpcEndpointConnections.mli index 804e0f6cc..2c26e8d1d 100644 --- a/libraries/ec2/lib/rejectVpcEndpointConnections.mli +++ b/libraries/ec2/lib/rejectVpcEndpointConnections.mli @@ -1,9 +1,7 @@ open Types type input = RejectVpcEndpointConnectionsRequest.t - type output = RejectVpcEndpointConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/rejectVpcPeeringConnection.ml b/libraries/ec2/lib/rejectVpcPeeringConnection.ml index 8b1bac20a..fccba586c 100644 --- a/libraries/ec2/lib/rejectVpcPeeringConnection.ml +++ b/libraries/ec2/lib/rejectVpcPeeringConnection.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RejectVpcPeeringConnectionRequest.t - type output = RejectVpcPeeringConnectionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/rejectVpcPeeringConnection.mli b/libraries/ec2/lib/rejectVpcPeeringConnection.mli index 7a172dc0f..7a18ef17f 100644 --- a/libraries/ec2/lib/rejectVpcPeeringConnection.mli +++ b/libraries/ec2/lib/rejectVpcPeeringConnection.mli @@ -1,9 +1,7 @@ open Types type input = RejectVpcPeeringConnectionRequest.t - type output = RejectVpcPeeringConnectionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/releaseAddress.ml b/libraries/ec2/lib/releaseAddress.ml index 356812742..b6b18cbec 100644 --- a/libraries/ec2/lib/releaseAddress.ml +++ b/libraries/ec2/lib/releaseAddress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReleaseAddressRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/releaseAddress.mli b/libraries/ec2/lib/releaseAddress.mli index b40fbb3c2..2ee3e44cb 100644 --- a/libraries/ec2/lib/releaseAddress.mli +++ b/libraries/ec2/lib/releaseAddress.mli @@ -1,9 +1,7 @@ open Types type input = ReleaseAddressRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/releaseHosts.ml b/libraries/ec2/lib/releaseHosts.ml index 5579e11ff..08edb035d 100644 --- a/libraries/ec2/lib/releaseHosts.ml +++ b/libraries/ec2/lib/releaseHosts.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReleaseHostsRequest.t - type output = ReleaseHostsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/releaseHosts.mli b/libraries/ec2/lib/releaseHosts.mli index b6759f4cd..af265862d 100644 --- a/libraries/ec2/lib/releaseHosts.mli +++ b/libraries/ec2/lib/releaseHosts.mli @@ -1,9 +1,7 @@ open Types type input = ReleaseHostsRequest.t - type output = ReleaseHostsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/replaceIamInstanceProfileAssociation.ml b/libraries/ec2/lib/replaceIamInstanceProfileAssociation.ml index 105b6101c..6965eb59a 100644 --- a/libraries/ec2/lib/replaceIamInstanceProfileAssociation.ml +++ b/libraries/ec2/lib/replaceIamInstanceProfileAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplaceIamInstanceProfileAssociationRequest.t - type output = ReplaceIamInstanceProfileAssociationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/replaceIamInstanceProfileAssociation.mli b/libraries/ec2/lib/replaceIamInstanceProfileAssociation.mli index e989b0f14..799f1bf34 100644 --- a/libraries/ec2/lib/replaceIamInstanceProfileAssociation.mli +++ b/libraries/ec2/lib/replaceIamInstanceProfileAssociation.mli @@ -1,9 +1,7 @@ open Types type input = ReplaceIamInstanceProfileAssociationRequest.t - type output = ReplaceIamInstanceProfileAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/replaceNetworkAclAssociation.ml b/libraries/ec2/lib/replaceNetworkAclAssociation.ml index 99b0824af..863af5341 100644 --- a/libraries/ec2/lib/replaceNetworkAclAssociation.ml +++ b/libraries/ec2/lib/replaceNetworkAclAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplaceNetworkAclAssociationRequest.t - type output = ReplaceNetworkAclAssociationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/replaceNetworkAclAssociation.mli b/libraries/ec2/lib/replaceNetworkAclAssociation.mli index 7d0cc215d..6e26b2807 100644 --- a/libraries/ec2/lib/replaceNetworkAclAssociation.mli +++ b/libraries/ec2/lib/replaceNetworkAclAssociation.mli @@ -1,9 +1,7 @@ open Types type input = ReplaceNetworkAclAssociationRequest.t - type output = ReplaceNetworkAclAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/replaceNetworkAclEntry.ml b/libraries/ec2/lib/replaceNetworkAclEntry.ml index acdc28418..100ce787a 100644 --- a/libraries/ec2/lib/replaceNetworkAclEntry.ml +++ b/libraries/ec2/lib/replaceNetworkAclEntry.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplaceNetworkAclEntryRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/replaceNetworkAclEntry.mli b/libraries/ec2/lib/replaceNetworkAclEntry.mli index e981cecbd..2c6122863 100644 --- a/libraries/ec2/lib/replaceNetworkAclEntry.mli +++ b/libraries/ec2/lib/replaceNetworkAclEntry.mli @@ -1,9 +1,7 @@ open Types type input = ReplaceNetworkAclEntryRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/replaceRoute.ml b/libraries/ec2/lib/replaceRoute.ml index 0156481c8..9e1e11dd3 100644 --- a/libraries/ec2/lib/replaceRoute.ml +++ b/libraries/ec2/lib/replaceRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplaceRouteRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/replaceRoute.mli b/libraries/ec2/lib/replaceRoute.mli index 35a31a3d4..65824021f 100644 --- a/libraries/ec2/lib/replaceRoute.mli +++ b/libraries/ec2/lib/replaceRoute.mli @@ -1,9 +1,7 @@ open Types type input = ReplaceRouteRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/replaceRouteTableAssociation.ml b/libraries/ec2/lib/replaceRouteTableAssociation.ml index 2fe6d4a9a..6b4ee97f9 100644 --- a/libraries/ec2/lib/replaceRouteTableAssociation.ml +++ b/libraries/ec2/lib/replaceRouteTableAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplaceRouteTableAssociationRequest.t - type output = ReplaceRouteTableAssociationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/replaceRouteTableAssociation.mli b/libraries/ec2/lib/replaceRouteTableAssociation.mli index 71bfc8dfa..544a5359e 100644 --- a/libraries/ec2/lib/replaceRouteTableAssociation.mli +++ b/libraries/ec2/lib/replaceRouteTableAssociation.mli @@ -1,9 +1,7 @@ open Types type input = ReplaceRouteTableAssociationRequest.t - type output = ReplaceRouteTableAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/replaceTransitGatewayRoute.ml b/libraries/ec2/lib/replaceTransitGatewayRoute.ml index 04048b7ab..0b797b747 100644 --- a/libraries/ec2/lib/replaceTransitGatewayRoute.ml +++ b/libraries/ec2/lib/replaceTransitGatewayRoute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplaceTransitGatewayRouteRequest.t - type output = ReplaceTransitGatewayRouteResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/replaceTransitGatewayRoute.mli b/libraries/ec2/lib/replaceTransitGatewayRoute.mli index 3b68cb37a..0b0dac2a3 100644 --- a/libraries/ec2/lib/replaceTransitGatewayRoute.mli +++ b/libraries/ec2/lib/replaceTransitGatewayRoute.mli @@ -1,9 +1,7 @@ open Types type input = ReplaceTransitGatewayRouteRequest.t - type output = ReplaceTransitGatewayRouteResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/reportInstanceStatus.ml b/libraries/ec2/lib/reportInstanceStatus.ml index 995d979a1..9c0a9b3f7 100644 --- a/libraries/ec2/lib/reportInstanceStatus.ml +++ b/libraries/ec2/lib/reportInstanceStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReportInstanceStatusRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/reportInstanceStatus.mli b/libraries/ec2/lib/reportInstanceStatus.mli index 163090896..e8ae0ea72 100644 --- a/libraries/ec2/lib/reportInstanceStatus.mli +++ b/libraries/ec2/lib/reportInstanceStatus.mli @@ -1,9 +1,7 @@ open Types type input = ReportInstanceStatusRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/requestSpotFleet.ml b/libraries/ec2/lib/requestSpotFleet.ml index a5e58d3a3..f53937770 100644 --- a/libraries/ec2/lib/requestSpotFleet.ml +++ b/libraries/ec2/lib/requestSpotFleet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RequestSpotFleetRequest.t - type output = RequestSpotFleetResponse.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/requestSpotFleet.mli b/libraries/ec2/lib/requestSpotFleet.mli index c54ff6d0f..404794f47 100644 --- a/libraries/ec2/lib/requestSpotFleet.mli +++ b/libraries/ec2/lib/requestSpotFleet.mli @@ -1,9 +1,7 @@ open Types type input = RequestSpotFleetRequest.t - type output = RequestSpotFleetResponse.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/requestSpotInstances.ml b/libraries/ec2/lib/requestSpotInstances.ml index 9bd655441..010ac1966 100644 --- a/libraries/ec2/lib/requestSpotInstances.ml +++ b/libraries/ec2/lib/requestSpotInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RequestSpotInstancesRequest.t - type output = RequestSpotInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/requestSpotInstances.mli b/libraries/ec2/lib/requestSpotInstances.mli index a043fa317..a53324812 100644 --- a/libraries/ec2/lib/requestSpotInstances.mli +++ b/libraries/ec2/lib/requestSpotInstances.mli @@ -1,9 +1,7 @@ open Types type input = RequestSpotInstancesRequest.t - type output = RequestSpotInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/resetEbsDefaultKmsKeyId.ml b/libraries/ec2/lib/resetEbsDefaultKmsKeyId.ml index 4649d4aea..67fa856b0 100644 --- a/libraries/ec2/lib/resetEbsDefaultKmsKeyId.ml +++ b/libraries/ec2/lib/resetEbsDefaultKmsKeyId.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetEbsDefaultKmsKeyIdRequest.t - type output = ResetEbsDefaultKmsKeyIdResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/resetEbsDefaultKmsKeyId.mli b/libraries/ec2/lib/resetEbsDefaultKmsKeyId.mli index 82eab05f7..beef75901 100644 --- a/libraries/ec2/lib/resetEbsDefaultKmsKeyId.mli +++ b/libraries/ec2/lib/resetEbsDefaultKmsKeyId.mli @@ -1,9 +1,7 @@ open Types type input = ResetEbsDefaultKmsKeyIdRequest.t - type output = ResetEbsDefaultKmsKeyIdResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/resetFpgaImageAttribute.ml b/libraries/ec2/lib/resetFpgaImageAttribute.ml index e94ff58e7..4e1e24c16 100644 --- a/libraries/ec2/lib/resetFpgaImageAttribute.ml +++ b/libraries/ec2/lib/resetFpgaImageAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetFpgaImageAttributeRequest.t - type output = ResetFpgaImageAttributeResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/resetFpgaImageAttribute.mli b/libraries/ec2/lib/resetFpgaImageAttribute.mli index 1910aa114..3afbf1e3a 100644 --- a/libraries/ec2/lib/resetFpgaImageAttribute.mli +++ b/libraries/ec2/lib/resetFpgaImageAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ResetFpgaImageAttributeRequest.t - type output = ResetFpgaImageAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/resetImageAttribute.ml b/libraries/ec2/lib/resetImageAttribute.ml index 62ea5958a..dd50e330c 100644 --- a/libraries/ec2/lib/resetImageAttribute.ml +++ b/libraries/ec2/lib/resetImageAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetImageAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/resetImageAttribute.mli b/libraries/ec2/lib/resetImageAttribute.mli index fa3f7cdee..ff1fcaef3 100644 --- a/libraries/ec2/lib/resetImageAttribute.mli +++ b/libraries/ec2/lib/resetImageAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ResetImageAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/resetInstanceAttribute.ml b/libraries/ec2/lib/resetInstanceAttribute.ml index 812a59ad2..044b4d33c 100644 --- a/libraries/ec2/lib/resetInstanceAttribute.ml +++ b/libraries/ec2/lib/resetInstanceAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetInstanceAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/resetInstanceAttribute.mli b/libraries/ec2/lib/resetInstanceAttribute.mli index 84f51933a..93bc3e7fd 100644 --- a/libraries/ec2/lib/resetInstanceAttribute.mli +++ b/libraries/ec2/lib/resetInstanceAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ResetInstanceAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/resetNetworkInterfaceAttribute.ml b/libraries/ec2/lib/resetNetworkInterfaceAttribute.ml index 7f2b71a88..6bdb6b118 100644 --- a/libraries/ec2/lib/resetNetworkInterfaceAttribute.ml +++ b/libraries/ec2/lib/resetNetworkInterfaceAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetNetworkInterfaceAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/resetNetworkInterfaceAttribute.mli b/libraries/ec2/lib/resetNetworkInterfaceAttribute.mli index 25bee536d..9702bfa85 100644 --- a/libraries/ec2/lib/resetNetworkInterfaceAttribute.mli +++ b/libraries/ec2/lib/resetNetworkInterfaceAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ResetNetworkInterfaceAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/resetSnapshotAttribute.ml b/libraries/ec2/lib/resetSnapshotAttribute.ml index 214a7a004..f724c830e 100644 --- a/libraries/ec2/lib/resetSnapshotAttribute.ml +++ b/libraries/ec2/lib/resetSnapshotAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetSnapshotAttributeRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/resetSnapshotAttribute.mli b/libraries/ec2/lib/resetSnapshotAttribute.mli index 954960a1f..cec38f06c 100644 --- a/libraries/ec2/lib/resetSnapshotAttribute.mli +++ b/libraries/ec2/lib/resetSnapshotAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ResetSnapshotAttributeRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/restoreAddressToClassic.ml b/libraries/ec2/lib/restoreAddressToClassic.ml index cff99ed20..be8126175 100644 --- a/libraries/ec2/lib/restoreAddressToClassic.ml +++ b/libraries/ec2/lib/restoreAddressToClassic.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreAddressToClassicRequest.t - type output = RestoreAddressToClassicResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/restoreAddressToClassic.mli b/libraries/ec2/lib/restoreAddressToClassic.mli index 5ec5848e3..1bbf046a9 100644 --- a/libraries/ec2/lib/restoreAddressToClassic.mli +++ b/libraries/ec2/lib/restoreAddressToClassic.mli @@ -1,9 +1,7 @@ open Types type input = RestoreAddressToClassicRequest.t - type output = RestoreAddressToClassicResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/restoreManagedPrefixListVersion.ml b/libraries/ec2/lib/restoreManagedPrefixListVersion.ml index ec04e6ea7..6e5941c39 100644 --- a/libraries/ec2/lib/restoreManagedPrefixListVersion.ml +++ b/libraries/ec2/lib/restoreManagedPrefixListVersion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreManagedPrefixListVersionRequest.t - type output = RestoreManagedPrefixListVersionResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/restoreManagedPrefixListVersion.mli b/libraries/ec2/lib/restoreManagedPrefixListVersion.mli index 573ced7a7..3709a0d0e 100644 --- a/libraries/ec2/lib/restoreManagedPrefixListVersion.mli +++ b/libraries/ec2/lib/restoreManagedPrefixListVersion.mli @@ -1,9 +1,7 @@ open Types type input = RestoreManagedPrefixListVersionRequest.t - type output = RestoreManagedPrefixListVersionResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/revokeClientVpnIngress.ml b/libraries/ec2/lib/revokeClientVpnIngress.ml index 4f28aa1bd..3d0143a37 100644 --- a/libraries/ec2/lib/revokeClientVpnIngress.ml +++ b/libraries/ec2/lib/revokeClientVpnIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RevokeClientVpnIngressRequest.t - type output = RevokeClientVpnIngressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/revokeClientVpnIngress.mli b/libraries/ec2/lib/revokeClientVpnIngress.mli index b4b1294d7..e67f6af31 100644 --- a/libraries/ec2/lib/revokeClientVpnIngress.mli +++ b/libraries/ec2/lib/revokeClientVpnIngress.mli @@ -1,9 +1,7 @@ open Types type input = RevokeClientVpnIngressRequest.t - type output = RevokeClientVpnIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/revokeSecurityGroupEgress.ml b/libraries/ec2/lib/revokeSecurityGroupEgress.ml index a9d257c8b..e8033e907 100644 --- a/libraries/ec2/lib/revokeSecurityGroupEgress.ml +++ b/libraries/ec2/lib/revokeSecurityGroupEgress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RevokeSecurityGroupEgressRequest.t - type output = RevokeSecurityGroupEgressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/revokeSecurityGroupEgress.mli b/libraries/ec2/lib/revokeSecurityGroupEgress.mli index c7fb17bc0..a14ec0c17 100644 --- a/libraries/ec2/lib/revokeSecurityGroupEgress.mli +++ b/libraries/ec2/lib/revokeSecurityGroupEgress.mli @@ -1,9 +1,7 @@ open Types type input = RevokeSecurityGroupEgressRequest.t - type output = RevokeSecurityGroupEgressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/revokeSecurityGroupIngress.ml b/libraries/ec2/lib/revokeSecurityGroupIngress.ml index 1b047a661..21579e531 100644 --- a/libraries/ec2/lib/revokeSecurityGroupIngress.ml +++ b/libraries/ec2/lib/revokeSecurityGroupIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RevokeSecurityGroupIngressRequest.t - type output = RevokeSecurityGroupIngressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/revokeSecurityGroupIngress.mli b/libraries/ec2/lib/revokeSecurityGroupIngress.mli index 5dacb619a..37ca64079 100644 --- a/libraries/ec2/lib/revokeSecurityGroupIngress.mli +++ b/libraries/ec2/lib/revokeSecurityGroupIngress.mli @@ -1,9 +1,7 @@ open Types type input = RevokeSecurityGroupIngressRequest.t - type output = RevokeSecurityGroupIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/runInstances.ml b/libraries/ec2/lib/runInstances.ml index c1f75816f..151941194 100644 --- a/libraries/ec2/lib/runInstances.ml +++ b/libraries/ec2/lib/runInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RunInstancesRequest.t - type output = Reservation.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/runInstances.mli b/libraries/ec2/lib/runInstances.mli index 373122e02..146ab64a9 100644 --- a/libraries/ec2/lib/runInstances.mli +++ b/libraries/ec2/lib/runInstances.mli @@ -1,9 +1,7 @@ open Types type input = RunInstancesRequest.t - type output = Reservation.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/runScheduledInstances.ml b/libraries/ec2/lib/runScheduledInstances.ml index 75f5994a2..ba67a4588 100644 --- a/libraries/ec2/lib/runScheduledInstances.ml +++ b/libraries/ec2/lib/runScheduledInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RunScheduledInstancesRequest.t - type output = RunScheduledInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/runScheduledInstances.mli b/libraries/ec2/lib/runScheduledInstances.mli index 8f64aea36..e4f836f8c 100644 --- a/libraries/ec2/lib/runScheduledInstances.mli +++ b/libraries/ec2/lib/runScheduledInstances.mli @@ -1,9 +1,7 @@ open Types type input = RunScheduledInstancesRequest.t - type output = RunScheduledInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/searchLocalGatewayRoutes.ml b/libraries/ec2/lib/searchLocalGatewayRoutes.ml index 64d515497..63405b7e7 100644 --- a/libraries/ec2/lib/searchLocalGatewayRoutes.ml +++ b/libraries/ec2/lib/searchLocalGatewayRoutes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SearchLocalGatewayRoutesRequest.t - type output = SearchLocalGatewayRoutesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/searchLocalGatewayRoutes.mli b/libraries/ec2/lib/searchLocalGatewayRoutes.mli index 91915b308..90cf15c95 100644 --- a/libraries/ec2/lib/searchLocalGatewayRoutes.mli +++ b/libraries/ec2/lib/searchLocalGatewayRoutes.mli @@ -1,9 +1,7 @@ open Types type input = SearchLocalGatewayRoutesRequest.t - type output = SearchLocalGatewayRoutesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/searchTransitGatewayMulticastGroups.ml b/libraries/ec2/lib/searchTransitGatewayMulticastGroups.ml index 928df54f9..05b94cfc9 100644 --- a/libraries/ec2/lib/searchTransitGatewayMulticastGroups.ml +++ b/libraries/ec2/lib/searchTransitGatewayMulticastGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SearchTransitGatewayMulticastGroupsRequest.t - type output = SearchTransitGatewayMulticastGroupsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/searchTransitGatewayMulticastGroups.mli b/libraries/ec2/lib/searchTransitGatewayMulticastGroups.mli index 465f594b2..3cd025237 100644 --- a/libraries/ec2/lib/searchTransitGatewayMulticastGroups.mli +++ b/libraries/ec2/lib/searchTransitGatewayMulticastGroups.mli @@ -1,9 +1,7 @@ open Types type input = SearchTransitGatewayMulticastGroupsRequest.t - type output = SearchTransitGatewayMulticastGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/searchTransitGatewayRoutes.ml b/libraries/ec2/lib/searchTransitGatewayRoutes.ml index 75b256880..ecfd87225 100644 --- a/libraries/ec2/lib/searchTransitGatewayRoutes.ml +++ b/libraries/ec2/lib/searchTransitGatewayRoutes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SearchTransitGatewayRoutesRequest.t - type output = SearchTransitGatewayRoutesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/searchTransitGatewayRoutes.mli b/libraries/ec2/lib/searchTransitGatewayRoutes.mli index 8b9d5b2f6..9d42b6258 100644 --- a/libraries/ec2/lib/searchTransitGatewayRoutes.mli +++ b/libraries/ec2/lib/searchTransitGatewayRoutes.mli @@ -1,9 +1,7 @@ open Types type input = SearchTransitGatewayRoutesRequest.t - type output = SearchTransitGatewayRoutesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/sendDiagnosticInterrupt.ml b/libraries/ec2/lib/sendDiagnosticInterrupt.ml index 0a9901a26..352697bc9 100644 --- a/libraries/ec2/lib/sendDiagnosticInterrupt.ml +++ b/libraries/ec2/lib/sendDiagnosticInterrupt.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SendDiagnosticInterruptRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/sendDiagnosticInterrupt.mli b/libraries/ec2/lib/sendDiagnosticInterrupt.mli index 04df86487..976fa31e6 100644 --- a/libraries/ec2/lib/sendDiagnosticInterrupt.mli +++ b/libraries/ec2/lib/sendDiagnosticInterrupt.mli @@ -1,9 +1,7 @@ open Types type input = SendDiagnosticInterruptRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/startInstances.ml b/libraries/ec2/lib/startInstances.ml index ce57394ca..1764b3a1c 100644 --- a/libraries/ec2/lib/startInstances.ml +++ b/libraries/ec2/lib/startInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartInstancesRequest.t - type output = StartInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/startInstances.mli b/libraries/ec2/lib/startInstances.mli index 1c6525aa0..e50e783d3 100644 --- a/libraries/ec2/lib/startInstances.mli +++ b/libraries/ec2/lib/startInstances.mli @@ -1,9 +1,7 @@ open Types type input = StartInstancesRequest.t - type output = StartInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.ml b/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.ml index 2af40e5d6..b1389d032 100644 --- a/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.ml +++ b/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartVpcEndpointServicePrivateDnsVerificationRequest.t - type output = StartVpcEndpointServicePrivateDnsVerificationResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.mli b/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.mli index dd7b7f8c4..cdb5efd9d 100644 --- a/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.mli +++ b/libraries/ec2/lib/startVpcEndpointServicePrivateDnsVerification.mli @@ -1,9 +1,7 @@ open Types type input = StartVpcEndpointServicePrivateDnsVerificationRequest.t - type output = StartVpcEndpointServicePrivateDnsVerificationResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/stopInstances.ml b/libraries/ec2/lib/stopInstances.ml index 8cf856d7b..55bd5d1bc 100644 --- a/libraries/ec2/lib/stopInstances.ml +++ b/libraries/ec2/lib/stopInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopInstancesRequest.t - type output = StopInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/stopInstances.mli b/libraries/ec2/lib/stopInstances.mli index b9dd73b94..ed357828e 100644 --- a/libraries/ec2/lib/stopInstances.mli +++ b/libraries/ec2/lib/stopInstances.mli @@ -1,9 +1,7 @@ open Types type input = StopInstancesRequest.t - type output = StopInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/terminateClientVpnConnections.ml b/libraries/ec2/lib/terminateClientVpnConnections.ml index 121f1053f..bceaed1c5 100644 --- a/libraries/ec2/lib/terminateClientVpnConnections.ml +++ b/libraries/ec2/lib/terminateClientVpnConnections.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TerminateClientVpnConnectionsRequest.t - type output = TerminateClientVpnConnectionsResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/terminateClientVpnConnections.mli b/libraries/ec2/lib/terminateClientVpnConnections.mli index 19503c3c6..e4484b3fe 100644 --- a/libraries/ec2/lib/terminateClientVpnConnections.mli +++ b/libraries/ec2/lib/terminateClientVpnConnections.mli @@ -1,9 +1,7 @@ open Types type input = TerminateClientVpnConnectionsRequest.t - type output = TerminateClientVpnConnectionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/terminateInstances.ml b/libraries/ec2/lib/terminateInstances.ml index d85cbe107..0cd1e9ae1 100644 --- a/libraries/ec2/lib/terminateInstances.ml +++ b/libraries/ec2/lib/terminateInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TerminateInstancesRequest.t - type output = TerminateInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/terminateInstances.mli b/libraries/ec2/lib/terminateInstances.mli index 2f8ebd1cb..1b97294dd 100644 --- a/libraries/ec2/lib/terminateInstances.mli +++ b/libraries/ec2/lib/terminateInstances.mli @@ -1,9 +1,7 @@ open Types type input = TerminateInstancesRequest.t - type output = TerminateInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/types.ml b/libraries/ec2/lib/types.ml index 3629b031d..362c45d7b 100644 --- a/libraries/ec2/lib/types.ml +++ b/libraries/ec2/lib/types.ml @@ -99,9 +99,7 @@ module UserIdGroupPairList = struct Aws.Util.option_all (List.map UserIdGroupPair.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list UserIdGroupPair.to_query v - let to_json v = `List (List.map UserIdGroupPair.to_json v) - let of_json j = Aws.Json.to_list UserIdGroupPair.of_json j end @@ -153,9 +151,7 @@ module PrefixListIdList = struct Aws.Util.option_all (List.map PrefixListId.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PrefixListId.to_query v - let to_json v = `List (List.map PrefixListId.to_json v) - let of_json j = Aws.Json.to_list PrefixListId.of_json j end @@ -204,9 +200,7 @@ module Ipv6RangeList = struct Aws.Util.option_all (List.map Ipv6Range.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Ipv6Range.to_query v - let to_json v = `List (List.map Ipv6Range.to_json v) - let of_json j = Aws.Json.to_list Ipv6Range.of_json j end @@ -257,9 +251,7 @@ module IpRangeList = struct Aws.Util.option_all (List.map IpRange.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list IpRange.to_query v - let to_json v = `List (List.map IpRange.to_json v) - let of_json j = Aws.Json.to_list IpRange.of_json j end @@ -374,9 +366,7 @@ module IpPermissionList = struct Aws.Util.option_all (List.map IpPermission.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list IpPermission.to_query v - let to_json v = `List (List.map IpPermission.to_json v) - let of_json j = Aws.Json.to_list IpPermission.of_json j end @@ -485,9 +475,7 @@ module TransitGatewayAttachmentState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -497,7 +485,6 @@ module TransitGatewayAttachmentState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -635,13 +622,9 @@ module RouteState = struct | Blackhole let str_to_t = [ "blackhole", Blackhole; "active", Active ] - let t_to_str = [ Blackhole, "blackhole"; Active, "active" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -651,7 +634,6 @@ module RouteState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -674,9 +656,7 @@ module RouteOrigin = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -686,7 +666,6 @@ module RouteOrigin = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -879,13 +858,9 @@ module RouteList = struct type t = Route.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Route.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Route.to_query v - let to_json v = `List (List.map Route.to_json v) - let of_json j = Aws.Json.to_list Route.of_json j end @@ -931,13 +906,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -1100,9 +1071,7 @@ module SnapshotDetailList = struct Aws.Util.option_all (List.map SnapshotDetail.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SnapshotDetail.to_query v - let to_json v = `List (List.map SnapshotDetail.to_json v) - let of_json j = Aws.Json.to_list SnapshotDetail.of_json j end @@ -1152,7 +1121,6 @@ module ImportImageLicenseSpecificationListResponse = struct Aws.Query.to_query_list ImportImageLicenseConfigurationResponse.to_query v let to_json v = `List (List.map ImportImageLicenseConfigurationResponse.to_json v) - let of_json j = Aws.Json.to_list ImportImageLicenseConfigurationResponse.of_json j end @@ -1456,7 +1424,6 @@ module DisableFastSnapshotRestoreStateErrorSet = struct Aws.Query.to_query_list DisableFastSnapshotRestoreStateErrorItem.to_query v let to_json v = `List (List.map DisableFastSnapshotRestoreStateErrorItem.to_json v) - let of_json j = Aws.Json.to_list DisableFastSnapshotRestoreStateErrorItem.of_json j end @@ -1649,9 +1616,7 @@ module UserIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "UserId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1664,9 +1629,7 @@ module UserGroupStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "UserGroup" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1679,9 +1642,7 @@ module ProductCodeStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ProductCode" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1691,13 +1652,9 @@ module OperationType = struct | Remove let str_to_t = [ "remove", Remove; "add", Add ] - let t_to_str = [ Remove, "remove"; Add, "add" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1707,7 +1664,6 @@ module OperationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1715,13 +1671,9 @@ module PermissionGroup = struct type t = All let str_to_t = [ "all", All ] - let t_to_str = [ All, "all" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1731,7 +1683,6 @@ module PermissionGroup = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1781,9 +1732,7 @@ module LoadPermissionListRequest = struct (List.map LoadPermissionRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LoadPermissionRequest.to_query v - let to_json v = `List (List.map LoadPermissionRequest.to_json v) - let of_json j = Aws.Json.to_list LoadPermissionRequest.of_json j end @@ -1857,9 +1806,7 @@ module FpgaImageAttributeName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1869,7 +1816,6 @@ module FpgaImageAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2018,13 +1964,9 @@ module ValueStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2034,13 +1976,9 @@ module ShutdownBehavior = struct | Terminate let str_to_t = [ "terminate", Terminate; "stop", Stop ] - let t_to_str = [ Terminate, "terminate"; Stop, "stop" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2050,7 +1988,6 @@ module ShutdownBehavior = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2222,9 +2159,7 @@ module ResourceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2234,7 +2169,6 @@ module ResourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2289,9 +2223,7 @@ module LaunchTemplateTagSpecificationList = struct (List.map LaunchTemplateTagSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplateTagSpecification.to_query v - let to_json v = `List (List.map LaunchTemplateTagSpecification.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateTagSpecification.of_json j end @@ -2302,13 +2234,9 @@ module Tenancy = struct | Host let str_to_t = [ "host", Host; "dedicated", Dedicated; "default", Default ] - let t_to_str = [ Host, "host"; Dedicated, "dedicated"; Default, "default" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2318,7 +2246,6 @@ module Tenancy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2464,9 +2391,7 @@ module LaunchTemplateLicenseList = struct (List.map LaunchTemplateLicenseConfiguration.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplateLicenseConfiguration.to_query v - let to_json v = `List (List.map LaunchTemplateLicenseConfiguration.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateLicenseConfiguration.of_json j end @@ -2519,9 +2444,7 @@ module PrivateIpAddressSpecificationList = struct (List.map PrivateIpAddressSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PrivateIpAddressSpecification.to_query v - let to_json v = `List (List.map PrivateIpAddressSpecification.to_json v) - let of_json j = Aws.Json.to_list PrivateIpAddressSpecification.of_json j end @@ -2562,9 +2485,7 @@ module InstanceIpv6AddressList = struct Aws.Util.option_all (List.map InstanceIpv6Address.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceIpv6Address.to_query v - let to_json v = `List (List.map InstanceIpv6Address.to_json v) - let of_json j = Aws.Json.to_list InstanceIpv6Address.of_json j end @@ -2577,9 +2498,7 @@ module GroupIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "groupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2816,13 +2735,9 @@ module LaunchTemplateInstanceMetadataOptionsState = struct | Applied let str_to_t = [ "applied", Applied; "pending", Pending ] - let t_to_str = [ Applied, "applied"; Pending, "pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2832,7 +2747,6 @@ module LaunchTemplateInstanceMetadataOptionsState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2842,13 +2756,9 @@ module LaunchTemplateInstanceMetadataEndpointState = struct | Enabled let str_to_t = [ "enabled", Enabled; "disabled", Disabled ] - let t_to_str = [ Enabled, "enabled"; Disabled, "disabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2858,7 +2768,6 @@ module LaunchTemplateInstanceMetadataEndpointState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2868,13 +2777,9 @@ module LaunchTemplateHttpTokensState = struct | Required let str_to_t = [ "required", Required; "optional", Optional ] - let t_to_str = [ Required, "required"; Optional, "optional" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2884,7 +2789,6 @@ module LaunchTemplateHttpTokensState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2969,13 +2873,9 @@ module MarketType = struct type t = Spot let str_to_t = [ "spot", Spot ] - let t_to_str = [ Spot, "spot" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2985,7 +2885,6 @@ module MarketType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2995,13 +2894,9 @@ module SpotInstanceType = struct | Persistent let str_to_t = [ "persistent", Persistent; "one-time", One_time ] - let t_to_str = [ Persistent, "persistent"; One_time, "one-time" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3011,7 +2906,6 @@ module SpotInstanceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3022,13 +2916,9 @@ module InstanceInterruptionBehavior = struct | Terminate let str_to_t = [ "terminate", Terminate; "stop", Stop; "hibernate", Hibernate ] - let t_to_str = [ Terminate, "terminate"; Stop, "stop"; Hibernate, "hibernate" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3038,7 +2928,6 @@ module InstanceInterruptionBehavior = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3406,13 +3295,9 @@ module CapacityReservationPreference = struct | None let str_to_t = [ "none", None; "open", Open ] - let t_to_str = [ None, "none"; Open, "open" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3422,7 +3307,6 @@ module CapacityReservationPreference = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3497,9 +3381,7 @@ module VolumeType = struct [ St1, "st1"; Sc1, "sc1"; Gp2, "gp2"; Io2, "io2"; Io1, "io1"; Standard, "standard" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3509,7 +3391,6 @@ module VolumeType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3665,9 +3546,7 @@ module LaunchTemplateBlockDeviceMappingList = struct (List.map LaunchTemplateBlockDeviceMapping.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplateBlockDeviceMapping.to_query v - let to_json v = `List (List.map LaunchTemplateBlockDeviceMapping.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateBlockDeviceMapping.of_json j end @@ -4731,9 +4610,7 @@ module InstanceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4743,7 +4620,6 @@ module InstanceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4781,9 +4657,7 @@ module ElasticGpuSpecificationResponseList = struct (List.map ElasticGpuSpecificationResponse.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ElasticGpuSpecificationResponse.to_query v - let to_json v = `List (List.map ElasticGpuSpecificationResponse.to_json v) - let of_json j = Aws.Json.to_list ElasticGpuSpecificationResponse.of_json j end @@ -5243,13 +5117,9 @@ module TelemetryStatus = struct | DOWN let str_to_t = [ "DOWN", DOWN; "UP", UP ] - let t_to_str = [ DOWN, "DOWN"; UP, "UP" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5259,7 +5129,6 @@ module TelemetryStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5361,9 +5230,7 @@ module VgwTelemetryList = struct Aws.Util.option_all (List.map VgwTelemetry.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VgwTelemetry.to_query v - let to_json v = `List (List.map VgwTelemetry.to_json v) - let of_json j = Aws.Json.to_list VgwTelemetry.of_json j end @@ -5415,13 +5282,9 @@ module RegionList = struct type t = Region.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Region.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Region.to_query v - let to_json v = `List (List.map Region.to_json v) - let of_json j = Aws.Json.to_list Region.of_json j end @@ -5466,9 +5329,7 @@ module LicenseSpecificationListRequest = struct (List.map LicenseConfigurationRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LicenseConfigurationRequest.to_query v - let to_json v = `List (List.map LicenseConfigurationRequest.to_json v) - let of_json j = Aws.Json.to_list LicenseConfigurationRequest.of_json j end @@ -5494,9 +5355,7 @@ module CancelBatchErrorCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5506,7 +5365,6 @@ module CancelBatchErrorCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5544,9 +5402,7 @@ module Phase1EncryptionAlgorithmsList = struct (List.map Phase1EncryptionAlgorithmsListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase1EncryptionAlgorithmsListValue.to_query v - let to_json v = `List (List.map Phase1EncryptionAlgorithmsListValue.to_json v) - let of_json j = Aws.Json.to_list Phase1EncryptionAlgorithmsListValue.of_json j end @@ -5689,9 +5545,7 @@ module AttachmentStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5701,7 +5555,6 @@ module AttachmentStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5756,9 +5609,7 @@ module InternetGatewayAttachmentList = struct (List.map InternetGatewayAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InternetGatewayAttachment.to_query v - let to_json v = `List (List.map InternetGatewayAttachment.to_json v) - let of_json j = Aws.Json.to_list InternetGatewayAttachment.of_json j end @@ -5832,9 +5683,7 @@ module EgressOnlyInternetGatewayList = struct (List.map EgressOnlyInternetGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list EgressOnlyInternetGateway.to_query v - let to_json v = `List (List.map EgressOnlyInternetGateway.to_json v) - let of_json j = Aws.Json.to_list EgressOnlyInternetGateway.of_json j end @@ -5891,13 +5740,9 @@ module ConnectionNotificationIdsList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5956,13 +5801,9 @@ module NetworkInterfaceType = struct | Efa let str_to_t = [ "efa", Efa; "natGateway", NatGateway; "interface", Interface ] - let t_to_str = [ Efa, "efa"; NatGateway, "natGateway"; Interface, "interface" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5972,7 +5813,6 @@ module NetworkInterfaceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6001,9 +5841,7 @@ module NetworkInterfaceStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6013,7 +5851,6 @@ module NetworkInterfaceStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6182,9 +6019,7 @@ module NetworkInterfacePrivateIpAddressList = struct (List.map NetworkInterfacePrivateIpAddress.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkInterfacePrivateIpAddress.to_query v - let to_json v = `List (List.map NetworkInterfacePrivateIpAddress.to_json v) - let of_json j = Aws.Json.to_list NetworkInterfacePrivateIpAddress.of_json j end @@ -6226,9 +6061,7 @@ module NetworkInterfaceIpv6AddressesList = struct (List.map NetworkInterfaceIpv6Address.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkInterfaceIpv6Address.to_query v - let to_json v = `List (List.map NetworkInterfaceIpv6Address.to_json v) - let of_json j = Aws.Json.to_list NetworkInterfaceIpv6Address.of_json j end @@ -6380,9 +6213,7 @@ module GroupIdentifierList = struct Aws.Util.option_all (List.map GroupIdentifier.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list GroupIdentifier.to_query v - let to_json v = `List (List.map GroupIdentifier.to_json v) - let of_json j = Aws.Json.to_list GroupIdentifier.of_json j end @@ -6662,9 +6493,7 @@ module NetworkInterfaceList = struct Aws.Util.option_all (List.map NetworkInterface.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkInterface.to_query v - let to_json v = `List (List.map NetworkInterface.to_json v) - let of_json j = Aws.Json.to_list NetworkInterface.of_json j end @@ -6798,13 +6627,9 @@ module CurrencyCodeValues = struct type t = USD let str_to_t = [ "USD", USD ] - let t_to_str = [ USD, "USD" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6814,7 +6639,6 @@ module CurrencyCodeValues = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7053,9 +6877,7 @@ module FilterList = struct Aws.Util.option_all (List.map Filter.parse (Aws.Xml.members "Filter" xml)) let to_query v = Aws.Query.to_query_list Filter.to_query v - let to_json v = `List (List.map Filter.to_json v) - let of_json j = Aws.Json.to_list Filter.of_json j end @@ -7145,9 +6967,7 @@ module ListingStatus = struct [ Closed, "closed"; Cancelled, "cancelled"; Pending, "pending"; Active, "active" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7157,7 +6977,6 @@ module ListingStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7290,9 +7109,7 @@ module FleetLaunchTemplateOverridesList = struct (List.map FleetLaunchTemplateOverrides.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FleetLaunchTemplateOverrides.to_query v - let to_json v = `List (List.map FleetLaunchTemplateOverrides.to_json v) - let of_json j = Aws.Json.to_list FleetLaunchTemplateOverrides.of_json j end @@ -7321,9 +7138,7 @@ module FastSnapshotRestoreStateCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7333,7 +7148,6 @@ module FastSnapshotRestoreStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7491,7 +7305,6 @@ module DescribeFastSnapshotRestoreSuccessSet = struct Aws.Query.to_query_list DescribeFastSnapshotRestoreSuccessItem.to_query v let to_json v = `List (List.map DescribeFastSnapshotRestoreSuccessItem.to_json v) - let of_json j = Aws.Json.to_list DescribeFastSnapshotRestoreSuccessItem.of_json j end @@ -7639,13 +7452,9 @@ module ClientVpnEndpointAttributeStatusCode = struct | Applied let str_to_t = [ "applied", Applied; "applying", Applying ] - let t_to_str = [ Applied, "applied"; Applying, "applying" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7655,7 +7464,6 @@ module ClientVpnEndpointAttributeStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7888,9 +7696,7 @@ module InstanceUsageSet = struct Aws.Util.option_all (List.map InstanceUsage.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceUsage.to_query v - let to_json v = `List (List.map InstanceUsage.to_json v) - let of_json j = Aws.Json.to_list InstanceUsage.of_json j end @@ -7919,9 +7725,7 @@ module CapacityReservationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7931,7 +7735,6 @@ module CapacityReservationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8043,13 +7846,9 @@ module PrefixListResourceIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8060,13 +7859,9 @@ module ArchitectureType = struct | Arm64 let str_to_t = [ "arm64", Arm64; "x86_64", X86_64; "i386", I386 ] - let t_to_str = [ Arm64, "arm64"; X86_64, "x86_64"; I386, "i386" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -8076,7 +7871,6 @@ module ArchitectureType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8089,9 +7883,7 @@ module ArchitectureTypeList = struct Aws.Util.option_all (List.map ArchitectureType.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ArchitectureType.to_query v - let to_json v = `List (List.map ArchitectureType.to_json v) - let of_json j = Aws.Json.to_list ArchitectureType.of_json j end @@ -8183,9 +7975,7 @@ module GpuDeviceInfoList = struct Aws.Util.option_all (List.map GpuDeviceInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list GpuDeviceInfo.to_query v - let to_json v = `List (List.map GpuDeviceInfo.to_json v) - let of_json j = Aws.Json.to_list GpuDeviceInfo.of_json j end @@ -8248,9 +8038,7 @@ module SecurityGroupReferences = struct (List.map SecurityGroupReference.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SecurityGroupReference.to_query v - let to_json v = `List (List.map SecurityGroupReference.to_json v) - let of_json j = Aws.Json.to_list SecurityGroupReference.of_json j end @@ -8445,9 +8233,7 @@ module InstanceBlockDeviceMappingList = struct (List.map InstanceBlockDeviceMapping.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceBlockDeviceMapping.to_query v - let to_json v = `List (List.map InstanceBlockDeviceMapping.to_json v) - let of_json j = Aws.Json.to_list InstanceBlockDeviceMapping.of_json j end @@ -8579,13 +8365,9 @@ module DatafeedSubscriptionState = struct | Inactive let str_to_t = [ "Inactive", Inactive; "Active", Active ] - let t_to_str = [ Inactive, "Inactive"; Active, "Active" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -8595,7 +8377,6 @@ module DatafeedSubscriptionState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8747,9 +8528,7 @@ module NatGatewayState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -8759,7 +8538,6 @@ module NatGatewayState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8826,9 +8604,7 @@ module NatGatewayAddressList = struct Aws.Util.option_all (List.map NatGatewayAddress.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NatGatewayAddress.to_query v - let to_json v = `List (List.map NatGatewayAddress.to_json v) - let of_json j = Aws.Json.to_list NatGatewayAddress.of_json j end @@ -8984,9 +8760,7 @@ module NatGatewayList = struct Aws.Util.option_all (List.map NatGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NatGateway.to_query v - let to_json v = `List (List.map NatGateway.to_json v) - let of_json j = Aws.Json.to_list NatGateway.of_json j end @@ -9036,13 +8810,9 @@ module VersionStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -9194,13 +8964,9 @@ module CoipPoolIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -9211,13 +8977,9 @@ module ArchitectureValues = struct | Arm64 let str_to_t = [ "arm64", Arm64; "x86_64", X86_64; "i386", I386 ] - let t_to_str = [ Arm64, "arm64"; X86_64, "x86_64"; I386, "i386" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9227,7 +8989,6 @@ module ArchitectureValues = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9237,13 +8998,9 @@ module VpnEcmpSupportValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9253,7 +9010,6 @@ module VpnEcmpSupportValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9263,13 +9019,9 @@ module DnsSupportValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9279,7 +9031,6 @@ module DnsSupportValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9289,13 +9040,9 @@ module DefaultRouteTablePropagationValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9305,7 +9052,6 @@ module DefaultRouteTablePropagationValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9315,13 +9061,9 @@ module DefaultRouteTableAssociationValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9331,7 +9073,6 @@ module DefaultRouteTableAssociationValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9341,13 +9082,9 @@ module AutoAcceptSharedAttachmentsValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9357,7 +9094,6 @@ module AutoAcceptSharedAttachmentsValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9498,13 +9234,9 @@ module InstanceTagKeySet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -9699,7 +9431,6 @@ module EnableFastSnapshotRestoreStateErrorSet = struct Aws.Query.to_query_list EnableFastSnapshotRestoreStateErrorItem.to_query v let to_json v = `List (List.map EnableFastSnapshotRestoreStateErrorItem.to_json v) - let of_json j = Aws.Json.to_list EnableFastSnapshotRestoreStateErrorItem.of_json j end @@ -9875,9 +9606,7 @@ module CarrierGatewayState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9887,7 +9616,6 @@ module CarrierGatewayState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9989,13 +9717,9 @@ module InterfacePermissionType = struct | EIP_ASSOCIATE let str_to_t = [ "EIP-ASSOCIATE", EIP_ASSOCIATE; "INSTANCE-ATTACH", INSTANCE_ATTACH ] - let t_to_str = [ EIP_ASSOCIATE, "EIP-ASSOCIATE"; INSTANCE_ATTACH, "INSTANCE-ATTACH" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10005,7 +9729,6 @@ module InterfacePermissionType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10337,13 +10060,9 @@ module DiskImageFormat = struct | VHD let str_to_t = [ "VHD", VHD; "RAW", RAW; "VMDK", VMDK ] - let t_to_str = [ VHD, "VHD"; RAW, "RAW"; VMDK, "VMDK" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10353,7 +10072,6 @@ module DiskImageFormat = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10481,13 +10199,9 @@ module PlatformValues = struct type t = Windows let str_to_t = [ "Windows", Windows ] - let t_to_str = [ Windows, "Windows" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10497,7 +10211,6 @@ module PlatformValues = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10610,9 +10323,7 @@ module ImportInstanceVolumeDetailSet = struct (List.map ImportInstanceVolumeDetailItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ImportInstanceVolumeDetailItem.to_query v - let to_json v = `List (List.map ImportInstanceVolumeDetailItem.to_json v) - let of_json j = Aws.Json.to_list ImportInstanceVolumeDetailItem.of_json j end @@ -10695,9 +10406,7 @@ module ConversionTaskState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10707,7 +10416,6 @@ module ConversionTaskState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10828,9 +10536,7 @@ module DescribeConversionTaskList = struct Aws.Util.option_all (List.map ConversionTask.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ConversionTask.to_query v - let to_json v = `List (List.map ConversionTask.to_json v) - let of_json j = Aws.Json.to_list ConversionTask.of_json j end @@ -10971,9 +10677,7 @@ module SpotFleetTagSpecificationList = struct (List.map SpotFleetTagSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SpotFleetTagSpecification.to_query v - let to_json v = `List (List.map SpotFleetTagSpecification.to_json v) - let of_json j = Aws.Json.to_list SpotFleetTagSpecification.of_json j end @@ -11010,9 +10714,7 @@ module SecurityGroupIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SecurityGroupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -11240,7 +10942,6 @@ module InstanceNetworkInterfaceSpecificationList = struct Aws.Query.to_query_list InstanceNetworkInterfaceSpecification.to_query v let to_json v = `List (List.map InstanceNetworkInterfaceSpecification.to_json v) - let of_json j = Aws.Json.to_list InstanceNetworkInterfaceSpecification.of_json j end @@ -11288,9 +10989,7 @@ module BlockDeviceMappingList = struct Aws.Util.option_all (List.map BlockDeviceMapping.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list BlockDeviceMapping.to_query v - let to_json v = `List (List.map BlockDeviceMapping.to_json v) - let of_json j = Aws.Json.to_list BlockDeviceMapping.of_json j end @@ -11579,9 +11278,7 @@ module ExportImageTaskIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ExportImageTaskId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -11667,9 +11364,7 @@ module ScheduledInstancesSecurityGroupIdSet = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SecurityGroupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -11750,9 +11445,7 @@ module ScheduledInstancesIpv6AddressList = struct (List.map ScheduledInstancesIpv6Address.parse (Aws.Xml.members "Ipv6Address" xml)) let to_query v = Aws.Query.to_query_list ScheduledInstancesIpv6Address.to_query v - let to_json v = `List (List.map ScheduledInstancesIpv6Address.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstancesIpv6Address.of_json j end @@ -11810,7 +11503,6 @@ module PrivateIpAddressConfigSet = struct Aws.Query.to_query_list ScheduledInstancesPrivateIpAddressConfig.to_query v let to_json v = `List (List.map ScheduledInstancesPrivateIpAddressConfig.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstancesPrivateIpAddressConfig.of_json j end @@ -12001,9 +11693,7 @@ module ScheduledInstancesNetworkInterfaceSet = struct (Aws.Xml.members "NetworkInterface" xml)) let to_query v = Aws.Query.to_query_list ScheduledInstancesNetworkInterface.to_query v - let to_json v = `List (List.map ScheduledInstancesNetworkInterface.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstancesNetworkInterface.of_json j end @@ -12199,9 +11889,7 @@ module ScheduledInstancesBlockDeviceMappingSet = struct (Aws.Xml.members "BlockDeviceMapping" xml)) let to_query v = Aws.Query.to_query_list ScheduledInstancesBlockDeviceMapping.to_query v - let to_json v = `List (List.map ScheduledInstancesBlockDeviceMapping.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstancesBlockDeviceMapping.of_json j end @@ -12500,9 +12188,7 @@ module PaymentOption = struct [ NoUpfront, "NoUpfront"; PartialUpfront, "PartialUpfront"; AllUpfront, "AllUpfront" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12512,7 +12198,6 @@ module PaymentOption = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12621,9 +12306,7 @@ module HostOfferingSet = struct Aws.Util.option_all (List.map HostOffering.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list HostOffering.to_query v - let to_json v = `List (List.map HostOffering.to_json v) - let of_json j = Aws.Json.to_list HostOffering.of_json j end @@ -12652,9 +12335,7 @@ module TransitGatewayState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12664,7 +12345,6 @@ module TransitGatewayState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12674,13 +12354,9 @@ module LocalGatewayRouteType = struct | Propagated let str_to_t = [ "propagated", Propagated; "static", Static ] - let t_to_str = [ Propagated, "propagated"; Static, "static" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12690,7 +12366,6 @@ module LocalGatewayRouteType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12719,9 +12394,7 @@ module LocalGatewayRouteState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12731,7 +12404,6 @@ module LocalGatewayRouteState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12850,9 +12522,7 @@ module LocalGatewayRouteList = struct Aws.Util.option_all (List.map LocalGatewayRoute.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LocalGatewayRoute.to_query v - let to_json v = `List (List.map LocalGatewayRoute.to_json v) - let of_json j = Aws.Json.to_list LocalGatewayRoute.of_json j end @@ -12923,9 +12593,7 @@ module TransitGatewayAttachmentResourceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12935,7 +12603,6 @@ module TransitGatewayAttachmentResourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12961,9 +12628,7 @@ module TransitGatewayAssociationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12973,7 +12638,6 @@ module TransitGatewayAssociationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13058,9 +12722,7 @@ module TransitGatewayRouteTableAssociationList = struct (List.map TransitGatewayRouteTableAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayRouteTableAssociation.to_query v - let to_json v = `List (List.map TransitGatewayRouteTableAssociation.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayRouteTableAssociation.of_json j end @@ -13070,13 +12732,9 @@ module SubnetState = struct | Available let str_to_t = [ "available", Available; "pending", Pending ] - let t_to_str = [ Available, "available"; Pending, "pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13086,7 +12744,6 @@ module SubnetState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13118,9 +12775,7 @@ module SubnetCidrBlockStateCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13130,7 +12785,6 @@ module SubnetCidrBlockStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13242,9 +12896,7 @@ module SubnetIpv6CidrBlockAssociationSet = struct (List.map SubnetIpv6CidrBlockAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SubnetIpv6CidrBlockAssociation.to_query v - let to_json v = `List (List.map SubnetIpv6CidrBlockAssociation.to_json v) - let of_json j = Aws.Json.to_list SubnetIpv6CidrBlockAssociation.of_json j end @@ -13478,13 +13130,9 @@ module SubnetList = struct type t = Subnet.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Subnet.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Subnet.to_query v - let to_json v = `List (List.map Subnet.to_json v) - let of_json j = Aws.Json.to_list Subnet.of_json j end @@ -13497,9 +13145,7 @@ module SubnetIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SubnetId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -13525,9 +13171,7 @@ module TransitGatewayMulticastDomainState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13537,7 +13181,6 @@ module TransitGatewayMulticastDomainState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13811,9 +13454,7 @@ module MonitoringState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13823,7 +13464,6 @@ module MonitoringState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13898,9 +13538,7 @@ module InstanceMonitoringList = struct Aws.Util.option_all (List.map InstanceMonitoring.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceMonitoring.to_query v - let to_json v = `List (List.map InstanceMonitoring.to_json v) - let of_json j = Aws.Json.to_list InstanceMonitoring.of_json j end @@ -14059,9 +13697,7 @@ module AvailabilityZoneOptInStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14071,7 +13707,6 @@ module AvailabilityZoneOptInStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14097,9 +13732,7 @@ module ClientVpnConnectionStatusCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14109,7 +13742,6 @@ module ClientVpnConnectionStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14219,13 +13851,9 @@ module VpcEndpointIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -14349,9 +13977,7 @@ module TransitGatewayPropagationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14361,7 +13987,6 @@ module TransitGatewayPropagationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14504,9 +14129,7 @@ module InstanceIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "InstanceId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -14646,9 +14269,7 @@ module AssociationStatusCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14658,7 +14279,6 @@ module AssociationStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14812,9 +14432,7 @@ module ExportTaskState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14824,7 +14442,6 @@ module ExportTaskState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -15080,9 +14697,7 @@ module TagSpecificationList = struct Aws.Util.option_all (List.map TagSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TagSpecification.to_query v - let to_json v = `List (List.map TagSpecification.to_json v) - let of_json j = Aws.Json.to_list TagSpecification.of_json j end @@ -15130,7 +14745,6 @@ module ImportImageLicenseSpecificationListRequest = struct Aws.Query.to_query_list ImportImageLicenseConfigurationRequest.to_query v let to_json v = `List (List.map ImportImageLicenseConfigurationRequest.to_json v) - let of_json j = Aws.Json.to_list ImportImageLicenseConfigurationRequest.of_json j end @@ -15241,9 +14855,7 @@ module ImageDiskContainerList = struct Aws.Util.option_all (List.map ImageDiskContainer.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ImageDiskContainer.to_query v - let to_json v = `List (List.map ImageDiskContainer.to_json v) - let of_json j = Aws.Json.to_list ImageDiskContainer.of_json j end @@ -15681,9 +15293,7 @@ module TransitGatewayAttachmentList = struct (List.map TransitGatewayAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayAttachment.to_query v - let to_json v = `List (List.map TransitGatewayAttachment.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayAttachment.of_json j end @@ -15738,9 +15348,7 @@ module OccurrenceDayRequestSet = struct Aws.Util.option_all (List.map Integer.parse (Aws.Xml.members "OccurenceDay" xml)) let to_query v = Aws.Query.to_query_list Integer.to_query v - let to_json v = `List (List.map Integer.to_json v) - let of_json j = Aws.Json.to_list Integer.of_json j end @@ -16082,13 +15690,9 @@ module ConnectionNotificationType = struct type t = Topic let str_to_t = [ "Topic", Topic ] - let t_to_str = [ Topic, "Topic" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16098,7 +15702,6 @@ module ConnectionNotificationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -16108,13 +15711,9 @@ module ConnectionNotificationState = struct | Disabled let str_to_t = [ "Disabled", Disabled; "Enabled", Enabled ] - let t_to_str = [ Disabled, "Disabled"; Enabled, "Enabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16124,7 +15723,6 @@ module ConnectionNotificationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -16257,9 +15855,7 @@ module ConnectionNotificationSet = struct (List.map ConnectionNotification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ConnectionNotification.to_query v - let to_json v = `List (List.map ConnectionNotification.to_json v) - let of_json j = Aws.Json.to_list ConnectionNotification.of_json j end @@ -16315,9 +15911,7 @@ module IdFormatList = struct Aws.Util.option_all (List.map IdFormat.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list IdFormat.to_query v - let to_json v = `List (List.map IdFormat.to_json v) - let of_json j = Aws.Json.to_list IdFormat.of_json j end @@ -16607,9 +16201,7 @@ module VpcClassicLinkList = struct Aws.Util.option_all (List.map VpcClassicLink.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcClassicLink.to_query v - let to_json v = `List (List.map VpcClassicLink.to_json v) - let of_json j = Aws.Json.to_list VpcClassicLink.of_json j end @@ -16745,9 +16337,7 @@ module TrafficMirrorSessionField = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16757,7 +16347,6 @@ module TrafficMirrorSessionField = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -16771,9 +16360,7 @@ module TrafficMirrorSessionFieldList = struct (List.map TrafficMirrorSessionField.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorSessionField.to_query v - let to_json v = `List (List.map TrafficMirrorSessionField.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorSessionField.of_json j end @@ -16781,13 +16368,9 @@ module TransitGatewayNetworkInterfaceIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -16797,13 +16380,9 @@ module FleetExcessCapacityTerminationPolicy = struct | Termination let str_to_t = [ "termination", Termination; "no-termination", No_termination ] - let t_to_str = [ Termination, "termination"; No_termination, "no-termination" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16813,7 +16392,6 @@ module FleetExcessCapacityTerminationPolicy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -16839,9 +16417,7 @@ module ClientVpnEndpointStatusCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16851,7 +16427,6 @@ module ClientVpnEndpointStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17025,9 +16600,7 @@ module LocalGatewaySet = struct Aws.Util.option_all (List.map LocalGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LocalGateway.to_query v - let to_json v = `List (List.map LocalGateway.to_json v) - let of_json j = Aws.Json.to_list LocalGateway.of_json j end @@ -17181,9 +16754,7 @@ module ExportImageTaskList = struct Aws.Util.option_all (List.map ExportImageTask.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ExportImageTask.to_query v - let to_json v = `List (List.map ExportImageTask.to_json v) - let of_json j = Aws.Json.to_list ExportImageTask.of_json j end @@ -17193,13 +16764,9 @@ module TransitGatewayRouteType = struct | Propagated let str_to_t = [ "propagated", Propagated; "static", Static ] - let t_to_str = [ Propagated, "propagated"; Static, "static" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -17209,7 +16776,6 @@ module TransitGatewayRouteType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17238,9 +16804,7 @@ module TransitGatewayRouteState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -17250,7 +16814,6 @@ module TransitGatewayRouteState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17322,9 +16885,7 @@ module TransitGatewayRouteAttachmentList = struct (List.map TransitGatewayRouteAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayRouteAttachment.to_query v - let to_json v = `List (List.map TransitGatewayRouteAttachment.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayRouteAttachment.of_json j end @@ -17505,13 +17066,9 @@ module HostReservationIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -17640,9 +17197,7 @@ module CancelSpotInstanceRequestState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -17652,7 +17207,6 @@ module CancelSpotInstanceRequestState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17766,9 +17320,7 @@ module ServiceState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -17778,7 +17330,6 @@ module ServiceState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17907,9 +17458,7 @@ module TargetConfigurationRequestSet = struct (Aws.Xml.members "TargetConfigurationRequest" xml)) let to_query v = Aws.Query.to_query_list TargetConfigurationRequest.to_query v - let to_json v = `List (List.map TargetConfigurationRequest.to_json v) - let of_json j = Aws.Json.to_list TargetConfigurationRequest.of_json j end @@ -17922,9 +17471,7 @@ module ReservedInstanceIdSet = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ReservedInstanceId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18001,9 +17548,7 @@ module AssociationIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AssociationId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18075,9 +17620,7 @@ module SpotInstanceState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -18087,7 +17630,6 @@ module SpotInstanceState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -18113,9 +17655,7 @@ module RIProductDescription = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -18125,7 +17665,6 @@ module RIProductDescription = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -18590,9 +18129,7 @@ module SpotInstanceRequestList = struct Aws.Util.option_all (List.map SpotInstanceRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SpotInstanceRequest.to_query v - let to_json v = `List (List.map SpotInstanceRequest.to_json v) - let of_json j = Aws.Json.to_list SpotInstanceRequest.of_json j end @@ -18600,13 +18137,9 @@ module NetworkInterfaceCreationType = struct type t = Efa let str_to_t = [ "efa", Efa ] - let t_to_str = [ Efa, "efa" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -18616,7 +18149,6 @@ module NetworkInterfaceCreationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -19157,9 +18689,7 @@ module TrafficMirrorSessionSet = struct Aws.Util.option_all (List.map TrafficMirrorSession.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorSession.to_query v - let to_json v = `List (List.map TrafficMirrorSession.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorSession.of_json j end @@ -19172,9 +18702,7 @@ module OccurrenceDaySet = struct Aws.Util.option_all (List.map Integer.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Integer.to_query v - let to_json v = `List (List.map Integer.to_json v) - let of_json j = Aws.Json.to_list Integer.of_json j end @@ -19441,9 +18969,7 @@ module ScheduledInstanceAvailabilitySet = struct (List.map ScheduledInstanceAvailability.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ScheduledInstanceAvailability.to_query v - let to_json v = `List (List.map ScheduledInstanceAvailability.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstanceAvailability.of_json j end @@ -19453,13 +18979,9 @@ module DefaultTargetCapacityType = struct | On_demand let str_to_t = [ "on-demand", On_demand; "spot", Spot ] - let t_to_str = [ On_demand, "on-demand"; Spot, "spot" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -19469,7 +18991,6 @@ module DefaultTargetCapacityType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -19803,9 +19324,7 @@ module FleetLaunchTemplateOverridesListRequest = struct (List.map FleetLaunchTemplateOverridesRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FleetLaunchTemplateOverridesRequest.to_query v - let to_json v = `List (List.map FleetLaunchTemplateOverridesRequest.to_json v) - let of_json j = Aws.Json.to_list FleetLaunchTemplateOverridesRequest.of_json j end @@ -19874,9 +19393,7 @@ module FleetLaunchTemplateConfigListRequest = struct (List.map FleetLaunchTemplateConfigRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FleetLaunchTemplateConfigRequest.to_query v - let to_json v = `List (List.map FleetLaunchTemplateConfigRequest.to_json v) - let of_json j = Aws.Json.to_list FleetLaunchTemplateConfigRequest.of_json j end @@ -20144,9 +19661,7 @@ module RouteTableAssociationStateCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20156,7 +19671,6 @@ module RouteTableAssociationStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20262,9 +19776,7 @@ module InstanceCreditSpecificationListRequest = struct (List.map InstanceCreditSpecificationRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceCreditSpecificationRequest.to_query v - let to_json v = `List (List.map InstanceCreditSpecificationRequest.to_json v) - let of_json j = Aws.Json.to_list InstanceCreditSpecificationRequest.of_json j end @@ -20353,9 +19865,7 @@ module VpcCidrBlockStateCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20365,7 +19875,6 @@ module VpcCidrBlockStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20471,9 +19980,7 @@ module Phase1DHGroupNumbersRequestList = struct (List.map Phase1DHGroupNumbersRequestListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase1DHGroupNumbersRequestListValue.to_query v - let to_json v = `List (List.map Phase1DHGroupNumbersRequestListValue.to_json v) - let of_json j = Aws.Json.to_list Phase1DHGroupNumbersRequestListValue.of_json j end @@ -20481,13 +19988,9 @@ module NetworkAclIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -20534,9 +20037,7 @@ module DeleteQueuedReservedInstancesErrorCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20546,7 +20047,6 @@ module DeleteQueuedReservedInstancesErrorCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20600,13 +20100,9 @@ module FlowLogsResourceType = struct | NetworkInterface let str_to_t = [ "NetworkInterface", NetworkInterface; "Subnet", Subnet; "VPC", VPC ] - let t_to_str = [ NetworkInterface, "NetworkInterface"; Subnet, "Subnet"; VPC, "VPC" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20616,7 +20112,6 @@ module FlowLogsResourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20779,7 +20274,6 @@ module LaunchTemplateBlockDeviceMappingRequestList = struct Aws.Query.to_query_list LaunchTemplateBlockDeviceMappingRequest.to_query v let to_json v = `List (List.map LaunchTemplateBlockDeviceMappingRequest.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateBlockDeviceMappingRequest.of_json j end @@ -20792,9 +20286,7 @@ module ReservedInstancesOfferingIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -20804,13 +20296,9 @@ module ReportStatusType = struct | Impaired let str_to_t = [ "impaired", Impaired; "ok", Ok ] - let t_to_str = [ Impaired, "impaired"; Ok, "ok" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20820,7 +20308,6 @@ module ReportStatusType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20861,9 +20348,7 @@ module ReportInstanceReasonCodes = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20873,7 +20358,6 @@ module ReportInstanceReasonCodes = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20887,9 +20371,7 @@ module ReasonCodesList = struct (List.map ReportInstanceReasonCodes.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReportInstanceReasonCodes.to_query v - let to_json v = `List (List.map ReportInstanceReasonCodes.to_json v) - let of_json j = Aws.Json.to_list ReportInstanceReasonCodes.of_json j end @@ -20979,13 +20461,9 @@ module Ipv6SupportValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20995,7 +20473,6 @@ module Ipv6SupportValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -21005,13 +20482,9 @@ module ApplianceModeSupportValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -21021,7 +20494,6 @@ module ApplianceModeSupportValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -21222,9 +20694,7 @@ module TransitGatewayVpcAttachmentList = struct (List.map TransitGatewayVpcAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayVpcAttachment.to_query v - let to_json v = `List (List.map TransitGatewayVpcAttachment.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayVpcAttachment.of_json j end @@ -21347,9 +20817,7 @@ module Ipv6CidrBlockSet = struct Aws.Util.option_all (List.map Ipv6CidrBlock.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Ipv6CidrBlock.to_query v - let to_json v = `List (List.map Ipv6CidrBlock.to_json v) - let of_json j = Aws.Json.to_list Ipv6CidrBlock.of_json j end @@ -21387,9 +20855,7 @@ module CidrBlockSet = struct Aws.Util.option_all (List.map CidrBlock.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CidrBlock.to_query v - let to_json v = `List (List.map CidrBlock.to_json v) - let of_json j = Aws.Json.to_list CidrBlock.of_json j end @@ -21498,13 +20964,9 @@ module FleetReplacementStrategy = struct type t = Launch let str_to_t = [ "launch", Launch ] - let t_to_str = [ Launch, "launch" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -21514,7 +20976,6 @@ module FleetReplacementStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -21601,9 +21062,7 @@ module SpotPriceHistoryList = struct Aws.Util.option_all (List.map SpotPrice.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SpotPrice.to_query v - let to_json v = `List (List.map SpotPrice.to_json v) - let of_json j = Aws.Json.to_list SpotPrice.of_json j end @@ -21655,13 +21114,9 @@ module ReplacementStrategy = struct type t = Launch let str_to_t = [ "launch", Launch ] - let t_to_str = [ Launch, "launch" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -21671,7 +21126,6 @@ module ReplacementStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -21714,13 +21168,9 @@ module RequestHostIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -21922,13 +21372,9 @@ module UnlimitedSupportedInstanceFamily = struct | T4g let str_to_t = [ "t4g", T4g; "t3a", T3a; "t3", T3; "t2", T2 ] - let t_to_str = [ T4g, "t4g"; T3a, "t3a"; T3, "t3"; T2, "t2" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -21938,7 +21384,6 @@ module UnlimitedSupportedInstanceFamily = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22007,9 +21452,7 @@ module DhcpOptionsIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "DhcpOptionsId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -22084,13 +21527,9 @@ module Scope = struct | Region let str_to_t = [ "Region", Region; "Availability Zone", Availability_Zone ] - let t_to_str = [ Region, "Region"; Availability_Zone, "Availability Zone" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22100,7 +21539,6 @@ module Scope = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22132,9 +21570,7 @@ module ReservedInstanceState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22144,7 +21580,6 @@ module ReservedInstanceState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22152,13 +21587,9 @@ module RecurringChargeFrequency = struct type t = Hourly let str_to_t = [ "Hourly", Hourly ] - let t_to_str = [ Hourly, "Hourly" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22168,7 +21599,6 @@ module RecurringChargeFrequency = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22224,9 +21654,7 @@ module RecurringChargesList = struct Aws.Util.option_all (List.map RecurringCharge.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list RecurringCharge.to_query v - let to_json v = `List (List.map RecurringCharge.to_json v) - let of_json j = Aws.Json.to_list RecurringCharge.of_json j end @@ -22258,9 +21686,7 @@ module OfferingTypeValues = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22270,7 +21696,6 @@ module OfferingTypeValues = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22280,13 +21705,9 @@ module OfferingClassType = struct | Convertible let str_to_t = [ "convertible", Convertible; "standard", Standard ] - let t_to_str = [ Convertible, "convertible"; Standard, "standard" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22296,7 +21717,6 @@ module OfferingClassType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22541,9 +21961,7 @@ module ClientVpnAuthorizationRuleStatusCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22553,7 +21971,6 @@ module ClientVpnAuthorizationRuleStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22696,9 +22113,7 @@ module AuthorizationRuleSet = struct Aws.Util.option_all (List.map AuthorizationRule.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AuthorizationRule.to_query v - let to_json v = `List (List.map AuthorizationRule.to_json v) - let of_json j = Aws.Json.to_list AuthorizationRule.of_json j end @@ -22743,9 +22158,7 @@ module AssignedPrivateIpAddressList = struct (List.map AssignedPrivateIpAddress.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AssignedPrivateIpAddress.to_query v - let to_json v = `List (List.map AssignedPrivateIpAddress.to_json v) - let of_json j = Aws.Json.to_list AssignedPrivateIpAddress.of_json j end @@ -22771,9 +22184,7 @@ module VolumeModificationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22783,7 +22194,6 @@ module VolumeModificationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22818,9 +22228,7 @@ module ImageAttributeName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22830,7 +22238,6 @@ module ImageAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22950,13 +22357,9 @@ module ClientVpnSecurityGroupIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -23059,9 +22462,7 @@ module OwnerStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "Owner" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -23069,13 +22470,9 @@ module FpgaImageIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -23189,9 +22586,7 @@ module FleetStateCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23201,7 +22596,6 @@ module FleetStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23336,13 +22730,9 @@ module MulticastSupportValue = struct | Disable let str_to_t = [ "disable", Disable; "enable", Enable ] - let t_to_str = [ Disable, "disable"; Enable, "enable" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23352,7 +22742,6 @@ module MulticastSupportValue = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23362,13 +22751,9 @@ module MembershipType = struct | Igmp let str_to_t = [ "igmp", Igmp; "static", Static ] - let t_to_str = [ Igmp, "igmp"; Static, "static" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23378,7 +22763,6 @@ module MembershipType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23391,9 +22775,7 @@ module InstanceTypeList = struct Aws.Util.option_all (List.map InstanceType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceType.to_query v - let to_json v = `List (List.map InstanceType.to_json v) - let of_json j = Aws.Json.to_list InstanceType.of_json j end @@ -23403,13 +22785,9 @@ module InstanceLifecycle = struct | On_demand let str_to_t = [ "on-demand", On_demand; "spot", Spot ] - let t_to_str = [ On_demand, "on-demand"; Spot, "spot" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23419,7 +22797,6 @@ module InstanceLifecycle = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23537,9 +22914,7 @@ module ClassicLinkDnsSupportList = struct (List.map ClassicLinkDnsSupport.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClassicLinkDnsSupport.to_query v - let to_json v = `List (List.map ClassicLinkDnsSupport.to_json v) - let of_json j = Aws.Json.to_list ClassicLinkDnsSupport.of_json j end @@ -23547,13 +22922,9 @@ module VpcTenancy = struct type t = Default let str_to_t = [ "default", Default ] - let t_to_str = [ Default, "default" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23563,7 +22934,6 @@ module VpcTenancy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23698,13 +23068,9 @@ module VpcEndpointServiceIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -23856,9 +23222,7 @@ module Phase2DHGroupNumbersList = struct (List.map Phase2DHGroupNumbersListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase2DHGroupNumbersListValue.to_query v - let to_json v = `List (List.map Phase2DHGroupNumbersListValue.to_json v) - let of_json j = Aws.Json.to_list Phase2DHGroupNumbersListValue.of_json j end @@ -24003,9 +23367,7 @@ module ImageState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24015,7 +23377,6 @@ module ImageState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24079,9 +23440,7 @@ module AvailableInstanceCapacityList = struct Aws.Util.option_all (List.map InstanceCapacity.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceCapacity.to_query v - let to_json v = `List (List.map InstanceCapacity.to_json v) - let of_json j = Aws.Json.to_list InstanceCapacity.of_json j end @@ -24089,13 +23448,9 @@ module AssociatedNetworkType = struct type t = Vpc let str_to_t = [ "vpc", Vpc ] - let t_to_str = [ Vpc, "vpc" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24105,7 +23460,6 @@ module AssociatedNetworkType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24166,9 +23520,7 @@ module ListingState = struct [ Pending, "pending"; Cancelled, "cancelled"; Sold, "sold"; Available, "available" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24178,7 +23530,6 @@ module ListingState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24230,9 +23581,7 @@ module InstanceCountList = struct Aws.Util.option_all (List.map InstanceCount.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceCount.to_query v - let to_json v = `List (List.map InstanceCount.to_json v) - let of_json j = Aws.Json.to_list InstanceCount.of_json j end @@ -24243,13 +23592,9 @@ module TrafficType = struct | ALL let str_to_t = [ "ALL", ALL; "REJECT", REJECT; "ACCEPT", ACCEPT ] - let t_to_str = [ ALL, "ALL"; REJECT, "REJECT"; ACCEPT, "ACCEPT" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24259,7 +23604,6 @@ module TrafficType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24269,13 +23613,9 @@ module LogDestinationType = struct | S3 let str_to_t = [ "s3", S3; "cloud-watch-logs", Cloud_watch_logs ] - let t_to_str = [ S3, "s3"; Cloud_watch_logs, "cloud-watch-logs" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24285,7 +23625,6 @@ module LogDestinationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24469,13 +23808,9 @@ module FlowLogResourceIds = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -24795,9 +24130,7 @@ module ByoipCidrState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24807,7 +24140,6 @@ module ByoipCidrState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24970,9 +24302,7 @@ module ImportImageTaskList = struct Aws.Util.option_all (List.map ImportImageTask.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ImportImageTask.to_query v - let to_json v = `List (List.map ImportImageTask.to_json v) - let of_json j = Aws.Json.to_list ImportImageTask.of_json j end @@ -25057,9 +24387,7 @@ module VpcPeeringConnectionStateReasonCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -25069,7 +24397,6 @@ module VpcPeeringConnectionStateReasonCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -25077,13 +24404,9 @@ module FlowLogIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -25205,9 +24528,7 @@ module ClientVpnAuthenticationType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -25217,7 +24538,6 @@ module ClientVpnAuthenticationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -25404,13 +24724,9 @@ module UsageClassType = struct | On_demand let str_to_t = [ "on-demand", On_demand; "spot", Spot ] - let t_to_str = [ On_demand, "on-demand"; Spot, "spot" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -25420,7 +24736,6 @@ module UsageClassType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -25443,9 +24758,7 @@ module LocationType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -25455,7 +24768,6 @@ module LocationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -25517,9 +24829,7 @@ module InstanceTypeOfferingsList = struct Aws.Util.option_all (List.map InstanceTypeOffering.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceTypeOffering.to_query v - let to_json v = `List (List.map InstanceTypeOffering.to_json v) - let of_json j = Aws.Json.to_list InstanceTypeOffering.of_json j end @@ -25562,7 +24872,6 @@ module Phase2IntegrityAlgorithmsRequestList = struct Aws.Query.to_query_list Phase2IntegrityAlgorithmsRequestListValue.to_query v let to_json v = `List (List.map Phase2IntegrityAlgorithmsRequestListValue.to_json v) - let of_json j = Aws.Json.to_list Phase2IntegrityAlgorithmsRequestListValue.of_json j end @@ -25605,7 +24914,6 @@ module Phase2EncryptionAlgorithmsRequestList = struct Aws.Query.to_query_list Phase2EncryptionAlgorithmsRequestListValue.to_query v let to_json v = `List (List.map Phase2EncryptionAlgorithmsRequestListValue.to_json v) - let of_json j = Aws.Json.to_list Phase2EncryptionAlgorithmsRequestListValue.of_json j end @@ -25643,9 +24951,7 @@ module Phase2DHGroupNumbersRequestList = struct (List.map Phase2DHGroupNumbersRequestListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase2DHGroupNumbersRequestListValue.to_query v - let to_json v = `List (List.map Phase2DHGroupNumbersRequestListValue.to_json v) - let of_json j = Aws.Json.to_list Phase2DHGroupNumbersRequestListValue.of_json j end @@ -25688,7 +24994,6 @@ module Phase1IntegrityAlgorithmsRequestList = struct Aws.Query.to_query_list Phase1IntegrityAlgorithmsRequestListValue.to_query v let to_json v = `List (List.map Phase1IntegrityAlgorithmsRequestListValue.to_json v) - let of_json j = Aws.Json.to_list Phase1IntegrityAlgorithmsRequestListValue.of_json j end @@ -25731,7 +25036,6 @@ module Phase1EncryptionAlgorithmsRequestList = struct Aws.Query.to_query_list Phase1EncryptionAlgorithmsRequestListValue.to_query v let to_json v = `List (List.map Phase1EncryptionAlgorithmsRequestListValue.to_json v) - let of_json j = Aws.Json.to_list Phase1EncryptionAlgorithmsRequestListValue.of_json j end @@ -25769,9 +25073,7 @@ module IKEVersionsRequestList = struct (List.map IKEVersionsRequestListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list IKEVersionsRequestListValue.to_query v - let to_json v = `List (List.map IKEVersionsRequestListValue.to_json v) - let of_json j = Aws.Json.to_list IKEVersionsRequestListValue.of_json j end @@ -26070,9 +25372,7 @@ module VpnTunnelOptionsSpecificationsList = struct (List.map VpnTunnelOptionsSpecification.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list VpnTunnelOptionsSpecification.to_query v - let to_json v = `List (List.map VpnTunnelOptionsSpecification.to_json v) - let of_json j = Aws.Json.to_list VpnTunnelOptionsSpecification.of_json j end @@ -26082,13 +25382,9 @@ module TunnelInsideIpVersion = struct | Ipv6 let str_to_t = [ "ipv6", Ipv6; "ipv4", Ipv4 ] - let t_to_str = [ Ipv6, "ipv6"; Ipv4, "ipv4" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26098,7 +25394,6 @@ module TunnelInsideIpVersion = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -26271,13 +25566,9 @@ module ElasticGpuState = struct type t = ATTACHED let str_to_t = [ "ATTACHED", ATTACHED ] - let t_to_str = [ ATTACHED, "ATTACHED" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26287,7 +25578,6 @@ module ElasticGpuState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -26297,13 +25587,9 @@ module ElasticGpuStatus = struct | IMPAIRED let str_to_t = [ "IMPAIRED", IMPAIRED; "OK", OK ] - let t_to_str = [ IMPAIRED, "IMPAIRED"; OK, "OK" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26313,7 +25599,6 @@ module ElasticGpuStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -26457,9 +25742,7 @@ module ElasticGpuSet = struct Aws.Util.option_all (List.map ElasticGpus.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ElasticGpus.to_query v - let to_json v = `List (List.map ElasticGpus.to_json v) - let of_json j = Aws.Json.to_list ElasticGpus.of_json j end @@ -26543,9 +25826,7 @@ module BatchState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26555,7 +25836,6 @@ module BatchState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -26657,9 +25937,7 @@ module BundleTaskState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26669,7 +25947,6 @@ module BundleTaskState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -26726,13 +26003,9 @@ module Ipv6AddressList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -26879,9 +26152,7 @@ module LaunchTemplateOverridesList = struct (List.map LaunchTemplateOverrides.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplateOverrides.to_query v - let to_json v = `List (List.map LaunchTemplateOverrides.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateOverrides.of_json j end @@ -26948,9 +26219,7 @@ module LaunchTemplateConfigList = struct Aws.Util.option_all (List.map LaunchTemplateConfig.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplateConfig.to_query v - let to_json v = `List (List.map LaunchTemplateConfig.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateConfig.of_json j end @@ -26960,13 +26229,9 @@ module ExcessCapacityTerminationPolicy = struct | Default let str_to_t = [ "default", Default; "noTermination", NoTermination ] - let t_to_str = [ Default, "default"; NoTermination, "noTermination" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26976,7 +26241,6 @@ module ExcessCapacityTerminationPolicy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -27382,9 +26646,7 @@ module NetworkInterfacePermissionStateCode = struct [ Revoked, "revoked"; Revoking, "revoking"; Granted, "granted"; Pending, "pending" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -27394,7 +26656,6 @@ module NetworkInterfacePermissionStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -27477,9 +26738,7 @@ module DnsEntrySet = struct Aws.Util.option_all (List.map DnsEntry.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DnsEntry.to_query v - let to_json v = `List (List.map DnsEntry.to_json v) - let of_json j = Aws.Json.to_list DnsEntry.of_json j end @@ -27628,13 +26887,9 @@ module VpcState = struct | Available let str_to_t = [ "available", Available; "pending", Pending ] - let t_to_str = [ Available, "available"; Pending, "pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -27644,7 +26899,6 @@ module VpcState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -27740,9 +26994,7 @@ module VpcIpv6CidrBlockAssociationSet = struct (List.map VpcIpv6CidrBlockAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcIpv6CidrBlockAssociation.to_query v - let to_json v = `List (List.map VpcIpv6CidrBlockAssociation.to_json v) - let of_json j = Aws.Json.to_list VpcIpv6CidrBlockAssociation.of_json j end @@ -27756,9 +27008,7 @@ module VpcCidrBlockAssociationSet = struct (List.map VpcCidrBlockAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcCidrBlockAssociation.to_query v - let to_json v = `List (List.map VpcCidrBlockAssociation.to_json v) - let of_json j = Aws.Json.to_list VpcCidrBlockAssociation.of_json j end @@ -27912,13 +27162,9 @@ module VpcList = struct type t = Vpc.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Vpc.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Vpc.to_query v - let to_json v = `List (List.map Vpc.to_json v) - let of_json j = Aws.Json.to_list Vpc.of_json j end @@ -27966,13 +27212,9 @@ module ProductCodeValues = struct | Marketplace let str_to_t = [ "marketplace", Marketplace; "devpay", Devpay ] - let t_to_str = [ Marketplace, "marketplace"; Devpay, "devpay" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -27982,7 +27224,6 @@ module ProductCodeValues = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -28037,9 +27278,7 @@ module ProductCodeList = struct Aws.Util.option_all (List.map ProductCode.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ProductCode.to_query v - let to_json v = `List (List.map ProductCode.to_json v) - let of_json j = Aws.Json.to_list ProductCode.of_json j end @@ -28104,13 +27343,9 @@ module LocalGatewayVirtualInterfaceIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -28238,9 +27473,7 @@ module InternetGatewayList = struct Aws.Util.option_all (List.map InternetGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InternetGateway.to_query v - let to_json v = `List (List.map InternetGateway.to_json v) - let of_json j = Aws.Json.to_list InternetGateway.of_json j end @@ -28248,13 +27481,9 @@ module ResponseHostIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -28280,9 +27509,7 @@ module ReservationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -28292,7 +27519,6 @@ module ReservationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -28467,9 +27693,7 @@ module HostReservationSet = struct Aws.Util.option_all (List.map HostReservation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list HostReservation.to_query v - let to_json v = `List (List.map HostReservation.to_json v) - let of_json j = Aws.Json.to_list HostReservation.of_json j end @@ -28507,9 +27731,7 @@ module State = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -28519,7 +27741,6 @@ module State = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -28659,9 +27880,7 @@ module VpnGatewayIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "VpnGatewayId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -28679,9 +27898,7 @@ module ClientVpnRouteStatusCode = struct [ Deleting, "deleting"; Failed, "failed"; Active, "active"; Creating, "creating" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -28691,7 +27908,6 @@ module ClientVpnRouteStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -28924,9 +28140,7 @@ module RouteTableAssociationList = struct (List.map RouteTableAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list RouteTableAssociation.to_query v - let to_json v = `List (List.map RouteTableAssociation.to_json v) - let of_json j = Aws.Json.to_list RouteTableAssociation.of_json j end @@ -28964,9 +28178,7 @@ module PropagatingVgwList = struct Aws.Util.option_all (List.map PropagatingVgw.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PropagatingVgw.to_query v - let to_json v = `List (List.map PropagatingVgw.to_json v) - let of_json j = Aws.Json.to_list PropagatingVgw.of_json j end @@ -29077,9 +28289,7 @@ module RouteTableList = struct Aws.Util.option_all (List.map RouteTable.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list RouteTable.to_query v - let to_json v = `List (List.map RouteTable.to_json v) - let of_json j = Aws.Json.to_list RouteTable.of_json j end @@ -29087,13 +28297,9 @@ module RouteTableIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -29106,9 +28312,7 @@ module PublicIpv4PoolRangeSet = struct Aws.Util.option_all (List.map PublicIpv4PoolRange.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PublicIpv4PoolRange.to_query v - let to_json v = `List (List.map PublicIpv4PoolRange.to_json v) - let of_json j = Aws.Json.to_list PublicIpv4PoolRange.of_json j end @@ -29228,9 +28432,7 @@ module PublicIpv4PoolSet = struct Aws.Util.option_all (List.map PublicIpv4Pool.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PublicIpv4Pool.to_query v - let to_json v = `List (List.map PublicIpv4Pool.to_json v) - let of_json j = Aws.Json.to_list PublicIpv4Pool.of_json j end @@ -29675,13 +28877,9 @@ module LaunchTemplateNameStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -29837,9 +29035,7 @@ module PurchaseSet = struct Aws.Util.option_all (List.map Purchase.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Purchase.to_query v - let to_json v = `List (List.map Purchase.to_json v) - let of_json j = Aws.Json.to_list Purchase.of_json j end @@ -30087,9 +29283,7 @@ module InstancePrivateIpAddressList = struct (List.map InstancePrivateIpAddress.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstancePrivateIpAddress.to_query v - let to_json v = `List (List.map InstancePrivateIpAddress.to_json v) - let of_json j = Aws.Json.to_list InstancePrivateIpAddress.of_json j end @@ -30398,9 +29592,7 @@ module VolumeIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "VolumeId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -30472,13 +29664,9 @@ module InstanceHealthStatus = struct | Unhealthy let str_to_t = [ "unhealthy", Unhealthy; "healthy", Healthy ] - let t_to_str = [ Unhealthy, "unhealthy"; Healthy, "healthy" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -30488,7 +29676,6 @@ module InstanceHealthStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -30562,9 +29749,7 @@ module ActiveInstanceSet = struct Aws.Util.option_all (List.map ActiveInstance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ActiveInstance.to_query v - let to_json v = `List (List.map ActiveInstance.to_json v) - let of_json j = Aws.Json.to_list ActiveInstance.of_json j end @@ -30572,7 +29757,6 @@ module CreateVpcResult = struct type t = { vpc : Vpc.t option } let make ?vpc () = { vpc } - let parse xml = Some { vpc = Aws.Util.option_bind (Aws.Xml.member "vpc" xml) Vpc.parse } let to_query v = @@ -30620,13 +29804,9 @@ module LocalGatewayVirtualInterfaceGroupIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -30734,9 +29914,7 @@ module TransitGatewayRouteTableState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -30746,7 +29924,6 @@ module TransitGatewayRouteTableState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -30878,9 +30055,7 @@ module ReservedInstancesConfigurationList = struct (List.map ReservedInstancesConfiguration.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstancesConfiguration.to_query v - let to_json v = `List (List.map ReservedInstancesConfiguration.to_json v) - let of_json j = Aws.Json.to_list ReservedInstancesConfiguration.of_json j end @@ -30900,9 +30075,7 @@ module TrafficMirrorTargetType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -30912,7 +30085,6 @@ module TrafficMirrorTargetType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31021,9 +30193,7 @@ module TrafficMirrorTargetSet = struct Aws.Util.option_all (List.map TrafficMirrorTarget.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorTarget.to_query v - let to_json v = `List (List.map TrafficMirrorTarget.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorTarget.of_json j end @@ -31049,9 +30219,7 @@ module TransitGatewayPrefixListReferenceState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31061,7 +30229,6 @@ module TransitGatewayPrefixListReferenceState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31275,9 +30442,7 @@ module FleetIdSet = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -31412,9 +30577,7 @@ module TransitGatewayRouteTableList = struct (List.map TransitGatewayRouteTable.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayRouteTable.to_query v - let to_json v = `List (List.map TransitGatewayRouteTable.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayRouteTable.of_json j end @@ -31422,13 +30585,9 @@ module LaunchTemplateIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -31469,13 +30628,9 @@ module VirtualizationType = struct | Paravirtual let str_to_t = [ "paravirtual", Paravirtual; "hvm", Hvm ] - let t_to_str = [ Paravirtual, "paravirtual"; Hvm, "hvm" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31485,7 +30640,6 @@ module VirtualizationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31565,9 +30719,7 @@ module LicenseList = struct Aws.Util.option_all (List.map LicenseConfiguration.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LicenseConfiguration.to_query v - let to_json v = `List (List.map LicenseConfiguration.to_json v) - let of_json j = Aws.Json.to_list LicenseConfiguration.of_json j end @@ -31599,9 +30751,7 @@ module InstanceStateName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31611,7 +30761,6 @@ module InstanceStateName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31665,9 +30814,7 @@ module InstanceNetworkInterfaceList = struct (List.map InstanceNetworkInterface.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceNetworkInterface.to_query v - let to_json v = `List (List.map InstanceNetworkInterface.to_json v) - let of_json j = Aws.Json.to_list InstanceNetworkInterface.of_json j end @@ -31677,13 +30824,9 @@ module InstanceMetadataOptionsState = struct | Applied let str_to_t = [ "applied", Applied; "pending", Pending ] - let t_to_str = [ Applied, "applied"; Pending, "pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31693,7 +30836,6 @@ module InstanceMetadataOptionsState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31703,13 +30845,9 @@ module InstanceMetadataEndpointState = struct | Enabled let str_to_t = [ "enabled", Enabled; "disabled", Disabled ] - let t_to_str = [ Enabled, "enabled"; Disabled, "disabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31719,7 +30857,6 @@ module InstanceMetadataEndpointState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31729,13 +30866,9 @@ module HttpTokensState = struct | Required let str_to_t = [ "required", Required; "optional", Optional ] - let t_to_str = [ Required, "required"; Optional, "optional" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31745,7 +30878,6 @@ module HttpTokensState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31826,13 +30958,9 @@ module InstanceLifecycleType = struct | Scheduled let str_to_t = [ "scheduled", Scheduled; "spot", Spot ] - let t_to_str = [ Scheduled, "scheduled"; Spot, "spot" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31842,7 +30970,6 @@ module InstanceLifecycleType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31886,13 +31013,9 @@ module HypervisorType = struct | Xen let str_to_t = [ "xen", Xen; "ovm", Ovm ] - let t_to_str = [ Xen, "xen"; Ovm, "ovm" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -31902,7 +31025,6 @@ module HypervisorType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -31943,7 +31065,6 @@ module ElasticInferenceAcceleratorAssociationList = struct Aws.Query.to_query_list ElasticInferenceAcceleratorAssociation.to_query v let to_json v = `List (List.map ElasticInferenceAcceleratorAssociation.to_json v) - let of_json j = Aws.Json.to_list ElasticInferenceAcceleratorAssociation.of_json j end @@ -32033,9 +31154,7 @@ module ElasticGpuAssociationList = struct (List.map ElasticGpuAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ElasticGpuAssociation.to_query v - let to_json v = `List (List.map ElasticGpuAssociation.to_json v) - let of_json j = Aws.Json.to_list ElasticGpuAssociation.of_json j end @@ -32045,13 +31164,9 @@ module DeviceType = struct | Instance_store let str_to_t = [ "instance-store", Instance_store; "ebs", Ebs ] - let t_to_str = [ Instance_store, "instance-store"; Ebs, "ebs" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -32061,7 +31176,6 @@ module DeviceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -32772,9 +31886,7 @@ module InstanceList = struct Aws.Util.option_all (List.map Instance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Instance.to_query v - let to_json v = `List (List.map Instance.to_json v) - let of_json j = Aws.Json.to_list Instance.of_json j end @@ -32857,9 +31969,7 @@ module ReservationList = struct Aws.Util.option_all (List.map Reservation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Reservation.to_query v - let to_json v = `List (List.map Reservation.to_json v) - let of_json j = Aws.Json.to_list Reservation.of_json j end @@ -32915,9 +32025,7 @@ module VirtualizationTypeList = struct Aws.Util.option_all (List.map VirtualizationType.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VirtualizationType.to_query v - let to_json v = `List (List.map VirtualizationType.to_json v) - let of_json j = Aws.Json.to_list VirtualizationType.of_json j end @@ -32930,9 +32038,7 @@ module ThreadsPerCoreList = struct Aws.Util.option_all (List.map Integer.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Integer.to_query v - let to_json v = `List (List.map Integer.to_json v) - let of_json j = Aws.Json.to_list Integer.of_json j end @@ -32945,9 +32051,7 @@ module CoreCountList = struct Aws.Util.option_all (List.map Integer.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Integer.to_query v - let to_json v = `List (List.map Integer.to_json v) - let of_json j = Aws.Json.to_list Integer.of_json j end @@ -33048,9 +32152,7 @@ module UsageClassTypeList = struct Aws.Util.option_all (List.map UsageClassType.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list UsageClassType.to_query v - let to_json v = `List (List.map UsageClassType.to_json v) - let of_json j = Aws.Json.to_list UsageClassType.of_json j end @@ -33060,13 +32162,9 @@ module RootDeviceType = struct | Instance_store let str_to_t = [ "instance-store", Instance_store; "ebs", Ebs ] - let t_to_str = [ Instance_store, "instance-store"; Ebs, "ebs" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33076,7 +32174,6 @@ module RootDeviceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -33089,9 +32186,7 @@ module RootDeviceTypeList = struct Aws.Util.option_all (List.map RootDeviceType.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list RootDeviceType.to_query v - let to_json v = `List (List.map RootDeviceType.to_json v) - let of_json j = Aws.Json.to_list RootDeviceType.of_json j end @@ -33155,13 +32250,9 @@ module PlacementGroupStrategy = struct | Spread let str_to_t = [ "spread", Spread; "partition", Partition; "cluster", Cluster ] - let t_to_str = [ Spread, "spread"; Partition, "partition"; Cluster, "cluster" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33171,7 +32262,6 @@ module PlacementGroupStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -33185,9 +32275,7 @@ module PlacementGroupStrategyList = struct (List.map PlacementGroupStrategy.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PlacementGroupStrategy.to_query v - let to_json v = `List (List.map PlacementGroupStrategy.to_json v) - let of_json j = Aws.Json.to_list PlacementGroupStrategy.of_json j end @@ -33239,9 +32327,7 @@ module NetworkCardInfoList = struct Aws.Util.option_all (List.map NetworkCardInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkCardInfo.to_query v - let to_json v = `List (List.map NetworkCardInfo.to_json v) - let of_json j = Aws.Json.to_list NetworkCardInfo.of_json j end @@ -33258,9 +32344,7 @@ module EnaSupport = struct [ Required, "required"; Supported, "supported"; Unsupported, "unsupported" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33270,7 +32354,6 @@ module EnaSupport = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -33456,13 +32539,9 @@ module InstanceTypeHypervisor = struct | Xen let str_to_t = [ "xen", Xen; "nitro", Nitro ] - let t_to_str = [ Xen, "xen"; Nitro, "nitro" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33472,7 +32551,6 @@ module InstanceTypeHypervisor = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -33489,9 +32567,7 @@ module EphemeralNvmeSupport = struct [ Required, "required"; Supported, "supported"; Unsupported, "unsupported" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33501,7 +32577,6 @@ module EphemeralNvmeSupport = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -33511,13 +32586,9 @@ module DiskType = struct | Ssd let str_to_t = [ "ssd", Ssd; "hdd", Hdd ] - let t_to_str = [ Ssd, "ssd"; Hdd, "hdd" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33527,7 +32598,6 @@ module DiskType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -33582,9 +32652,7 @@ module DiskInfoList = struct Aws.Util.option_all (List.map DiskInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DiskInfo.to_query v - let to_json v = `List (List.map DiskInfo.to_json v) - let of_json j = Aws.Json.to_list DiskInfo.of_json j end @@ -33694,9 +32762,7 @@ module InferenceDeviceInfoList = struct (List.map InferenceDeviceInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InferenceDeviceInfo.to_query v - let to_json v = `List (List.map InferenceDeviceInfo.to_json v) - let of_json j = Aws.Json.to_list InferenceDeviceInfo.of_json j end @@ -33825,9 +32891,7 @@ module FpgaDeviceInfoList = struct Aws.Util.option_all (List.map FpgaDeviceInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FpgaDeviceInfo.to_query v - let to_json v = `List (List.map FpgaDeviceInfo.to_json v) - let of_json j = Aws.Json.to_list FpgaDeviceInfo.of_json j end @@ -33887,9 +32951,7 @@ module EbsOptimizedSupport = struct [ Default, "default"; Supported, "supported"; Unsupported, "unsupported" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33899,7 +32961,6 @@ module EbsOptimizedSupport = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -34010,9 +33071,7 @@ module EbsNvmeSupport = struct [ Required, "required"; Supported, "supported"; Unsupported, "unsupported" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -34022,7 +33081,6 @@ module EbsNvmeSupport = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -34032,13 +33090,9 @@ module EbsEncryptionSupport = struct | Supported let str_to_t = [ "supported", Supported; "unsupported", Unsupported ] - let t_to_str = [ Supported, "supported"; Unsupported, "unsupported" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -34048,7 +33102,6 @@ module EbsEncryptionSupport = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -34447,9 +33500,7 @@ module InstanceTypeInfoList = struct Aws.Util.option_all (List.map InstanceTypeInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceTypeInfo.to_query v - let to_json v = `List (List.map InstanceTypeInfo.to_json v) - let of_json j = Aws.Json.to_list InstanceTypeInfo.of_json j end @@ -34499,9 +33550,7 @@ module PrefixListState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -34511,7 +33560,6 @@ module PrefixListState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -34887,9 +33935,7 @@ module PricingDetailsList = struct Aws.Util.option_all (List.map PricingDetail.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PricingDetail.to_query v - let to_json v = `List (List.map PricingDetail.to_json v) - let of_json j = Aws.Json.to_list PricingDetail.of_json j end @@ -35104,9 +34150,7 @@ module ReservedInstancesOfferingList = struct (List.map ReservedInstancesOffering.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstancesOffering.to_query v - let to_json v = `List (List.map ReservedInstancesOffering.to_json v) - let of_json j = Aws.Json.to_list ReservedInstancesOffering.of_json j end @@ -35220,9 +34264,7 @@ module UnsuccessfulInstanceCreditSpecificationErrorCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -35232,7 +34274,6 @@ module UnsuccessfulInstanceCreditSpecificationErrorCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -35339,7 +34380,6 @@ module UnsuccessfulInstanceCreditSpecificationSet = struct Aws.Query.to_query_list UnsuccessfulInstanceCreditSpecificationItem.to_query v let to_json v = `List (List.map UnsuccessfulInstanceCreditSpecificationItem.to_json v) - let of_json j = Aws.Json.to_list UnsuccessfulInstanceCreditSpecificationItem.of_json j end @@ -35384,7 +34424,6 @@ module SuccessfulInstanceCreditSpecificationSet = struct Aws.Query.to_query_list SuccessfulInstanceCreditSpecificationItem.to_query v let to_json v = `List (List.map SuccessfulInstanceCreditSpecificationItem.to_json v) - let of_json j = Aws.Json.to_list SuccessfulInstanceCreditSpecificationItem.of_json j end @@ -35475,7 +34514,6 @@ module LaunchTemplateElasticInferenceAcceleratorList = struct Aws.Query.to_query_list LaunchTemplateElasticInferenceAccelerator.to_query v let to_json v = `List (List.map LaunchTemplateElasticInferenceAccelerator.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateElasticInferenceAccelerator.of_json j end @@ -35588,9 +34626,7 @@ module CancelSpotFleetRequestsSuccessSet = struct (List.map CancelSpotFleetRequestsSuccessItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CancelSpotFleetRequestsSuccessItem.to_query v - let to_json v = `List (List.map CancelSpotFleetRequestsSuccessItem.to_json v) - let of_json j = Aws.Json.to_list CancelSpotFleetRequestsSuccessItem.of_json j end @@ -35784,9 +34820,7 @@ module PriceScheduleList = struct Aws.Util.option_all (List.map PriceSchedule.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PriceSchedule.to_query v - let to_json v = `List (List.map PriceSchedule.to_json v) - let of_json j = Aws.Json.to_list PriceSchedule.of_json j end @@ -35936,13 +34970,9 @@ module RuleAction = struct | Deny let str_to_t = [ "deny", Deny; "allow", Allow ] - let t_to_str = [ Deny, "deny"; Allow, "allow" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -35952,7 +34982,6 @@ module RuleAction = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -36134,9 +35163,7 @@ module NetworkAclEntryList = struct Aws.Util.option_all (List.map NetworkAclEntry.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkAclEntry.to_query v - let to_json v = `List (List.map NetworkAclEntry.to_json v) - let of_json j = Aws.Json.to_list NetworkAclEntry.of_json j end @@ -36162,9 +35189,7 @@ module TransitGatewayMulitcastDomainAssociationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -36174,7 +35199,6 @@ module TransitGatewayMulitcastDomainAssociationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -36302,7 +35326,6 @@ module TransitGatewayMulticastDomainAssociationList = struct Aws.Query.to_query_list TransitGatewayMulticastDomainAssociation.to_query v let to_json v = `List (List.map TransitGatewayMulticastDomainAssociation.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayMulticastDomainAssociation.of_json j end @@ -36362,13 +35385,9 @@ module HostTenancy = struct | Host let str_to_t = [ "host", Host; "dedicated", Dedicated ] - let t_to_str = [ Host, "host"; Dedicated, "dedicated" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -36378,7 +35397,6 @@ module HostTenancy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -36420,13 +35438,9 @@ module ExportEnvironment = struct | Microsoft let str_to_t = [ "microsoft", Microsoft; "vmware", Vmware; "citrix", Citrix ] - let t_to_str = [ Microsoft, "microsoft"; Vmware, "vmware"; Citrix, "citrix" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -36436,7 +35450,6 @@ module ExportEnvironment = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -36541,9 +35554,7 @@ module InstanceStateChangeList = struct Aws.Util.option_all (List.map InstanceStateChange.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceStateChange.to_query v - let to_json v = `List (List.map InstanceStateChange.to_json v) - let of_json j = Aws.Json.to_list InstanceStateChange.of_json j end @@ -36586,13 +35597,9 @@ module ContainerFormat = struct type t = Ova let str_to_t = [ "ova", Ova ] - let t_to_str = [ Ova, "ova" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -36602,7 +35609,6 @@ module ContainerFormat = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -36782,9 +35788,7 @@ module ExportTaskList = struct Aws.Util.option_all (List.map ExportTask.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ExportTask.to_query v - let to_json v = `List (List.map ExportTask.to_json v) - let of_json j = Aws.Json.to_list ExportTask.of_json j end @@ -36792,13 +35796,9 @@ module EgressOnlyInternetGatewayIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -36806,13 +35806,9 @@ module IpRanges = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -36881,13 +35877,9 @@ module TrafficDirection = struct | Egress let str_to_t = [ "egress", Egress; "ingress", Ingress ] - let t_to_str = [ Egress, "egress"; Ingress, "ingress" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -36897,7 +35889,6 @@ module TrafficDirection = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -36965,9 +35956,7 @@ module FleetLaunchTemplateConfigList = struct (List.map FleetLaunchTemplateConfig.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FleetLaunchTemplateConfig.to_query v - let to_json v = `List (List.map FleetLaunchTemplateConfig.to_json v) - let of_json j = Aws.Json.to_list FleetLaunchTemplateConfig.of_json j end @@ -37026,9 +36015,7 @@ module SpotInstanceRequestIdList = struct (List.map String.parse (Aws.Xml.members "SpotInstanceRequestId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -37192,9 +36179,7 @@ module UnsuccessfulItemList = struct Aws.Util.option_all (List.map UnsuccessfulItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list UnsuccessfulItem.to_query v - let to_json v = `List (List.map UnsuccessfulItem.to_json v) - let of_json j = Aws.Json.to_list UnsuccessfulItem.of_json j end @@ -37202,13 +36187,9 @@ module ResponseHostIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -37377,9 +36358,7 @@ module CustomerGatewayList = struct Aws.Util.option_all (List.map CustomerGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CustomerGateway.to_query v - let to_json v = `List (List.map CustomerGateway.to_json v) - let of_json j = Aws.Json.to_list CustomerGateway.of_json j end @@ -37649,9 +36628,7 @@ module RemovePrefixListEntries = struct (List.map RemovePrefixListEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list RemovePrefixListEntry.to_query v - let to_json v = `List (List.map RemovePrefixListEntry.to_json v) - let of_json j = Aws.Json.to_list RemovePrefixListEntry.of_json j end @@ -37702,9 +36679,7 @@ module AddPrefixListEntries = struct Aws.Util.option_all (List.map AddPrefixListEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AddPrefixListEntry.to_query v - let to_json v = `List (List.map AddPrefixListEntry.to_json v) - let of_json j = Aws.Json.to_list AddPrefixListEntry.of_json j end @@ -37851,9 +36826,7 @@ module CreateVolumePermissionList = struct (List.map CreateVolumePermission.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CreateVolumePermission.to_query v - let to_json v = `List (List.map CreateVolumePermission.to_json v) - let of_json j = Aws.Json.to_list CreateVolumePermission.of_json j end @@ -37909,13 +36882,9 @@ module ElasticGpuIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -38280,13 +37249,9 @@ module InstanceMatchCriteria = struct | Targeted let str_to_t = [ "targeted", Targeted; "open", Open ] - let t_to_str = [ Targeted, "targeted"; Open, "open" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -38296,7 +37261,6 @@ module InstanceMatchCriteria = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -38304,13 +37268,9 @@ module ResetFpgaImageAttributeName = struct type t = LoadPermission let str_to_t = [ "loadPermission", LoadPermission ] - let t_to_str = [ LoadPermission, "loadPermission" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -38320,7 +37280,6 @@ module ResetFpgaImageAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -38328,13 +37287,9 @@ module RequestSpotLaunchSpecificationSecurityGroupIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -38342,13 +37297,9 @@ module ConversionIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -38614,9 +37565,7 @@ module VpcIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "VpcId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -39028,13 +37977,9 @@ module DomainType = struct | Standard let str_to_t = [ "standard", Standard; "vpc", Vpc ] - let t_to_str = [ Standard, "standard"; Vpc, "vpc" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -39044,7 +37989,6 @@ module DomainType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -39252,13 +38196,9 @@ module VpnStaticRouteSource = struct type t = Static let str_to_t = [ "Static", Static ] - let t_to_str = [ Static, "Static" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -39268,7 +38208,6 @@ module VpnStaticRouteSource = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -39294,9 +38233,7 @@ module VpnState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -39306,7 +38243,6 @@ module VpnState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -39368,9 +38304,7 @@ module VpnStaticRouteList = struct Aws.Util.option_all (List.map VpnStaticRoute.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpnStaticRoute.to_query v - let to_json v = `List (List.map VpnStaticRoute.to_json v) - let of_json j = Aws.Json.to_list VpnStaticRoute.of_json j end @@ -39408,9 +38342,7 @@ module Phase2IntegrityAlgorithmsList = struct (List.map Phase2IntegrityAlgorithmsListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase2IntegrityAlgorithmsListValue.to_query v - let to_json v = `List (List.map Phase2IntegrityAlgorithmsListValue.to_json v) - let of_json j = Aws.Json.to_list Phase2IntegrityAlgorithmsListValue.of_json j end @@ -39448,9 +38380,7 @@ module Phase2EncryptionAlgorithmsList = struct (List.map Phase2EncryptionAlgorithmsListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase2EncryptionAlgorithmsListValue.to_query v - let to_json v = `List (List.map Phase2EncryptionAlgorithmsListValue.to_json v) - let of_json j = Aws.Json.to_list Phase2EncryptionAlgorithmsListValue.of_json j end @@ -39488,9 +38418,7 @@ module Phase1IntegrityAlgorithmsList = struct (List.map Phase1IntegrityAlgorithmsListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase1IntegrityAlgorithmsListValue.to_query v - let to_json v = `List (List.map Phase1IntegrityAlgorithmsListValue.to_json v) - let of_json j = Aws.Json.to_list Phase1IntegrityAlgorithmsListValue.of_json j end @@ -39528,9 +38456,7 @@ module Phase1DHGroupNumbersList = struct (List.map Phase1DHGroupNumbersListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Phase1DHGroupNumbersListValue.to_query v - let to_json v = `List (List.map Phase1DHGroupNumbersListValue.to_json v) - let of_json j = Aws.Json.to_list Phase1DHGroupNumbersListValue.of_json j end @@ -39567,9 +38493,7 @@ module IKEVersionsList = struct Aws.Util.option_all (List.map IKEVersionsListValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list IKEVersionsListValue.to_query v - let to_json v = `List (List.map IKEVersionsListValue.to_json v) - let of_json j = Aws.Json.to_list IKEVersionsListValue.of_json j end @@ -39871,9 +38795,7 @@ module TunnelOptionsList = struct Aws.Util.option_all (List.map TunnelOption.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TunnelOption.to_query v - let to_json v = `List (List.map TunnelOption.to_json v) - let of_json j = Aws.Json.to_list TunnelOption.of_json j end @@ -40004,13 +38926,9 @@ module GatewayType = struct type t = Ipsec_1 let str_to_t = [ "ipsec.1", Ipsec_1 ] - let t_to_str = [ Ipsec_1, "ipsec.1" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -40020,7 +38938,6 @@ module GatewayType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -40308,9 +39225,7 @@ module VpcAttachmentList = struct Aws.Util.option_all (List.map VpcAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcAttachment.to_query v - let to_json v = `List (List.map VpcAttachment.to_json v) - let of_json j = Aws.Json.to_list VpcAttachment.of_json j end @@ -40423,9 +39338,7 @@ module VpnGatewayList = struct Aws.Util.option_all (List.map VpnGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpnGateway.to_query v - let to_json v = `List (List.map VpnGateway.to_json v) - let of_json j = Aws.Json.to_list VpnGateway.of_json j end @@ -40451,9 +39364,7 @@ module DeleteFleetErrorCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -40463,7 +39374,6 @@ module DeleteFleetErrorCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -40548,9 +39458,7 @@ module DeleteFleetErrorSet = struct Aws.Util.option_all (List.map DeleteFleetErrorItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DeleteFleetErrorItem.to_query v - let to_json v = `List (List.map DeleteFleetErrorItem.to_json v) - let of_json j = Aws.Json.to_list DeleteFleetErrorItem.of_json j end @@ -40703,9 +39611,7 @@ module PrincipalIdFormatList = struct Aws.Util.option_all (List.map PrincipalIdFormat.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PrincipalIdFormat.to_query v - let to_json v = `List (List.map PrincipalIdFormat.to_json v) - let of_json j = Aws.Json.to_list PrincipalIdFormat.of_json j end @@ -40784,9 +39690,7 @@ module FpgaImageStateCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -40796,7 +39700,6 @@ module FpgaImageStateCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -41011,9 +39914,7 @@ module FpgaImageList = struct Aws.Util.option_all (List.map FpgaImage.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FpgaImage.to_query v - let to_json v = `List (List.map FpgaImage.to_json v) - let of_json j = Aws.Json.to_list FpgaImage.of_json j end @@ -41074,13 +39975,9 @@ module PlacementStrategy = struct | Partition let str_to_t = [ "partition", Partition; "spread", Spread; "cluster", Cluster ] - let t_to_str = [ Partition, "partition"; Spread, "spread"; Cluster, "cluster" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -41090,7 +39987,6 @@ module PlacementStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -41359,9 +40255,7 @@ module InstanceCreditSpecificationList = struct (List.map InstanceCreditSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceCreditSpecification.to_query v - let to_json v = `List (List.map InstanceCreditSpecification.to_json v) - let of_json j = Aws.Json.to_list InstanceCreditSpecification.of_json j end @@ -41374,9 +40268,7 @@ module ResourceIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -41437,9 +40329,7 @@ module ReservedInstancesListingList = struct (List.map ReservedInstancesListing.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstancesListing.to_query v - let to_json v = `List (List.map ReservedInstancesListing.to_json v) - let of_json j = Aws.Json.to_list ReservedInstancesListing.of_json j end @@ -41930,13 +40820,9 @@ module TrafficMirrorFilterIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -42018,13 +40904,9 @@ module TrafficMirrorTargetIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -42034,13 +40916,9 @@ module TrafficMirrorRuleAction = struct | Reject let str_to_t = [ "reject", Reject; "accept", Accept ] - let t_to_str = [ Reject, "reject"; Accept, "accept" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -42050,7 +40928,6 @@ module TrafficMirrorRuleAction = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -42256,9 +41133,7 @@ module TrafficMirrorFilterRuleList = struct (List.map TrafficMirrorFilterRule.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorFilterRule.to_query v - let to_json v = `List (List.map TrafficMirrorFilterRule.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorFilterRule.of_json j end @@ -42268,13 +41143,9 @@ module OnDemandAllocationStrategy = struct | Prioritized let str_to_t = [ "prioritized", Prioritized; "lowestPrice", LowestPrice ] - let t_to_str = [ Prioritized, "prioritized"; LowestPrice, "lowestPrice" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -42284,7 +41155,6 @@ module OnDemandAllocationStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -42297,9 +41167,7 @@ module NetworkInterfacePermissionIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -42379,13 +41247,9 @@ module SnapshotState = struct | Error let str_to_t = [ "error", Error; "completed", Completed; "pending", Pending ] - let t_to_str = [ Error, "error"; Completed, "completed"; Pending, "pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -42395,7 +41259,6 @@ module SnapshotState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -42617,9 +41480,7 @@ module SnapshotAttributeName = struct [ CreateVolumePermission, "createVolumePermission"; ProductCodes, "productCodes" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -42629,7 +41490,6 @@ module SnapshotAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -42895,13 +41755,9 @@ module NatGatewayIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -43238,9 +42094,7 @@ module StatusType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -43250,7 +42104,6 @@ module StatusType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -43258,13 +42111,9 @@ module StatusName = struct type t = Reachability let str_to_t = [ "reachability", Reachability ] - let t_to_str = [ Reachability, "reachability" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -43274,7 +42123,6 @@ module StatusName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -43333,9 +42181,7 @@ module InstanceStatusDetailsList = struct (List.map InstanceStatusDetails.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceStatusDetails.to_query v - let to_json v = `List (List.map InstanceStatusDetails.to_json v) - let of_json j = Aws.Json.to_list InstanceStatusDetails.of_json j end @@ -43343,13 +42189,9 @@ module VpcEndpointSubnetIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -43489,9 +42331,7 @@ module LoadPermissionList = struct Aws.Util.option_all (List.map LoadPermission.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LoadPermission.to_query v - let to_json v = `List (List.map LoadPermission.to_json v) - let of_json j = Aws.Json.to_list LoadPermission.of_json j end @@ -43782,9 +42622,7 @@ module AddressList = struct Aws.Util.option_all (List.map Address.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Address.to_query v - let to_json v = `List (List.map Address.to_json v) - let of_json j = Aws.Json.to_list Address.of_json j end @@ -43792,13 +42630,9 @@ module ResourceList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -44033,13 +42867,9 @@ module Affinity = struct | Host let str_to_t = [ "host", Host; "default", Default ] - let t_to_str = [ Host, "host"; Default, "default" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -44049,7 +42879,6 @@ module Affinity = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -44172,13 +43001,9 @@ module TransitGatewayIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -44345,9 +43170,7 @@ module ImageIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ImageId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -44355,13 +43178,9 @@ module VpcPeeringConnectionIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -44486,9 +43305,7 @@ module EventCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -44498,7 +43315,6 @@ module EventCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -44547,13 +43363,9 @@ module AllowsMultipleInstanceTypes = struct | Off let str_to_t = [ "off", Off; "on", On ] - let t_to_str = [ Off, "off"; On, "on" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -44563,7 +43375,6 @@ module AllowsMultipleInstanceTypes = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -44681,9 +43492,7 @@ module UserIdGroupPairSet = struct Aws.Util.option_all (List.map UserIdGroupPair.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list UserIdGroupPair.to_query v - let to_json v = `List (List.map UserIdGroupPair.to_json v) - let of_json j = Aws.Json.to_list UserIdGroupPair.of_json j end @@ -44691,13 +43500,9 @@ module PrefixListIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -44791,9 +43596,7 @@ module StaleIpPermissionSet = struct Aws.Util.option_all (List.map StaleIpPermission.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list StaleIpPermission.to_query v - let to_json v = `List (List.map StaleIpPermission.to_json v) - let of_json j = Aws.Json.to_list StaleIpPermission.of_json j end @@ -44960,9 +43763,7 @@ module LaunchPermissionList = struct Aws.Util.option_all (List.map LaunchPermission.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchPermission.to_query v - let to_json v = `List (List.map LaunchPermission.to_json v) - let of_json j = Aws.Json.to_list LaunchPermission.of_json j end @@ -45094,13 +43895,9 @@ module VpcEndpointRouteTableIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -45332,13 +44129,9 @@ module TrafficMirrorNetworkService = struct type t = Amazon_dns let str_to_t = [ "amazon-dns", Amazon_dns ] - let t_to_str = [ Amazon_dns, "amazon-dns" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -45348,7 +44141,6 @@ module TrafficMirrorNetworkService = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -45362,9 +44154,7 @@ module TrafficMirrorNetworkServiceList = struct (List.map TrafficMirrorNetworkService.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorNetworkService.to_query v - let to_json v = `List (List.map TrafficMirrorNetworkService.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorNetworkService.of_json j end @@ -45649,9 +44439,7 @@ module UnsuccessfulItemSet = struct Aws.Util.option_all (List.map UnsuccessfulItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list UnsuccessfulItem.to_query v - let to_json v = `List (List.map UnsuccessfulItem.to_json v) - let of_json j = Aws.Json.to_list UnsuccessfulItem.of_json j end @@ -45816,9 +44604,7 @@ module LaunchTemplateErrorCode = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -45828,7 +44614,6 @@ module LaunchTemplateErrorCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -45913,9 +44698,7 @@ module CapacityReservationInstancePlatform = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -45925,7 +44708,6 @@ module CapacityReservationInstancePlatform = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -45938,9 +44720,7 @@ module PoolCidrBlocksSet = struct Aws.Util.option_all (List.map PoolCidrBlock.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PoolCidrBlock.to_query v - let to_json v = `List (List.map PoolCidrBlock.to_json v) - let of_json j = Aws.Json.to_list PoolCidrBlock.of_json j end @@ -46210,9 +44990,7 @@ module ImportSnapshotTaskList = struct Aws.Util.option_all (List.map ImportSnapshotTask.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ImportSnapshotTask.to_query v - let to_json v = `List (List.map ImportSnapshotTask.to_json v) - let of_json j = Aws.Json.to_list ImportSnapshotTask.of_json j end @@ -46316,9 +45094,7 @@ module DhcpConfigurationValueList = struct Aws.Util.option_all (List.map AttributeValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AttributeValue.to_query v - let to_json v = `List (List.map AttributeValue.to_json v) - let of_json j = Aws.Json.to_list AttributeValue.of_json j end @@ -46425,9 +45201,7 @@ module VolumeStatusInfoStatus = struct [ Insufficient_data, "insufficient-data"; Impaired, "impaired"; Ok, "ok" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -46437,7 +45211,6 @@ module VolumeStatusInfoStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -46447,13 +45220,9 @@ module VolumeStatusName = struct | Io_performance let str_to_t = [ "io-performance", Io_performance; "io-enabled", Io_enabled ] - let t_to_str = [ Io_performance, "io-performance"; Io_enabled, "io-enabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -46463,7 +45232,6 @@ module VolumeStatusName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -46512,9 +45280,7 @@ module VolumeStatusDetailsList = struct Aws.Util.option_all (List.map VolumeStatusDetails.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeStatusDetails.to_query v - let to_json v = `List (List.map VolumeStatusDetails.to_json v) - let of_json j = Aws.Json.to_list VolumeStatusDetails.of_json j end @@ -46633,9 +45399,7 @@ module VolumeStatusEventsList = struct Aws.Util.option_all (List.map VolumeStatusEvent.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeStatusEvent.to_query v - let to_json v = `List (List.map VolumeStatusEvent.to_json v) - let of_json j = Aws.Json.to_list VolumeStatusEvent.of_json j end @@ -46688,9 +45452,7 @@ module VolumeStatusAttachmentStatusList = struct (List.map VolumeStatusAttachmentStatus.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeStatusAttachmentStatus.to_query v - let to_json v = `List (List.map VolumeStatusAttachmentStatus.to_json v) - let of_json j = Aws.Json.to_list VolumeStatusAttachmentStatus.of_json j end @@ -46752,9 +45514,7 @@ module VolumeStatusActionsList = struct Aws.Util.option_all (List.map VolumeStatusAction.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeStatusAction.to_query v - let to_json v = `List (List.map VolumeStatusAction.to_json v) - let of_json j = Aws.Json.to_list VolumeStatusAction.of_json j end @@ -46879,9 +45639,7 @@ module VolumeStatusList = struct Aws.Util.option_all (List.map VolumeStatusItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeStatusItem.to_query v - let to_json v = `List (List.map VolumeStatusItem.to_json v) - let of_json j = Aws.Json.to_list VolumeStatusItem.of_json j end @@ -46996,9 +45754,7 @@ module IamInstanceProfileAssociationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -47008,7 +45764,6 @@ module IamInstanceProfileAssociationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -47259,9 +46014,7 @@ module EventType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -47271,7 +46024,6 @@ module EventType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -47811,9 +46563,7 @@ module ServiceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -47823,7 +46573,6 @@ module ServiceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -47940,9 +46689,7 @@ module AvailabilityZoneState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -47952,7 +46699,6 @@ module AvailabilityZoneState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -47990,9 +46736,7 @@ module AvailabilityZoneMessageList = struct (List.map AvailabilityZoneMessage.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AvailabilityZoneMessage.to_query v - let to_json v = `List (List.map AvailabilityZoneMessage.to_json v) - let of_json j = Aws.Json.to_list AvailabilityZoneMessage.of_json j end @@ -48148,9 +46892,7 @@ module AvailabilityZoneList = struct Aws.Util.option_all (List.map AvailabilityZone.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AvailabilityZone.to_query v - let to_json v = `List (List.map AvailabilityZone.to_json v) - let of_json j = Aws.Json.to_list AvailabilityZone.of_json j end @@ -48270,9 +47012,7 @@ module InstanceAttributeName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -48282,7 +47022,6 @@ module InstanceAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -48386,13 +47125,9 @@ module CapacityReservationTenancy = struct | Dedicated let str_to_t = [ "dedicated", Dedicated; "default", Default ] - let t_to_str = [ Dedicated, "dedicated"; Default, "default" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -48402,7 +47137,6 @@ module CapacityReservationTenancy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -48532,9 +47266,7 @@ module NetworkAclAssociationList = struct (List.map NetworkAclAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkAclAssociation.to_query v - let to_json v = `List (List.map NetworkAclAssociation.to_json v) - let of_json j = Aws.Json.to_list NetworkAclAssociation.of_json j end @@ -48890,9 +47622,7 @@ module PurchaseRequestSet = struct (List.map PurchaseRequest.parse (Aws.Xml.members "PurchaseRequest" xml)) let to_query v = Aws.Query.to_query_list PurchaseRequest.to_query v - let to_json v = `List (List.map PurchaseRequest.to_json v) - let of_json j = Aws.Json.to_list PurchaseRequest.of_json j end @@ -48954,13 +47684,9 @@ module VolumeAttributeName = struct | ProductCodes let str_to_t = [ "productCodes", ProductCodes; "autoEnableIO", AutoEnableIO ] - let t_to_str = [ ProductCodes, "productCodes"; AutoEnableIO, "autoEnableIO" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -48970,7 +47696,6 @@ module VolumeAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -49317,9 +48042,7 @@ module TargetGroups = struct Aws.Util.option_all (List.map TargetGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TargetGroup.to_query v - let to_json v = `List (List.map TargetGroup.to_json v) - let of_json j = Aws.Json.to_list TargetGroup.of_json j end @@ -49384,9 +48107,7 @@ module ClassicLoadBalancers = struct Aws.Util.option_all (List.map ClassicLoadBalancer.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClassicLoadBalancer.to_query v - let to_json v = `List (List.map ClassicLoadBalancer.to_json v) - let of_json j = Aws.Json.to_list ClassicLoadBalancer.of_json j end @@ -49491,9 +48212,7 @@ module LaunchSpecsList = struct (List.map SpotFleetLaunchSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SpotFleetLaunchSpecification.to_query v - let to_json v = `List (List.map SpotFleetLaunchSpecification.to_json v) - let of_json j = Aws.Json.to_list SpotFleetLaunchSpecification.of_json j end @@ -49504,13 +48223,9 @@ module FleetType = struct | Instant let str_to_t = [ "instant", Instant; "maintain", Maintain; "request", Request ] - let t_to_str = [ Instant, "instant"; Maintain, "maintain"; Request, "request" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -49520,7 +48235,6 @@ module FleetType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -49543,9 +48257,7 @@ module AllocationStrategy = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -49555,7 +48267,6 @@ module AllocationStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -49918,9 +48629,7 @@ module ActivityStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -49930,7 +48639,6 @@ module ActivityStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -50040,9 +48748,7 @@ module SpotFleetRequestConfigSet = struct (List.map SpotFleetRequestConfig.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SpotFleetRequestConfig.to_query v - let to_json v = `List (List.map SpotFleetRequestConfig.to_json v) - let of_json j = Aws.Json.to_list SpotFleetRequestConfig.of_json j end @@ -50157,9 +48863,7 @@ module VolumeAttachmentState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -50169,7 +48873,6 @@ module VolumeAttachmentState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -50250,9 +48953,7 @@ module VolumeAttachmentList = struct Aws.Util.option_all (List.map VolumeAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeAttachment.to_query v - let to_json v = `List (List.map VolumeAttachment.to_json v) - let of_json j = Aws.Json.to_list VolumeAttachment.of_json j end @@ -50260,13 +48961,9 @@ module DeleteQueuedReservedInstancesIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -50350,9 +49047,7 @@ module VpcPeeringConnectionList = struct Aws.Util.option_all (List.map VpcPeeringConnection.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcPeeringConnection.to_query v - let to_json v = `List (List.map VpcPeeringConnection.to_json v) - let of_json j = Aws.Json.to_list VpcPeeringConnection.of_json j end @@ -50432,9 +49127,7 @@ module InstanceIpv6AddressListRequest = struct (Aws.Xml.members "InstanceIpv6Address" xml)) let to_query v = Aws.Query.to_query_list InstanceIpv6AddressRequest.to_query v - let to_json v = `List (List.map InstanceIpv6AddressRequest.to_json v) - let of_json j = Aws.Json.to_list InstanceIpv6AddressRequest.of_json j end @@ -50442,13 +49135,9 @@ module InternetGatewayIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -50785,9 +49474,7 @@ module ImportTaskIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ImportTaskId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -50862,13 +49549,9 @@ module SpotInstanceInterruptionBehavior = struct | Terminate let str_to_t = [ "terminate", Terminate; "stop", Stop; "hibernate", Hibernate ] - let t_to_str = [ Terminate, "terminate"; Stop, "stop"; Hibernate, "hibernate" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -50878,7 +49561,6 @@ module SpotInstanceInterruptionBehavior = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -50901,9 +49583,7 @@ module SpotAllocationStrategy = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -50913,7 +49593,6 @@ module SpotAllocationStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -51124,13 +49803,9 @@ module FleetOnDemandAllocationStrategy = struct | Prioritized let str_to_t = [ "prioritized", Prioritized; "lowest-price", Lowest_price ] - let t_to_str = [ Prioritized, "prioritized"; Lowest_price, "lowest-price" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -51140,7 +49815,6 @@ module FleetOnDemandAllocationStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -51148,13 +49822,9 @@ module FleetCapacityReservationUsageStrategy = struct type t = Use_capacity_reservations_first let str_to_t = [ "use-capacity-reservations-first", Use_capacity_reservations_first ] - let t_to_str = [ Use_capacity_reservations_first, "use-capacity-reservations-first" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -51164,7 +49834,6 @@ module FleetCapacityReservationUsageStrategy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -51328,9 +49997,7 @@ module FleetActivityStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -51340,7 +50007,6 @@ module FleetActivityStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -51348,13 +50014,9 @@ module InstanceIdsSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -51448,9 +50110,7 @@ module DescribeFleetsInstancesSet = struct (List.map DescribeFleetsInstances.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DescribeFleetsInstances.to_query v - let to_json v = `List (List.map DescribeFleetsInstances.to_json v) - let of_json j = Aws.Json.to_list DescribeFleetsInstances.of_json j end @@ -51526,9 +50186,7 @@ module DescribeFleetsErrorSet = struct Aws.Util.option_all (List.map DescribeFleetError.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DescribeFleetError.to_query v - let to_json v = `List (List.map DescribeFleetError.to_json v) - let of_json j = Aws.Json.to_list DescribeFleetError.of_json j end @@ -51815,9 +50473,7 @@ module FleetSet = struct Aws.Util.option_all (List.map FleetData.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FleetData.to_query v - let to_json v = `List (List.map FleetData.to_json v) - let of_json j = Aws.Json.to_list FleetData.of_json j end @@ -51868,9 +50524,7 @@ module CarrierGatewayIdSet = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -52018,9 +50672,7 @@ module VolumeState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -52030,7 +50682,6 @@ module VolumeState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -52234,9 +50885,7 @@ module FleetEventType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -52246,7 +50895,6 @@ module FleetEventType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -52342,7 +50990,6 @@ module LaunchTemplateLicenseSpecificationListRequest = struct Aws.Query.to_query_list LaunchTemplateLicenseConfigurationRequest.to_query v let to_json v = `List (List.map LaunchTemplateLicenseConfigurationRequest.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateLicenseConfigurationRequest.of_json j end @@ -52481,9 +51128,7 @@ module ServiceTypeDetailSet = struct Aws.Util.option_all (List.map ServiceTypeDetail.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ServiceTypeDetail.to_query v - let to_json v = `List (List.map ServiceTypeDetail.to_json v) - let of_json j = Aws.Json.to_list ServiceTypeDetail.of_json j end @@ -52500,9 +51145,7 @@ module DnsNameState = struct [ Failed, "failed"; Verified, "verified"; PendingVerification, "pendingVerification" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -52512,7 +51155,6 @@ module DnsNameState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -52698,9 +51340,7 @@ module ServiceDetailSet = struct Aws.Util.option_all (List.map ServiceDetail.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ServiceDetail.to_query v - let to_json v = `List (List.map ServiceDetail.to_json v) - let of_json j = Aws.Json.to_list ServiceDetail.of_json j end @@ -52881,9 +51521,7 @@ module TrafficMirrorFilterRuleField = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -52893,7 +51531,6 @@ module TrafficMirrorFilterRuleField = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -52901,13 +51538,9 @@ module VpcEndpointSecurityGroupIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -53225,9 +51858,7 @@ module AccountAttributeName = struct [ Default_vpc, "default-vpc"; Supported_platforms, "supported-platforms" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -53237,7 +51868,6 @@ module AccountAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -53251,9 +51881,7 @@ module AccountAttributeNameStringList = struct (List.map AccountAttributeName.parse (Aws.Xml.members "attributeName" xml)) let to_query v = Aws.Query.to_query_list AccountAttributeName.to_query v - let to_json v = `List (List.map AccountAttributeName.to_json v) - let of_json j = Aws.Json.to_list AccountAttributeName.of_json j end @@ -53312,9 +51940,7 @@ module ClientVpnAuthenticationList = struct (List.map ClientVpnAuthentication.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClientVpnAuthentication.to_query v - let to_json v = `List (List.map ClientVpnAuthentication.to_json v) - let of_json j = Aws.Json.to_list ClientVpnAuthentication.of_json j end @@ -53327,9 +51953,7 @@ module SecurityGroupStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SecurityGroup" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -53413,7 +52037,6 @@ module LaunchTemplateTagSpecificationRequestList = struct Aws.Query.to_query_list LaunchTemplateTagSpecificationRequest.to_query v let to_json v = `List (List.map LaunchTemplateTagSpecificationRequest.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateTagSpecificationRequest.of_json j end @@ -54161,9 +52784,7 @@ module ElasticGpuSpecificationList = struct (Aws.Xml.members "ElasticGpuSpecification" xml)) let to_query v = Aws.Query.to_query_list ElasticGpuSpecification.to_query v - let to_json v = `List (List.map ElasticGpuSpecification.to_json v) - let of_json j = Aws.Json.to_list ElasticGpuSpecification.of_json j end @@ -54791,13 +53412,9 @@ module NetworkInterfaceIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -55101,9 +53718,7 @@ module PlacementGroupState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -55113,7 +53728,6 @@ module PlacementGroupState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -55693,9 +54307,7 @@ module TransitGatewayAttachmentIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -55785,9 +54397,7 @@ module DeleteFleetSuccessSet = struct (List.map DeleteFleetSuccessItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DeleteFleetSuccessItem.to_query v - let to_json v = `List (List.map DeleteFleetSuccessItem.to_json v) - let of_json j = Aws.Json.to_list DeleteFleetSuccessItem.of_json j end @@ -55844,9 +54454,7 @@ module ByoipCidrSet = struct Aws.Util.option_all (List.map ByoipCidr.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ByoipCidr.to_query v - let to_json v = `List (List.map ByoipCidr.to_json v) - let of_json j = Aws.Json.to_list ByoipCidr.of_json j end @@ -55860,9 +54468,7 @@ module TransitGatewayMulticastDomainList = struct (List.map TransitGatewayMulticastDomain.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayMulticastDomain.to_query v - let to_json v = `List (List.map TransitGatewayMulticastDomain.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayMulticastDomain.of_json j end @@ -55875,9 +54481,7 @@ module FlowLogSet = struct Aws.Util.option_all (List.map FlowLog.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FlowLog.to_query v - let to_json v = `List (List.map FlowLog.to_json v) - let of_json j = Aws.Json.to_list FlowLog.of_json j end @@ -56002,9 +54606,7 @@ module BundleIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "BundleId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -56012,13 +54614,9 @@ module VpnProtocol = struct type t = Openvpn let str_to_t = [ "openvpn", Openvpn ] - let t_to_str = [ Openvpn, "openvpn" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -56028,7 +54626,6 @@ module VpnProtocol = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -56038,13 +54635,9 @@ module TransportProtocol = struct | Udp let str_to_t = [ "udp", Udp; "tcp", Tcp ] - let t_to_str = [ Udp, "udp"; Tcp, "tcp" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -56054,7 +54647,6 @@ module TransportProtocol = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -56068,9 +54660,7 @@ module AssociatedTargetNetworkSet = struct (List.map AssociatedTargetNetwork.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AssociatedTargetNetwork.to_query v - let to_json v = `List (List.map AssociatedTargetNetwork.to_json v) - let of_json j = Aws.Json.to_list AssociatedTargetNetwork.of_json j end @@ -56361,9 +54951,7 @@ module EndpointSet = struct Aws.Util.option_all (List.map ClientVpnEndpoint.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClientVpnEndpoint.to_query v - let to_json v = `List (List.map ClientVpnEndpoint.to_json v) - let of_json j = Aws.Json.to_list ClientVpnEndpoint.of_json j end @@ -56421,9 +55009,7 @@ module BundleTaskList = struct Aws.Util.option_all (List.map BundleTask.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list BundleTask.to_query v - let to_json v = `List (List.map BundleTask.to_json v) - let of_json j = Aws.Json.to_list BundleTask.of_json j end @@ -56656,9 +55242,7 @@ module LocalGatewayRouteTableSet = struct (List.map LocalGatewayRouteTable.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LocalGatewayRouteTable.to_query v - let to_json v = `List (List.map LocalGatewayRouteTable.to_json v) - let of_json j = Aws.Json.to_list LocalGatewayRouteTable.of_json j end @@ -56769,13 +55353,9 @@ module TrafficMirrorSessionIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -57185,9 +55765,7 @@ module SecurityGroupList = struct Aws.Util.option_all (List.map SecurityGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SecurityGroup.to_query v - let to_json v = `List (List.map SecurityGroup.to_json v) - let of_json j = Aws.Json.to_list SecurityGroup.of_json j end @@ -57599,9 +56177,7 @@ module SubnetAssociationList = struct Aws.Util.option_all (List.map SubnetAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SubnetAssociation.to_query v - let to_json v = `List (List.map SubnetAssociation.to_json v) - let of_json j = Aws.Json.to_list SubnetAssociation.of_json j end @@ -57782,9 +56358,7 @@ module RegionNameStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "RegionName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -57898,9 +56472,7 @@ module SuccessfulQueuedPurchaseDeletionSet = struct (List.map SuccessfulQueuedPurchaseDeletion.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SuccessfulQueuedPurchaseDeletion.to_query v - let to_json v = `List (List.map SuccessfulQueuedPurchaseDeletion.to_json v) - let of_json j = Aws.Json.to_list SuccessfulQueuedPurchaseDeletion.of_json j end @@ -57914,9 +56486,7 @@ module FailedQueuedPurchaseDeletionSet = struct (List.map FailedQueuedPurchaseDeletion.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list FailedQueuedPurchaseDeletion.to_query v - let to_json v = `List (List.map FailedQueuedPurchaseDeletion.to_json v) - let of_json j = Aws.Json.to_list FailedQueuedPurchaseDeletion.of_json j end @@ -58015,9 +56585,7 @@ module AllocationState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -58027,7 +56595,6 @@ module AllocationState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -58124,9 +56691,7 @@ module Status = struct [ InClassic, "InClassic"; InVpc, "InVpc"; MoveInProgress, "MoveInProgress" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -58136,7 +56701,6 @@ module Status = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -58243,9 +56807,7 @@ module TransitGatewayPrefixListReferenceSet = struct (List.map TransitGatewayPrefixListReference.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayPrefixListReference.to_query v - let to_json v = `List (List.map TransitGatewayPrefixListReference.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayPrefixListReference.of_json j end @@ -58458,9 +57020,7 @@ module KeyPairIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "KeyPairId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -58473,9 +57033,7 @@ module KeyNameStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "KeyName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -58687,7 +57245,6 @@ module DeleteLaunchTemplateVersionsResponseErrorSet = struct Aws.Query.to_query_list DeleteLaunchTemplateVersionsResponseErrorItem.to_query v let to_json v = `List (List.map DeleteLaunchTemplateVersionsResponseErrorItem.to_json v) - let of_json j = Aws.Json.to_list DeleteLaunchTemplateVersionsResponseErrorItem.of_json j end @@ -58990,13 +57547,9 @@ module EndDateType = struct | Limited let str_to_t = [ "limited", Limited; "unlimited", Unlimited ] - let t_to_str = [ Limited, "limited"; Unlimited, "unlimited" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -59006,7 +57559,6 @@ module EndDateType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -59246,9 +57798,7 @@ module CapacityReservationSet = struct Aws.Util.option_all (List.map CapacityReservation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CapacityReservation.to_query v - let to_json v = `List (List.map CapacityReservation.to_json v) - let of_json j = Aws.Json.to_list CapacityReservation.of_json j end @@ -59345,9 +57895,7 @@ module PlacementGroupStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -59384,9 +57932,7 @@ module Ipv6PoolSet = struct Aws.Util.option_all (List.map Ipv6Pool.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Ipv6Pool.to_query v - let to_json v = `List (List.map Ipv6Pool.to_json v) - let of_json j = Aws.Json.to_list Ipv6Pool.of_json j end @@ -59582,9 +58128,7 @@ module PrincipalType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -59594,7 +58138,6 @@ module PrincipalType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -59646,9 +58189,7 @@ module AllowedPrincipalSet = struct Aws.Util.option_all (List.map AllowedPrincipal.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AllowedPrincipal.to_query v - let to_json v = `List (List.map AllowedPrincipal.to_json v) - let of_json j = Aws.Json.to_list AllowedPrincipal.of_json j end @@ -59692,9 +58233,7 @@ module NetworkAclList = struct Aws.Util.option_all (List.map NetworkAcl.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkAcl.to_query v - let to_json v = `List (List.map NetworkAcl.to_json v) - let of_json j = Aws.Json.to_list NetworkAcl.of_json j end @@ -59702,13 +58241,9 @@ module LocalGatewayIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -59927,9 +58462,7 @@ module CustomerGatewayIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "CustomerGatewayId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -59937,13 +58470,9 @@ module PublicIpv4PoolIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -60145,9 +58674,7 @@ module BlockDeviceMappingRequestList = struct (List.map BlockDeviceMapping.parse (Aws.Xml.members "BlockDeviceMapping" xml)) let to_query v = Aws.Query.to_query_list BlockDeviceMapping.to_query v - let to_json v = `List (List.map BlockDeviceMapping.to_json v) - let of_json j = Aws.Json.to_list BlockDeviceMapping.of_json j end @@ -60443,9 +58970,7 @@ module ImportSnapshotTaskIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ImportTaskId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -60476,13 +59001,9 @@ module ClientVpnEndpointIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -60647,13 +59168,9 @@ module HostRecovery = struct | Off let str_to_t = [ "off", Off; "on", On ] - let t_to_str = [ Off, "off"; On, "on" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -60663,7 +59180,6 @@ module HostRecovery = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -60673,13 +59189,9 @@ module AutoPlacement = struct | Off let str_to_t = [ "off", Off; "on", On ] - let t_to_str = [ Off, "off"; On, "on" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -60689,7 +59201,6 @@ module AutoPlacement = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -60820,9 +59331,7 @@ module ReservedInstancesModificationIdStringList = struct (List.map String.parse (Aws.Xml.members "ReservedInstancesModificationId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -60900,9 +59409,7 @@ module PrefixListSet = struct Aws.Util.option_all (List.map PrefixList.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PrefixList.to_query v - let to_json v = `List (List.map PrefixList.to_json v) - let of_json j = Aws.Json.to_list PrefixList.of_json j end @@ -61032,9 +59539,7 @@ module LocalGatewayVirtualInterfaceSet = struct (List.map LocalGatewayVirtualInterface.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LocalGatewayVirtualInterface.to_query v - let to_json v = `List (List.map LocalGatewayVirtualInterface.to_json v) - let of_json j = Aws.Json.to_list LocalGatewayVirtualInterface.of_json j end @@ -61432,9 +59937,7 @@ module ExportTaskIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ExportTaskId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -61490,13 +59993,9 @@ module MoveStatus = struct | RestoringToClassic let str_to_t = [ "restoringToClassic", RestoringToClassic; "movingToVpc", MovingToVpc ] - let t_to_str = [ RestoringToClassic, "restoringToClassic"; MovingToVpc, "movingToVpc" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -61506,7 +60005,6 @@ module MoveStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -61557,9 +60055,7 @@ module MovingAddressStatusSet = struct Aws.Util.option_all (List.map MovingAddressStatus.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list MovingAddressStatus.to_query v - let to_json v = `List (List.map MovingAddressStatus.to_json v) - let of_json j = Aws.Json.to_list MovingAddressStatus.of_json j end @@ -62044,9 +60540,7 @@ module ExecutableByStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ExecutableBy" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -62173,9 +60667,7 @@ module LocalGatewayVirtualInterfaceGroupSet = struct (List.map LocalGatewayVirtualInterfaceGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LocalGatewayVirtualInterfaceGroup.to_query v - let to_json v = `List (List.map LocalGatewayVirtualInterfaceGroup.to_json v) - let of_json j = Aws.Json.to_list LocalGatewayVirtualInterfaceGroup.of_json j end @@ -62234,13 +60726,9 @@ module RequestSpotLaunchSpecificationSecurityGroupList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -62460,9 +60948,7 @@ module ElasticInferenceAccelerators = struct (List.map ElasticInferenceAccelerator.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ElasticInferenceAccelerator.to_query v - let to_json v = `List (List.map ElasticInferenceAccelerator.to_json v) - let of_json j = Aws.Json.to_list ElasticInferenceAccelerator.of_json j end @@ -62476,9 +60962,7 @@ module ElasticGpuSpecifications = struct (List.map ElasticGpuSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ElasticGpuSpecification.to_query v - let to_json v = `List (List.map ElasticGpuSpecification.to_json v) - let of_json j = Aws.Json.to_list ElasticGpuSpecification.of_json j end @@ -63094,9 +61578,7 @@ module PrefixListEntrySet = struct Aws.Util.option_all (List.map PrefixListEntry.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PrefixListEntry.to_query v - let to_json v = `List (List.map PrefixListEntry.to_json v) - let of_json j = Aws.Json.to_list PrefixListEntry.of_json j end @@ -63383,9 +61865,7 @@ module ScheduledInstanceIdRequestSet = struct (List.map String.parse (Aws.Xml.members "ScheduledInstanceId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -63628,9 +62108,7 @@ module TransitGatewayMulticastGroupList = struct (List.map TransitGatewayMulticastGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayMulticastGroup.to_query v - let to_json v = `List (List.map TransitGatewayMulticastGroup.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayMulticastGroup.of_json j end @@ -63817,9 +62295,7 @@ module SnapshotList = struct Aws.Util.option_all (List.map Snapshot.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Snapshot.to_query v - let to_json v = `List (List.map Snapshot.to_json v) - let of_json j = Aws.Json.to_list Snapshot.of_json j end @@ -63832,9 +62308,7 @@ module CarrierGatewaySet = struct Aws.Util.option_all (List.map CarrierGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CarrierGateway.to_query v - let to_json v = `List (List.map CarrierGateway.to_json v) - let of_json j = Aws.Json.to_list CarrierGateway.of_json j end @@ -64129,9 +62603,7 @@ module VpcEndpointType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -64141,7 +62613,6 @@ module VpcEndpointType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -64421,9 +62892,7 @@ module ReservedInstancesModificationResultList = struct (List.map ReservedInstancesModificationResult.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstancesModificationResult.to_query v - let to_json v = `List (List.map ReservedInstancesModificationResult.to_json v) - let of_json j = Aws.Json.to_list ReservedInstancesModificationResult.of_json j end @@ -64473,9 +62942,7 @@ module CapacityReservationGroupSet = struct (List.map CapacityReservationGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CapacityReservationGroup.to_query v - let to_json v = `List (List.map CapacityReservationGroup.to_json v) - let of_json j = Aws.Json.to_list CapacityReservationGroup.of_json j end @@ -64536,9 +63003,7 @@ module ReservedIntancesIds = struct Aws.Util.option_all (List.map ReservedInstancesId.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstancesId.to_query v - let to_json v = `List (List.map ReservedInstancesId.to_json v) - let of_json j = Aws.Json.to_list ReservedInstancesId.of_json j end @@ -64688,9 +63153,7 @@ module ReservedInstancesModificationList = struct (List.map ReservedInstancesModification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstancesModification.to_query v - let to_json v = `List (List.map ReservedInstancesModification.to_json v) - let of_json j = Aws.Json.to_list ReservedInstancesModification.of_json j end @@ -64860,9 +63323,7 @@ module LaunchTemplateVersionSet = struct (List.map LaunchTemplateVersion.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplateVersion.to_query v - let to_json v = `List (List.map LaunchTemplateVersion.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplateVersion.of_json j end @@ -65049,9 +63510,7 @@ module IamInstanceProfileAssociationSet = struct (List.map IamInstanceProfileAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list IamInstanceProfileAssociation.to_query v - let to_json v = `List (List.map IamInstanceProfileAssociation.to_json v) - let of_json j = Aws.Json.to_list IamInstanceProfileAssociation.of_json j end @@ -65484,13 +63943,9 @@ module LocalGatewayRouteTableVirtualInterfaceGroupAssociationIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -65834,13 +64289,9 @@ module TransitGatewayMulticastDomainIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -65967,13 +64418,9 @@ module ClientCertificateRevocationListStatusCode = struct | Active let str_to_t = [ "active", Active; "pending", Pending ] - let t_to_str = [ Active, "active"; Pending, "pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -65983,7 +64430,6 @@ module ClientCertificateRevocationListStatusCode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -65991,13 +64437,9 @@ module InstanceIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -66107,9 +64549,7 @@ module PrivateIpAddressStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "PrivateIpAddress" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -66206,9 +64646,7 @@ module EnableFastSnapshotRestoreSuccessSet = struct (List.map EnableFastSnapshotRestoreSuccessItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list EnableFastSnapshotRestoreSuccessItem.to_query v - let to_json v = `List (List.map EnableFastSnapshotRestoreSuccessItem.to_json v) - let of_json j = Aws.Json.to_list EnableFastSnapshotRestoreSuccessItem.of_json j end @@ -66222,9 +64660,7 @@ module EnableFastSnapshotRestoreErrorSet = struct (List.map EnableFastSnapshotRestoreErrorItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list EnableFastSnapshotRestoreErrorItem.to_query v - let to_json v = `List (List.map EnableFastSnapshotRestoreErrorItem.to_json v) - let of_json j = Aws.Json.to_list EnableFastSnapshotRestoreErrorItem.of_json j end @@ -66651,9 +65087,7 @@ module ManagedPrefixListSet = struct Aws.Util.option_all (List.map ManagedPrefixList.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ManagedPrefixList.to_query v - let to_json v = `List (List.map ManagedPrefixList.to_json v) - let of_json j = Aws.Json.to_list ManagedPrefixList.of_json j end @@ -66663,13 +65097,9 @@ module ModifyAvailabilityZoneOptInStatus = struct | Not_opted_in let str_to_t = [ "not-opted-in", Not_opted_in; "opted-in", Opted_in ] - let t_to_str = [ Not_opted_in, "not-opted-in"; Opted_in, "opted-in" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -66679,7 +65109,6 @@ module ModifyAvailabilityZoneOptInStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -66992,9 +65421,7 @@ module ServiceConfigurationSet = struct Aws.Util.option_all (List.map ServiceConfiguration.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ServiceConfiguration.to_query v - let to_json v = `List (List.map ServiceConfiguration.to_json v) - let of_json j = Aws.Json.to_list ServiceConfiguration.of_json j end @@ -67007,9 +65434,7 @@ module SnapshotIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SnapshotId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -67022,9 +65447,7 @@ module RestorableByStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -67315,9 +65738,7 @@ module HistoryRecords = struct Aws.Util.option_all (List.map HistoryRecord.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list HistoryRecord.to_query v - let to_json v = `List (List.map HistoryRecord.to_json v) - let of_json j = Aws.Json.to_list HistoryRecord.of_json j end @@ -67450,9 +65871,7 @@ module TransitGatewayRouteList = struct Aws.Util.option_all (List.map TransitGatewayRoute.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayRoute.to_query v - let to_json v = `List (List.map TransitGatewayRoute.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayRoute.of_json j end @@ -67516,9 +65935,7 @@ module TargetReservationValueSet = struct (List.map TargetReservationValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TargetReservationValue.to_query v - let to_json v = `List (List.map TargetReservationValue.to_json v) - let of_json j = Aws.Json.to_list TargetReservationValue.of_json j end @@ -67579,9 +65996,7 @@ module ReservedInstanceReservationValueSet = struct (List.map ReservedInstanceReservationValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstanceReservationValue.to_query v - let to_json v = `List (List.map ReservedInstanceReservationValue.to_json v) - let of_json j = Aws.Json.to_list ReservedInstanceReservationValue.of_json j end @@ -67896,13 +66311,9 @@ module ImageTypeValues = struct | Ramdisk let str_to_t = [ "ramdisk", Ramdisk; "kernel", Kernel; "machine", Machine ] - let t_to_str = [ Ramdisk, "ramdisk"; Kernel, "kernel"; Machine, "machine" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -67912,7 +66323,6 @@ module ImageTypeValues = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -68305,13 +66715,9 @@ module RequestHostIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -68319,13 +66725,9 @@ module LocalGatewayRouteTableIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -68978,9 +67380,7 @@ module CancelledSpotInstanceRequestList = struct (List.map CancelledSpotInstanceRequest.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CancelledSpotInstanceRequest.to_query v - let to_json v = `List (List.map CancelledSpotInstanceRequest.to_json v) - let of_json j = Aws.Json.to_list CancelledSpotInstanceRequest.of_json j end @@ -69083,9 +67483,7 @@ module TransitGatewayPeeringAttachmentList = struct (List.map TransitGatewayPeeringAttachment.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayPeeringAttachment.to_query v - let to_json v = `List (List.map TransitGatewayPeeringAttachment.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayPeeringAttachment.of_json j end @@ -69352,9 +67750,7 @@ module DhcpConfigurationList = struct Aws.Util.option_all (List.map DhcpConfiguration.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DhcpConfiguration.to_query v - let to_json v = `List (List.map DhcpConfiguration.to_json v) - let of_json j = Aws.Json.to_list DhcpConfiguration.of_json j end @@ -69362,13 +67758,9 @@ module GroupIds = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -69419,9 +67811,7 @@ module ReservedInstancesList = struct Aws.Util.option_all (List.map ReservedInstances.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ReservedInstances.to_query v - let to_json v = `List (List.map ReservedInstances.to_json v) - let of_json j = Aws.Json.to_list ReservedInstances.of_json j end @@ -70281,9 +68671,7 @@ module VpcAttributeName = struct [ EnableDnsHostnames, "enableDnsHostnames"; EnableDnsSupport, "enableDnsSupport" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -70293,7 +68681,6 @@ module VpcAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -70454,9 +68841,7 @@ module NewDhcpConfigurationList = struct Aws.Util.option_all (List.map NewDhcpConfiguration.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NewDhcpConfiguration.to_query v - let to_json v = `List (List.map NewDhcpConfiguration.to_json v) - let of_json j = Aws.Json.to_list NewDhcpConfiguration.of_json j end @@ -70734,9 +69119,7 @@ module InstanceStatusEventList = struct Aws.Util.option_all (List.map InstanceStatusEvent.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceStatusEvent.to_query v - let to_json v = `List (List.map InstanceStatusEvent.to_json v) - let of_json j = Aws.Json.to_list InstanceStatusEvent.of_json j end @@ -70749,9 +69132,7 @@ module KeyPairList = struct Aws.Util.option_all (List.map KeyPairInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list KeyPairInfo.to_query v - let to_json v = `List (List.map KeyPairInfo.to_json v) - let of_json j = Aws.Json.to_list KeyPairInfo.of_json j end @@ -70851,13 +69232,9 @@ module ResetImageAttributeName = struct type t = LaunchPermission let str_to_t = [ "launchPermission", LaunchPermission ] - let t_to_str = [ LaunchPermission, "launchPermission" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -70867,7 +69244,6 @@ module ResetImageAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -71035,9 +69411,7 @@ module VolumeModificationList = struct Aws.Util.option_all (List.map VolumeModification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VolumeModification.to_query v - let to_json v = `List (List.map VolumeModification.to_json v) - let of_json j = Aws.Json.to_list VolumeModification.of_json j end @@ -71269,9 +69643,7 @@ module GroupIdentifierSet = struct (List.map SecurityGroupIdentifier.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SecurityGroupIdentifier.to_query v - let to_json v = `List (List.map SecurityGroupIdentifier.to_json v) - let of_json j = Aws.Json.to_list SecurityGroupIdentifier.of_json j end @@ -71539,9 +69911,7 @@ module NetworkInterfacePermissionList = struct (List.map NetworkInterfacePermission.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list NetworkInterfacePermission.to_query v - let to_json v = `List (List.map NetworkInterfacePermission.to_json v) - let of_json j = Aws.Json.to_list NetworkInterfacePermission.of_json j end @@ -71555,9 +69925,7 @@ module LocalGatewayRouteTableVpcAssociationSet = struct (List.map LocalGatewayRouteTableVpcAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LocalGatewayRouteTableVpcAssociation.to_query v - let to_json v = `List (List.map LocalGatewayRouteTableVpcAssociation.to_json v) - let of_json j = Aws.Json.to_list LocalGatewayRouteTableVpcAssociation.of_json j end @@ -71736,9 +70104,7 @@ module TrafficMirrorFilterRuleFieldList = struct (List.map TrafficMirrorFilterRuleField.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorFilterRuleField.to_query v - let to_json v = `List (List.map TrafficMirrorFilterRuleField.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorFilterRuleField.of_json j end @@ -71963,9 +70329,7 @@ module NetworkInterfaceAttribute = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -71975,7 +70339,6 @@ module NetworkInterfaceAttribute = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -72085,13 +70448,9 @@ module TransitGatewayRouteTableIdStringList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -72104,9 +70463,7 @@ module SnapshotSet = struct Aws.Util.option_all (List.map SnapshotInfo.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list SnapshotInfo.to_query v - let to_json v = `List (List.map SnapshotInfo.to_json v) - let of_json j = Aws.Json.to_list SnapshotInfo.of_json j end @@ -72178,9 +70535,7 @@ module RequestInstanceTypeList = struct Aws.Util.option_all (List.map InstanceType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceType.to_query v - let to_json v = `List (List.map InstanceType.to_json v) - let of_json j = Aws.Json.to_list InstanceType.of_json j end @@ -72193,9 +70548,7 @@ module CreateFleetInstancesSet = struct Aws.Util.option_all (List.map CreateFleetInstance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CreateFleetInstance.to_query v - let to_json v = `List (List.map CreateFleetInstance.to_json v) - let of_json j = Aws.Json.to_list CreateFleetInstance.of_json j end @@ -72208,9 +70561,7 @@ module CreateFleetErrorsSet = struct Aws.Util.option_all (List.map CreateFleetError.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CreateFleetError.to_query v - let to_json v = `List (List.map CreateFleetError.to_json v) - let of_json j = Aws.Json.to_list CreateFleetError.of_json j end @@ -72470,9 +70821,7 @@ module PurchasedScheduledInstanceSet = struct Aws.Util.option_all (List.map ScheduledInstance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ScheduledInstance.to_query v - let to_json v = `List (List.map ScheduledInstance.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstance.of_json j end @@ -72695,9 +71044,7 @@ module ClientVpnRouteSet = struct Aws.Util.option_all (List.map ClientVpnRoute.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClientVpnRoute.to_query v - let to_json v = `List (List.map ClientVpnRoute.to_json v) - let of_json j = Aws.Json.to_list ClientVpnRoute.of_json j end @@ -72891,9 +71238,7 @@ module ErrorSet = struct Aws.Util.option_all (List.map ValidationError.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ValidationError.to_query v - let to_json v = `List (List.map ValidationError.to_json v) - let of_json j = Aws.Json.to_list ValidationError.of_json j end @@ -73337,9 +71682,7 @@ module ClassicLinkInstanceList = struct Aws.Util.option_all (List.map ClassicLinkInstance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClassicLinkInstance.to_query v - let to_json v = `List (List.map ClassicLinkInstance.to_json v) - let of_json j = Aws.Json.to_list ClassicLinkInstance.of_json j end @@ -73395,9 +71738,7 @@ module AssociatedRolesList = struct Aws.Util.option_all (List.map AssociatedRole.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AssociatedRole.to_query v - let to_json v = `List (List.map AssociatedRole.to_json v) - let of_json j = Aws.Json.to_list AssociatedRole.of_json j end @@ -73410,9 +71751,7 @@ module VpcEndpointSet = struct Aws.Util.option_all (List.map VpcEndpoint.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcEndpoint.to_query v - let to_json v = `List (List.map VpcEndpoint.to_json v) - let of_json j = Aws.Json.to_list VpcEndpoint.of_json j end @@ -73855,9 +72194,7 @@ module DiskImageList = struct Aws.Util.option_all (List.map DiskImage.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DiskImage.to_query v - let to_json v = `List (List.map DiskImage.to_json v) - let of_json j = Aws.Json.to_list DiskImage.of_json j end @@ -73939,9 +72276,7 @@ module StaleSecurityGroupSet = struct Aws.Util.option_all (List.map StaleSecurityGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list StaleSecurityGroup.to_query v - let to_json v = `List (List.map StaleSecurityGroup.to_json v) - let of_json j = Aws.Json.to_list StaleSecurityGroup.of_json j end @@ -74125,9 +72460,7 @@ module VpcClassicLinkIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "VpcId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -74612,9 +72945,7 @@ module ScheduledInstanceSet = struct Aws.Util.option_all (List.map ScheduledInstance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ScheduledInstance.to_query v - let to_json v = `List (List.map ScheduledInstance.to_json v) - let of_json j = Aws.Json.to_list ScheduledInstance.of_json j end @@ -74766,13 +73097,9 @@ module ImageList = struct type t = Image.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Image.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Image.to_query v - let to_json v = `List (List.map Image.to_json v) - let of_json j = Aws.Json.to_list Image.of_json j end @@ -74782,13 +73109,9 @@ module SelfServicePortal = struct | Disabled let str_to_t = [ "disabled", Disabled; "enabled", Enabled ] - let t_to_str = [ Disabled, "disabled"; Enabled, "enabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -74798,7 +73121,6 @@ module SelfServicePortal = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -74838,9 +73160,7 @@ module ClientVpnAuthenticationRequestList = struct (List.map ClientVpnAuthenticationRequest.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ClientVpnAuthenticationRequest.to_query v - let to_json v = `List (List.map ClientVpnAuthenticationRequest.to_json v) - let of_json j = Aws.Json.to_list ClientVpnAuthenticationRequest.of_json j end @@ -75066,13 +73386,9 @@ module Ipv6PoolIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -75203,9 +73519,7 @@ module AccountAttributeValueList = struct (List.map AccountAttributeValue.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AccountAttributeValue.to_query v - let to_json v = `List (List.map AccountAttributeValue.to_json v) - let of_json j = Aws.Json.to_list AccountAttributeValue.of_json j end @@ -75267,9 +73581,7 @@ module AccountAttributeList = struct Aws.Util.option_all (List.map AccountAttribute.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list AccountAttribute.to_query v - let to_json v = `List (List.map AccountAttribute.to_json v) - let of_json j = Aws.Json.to_list AccountAttribute.of_json j end @@ -75424,9 +73736,7 @@ module CancelSpotFleetRequestsErrorSet = struct (List.map CancelSpotFleetRequestsErrorItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CancelSpotFleetRequestsErrorItem.to_query v - let to_json v = `List (List.map CancelSpotFleetRequestsErrorItem.to_json v) - let of_json j = Aws.Json.to_list CancelSpotFleetRequestsErrorItem.of_json j end @@ -75726,9 +74036,7 @@ module HostInstanceList = struct Aws.Util.option_all (List.map HostInstance.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list HostInstance.to_query v - let to_json v = `List (List.map HostInstance.to_json v) - let of_json j = Aws.Json.to_list HostInstance.of_json j end @@ -76000,13 +74308,9 @@ module HostList = struct type t = Host.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Host.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Host.to_query v - let to_json v = `List (List.map Host.to_json v) - let of_json j = Aws.Json.to_list Host.of_json j end @@ -76014,13 +74318,9 @@ module BillingProductList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -76614,9 +74914,7 @@ module PrefixListAssociationSet = struct (List.map PrefixListAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PrefixListAssociation.to_query v - let to_json v = `List (List.map PrefixListAssociation.to_json v) - let of_json j = Aws.Json.to_list PrefixListAssociation.of_json j end @@ -76864,13 +75162,9 @@ module SpotFleetRequestIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -76979,9 +75273,7 @@ module ZoneIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ZoneId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -77062,9 +75354,7 @@ module TransitGatewayList = struct Aws.Util.option_all (List.map TransitGateway.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGateway.to_query v - let to_json v = `List (List.map TransitGateway.to_json v) - let of_json j = Aws.Json.to_list TransitGateway.of_json j end @@ -77276,9 +75566,7 @@ module AvailabilityZoneStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AvailabilityZone" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -77675,9 +75963,7 @@ module TargetNetworkSet = struct Aws.Util.option_all (List.map TargetNetwork.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TargetNetwork.to_query v - let to_json v = `List (List.map TargetNetwork.to_json v) - let of_json j = Aws.Json.to_list TargetNetwork.of_json j end @@ -77733,13 +76019,9 @@ module CapacityReservationIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -78263,9 +76545,7 @@ module VpnConnectionList = struct Aws.Util.option_all (List.map VpnConnection.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpnConnection.to_query v - let to_json v = `List (List.map VpnConnection.to_json v) - let of_json j = Aws.Json.to_list VpnConnection.of_json j end @@ -78449,9 +76729,7 @@ module ClientVpnConnectionSet = struct Aws.Util.option_all (List.map ClientVpnConnection.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list ClientVpnConnection.to_query v - let to_json v = `List (List.map ClientVpnConnection.to_json v) - let of_json j = Aws.Json.to_list ClientVpnConnection.of_json j end @@ -78517,9 +76795,7 @@ module HistoryRecordSet = struct Aws.Util.option_all (List.map HistoryRecordEntry.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list HistoryRecordEntry.to_query v - let to_json v = `List (List.map HistoryRecordEntry.to_json v) - let of_json j = Aws.Json.to_list HistoryRecordEntry.of_json j end @@ -79088,9 +77364,7 @@ module PublicIpStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "PublicIp" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -79103,9 +77377,7 @@ module AllocationIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AllocationId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -79393,9 +77665,7 @@ module ProductDescriptionList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -79403,13 +77673,9 @@ module TransitGatewaySubnetIdList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -79725,9 +77991,7 @@ module SummaryStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -79737,7 +78001,6 @@ module SummaryStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -80009,9 +78272,7 @@ module Ipv6CidrAssociationSet = struct Aws.Util.option_all (List.map Ipv6CidrAssociation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list Ipv6CidrAssociation.to_query v - let to_json v = `List (List.map Ipv6CidrAssociation.to_json v) - let of_json j = Aws.Json.to_list Ipv6CidrAssociation.of_json j end @@ -80516,9 +78777,7 @@ module PlacementGroupIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "GroupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -80579,9 +78838,7 @@ module ReservedInstancesIdStringList = struct (List.map String.parse (Aws.Xml.members "ReservedInstancesId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -81153,13 +79410,9 @@ module VolumeList = struct type t = Volume.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Volume.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list Volume.to_query v - let to_json v = `List (List.map Volume.to_json v) - let of_json j = Aws.Json.to_list Volume.of_json j end @@ -81361,9 +79614,7 @@ module GroupNameStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "GroupName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -82218,9 +80469,7 @@ module TrafficMirrorFilterSet = struct Aws.Util.option_all (List.map TrafficMirrorFilter.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TrafficMirrorFilter.to_query v - let to_json v = `List (List.map TrafficMirrorFilter.to_json v) - let of_json j = Aws.Json.to_list TrafficMirrorFilter.of_json j end @@ -82655,13 +80904,9 @@ module LocalGatewayRouteTableVpcAssociationIdSet = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "item" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -82875,9 +81120,7 @@ module CoipAddressUsageSet = struct Aws.Util.option_all (List.map CoipAddressUsage.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CoipAddressUsage.to_query v - let to_json v = `List (List.map CoipAddressUsage.to_json v) - let of_json j = Aws.Json.to_list CoipAddressUsage.of_json j end @@ -83542,9 +81785,7 @@ module VpcEndpointConnectionSet = struct (List.map VpcEndpointConnection.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list VpcEndpointConnection.to_query v - let to_json v = `List (List.map VpcEndpointConnection.to_json v) - let of_json j = Aws.Json.to_list VpcEndpointConnection.of_json j end @@ -84026,7 +82267,6 @@ module DisableFastSnapshotRestoreSuccessSet = struct Aws.Query.to_query_list DisableFastSnapshotRestoreSuccessItem.to_query v let to_json v = `List (List.map DisableFastSnapshotRestoreSuccessItem.to_json v) - let of_json j = Aws.Json.to_list DisableFastSnapshotRestoreSuccessItem.of_json j end @@ -84040,9 +82280,7 @@ module DisableFastSnapshotRestoreErrorSet = struct (List.map DisableFastSnapshotRestoreErrorItem.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DisableFastSnapshotRestoreErrorItem.to_query v - let to_json v = `List (List.map DisableFastSnapshotRestoreErrorItem.to_json v) - let of_json j = Aws.Json.to_list DisableFastSnapshotRestoreErrorItem.of_json j end @@ -84393,9 +82631,7 @@ module CoipPoolSet = struct Aws.Util.option_all (List.map CoipPool.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list CoipPool.to_query v - let to_json v = `List (List.map CoipPool.to_json v) - let of_json j = Aws.Json.to_list CoipPool.of_json j end @@ -85160,9 +83396,7 @@ module ZoneNameStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ZoneName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -85497,9 +83731,7 @@ module DhcpOptionsList = struct Aws.Util.option_all (List.map DhcpOptions.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list DhcpOptions.to_query v - let to_json v = `List (List.map DhcpOptions.to_json v) - let of_json j = Aws.Json.to_list DhcpOptions.of_json j end @@ -85531,13 +83763,9 @@ module CopyTagsFromSource = struct type t = Volume let str_to_t = [ "volume", Volume ] - let t_to_str = [ Volume, "volume" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -85547,7 +83775,6 @@ module CopyTagsFromSource = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -85688,9 +83915,7 @@ module TransitGatewayAttachmentPropagationList = struct (List.map TransitGatewayAttachmentPropagation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayAttachmentPropagation.to_query v - let to_json v = `List (List.map TransitGatewayAttachmentPropagation.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayAttachmentPropagation.of_json j end @@ -85709,7 +83934,6 @@ module InstanceBlockDeviceMappingSpecificationList = struct Aws.Query.to_query_list InstanceBlockDeviceMappingSpecification.to_query v let to_json v = `List (List.map InstanceBlockDeviceMappingSpecification.to_json v) - let of_json j = Aws.Json.to_list InstanceBlockDeviceMappingSpecification.of_json j end @@ -85943,9 +84167,7 @@ module VpnConnectionIdStringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "VpnConnectionId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -86706,9 +84928,7 @@ module LaunchTemplateSet = struct Aws.Util.option_all (List.map LaunchTemplate.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list LaunchTemplate.to_query v - let to_json v = `List (List.map LaunchTemplate.to_json v) - let of_json j = Aws.Json.to_list LaunchTemplate.of_json j end @@ -87570,9 +85790,7 @@ module TagDescriptionList = struct Aws.Util.option_all (List.map TagDescription.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TagDescription.to_query v - let to_json v = `List (List.map TagDescription.to_json v) - let of_json j = Aws.Json.to_list TagDescription.of_json j end @@ -87970,9 +86188,7 @@ module PriceScheduleSpecificationList = struct (List.map PriceScheduleSpecification.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PriceScheduleSpecification.to_query v - let to_json v = `List (List.map PriceScheduleSpecification.to_json v) - let of_json j = Aws.Json.to_list PriceScheduleSpecification.of_json j end @@ -88660,9 +86876,7 @@ module InstanceStatusList = struct Aws.Util.option_all (List.map InstanceStatus.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list InstanceStatus.to_query v - let to_json v = `List (List.map InstanceStatus.to_json v) - let of_json j = Aws.Json.to_list InstanceStatus.of_json j end @@ -88808,9 +87022,7 @@ module TerminateConnectionStatusSet = struct (List.map TerminateConnectionStatus.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TerminateConnectionStatus.to_query v - let to_json v = `List (List.map TerminateConnectionStatus.to_json v) - let of_json j = Aws.Json.to_list TerminateConnectionStatus.of_json j end @@ -89334,7 +87546,6 @@ module CreateDefaultVpcResult = struct type t = { vpc : Vpc.t option } let make ?vpc () = { vpc } - let parse xml = Some { vpc = Aws.Util.option_bind (Aws.Xml.member "vpc" xml) Vpc.parse } let to_query v = @@ -93165,9 +91376,7 @@ module TransitGatewayRouteTablePropagationList = struct (List.map TransitGatewayRouteTablePropagation.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list TransitGatewayRouteTablePropagation.to_query v - let to_json v = `List (List.map TransitGatewayRouteTablePropagation.to_json v) - let of_json j = Aws.Json.to_list TransitGatewayRouteTablePropagation.of_json j end @@ -93408,9 +91617,7 @@ module PlacementGroupList = struct Aws.Util.option_all (List.map PlacementGroup.parse (Aws.Xml.members "item" xml)) let to_query v = Aws.Query.to_query_list PlacementGroup.to_query v - let to_json v = `List (List.map PlacementGroup.to_json v) - let of_json j = Aws.Json.to_list PlacementGroup.of_json j end diff --git a/libraries/ec2/lib/unassignIpv6Addresses.ml b/libraries/ec2/lib/unassignIpv6Addresses.ml index 899a76f16..181a58749 100644 --- a/libraries/ec2/lib/unassignIpv6Addresses.ml +++ b/libraries/ec2/lib/unassignIpv6Addresses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UnassignIpv6AddressesRequest.t - type output = UnassignIpv6AddressesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/unassignIpv6Addresses.mli b/libraries/ec2/lib/unassignIpv6Addresses.mli index 656e6488a..5d605c420 100644 --- a/libraries/ec2/lib/unassignIpv6Addresses.mli +++ b/libraries/ec2/lib/unassignIpv6Addresses.mli @@ -1,9 +1,7 @@ open Types type input = UnassignIpv6AddressesRequest.t - type output = UnassignIpv6AddressesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/unassignPrivateIpAddresses.ml b/libraries/ec2/lib/unassignPrivateIpAddresses.ml index bae41f1b9..e9c83f68a 100644 --- a/libraries/ec2/lib/unassignPrivateIpAddresses.ml +++ b/libraries/ec2/lib/unassignPrivateIpAddresses.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UnassignPrivateIpAddressesRequest.t - type output = unit - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/unassignPrivateIpAddresses.mli b/libraries/ec2/lib/unassignPrivateIpAddresses.mli index 0580e6f62..1b18ef0fe 100644 --- a/libraries/ec2/lib/unassignPrivateIpAddresses.mli +++ b/libraries/ec2/lib/unassignPrivateIpAddresses.mli @@ -1,9 +1,7 @@ open Types type input = UnassignPrivateIpAddressesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/unmonitorInstances.ml b/libraries/ec2/lib/unmonitorInstances.ml index 0d54c62e8..d22d923d8 100644 --- a/libraries/ec2/lib/unmonitorInstances.ml +++ b/libraries/ec2/lib/unmonitorInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UnmonitorInstancesRequest.t - type output = UnmonitorInstancesResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/unmonitorInstances.mli b/libraries/ec2/lib/unmonitorInstances.mli index b0630d027..7c1bfeaa4 100644 --- a/libraries/ec2/lib/unmonitorInstances.mli +++ b/libraries/ec2/lib/unmonitorInstances.mli @@ -1,9 +1,7 @@ open Types type input = UnmonitorInstancesRequest.t - type output = UnmonitorInstancesResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.ml b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.ml index 171954d5a..3f006fdd7 100644 --- a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.ml +++ b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateSecurityGroupRuleDescriptionsEgressRequest.t - type output = UpdateSecurityGroupRuleDescriptionsEgressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.mli b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.mli index 481ecc5eb..739c2aff7 100644 --- a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.mli +++ b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsEgress.mli @@ -1,9 +1,7 @@ open Types type input = UpdateSecurityGroupRuleDescriptionsEgressRequest.t - type output = UpdateSecurityGroupRuleDescriptionsEgressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.ml b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.ml index 0067b5781..f8a524549 100644 --- a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.ml +++ b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateSecurityGroupRuleDescriptionsIngressRequest.t - type output = UpdateSecurityGroupRuleDescriptionsIngressResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.mli b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.mli index 2736ee608..b5cd4ecb3 100644 --- a/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.mli +++ b/libraries/ec2/lib/updateSecurityGroupRuleDescriptionsIngress.mli @@ -1,9 +1,7 @@ open Types type input = UpdateSecurityGroupRuleDescriptionsIngressRequest.t - type output = UpdateSecurityGroupRuleDescriptionsIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib/withdrawByoipCidr.ml b/libraries/ec2/lib/withdrawByoipCidr.ml index d6b86012a..79d132e65 100644 --- a/libraries/ec2/lib/withdrawByoipCidr.ml +++ b/libraries/ec2/lib/withdrawByoipCidr.ml @@ -2,13 +2,10 @@ open Types open Aws type input = WithdrawByoipCidrRequest.t - type output = WithdrawByoipCidrResult.t - type error = Errors_internal.t let service = "ec2" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ec2/lib/withdrawByoipCidr.mli b/libraries/ec2/lib/withdrawByoipCidr.mli index b2617c1b7..d44bebe20 100644 --- a/libraries/ec2/lib/withdrawByoipCidr.mli +++ b/libraries/ec2/lib/withdrawByoipCidr.mli @@ -1,9 +1,7 @@ open Types type input = WithdrawByoipCidrRequest.t - type output = WithdrawByoipCidrResult.t - type error = Errors_internal.t include diff --git a/libraries/ec2/lib_test/test_async.ml b/libraries/ec2/lib_test/test_async.ml index 4ca65d382..b4cc82b1e 100644 --- a/libraries/ec2/lib_test/test_async.ml +++ b/libraries/ec2/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/ec2/lib_test/test_lwt.ml b/libraries/ec2/lib_test/test_lwt.ml index 241c5cbe9..c096c2c16 100644 --- a/libraries/ec2/lib_test/test_lwt.ml +++ b/libraries/ec2/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/elasticache/lib/addTagsToResource.ml b/libraries/elasticache/lib/addTagsToResource.ml index 493134afe..bf1f32e0a 100644 --- a/libraries/elasticache/lib/addTagsToResource.ml +++ b/libraries/elasticache/lib/addTagsToResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddTagsToResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/addTagsToResource.mli b/libraries/elasticache/lib/addTagsToResource.mli index e7a90f3fb..3305651d8 100644 --- a/libraries/elasticache/lib/addTagsToResource.mli +++ b/libraries/elasticache/lib/addTagsToResource.mli @@ -1,9 +1,7 @@ open Types type input = AddTagsToResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.ml b/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.ml index 7e7d89354..7ee9a9704 100644 --- a/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.ml +++ b/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AuthorizeCacheSecurityGroupIngressMessage.t - type output = AuthorizeCacheSecurityGroupIngressResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.mli b/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.mli index aaede11a8..413f82bd3 100644 --- a/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.mli +++ b/libraries/elasticache/lib/authorizeCacheSecurityGroupIngress.mli @@ -1,9 +1,7 @@ open Types type input = AuthorizeCacheSecurityGroupIngressMessage.t - type output = AuthorizeCacheSecurityGroupIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/batchApplyUpdateAction.ml b/libraries/elasticache/lib/batchApplyUpdateAction.ml index c9889c1df..a2edefc72 100644 --- a/libraries/elasticache/lib/batchApplyUpdateAction.ml +++ b/libraries/elasticache/lib/batchApplyUpdateAction.ml @@ -2,13 +2,10 @@ open Types open Aws type input = BatchApplyUpdateActionMessage.t - type output = UpdateActionResultsMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/batchApplyUpdateAction.mli b/libraries/elasticache/lib/batchApplyUpdateAction.mli index b61bbd706..151ff9da6 100644 --- a/libraries/elasticache/lib/batchApplyUpdateAction.mli +++ b/libraries/elasticache/lib/batchApplyUpdateAction.mli @@ -1,9 +1,7 @@ open Types type input = BatchApplyUpdateActionMessage.t - type output = UpdateActionResultsMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/batchStopUpdateAction.ml b/libraries/elasticache/lib/batchStopUpdateAction.ml index cffdf903c..632f25619 100644 --- a/libraries/elasticache/lib/batchStopUpdateAction.ml +++ b/libraries/elasticache/lib/batchStopUpdateAction.ml @@ -2,13 +2,10 @@ open Types open Aws type input = BatchStopUpdateActionMessage.t - type output = UpdateActionResultsMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/batchStopUpdateAction.mli b/libraries/elasticache/lib/batchStopUpdateAction.mli index 7545093b4..f624f0757 100644 --- a/libraries/elasticache/lib/batchStopUpdateAction.mli +++ b/libraries/elasticache/lib/batchStopUpdateAction.mli @@ -1,9 +1,7 @@ open Types type input = BatchStopUpdateActionMessage.t - type output = UpdateActionResultsMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/completeMigration.ml b/libraries/elasticache/lib/completeMigration.ml index 8b7f98d4a..b0e7286ea 100644 --- a/libraries/elasticache/lib/completeMigration.ml +++ b/libraries/elasticache/lib/completeMigration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CompleteMigrationMessage.t - type output = CompleteMigrationResponse.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/completeMigration.mli b/libraries/elasticache/lib/completeMigration.mli index d7af65622..097f7d10b 100644 --- a/libraries/elasticache/lib/completeMigration.mli +++ b/libraries/elasticache/lib/completeMigration.mli @@ -1,9 +1,7 @@ open Types type input = CompleteMigrationMessage.t - type output = CompleteMigrationResponse.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/copySnapshot.ml b/libraries/elasticache/lib/copySnapshot.ml index dff4536a2..39d4c83be 100644 --- a/libraries/elasticache/lib/copySnapshot.ml +++ b/libraries/elasticache/lib/copySnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopySnapshotMessage.t - type output = CopySnapshotResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/copySnapshot.mli b/libraries/elasticache/lib/copySnapshot.mli index a848a9705..3a0186267 100644 --- a/libraries/elasticache/lib/copySnapshot.mli +++ b/libraries/elasticache/lib/copySnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CopySnapshotMessage.t - type output = CopySnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createCacheCluster.ml b/libraries/elasticache/lib/createCacheCluster.ml index 3b33874da..86eb5f0d1 100644 --- a/libraries/elasticache/lib/createCacheCluster.ml +++ b/libraries/elasticache/lib/createCacheCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCacheClusterMessage.t - type output = CreateCacheClusterResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createCacheCluster.mli b/libraries/elasticache/lib/createCacheCluster.mli index 6b4dfe97c..8b3b9efe7 100644 --- a/libraries/elasticache/lib/createCacheCluster.mli +++ b/libraries/elasticache/lib/createCacheCluster.mli @@ -1,9 +1,7 @@ open Types type input = CreateCacheClusterMessage.t - type output = CreateCacheClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createCacheParameterGroup.ml b/libraries/elasticache/lib/createCacheParameterGroup.ml index e54bc0ce2..69c639e17 100644 --- a/libraries/elasticache/lib/createCacheParameterGroup.ml +++ b/libraries/elasticache/lib/createCacheParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCacheParameterGroupMessage.t - type output = CreateCacheParameterGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createCacheParameterGroup.mli b/libraries/elasticache/lib/createCacheParameterGroup.mli index b4e046952..f74262a02 100644 --- a/libraries/elasticache/lib/createCacheParameterGroup.mli +++ b/libraries/elasticache/lib/createCacheParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateCacheParameterGroupMessage.t - type output = CreateCacheParameterGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createCacheSecurityGroup.ml b/libraries/elasticache/lib/createCacheSecurityGroup.ml index cc88d8044..b7c5e675d 100644 --- a/libraries/elasticache/lib/createCacheSecurityGroup.ml +++ b/libraries/elasticache/lib/createCacheSecurityGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCacheSecurityGroupMessage.t - type output = CreateCacheSecurityGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createCacheSecurityGroup.mli b/libraries/elasticache/lib/createCacheSecurityGroup.mli index 4f323cfd1..ae16ee331 100644 --- a/libraries/elasticache/lib/createCacheSecurityGroup.mli +++ b/libraries/elasticache/lib/createCacheSecurityGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateCacheSecurityGroupMessage.t - type output = CreateCacheSecurityGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createCacheSubnetGroup.ml b/libraries/elasticache/lib/createCacheSubnetGroup.ml index 4014f6432..1fadb3f1e 100644 --- a/libraries/elasticache/lib/createCacheSubnetGroup.ml +++ b/libraries/elasticache/lib/createCacheSubnetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCacheSubnetGroupMessage.t - type output = CreateCacheSubnetGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createCacheSubnetGroup.mli b/libraries/elasticache/lib/createCacheSubnetGroup.mli index e7f6dd233..d5b60e9dd 100644 --- a/libraries/elasticache/lib/createCacheSubnetGroup.mli +++ b/libraries/elasticache/lib/createCacheSubnetGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateCacheSubnetGroupMessage.t - type output = CreateCacheSubnetGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createGlobalReplicationGroup.ml b/libraries/elasticache/lib/createGlobalReplicationGroup.ml index 4a7820f41..2e96aba47 100644 --- a/libraries/elasticache/lib/createGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/createGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateGlobalReplicationGroupMessage.t - type output = CreateGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createGlobalReplicationGroup.mli b/libraries/elasticache/lib/createGlobalReplicationGroup.mli index 5a2e76794..f657d9d10 100644 --- a/libraries/elasticache/lib/createGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/createGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateGlobalReplicationGroupMessage.t - type output = CreateGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createReplicationGroup.ml b/libraries/elasticache/lib/createReplicationGroup.ml index edcb2464b..b6ee9cc84 100644 --- a/libraries/elasticache/lib/createReplicationGroup.ml +++ b/libraries/elasticache/lib/createReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateReplicationGroupMessage.t - type output = CreateReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createReplicationGroup.mli b/libraries/elasticache/lib/createReplicationGroup.mli index 451909c9c..00c188827 100644 --- a/libraries/elasticache/lib/createReplicationGroup.mli +++ b/libraries/elasticache/lib/createReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateReplicationGroupMessage.t - type output = CreateReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createSnapshot.ml b/libraries/elasticache/lib/createSnapshot.ml index e374a484e..76a2505b2 100644 --- a/libraries/elasticache/lib/createSnapshot.ml +++ b/libraries/elasticache/lib/createSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateSnapshotMessage.t - type output = CreateSnapshotResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createSnapshot.mli b/libraries/elasticache/lib/createSnapshot.mli index 834f4d03f..7da4485f9 100644 --- a/libraries/elasticache/lib/createSnapshot.mli +++ b/libraries/elasticache/lib/createSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CreateSnapshotMessage.t - type output = CreateSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createUser.ml b/libraries/elasticache/lib/createUser.ml index 466f41b60..8ea57de56 100644 --- a/libraries/elasticache/lib/createUser.ml +++ b/libraries/elasticache/lib/createUser.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateUserMessage.t - type output = User.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createUser.mli b/libraries/elasticache/lib/createUser.mli index 31d4b1e74..f88dd8a65 100644 --- a/libraries/elasticache/lib/createUser.mli +++ b/libraries/elasticache/lib/createUser.mli @@ -1,9 +1,7 @@ open Types type input = CreateUserMessage.t - type output = User.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/createUserGroup.ml b/libraries/elasticache/lib/createUserGroup.ml index d849de58e..233f1e648 100644 --- a/libraries/elasticache/lib/createUserGroup.ml +++ b/libraries/elasticache/lib/createUserGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateUserGroupMessage.t - type output = UserGroup.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/createUserGroup.mli b/libraries/elasticache/lib/createUserGroup.mli index 73961002e..55d0ea4c6 100644 --- a/libraries/elasticache/lib/createUserGroup.mli +++ b/libraries/elasticache/lib/createUserGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateUserGroupMessage.t - type output = UserGroup.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.ml b/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.ml index 75dd8a195..bebbd2761 100644 --- a/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DecreaseNodeGroupsInGlobalReplicationGroupMessage.t - type output = DecreaseNodeGroupsInGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.mli b/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.mli index a701d6f72..f34bc0da8 100644 --- a/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/decreaseNodeGroupsInGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = DecreaseNodeGroupsInGlobalReplicationGroupMessage.t - type output = DecreaseNodeGroupsInGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/decreaseReplicaCount.ml b/libraries/elasticache/lib/decreaseReplicaCount.ml index 1ec0191d9..05328b9eb 100644 --- a/libraries/elasticache/lib/decreaseReplicaCount.ml +++ b/libraries/elasticache/lib/decreaseReplicaCount.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DecreaseReplicaCountMessage.t - type output = DecreaseReplicaCountResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/decreaseReplicaCount.mli b/libraries/elasticache/lib/decreaseReplicaCount.mli index b7aded9a1..58cd101d3 100644 --- a/libraries/elasticache/lib/decreaseReplicaCount.mli +++ b/libraries/elasticache/lib/decreaseReplicaCount.mli @@ -1,9 +1,7 @@ open Types type input = DecreaseReplicaCountMessage.t - type output = DecreaseReplicaCountResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteCacheCluster.ml b/libraries/elasticache/lib/deleteCacheCluster.ml index 7274c55ea..ffd2dbb17 100644 --- a/libraries/elasticache/lib/deleteCacheCluster.ml +++ b/libraries/elasticache/lib/deleteCacheCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCacheClusterMessage.t - type output = DeleteCacheClusterResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteCacheCluster.mli b/libraries/elasticache/lib/deleteCacheCluster.mli index f093e3a8b..ea075e385 100644 --- a/libraries/elasticache/lib/deleteCacheCluster.mli +++ b/libraries/elasticache/lib/deleteCacheCluster.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCacheClusterMessage.t - type output = DeleteCacheClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteCacheParameterGroup.ml b/libraries/elasticache/lib/deleteCacheParameterGroup.ml index f0c176b4e..d9ca43c98 100644 --- a/libraries/elasticache/lib/deleteCacheParameterGroup.ml +++ b/libraries/elasticache/lib/deleteCacheParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCacheParameterGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteCacheParameterGroup.mli b/libraries/elasticache/lib/deleteCacheParameterGroup.mli index 843955c40..fba3644f1 100644 --- a/libraries/elasticache/lib/deleteCacheParameterGroup.mli +++ b/libraries/elasticache/lib/deleteCacheParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCacheParameterGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteCacheSecurityGroup.ml b/libraries/elasticache/lib/deleteCacheSecurityGroup.ml index 9e93cf2e3..2609a3b72 100644 --- a/libraries/elasticache/lib/deleteCacheSecurityGroup.ml +++ b/libraries/elasticache/lib/deleteCacheSecurityGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCacheSecurityGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteCacheSecurityGroup.mli b/libraries/elasticache/lib/deleteCacheSecurityGroup.mli index ed2c803c2..1a3f73c7f 100644 --- a/libraries/elasticache/lib/deleteCacheSecurityGroup.mli +++ b/libraries/elasticache/lib/deleteCacheSecurityGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCacheSecurityGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteCacheSubnetGroup.ml b/libraries/elasticache/lib/deleteCacheSubnetGroup.ml index a641861d2..884995385 100644 --- a/libraries/elasticache/lib/deleteCacheSubnetGroup.ml +++ b/libraries/elasticache/lib/deleteCacheSubnetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCacheSubnetGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteCacheSubnetGroup.mli b/libraries/elasticache/lib/deleteCacheSubnetGroup.mli index 4c1ce0faf..aa89e1e39 100644 --- a/libraries/elasticache/lib/deleteCacheSubnetGroup.mli +++ b/libraries/elasticache/lib/deleteCacheSubnetGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCacheSubnetGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteGlobalReplicationGroup.ml b/libraries/elasticache/lib/deleteGlobalReplicationGroup.ml index 8378602e0..ad0734720 100644 --- a/libraries/elasticache/lib/deleteGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/deleteGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteGlobalReplicationGroupMessage.t - type output = DeleteGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteGlobalReplicationGroup.mli b/libraries/elasticache/lib/deleteGlobalReplicationGroup.mli index aed48edc6..40583acac 100644 --- a/libraries/elasticache/lib/deleteGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/deleteGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteGlobalReplicationGroupMessage.t - type output = DeleteGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteReplicationGroup.ml b/libraries/elasticache/lib/deleteReplicationGroup.ml index 5a4e65d07..aec7bea58 100644 --- a/libraries/elasticache/lib/deleteReplicationGroup.ml +++ b/libraries/elasticache/lib/deleteReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteReplicationGroupMessage.t - type output = DeleteReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteReplicationGroup.mli b/libraries/elasticache/lib/deleteReplicationGroup.mli index 21e25cd7c..30ea0d4d6 100644 --- a/libraries/elasticache/lib/deleteReplicationGroup.mli +++ b/libraries/elasticache/lib/deleteReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteReplicationGroupMessage.t - type output = DeleteReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteSnapshot.ml b/libraries/elasticache/lib/deleteSnapshot.ml index 5bf76191b..5e1d9a39c 100644 --- a/libraries/elasticache/lib/deleteSnapshot.ml +++ b/libraries/elasticache/lib/deleteSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteSnapshotMessage.t - type output = DeleteSnapshotResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteSnapshot.mli b/libraries/elasticache/lib/deleteSnapshot.mli index 9561878f3..1b76ea4ff 100644 --- a/libraries/elasticache/lib/deleteSnapshot.mli +++ b/libraries/elasticache/lib/deleteSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = DeleteSnapshotMessage.t - type output = DeleteSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteUser.ml b/libraries/elasticache/lib/deleteUser.ml index af31a7233..8a0b83982 100644 --- a/libraries/elasticache/lib/deleteUser.ml +++ b/libraries/elasticache/lib/deleteUser.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteUserMessage.t - type output = User.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteUser.mli b/libraries/elasticache/lib/deleteUser.mli index 437786be0..b251fbb29 100644 --- a/libraries/elasticache/lib/deleteUser.mli +++ b/libraries/elasticache/lib/deleteUser.mli @@ -1,9 +1,7 @@ open Types type input = DeleteUserMessage.t - type output = User.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/deleteUserGroup.ml b/libraries/elasticache/lib/deleteUserGroup.ml index e6a7c54f7..432f427aa 100644 --- a/libraries/elasticache/lib/deleteUserGroup.ml +++ b/libraries/elasticache/lib/deleteUserGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteUserGroupMessage.t - type output = UserGroup.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/deleteUserGroup.mli b/libraries/elasticache/lib/deleteUserGroup.mli index 032321062..896c17a39 100644 --- a/libraries/elasticache/lib/deleteUserGroup.mli +++ b/libraries/elasticache/lib/deleteUserGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteUserGroupMessage.t - type output = UserGroup.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeCacheClusters.ml b/libraries/elasticache/lib/describeCacheClusters.ml index 9db81a78e..eefa252d7 100644 --- a/libraries/elasticache/lib/describeCacheClusters.ml +++ b/libraries/elasticache/lib/describeCacheClusters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCacheClustersMessage.t - type output = CacheClusterMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeCacheClusters.mli b/libraries/elasticache/lib/describeCacheClusters.mli index 1a037c162..edeb738ab 100644 --- a/libraries/elasticache/lib/describeCacheClusters.mli +++ b/libraries/elasticache/lib/describeCacheClusters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCacheClustersMessage.t - type output = CacheClusterMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeCacheEngineVersions.ml b/libraries/elasticache/lib/describeCacheEngineVersions.ml index dfd6ea715..e3bfe5ed9 100644 --- a/libraries/elasticache/lib/describeCacheEngineVersions.ml +++ b/libraries/elasticache/lib/describeCacheEngineVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCacheEngineVersionsMessage.t - type output = CacheEngineVersionMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeCacheEngineVersions.mli b/libraries/elasticache/lib/describeCacheEngineVersions.mli index 0458810ec..82570f9c7 100644 --- a/libraries/elasticache/lib/describeCacheEngineVersions.mli +++ b/libraries/elasticache/lib/describeCacheEngineVersions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCacheEngineVersionsMessage.t - type output = CacheEngineVersionMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeCacheParameterGroups.ml b/libraries/elasticache/lib/describeCacheParameterGroups.ml index 5e3890186..1dd573285 100644 --- a/libraries/elasticache/lib/describeCacheParameterGroups.ml +++ b/libraries/elasticache/lib/describeCacheParameterGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCacheParameterGroupsMessage.t - type output = CacheParameterGroupsMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeCacheParameterGroups.mli b/libraries/elasticache/lib/describeCacheParameterGroups.mli index e49530a79..2776f13d2 100644 --- a/libraries/elasticache/lib/describeCacheParameterGroups.mli +++ b/libraries/elasticache/lib/describeCacheParameterGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCacheParameterGroupsMessage.t - type output = CacheParameterGroupsMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeCacheParameters.ml b/libraries/elasticache/lib/describeCacheParameters.ml index 065c5dd8b..cc6c45741 100644 --- a/libraries/elasticache/lib/describeCacheParameters.ml +++ b/libraries/elasticache/lib/describeCacheParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCacheParametersMessage.t - type output = CacheParameterGroupDetails.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeCacheParameters.mli b/libraries/elasticache/lib/describeCacheParameters.mli index 4663bc57e..9084de00b 100644 --- a/libraries/elasticache/lib/describeCacheParameters.mli +++ b/libraries/elasticache/lib/describeCacheParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCacheParametersMessage.t - type output = CacheParameterGroupDetails.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeCacheSecurityGroups.ml b/libraries/elasticache/lib/describeCacheSecurityGroups.ml index 24ff748ba..5d8df8d1a 100644 --- a/libraries/elasticache/lib/describeCacheSecurityGroups.ml +++ b/libraries/elasticache/lib/describeCacheSecurityGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCacheSecurityGroupsMessage.t - type output = CacheSecurityGroupMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeCacheSecurityGroups.mli b/libraries/elasticache/lib/describeCacheSecurityGroups.mli index be9e52d09..53effbb47 100644 --- a/libraries/elasticache/lib/describeCacheSecurityGroups.mli +++ b/libraries/elasticache/lib/describeCacheSecurityGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCacheSecurityGroupsMessage.t - type output = CacheSecurityGroupMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeCacheSubnetGroups.ml b/libraries/elasticache/lib/describeCacheSubnetGroups.ml index 53c49524d..1ecded678 100644 --- a/libraries/elasticache/lib/describeCacheSubnetGroups.ml +++ b/libraries/elasticache/lib/describeCacheSubnetGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCacheSubnetGroupsMessage.t - type output = CacheSubnetGroupMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeCacheSubnetGroups.mli b/libraries/elasticache/lib/describeCacheSubnetGroups.mli index 59576a165..4e2a58bac 100644 --- a/libraries/elasticache/lib/describeCacheSubnetGroups.mli +++ b/libraries/elasticache/lib/describeCacheSubnetGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCacheSubnetGroupsMessage.t - type output = CacheSubnetGroupMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeEngineDefaultParameters.ml b/libraries/elasticache/lib/describeEngineDefaultParameters.ml index e17546dc5..5ca3a244d 100644 --- a/libraries/elasticache/lib/describeEngineDefaultParameters.ml +++ b/libraries/elasticache/lib/describeEngineDefaultParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEngineDefaultParametersMessage.t - type output = DescribeEngineDefaultParametersResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeEngineDefaultParameters.mli b/libraries/elasticache/lib/describeEngineDefaultParameters.mli index a13373a91..6b9810c32 100644 --- a/libraries/elasticache/lib/describeEngineDefaultParameters.mli +++ b/libraries/elasticache/lib/describeEngineDefaultParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEngineDefaultParametersMessage.t - type output = DescribeEngineDefaultParametersResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeEvents.ml b/libraries/elasticache/lib/describeEvents.ml index 462ebfb22..c6d3800e8 100644 --- a/libraries/elasticache/lib/describeEvents.ml +++ b/libraries/elasticache/lib/describeEvents.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEventsMessage.t - type output = EventsMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeEvents.mli b/libraries/elasticache/lib/describeEvents.mli index f285c481a..21d01b3a7 100644 --- a/libraries/elasticache/lib/describeEvents.mli +++ b/libraries/elasticache/lib/describeEvents.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEventsMessage.t - type output = EventsMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeGlobalReplicationGroups.ml b/libraries/elasticache/lib/describeGlobalReplicationGroups.ml index 7f8f2d982..ea5e98d75 100644 --- a/libraries/elasticache/lib/describeGlobalReplicationGroups.ml +++ b/libraries/elasticache/lib/describeGlobalReplicationGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeGlobalReplicationGroupsMessage.t - type output = DescribeGlobalReplicationGroupsResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeGlobalReplicationGroups.mli b/libraries/elasticache/lib/describeGlobalReplicationGroups.mli index a05dbe316..8c1ea2709 100644 --- a/libraries/elasticache/lib/describeGlobalReplicationGroups.mli +++ b/libraries/elasticache/lib/describeGlobalReplicationGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeGlobalReplicationGroupsMessage.t - type output = DescribeGlobalReplicationGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeReplicationGroups.ml b/libraries/elasticache/lib/describeReplicationGroups.ml index da9aa41c6..e754fdec6 100644 --- a/libraries/elasticache/lib/describeReplicationGroups.ml +++ b/libraries/elasticache/lib/describeReplicationGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReplicationGroupsMessage.t - type output = ReplicationGroupMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeReplicationGroups.mli b/libraries/elasticache/lib/describeReplicationGroups.mli index 9440857c2..3980098fa 100644 --- a/libraries/elasticache/lib/describeReplicationGroups.mli +++ b/libraries/elasticache/lib/describeReplicationGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReplicationGroupsMessage.t - type output = ReplicationGroupMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeReservedCacheNodes.ml b/libraries/elasticache/lib/describeReservedCacheNodes.ml index 6c802084b..42fd15f11 100644 --- a/libraries/elasticache/lib/describeReservedCacheNodes.ml +++ b/libraries/elasticache/lib/describeReservedCacheNodes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedCacheNodesMessage.t - type output = ReservedCacheNodeMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeReservedCacheNodes.mli b/libraries/elasticache/lib/describeReservedCacheNodes.mli index f91637d3f..850daea10 100644 --- a/libraries/elasticache/lib/describeReservedCacheNodes.mli +++ b/libraries/elasticache/lib/describeReservedCacheNodes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedCacheNodesMessage.t - type output = ReservedCacheNodeMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeReservedCacheNodesOfferings.ml b/libraries/elasticache/lib/describeReservedCacheNodesOfferings.ml index ef69e654c..ce6e5d704 100644 --- a/libraries/elasticache/lib/describeReservedCacheNodesOfferings.ml +++ b/libraries/elasticache/lib/describeReservedCacheNodesOfferings.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedCacheNodesOfferingsMessage.t - type output = ReservedCacheNodesOfferingMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeReservedCacheNodesOfferings.mli b/libraries/elasticache/lib/describeReservedCacheNodesOfferings.mli index 62a659c59..0f4c1832c 100644 --- a/libraries/elasticache/lib/describeReservedCacheNodesOfferings.mli +++ b/libraries/elasticache/lib/describeReservedCacheNodesOfferings.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedCacheNodesOfferingsMessage.t - type output = ReservedCacheNodesOfferingMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeServiceUpdates.ml b/libraries/elasticache/lib/describeServiceUpdates.ml index b5be51806..e6ce54531 100644 --- a/libraries/elasticache/lib/describeServiceUpdates.ml +++ b/libraries/elasticache/lib/describeServiceUpdates.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeServiceUpdatesMessage.t - type output = ServiceUpdatesMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeServiceUpdates.mli b/libraries/elasticache/lib/describeServiceUpdates.mli index 02a379bd9..3d1ad85b7 100644 --- a/libraries/elasticache/lib/describeServiceUpdates.mli +++ b/libraries/elasticache/lib/describeServiceUpdates.mli @@ -1,9 +1,7 @@ open Types type input = DescribeServiceUpdatesMessage.t - type output = ServiceUpdatesMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeSnapshots.ml b/libraries/elasticache/lib/describeSnapshots.ml index bc677b38d..15696c37d 100644 --- a/libraries/elasticache/lib/describeSnapshots.ml +++ b/libraries/elasticache/lib/describeSnapshots.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSnapshotsMessage.t - type output = DescribeSnapshotsListMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeSnapshots.mli b/libraries/elasticache/lib/describeSnapshots.mli index 21d297185..66820e624 100644 --- a/libraries/elasticache/lib/describeSnapshots.mli +++ b/libraries/elasticache/lib/describeSnapshots.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSnapshotsMessage.t - type output = DescribeSnapshotsListMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeUpdateActions.ml b/libraries/elasticache/lib/describeUpdateActions.ml index 502a046ba..656effb80 100644 --- a/libraries/elasticache/lib/describeUpdateActions.ml +++ b/libraries/elasticache/lib/describeUpdateActions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeUpdateActionsMessage.t - type output = UpdateActionsMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeUpdateActions.mli b/libraries/elasticache/lib/describeUpdateActions.mli index 1f6ecbfea..c8990a555 100644 --- a/libraries/elasticache/lib/describeUpdateActions.mli +++ b/libraries/elasticache/lib/describeUpdateActions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeUpdateActionsMessage.t - type output = UpdateActionsMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeUserGroups.ml b/libraries/elasticache/lib/describeUserGroups.ml index cf8405f67..6d3085786 100644 --- a/libraries/elasticache/lib/describeUserGroups.ml +++ b/libraries/elasticache/lib/describeUserGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeUserGroupsMessage.t - type output = DescribeUserGroupsResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeUserGroups.mli b/libraries/elasticache/lib/describeUserGroups.mli index f6e8247c1..7e2ff6424 100644 --- a/libraries/elasticache/lib/describeUserGroups.mli +++ b/libraries/elasticache/lib/describeUserGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeUserGroupsMessage.t - type output = DescribeUserGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/describeUsers.ml b/libraries/elasticache/lib/describeUsers.ml index 69aeb1354..ef2cbf675 100644 --- a/libraries/elasticache/lib/describeUsers.ml +++ b/libraries/elasticache/lib/describeUsers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeUsersMessage.t - type output = DescribeUsersResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/describeUsers.mli b/libraries/elasticache/lib/describeUsers.mli index 52cbbd2b2..fa9bc6f77 100644 --- a/libraries/elasticache/lib/describeUsers.mli +++ b/libraries/elasticache/lib/describeUsers.mli @@ -1,9 +1,7 @@ open Types type input = DescribeUsersMessage.t - type output = DescribeUsersResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/disassociateGlobalReplicationGroup.ml b/libraries/elasticache/lib/disassociateGlobalReplicationGroup.ml index 69e81fe55..7d98a734a 100644 --- a/libraries/elasticache/lib/disassociateGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/disassociateGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateGlobalReplicationGroupMessage.t - type output = DisassociateGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/disassociateGlobalReplicationGroup.mli b/libraries/elasticache/lib/disassociateGlobalReplicationGroup.mli index 22b1505fc..ac8cd5454 100644 --- a/libraries/elasticache/lib/disassociateGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/disassociateGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateGlobalReplicationGroupMessage.t - type output = DisassociateGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/failoverGlobalReplicationGroup.ml b/libraries/elasticache/lib/failoverGlobalReplicationGroup.ml index 30fa90203..06c2bc4f3 100644 --- a/libraries/elasticache/lib/failoverGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/failoverGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = FailoverGlobalReplicationGroupMessage.t - type output = FailoverGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/failoverGlobalReplicationGroup.mli b/libraries/elasticache/lib/failoverGlobalReplicationGroup.mli index ccb6ee6e5..6829a7cce 100644 --- a/libraries/elasticache/lib/failoverGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/failoverGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = FailoverGlobalReplicationGroupMessage.t - type output = FailoverGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.ml b/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.ml index 67c26ec88..914f05036 100644 --- a/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = IncreaseNodeGroupsInGlobalReplicationGroupMessage.t - type output = IncreaseNodeGroupsInGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.mli b/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.mli index 74c90ace0..7349b57fa 100644 --- a/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/increaseNodeGroupsInGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = IncreaseNodeGroupsInGlobalReplicationGroupMessage.t - type output = IncreaseNodeGroupsInGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/increaseReplicaCount.ml b/libraries/elasticache/lib/increaseReplicaCount.ml index 47144355d..449825202 100644 --- a/libraries/elasticache/lib/increaseReplicaCount.ml +++ b/libraries/elasticache/lib/increaseReplicaCount.ml @@ -2,13 +2,10 @@ open Types open Aws type input = IncreaseReplicaCountMessage.t - type output = IncreaseReplicaCountResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/increaseReplicaCount.mli b/libraries/elasticache/lib/increaseReplicaCount.mli index 95e2e6bd2..860e2f624 100644 --- a/libraries/elasticache/lib/increaseReplicaCount.mli +++ b/libraries/elasticache/lib/increaseReplicaCount.mli @@ -1,9 +1,7 @@ open Types type input = IncreaseReplicaCountMessage.t - type output = IncreaseReplicaCountResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/listAllowedNodeTypeModifications.ml b/libraries/elasticache/lib/listAllowedNodeTypeModifications.ml index ac0e6e229..439d3e683 100644 --- a/libraries/elasticache/lib/listAllowedNodeTypeModifications.ml +++ b/libraries/elasticache/lib/listAllowedNodeTypeModifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListAllowedNodeTypeModificationsMessage.t - type output = AllowedNodeTypeModificationsMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/listAllowedNodeTypeModifications.mli b/libraries/elasticache/lib/listAllowedNodeTypeModifications.mli index 186a8a643..5f64acc05 100644 --- a/libraries/elasticache/lib/listAllowedNodeTypeModifications.mli +++ b/libraries/elasticache/lib/listAllowedNodeTypeModifications.mli @@ -1,9 +1,7 @@ open Types type input = ListAllowedNodeTypeModificationsMessage.t - type output = AllowedNodeTypeModificationsMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/listTagsForResource.ml b/libraries/elasticache/lib/listTagsForResource.ml index a6814b0e5..7859c59f6 100644 --- a/libraries/elasticache/lib/listTagsForResource.ml +++ b/libraries/elasticache/lib/listTagsForResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsForResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/listTagsForResource.mli b/libraries/elasticache/lib/listTagsForResource.mli index 4b5c9405c..9a6d37ac9 100644 --- a/libraries/elasticache/lib/listTagsForResource.mli +++ b/libraries/elasticache/lib/listTagsForResource.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsForResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyCacheCluster.ml b/libraries/elasticache/lib/modifyCacheCluster.ml index 818289ae0..db7f02ecd 100644 --- a/libraries/elasticache/lib/modifyCacheCluster.ml +++ b/libraries/elasticache/lib/modifyCacheCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyCacheClusterMessage.t - type output = ModifyCacheClusterResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyCacheCluster.mli b/libraries/elasticache/lib/modifyCacheCluster.mli index df7296f69..b5c14e314 100644 --- a/libraries/elasticache/lib/modifyCacheCluster.mli +++ b/libraries/elasticache/lib/modifyCacheCluster.mli @@ -1,9 +1,7 @@ open Types type input = ModifyCacheClusterMessage.t - type output = ModifyCacheClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyCacheParameterGroup.ml b/libraries/elasticache/lib/modifyCacheParameterGroup.ml index 5729f451f..437b317c5 100644 --- a/libraries/elasticache/lib/modifyCacheParameterGroup.ml +++ b/libraries/elasticache/lib/modifyCacheParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyCacheParameterGroupMessage.t - type output = CacheParameterGroupNameMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyCacheParameterGroup.mli b/libraries/elasticache/lib/modifyCacheParameterGroup.mli index 1365a811a..72f2d08d1 100644 --- a/libraries/elasticache/lib/modifyCacheParameterGroup.mli +++ b/libraries/elasticache/lib/modifyCacheParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyCacheParameterGroupMessage.t - type output = CacheParameterGroupNameMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyCacheSubnetGroup.ml b/libraries/elasticache/lib/modifyCacheSubnetGroup.ml index 92722c100..931ec321e 100644 --- a/libraries/elasticache/lib/modifyCacheSubnetGroup.ml +++ b/libraries/elasticache/lib/modifyCacheSubnetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyCacheSubnetGroupMessage.t - type output = ModifyCacheSubnetGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyCacheSubnetGroup.mli b/libraries/elasticache/lib/modifyCacheSubnetGroup.mli index cd74f02d2..25109a195 100644 --- a/libraries/elasticache/lib/modifyCacheSubnetGroup.mli +++ b/libraries/elasticache/lib/modifyCacheSubnetGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyCacheSubnetGroupMessage.t - type output = ModifyCacheSubnetGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyGlobalReplicationGroup.ml b/libraries/elasticache/lib/modifyGlobalReplicationGroup.ml index e52c708cd..ae7587663 100644 --- a/libraries/elasticache/lib/modifyGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/modifyGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyGlobalReplicationGroupMessage.t - type output = ModifyGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyGlobalReplicationGroup.mli b/libraries/elasticache/lib/modifyGlobalReplicationGroup.mli index ba48e9936..00c4a5280 100644 --- a/libraries/elasticache/lib/modifyGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/modifyGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyGlobalReplicationGroupMessage.t - type output = ModifyGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyReplicationGroup.ml b/libraries/elasticache/lib/modifyReplicationGroup.ml index 3a7fc5871..0bad77af0 100644 --- a/libraries/elasticache/lib/modifyReplicationGroup.ml +++ b/libraries/elasticache/lib/modifyReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyReplicationGroupMessage.t - type output = ModifyReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyReplicationGroup.mli b/libraries/elasticache/lib/modifyReplicationGroup.mli index 24332d94f..4d3ce6334 100644 --- a/libraries/elasticache/lib/modifyReplicationGroup.mli +++ b/libraries/elasticache/lib/modifyReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyReplicationGroupMessage.t - type output = ModifyReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.ml b/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.ml index c8e7cdcce..54d2c7847 100644 --- a/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.ml +++ b/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyReplicationGroupShardConfigurationMessage.t - type output = ModifyReplicationGroupShardConfigurationResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.mli b/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.mli index 492d6d15e..e1d09ed20 100644 --- a/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.mli +++ b/libraries/elasticache/lib/modifyReplicationGroupShardConfiguration.mli @@ -1,9 +1,7 @@ open Types type input = ModifyReplicationGroupShardConfigurationMessage.t - type output = ModifyReplicationGroupShardConfigurationResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyUser.ml b/libraries/elasticache/lib/modifyUser.ml index d1a491135..8be20adcc 100644 --- a/libraries/elasticache/lib/modifyUser.ml +++ b/libraries/elasticache/lib/modifyUser.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyUserMessage.t - type output = User.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyUser.mli b/libraries/elasticache/lib/modifyUser.mli index de51321af..7834cc123 100644 --- a/libraries/elasticache/lib/modifyUser.mli +++ b/libraries/elasticache/lib/modifyUser.mli @@ -1,9 +1,7 @@ open Types type input = ModifyUserMessage.t - type output = User.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/modifyUserGroup.ml b/libraries/elasticache/lib/modifyUserGroup.ml index 5abeaa787..8202ecc45 100644 --- a/libraries/elasticache/lib/modifyUserGroup.ml +++ b/libraries/elasticache/lib/modifyUserGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyUserGroupMessage.t - type output = UserGroup.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/modifyUserGroup.mli b/libraries/elasticache/lib/modifyUserGroup.mli index 3a3032a10..4ab96bbfa 100644 --- a/libraries/elasticache/lib/modifyUserGroup.mli +++ b/libraries/elasticache/lib/modifyUserGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyUserGroupMessage.t - type output = UserGroup.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.ml b/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.ml index 876bd33d0..d6e8dcaa7 100644 --- a/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.ml +++ b/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PurchaseReservedCacheNodesOfferingMessage.t - type output = PurchaseReservedCacheNodesOfferingResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.mli b/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.mli index cef087f60..12e61dcf8 100644 --- a/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.mli +++ b/libraries/elasticache/lib/purchaseReservedCacheNodesOffering.mli @@ -1,9 +1,7 @@ open Types type input = PurchaseReservedCacheNodesOfferingMessage.t - type output = PurchaseReservedCacheNodesOfferingResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.ml b/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.ml index 254f226f2..e28fb9321 100644 --- a/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.ml +++ b/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RebalanceSlotsInGlobalReplicationGroupMessage.t - type output = RebalanceSlotsInGlobalReplicationGroupResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.mli b/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.mli index f12f4aff6..1bc910be3 100644 --- a/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.mli +++ b/libraries/elasticache/lib/rebalanceSlotsInGlobalReplicationGroup.mli @@ -1,9 +1,7 @@ open Types type input = RebalanceSlotsInGlobalReplicationGroupMessage.t - type output = RebalanceSlotsInGlobalReplicationGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/rebootCacheCluster.ml b/libraries/elasticache/lib/rebootCacheCluster.ml index 9525c7705..9501e9568 100644 --- a/libraries/elasticache/lib/rebootCacheCluster.ml +++ b/libraries/elasticache/lib/rebootCacheCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RebootCacheClusterMessage.t - type output = RebootCacheClusterResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/rebootCacheCluster.mli b/libraries/elasticache/lib/rebootCacheCluster.mli index d18357543..24500af26 100644 --- a/libraries/elasticache/lib/rebootCacheCluster.mli +++ b/libraries/elasticache/lib/rebootCacheCluster.mli @@ -1,9 +1,7 @@ open Types type input = RebootCacheClusterMessage.t - type output = RebootCacheClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/removeTagsFromResource.ml b/libraries/elasticache/lib/removeTagsFromResource.ml index e6539ef3a..3aec0e7dd 100644 --- a/libraries/elasticache/lib/removeTagsFromResource.ml +++ b/libraries/elasticache/lib/removeTagsFromResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveTagsFromResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/removeTagsFromResource.mli b/libraries/elasticache/lib/removeTagsFromResource.mli index 3d81e4a0e..51bea45a7 100644 --- a/libraries/elasticache/lib/removeTagsFromResource.mli +++ b/libraries/elasticache/lib/removeTagsFromResource.mli @@ -1,9 +1,7 @@ open Types type input = RemoveTagsFromResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/resetCacheParameterGroup.ml b/libraries/elasticache/lib/resetCacheParameterGroup.ml index eed23e308..3eb2e8e69 100644 --- a/libraries/elasticache/lib/resetCacheParameterGroup.ml +++ b/libraries/elasticache/lib/resetCacheParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetCacheParameterGroupMessage.t - type output = CacheParameterGroupNameMessage.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/resetCacheParameterGroup.mli b/libraries/elasticache/lib/resetCacheParameterGroup.mli index cd5013da1..de1d2b9af 100644 --- a/libraries/elasticache/lib/resetCacheParameterGroup.mli +++ b/libraries/elasticache/lib/resetCacheParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = ResetCacheParameterGroupMessage.t - type output = CacheParameterGroupNameMessage.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.ml b/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.ml index a982f7c3e..0e65bd71b 100644 --- a/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.ml +++ b/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RevokeCacheSecurityGroupIngressMessage.t - type output = RevokeCacheSecurityGroupIngressResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.mli b/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.mli index 51a26f11a..f6cdfa687 100644 --- a/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.mli +++ b/libraries/elasticache/lib/revokeCacheSecurityGroupIngress.mli @@ -1,9 +1,7 @@ open Types type input = RevokeCacheSecurityGroupIngressMessage.t - type output = RevokeCacheSecurityGroupIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/startMigration.ml b/libraries/elasticache/lib/startMigration.ml index 0ae12eb56..ed7e706da 100644 --- a/libraries/elasticache/lib/startMigration.ml +++ b/libraries/elasticache/lib/startMigration.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartMigrationMessage.t - type output = StartMigrationResponse.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/startMigration.mli b/libraries/elasticache/lib/startMigration.mli index 0396afec3..89c5dc380 100644 --- a/libraries/elasticache/lib/startMigration.mli +++ b/libraries/elasticache/lib/startMigration.mli @@ -1,9 +1,7 @@ open Types type input = StartMigrationMessage.t - type output = StartMigrationResponse.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/testFailover.ml b/libraries/elasticache/lib/testFailover.ml index e8ff676ad..9268ca6a2 100644 --- a/libraries/elasticache/lib/testFailover.ml +++ b/libraries/elasticache/lib/testFailover.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TestFailoverMessage.t - type output = TestFailoverResult.t - type error = Errors_internal.t let service = "elasticache" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticache/lib/testFailover.mli b/libraries/elasticache/lib/testFailover.mli index 405003d3c..a859a84b4 100644 --- a/libraries/elasticache/lib/testFailover.mli +++ b/libraries/elasticache/lib/testFailover.mli @@ -1,9 +1,7 @@ open Types type input = TestFailoverMessage.t - type output = TestFailoverResult.t - type error = Errors_internal.t include diff --git a/libraries/elasticache/lib/types.ml b/libraries/elasticache/lib/types.ml index 167dea8a3..ec21a1b50 100644 --- a/libraries/elasticache/lib/types.ml +++ b/libraries/elasticache/lib/types.ml @@ -70,13 +70,9 @@ module NoOperationFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -89,9 +85,7 @@ module FilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -191,9 +185,7 @@ module RecurringChargeList = struct (List.map RecurringCharge.parse (Aws.Xml.members "RecurringCharge" xml)) let to_query v = Aws.Query.to_query_list RecurringCharge.to_query v - let to_json v = `List (List.map RecurringCharge.to_json v) - let of_json j = Aws.Json.to_list RecurringCharge.of_json j end @@ -370,9 +362,7 @@ module ReservedCacheNodeList = struct (List.map ReservedCacheNode.parse (Aws.Xml.members "ReservedCacheNode" xml)) let to_query v = Aws.Query.to_query_list ReservedCacheNode.to_query v - let to_json v = `List (List.map ReservedCacheNode.to_json v) - let of_json j = Aws.Json.to_list ReservedCacheNode.of_json j end @@ -444,9 +434,7 @@ module AutomaticFailoverStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -456,7 +444,6 @@ module AutomaticFailoverStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -546,9 +533,7 @@ module GlobalReplicationGroupMemberList = struct (Aws.Xml.members "GlobalReplicationGroupMember" xml)) let to_query v = Aws.Query.to_query_list GlobalReplicationGroupMember.to_query v - let to_json v = `List (List.map GlobalReplicationGroupMember.to_json v) - let of_json j = Aws.Json.to_list GlobalReplicationGroupMember.of_json j end @@ -601,9 +586,7 @@ module GlobalNodeGroupList = struct (List.map GlobalNodeGroup.parse (Aws.Xml.members "GlobalNodeGroup" xml)) let to_query v = Aws.Query.to_query_list GlobalNodeGroup.to_query v - let to_json v = `List (List.map GlobalNodeGroup.to_json v) - let of_json j = Aws.Json.to_list GlobalNodeGroup.of_json j end @@ -792,13 +775,9 @@ module GlobalReplicationGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -854,9 +833,7 @@ module ParameterNameValueList = struct (List.map ParameterNameValue.parse (Aws.Xml.members "ParameterNameValue" xml)) let to_query v = Aws.Query.to_query_list ParameterNameValue.to_query v - let to_json v = `List (List.map ParameterNameValue.to_json v) - let of_json j = Aws.Json.to_list ParameterNameValue.of_json j end @@ -922,13 +899,9 @@ module NodeUpdateInitiatedBy = struct | Customer let str_to_t = [ "customer", Customer; "system", System ] - let t_to_str = [ Customer, "customer"; System, "system" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -938,7 +911,6 @@ module NodeUpdateInitiatedBy = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -952,9 +924,7 @@ module PreferredOutpostArnList = struct (List.map String.parse (Aws.Xml.members "PreferredOutpostArn" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -968,9 +938,7 @@ module PreferredAvailabilityZoneList = struct (List.map String.parse (Aws.Xml.members "PreferredAvailabilityZone" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1070,9 +1038,7 @@ module ReplicaConfigurationList = struct (List.map ConfigureShard.parse (Aws.Xml.members "ConfigureShard" xml)) let to_query v = Aws.Query.to_query_list ConfigureShard.to_query v - let to_json v = `List (List.map ConfigureShard.to_json v) - let of_json j = Aws.Json.to_list ConfigureShard.of_json j end @@ -1196,9 +1162,7 @@ module UserGroupIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1326,13 +1290,9 @@ module PendingAutomaticFailoverStatus = struct | Disabled let str_to_t = [ "disabled", Disabled; "enabled", Enabled ] - let t_to_str = [ Disabled, "disabled"; Enabled, "enabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1342,7 +1302,6 @@ module PendingAutomaticFailoverStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1352,13 +1311,9 @@ module AuthTokenUpdateStatus = struct | ROTATING let str_to_t = [ "ROTATING", ROTATING; "SETTING", SETTING ] - let t_to_str = [ ROTATING, "ROTATING"; SETTING, "SETTING" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1368,7 +1323,6 @@ module AuthTokenUpdateStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1476,9 +1430,7 @@ module ReplicationGroupOutpostArnList = struct (List.map String.parse (Aws.Xml.members "ReplicationGroupOutpostArn" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1618,9 +1570,7 @@ module NodeGroupMemberList = struct (List.map NodeGroupMember.parse (Aws.Xml.members "NodeGroupMember" xml)) let to_query v = Aws.Query.to_query_list NodeGroupMember.to_query v - let to_json v = `List (List.map NodeGroupMember.to_json v) - let of_json j = Aws.Json.to_list NodeGroupMember.of_json j end @@ -1723,9 +1673,7 @@ module NodeGroupList = struct Aws.Util.option_all (List.map NodeGroup.parse (Aws.Xml.members "NodeGroup" xml)) let to_query v = Aws.Query.to_query_list NodeGroup.to_query v - let to_json v = `List (List.map NodeGroup.to_json v) - let of_json j = Aws.Json.to_list NodeGroup.of_json j end @@ -1735,13 +1683,9 @@ module MultiAZStatus = struct | Disabled let str_to_t = [ "disabled", Disabled; "enabled", Enabled ] - let t_to_str = [ Disabled, "disabled"; Enabled, "enabled" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1751,7 +1695,6 @@ module MultiAZStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1813,9 +1756,7 @@ module ClusterIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ClusterId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2264,9 +2205,7 @@ module SecurityGroupMembershipList = struct (List.map SecurityGroupMembership.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list SecurityGroupMembership.to_query v - let to_json v = `List (List.map SecurityGroupMembership.to_json v) - let of_json j = Aws.Json.to_list SecurityGroupMembership.of_json j end @@ -2279,9 +2218,7 @@ module CacheNodeIdsList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "CacheNodeId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2465,9 +2402,7 @@ module CacheSecurityGroupMembershipList = struct (Aws.Xml.members "CacheSecurityGroup" xml)) let to_query v = Aws.Query.to_query_list CacheSecurityGroupMembership.to_query v - let to_json v = `List (List.map CacheSecurityGroupMembership.to_json v) - let of_json j = Aws.Json.to_list CacheSecurityGroupMembership.of_json j end @@ -2654,9 +2589,7 @@ module CacheNodeList = struct Aws.Util.option_all (List.map CacheNode.parse (Aws.Xml.members "CacheNode" xml)) let to_query v = Aws.Query.to_query_list CacheNode.to_query v - let to_json v = `List (List.map CacheNode.to_json v) - let of_json j = Aws.Json.to_list CacheNode.of_json j end @@ -3045,9 +2978,7 @@ module CacheClusterList = struct Aws.Util.option_all (List.map CacheCluster.parse (Aws.Xml.members "CacheCluster" xml)) let to_query v = Aws.Query.to_query_list CacheCluster.to_query v - let to_json v = `List (List.map CacheCluster.to_json v) - let of_json j = Aws.Json.to_list CacheCluster.of_json j end @@ -3079,9 +3010,7 @@ module NodeUpdateStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3091,7 +3020,6 @@ module NodeUpdateStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3244,9 +3172,7 @@ module NodeGroupMemberUpdateStatusList = struct (Aws.Xml.members "NodeGroupMemberUpdateStatus" xml)) let to_query v = Aws.Query.to_query_list NodeGroupMemberUpdateStatus.to_query v - let to_json v = `List (List.map NodeGroupMemberUpdateStatus.to_json v) - let of_json j = Aws.Json.to_list NodeGroupMemberUpdateStatus.of_json j end @@ -3259,9 +3185,7 @@ module UserIdListInput = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3359,13 +3283,9 @@ module InvalidSnapshotStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3498,9 +3418,7 @@ module CacheEngineVersionList = struct (List.map CacheEngineVersion.parse (Aws.Xml.members "CacheEngineVersion" xml)) let to_query v = Aws.Query.to_query_list CacheEngineVersion.to_query v - let to_json v = `List (List.map CacheEngineVersion.to_json v) - let of_json j = Aws.Json.to_list CacheEngineVersion.of_json j end @@ -3560,9 +3478,7 @@ module CacheClusterIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3627,9 +3543,7 @@ module NodeGroupUpdateStatusList = struct (List.map NodeGroupUpdateStatus.parse (Aws.Xml.members "NodeGroupUpdateStatus" xml)) let to_query v = Aws.Query.to_query_list NodeGroupUpdateStatus.to_query v - let to_json v = `List (List.map NodeGroupUpdateStatus.to_json v) - let of_json j = Aws.Json.to_list NodeGroupUpdateStatus.of_json j end @@ -3704,13 +3618,9 @@ module SlaMet = struct | N_a let str_to_t = [ "n/a", N_a; "no", No; "yes", Yes ] - let t_to_str = [ N_a, "n/a"; No, "no"; Yes, "yes" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3720,7 +3630,6 @@ module SlaMet = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3728,13 +3637,9 @@ module CacheClusterAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3742,13 +3647,9 @@ module CacheSubnetGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3758,13 +3659,9 @@ module ChangeType = struct | Requires_reboot let str_to_t = [ "requires-reboot", Requires_reboot; "immediate", Immediate ] - let t_to_str = [ Requires_reboot, "requires-reboot"; Immediate, "immediate" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3774,7 +3671,6 @@ module ChangeType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3829,9 +3725,7 @@ module CacheNodeTypeSpecificValueList = struct (Aws.Xml.members "CacheNodeTypeSpecificValue" xml)) let to_query v = Aws.Query.to_query_list CacheNodeTypeSpecificValue.to_query v - let to_json v = `List (List.map CacheNodeTypeSpecificValue.to_json v) - let of_json j = Aws.Json.to_list CacheNodeTypeSpecificValue.of_json j end @@ -3971,9 +3865,7 @@ module CacheNodeTypeSpecificParametersList = struct (Aws.Xml.members "CacheNodeTypeSpecificParameter" xml)) let to_query v = Aws.Query.to_query_list CacheNodeTypeSpecificParameter.to_query v - let to_json v = `List (List.map CacheNodeTypeSpecificParameter.to_json v) - let of_json j = Aws.Json.to_list CacheNodeTypeSpecificParameter.of_json j end @@ -3986,9 +3878,7 @@ module NodeTypeList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4059,9 +3949,7 @@ module ReplicationGroupList = struct (List.map ReplicationGroup.parse (Aws.Xml.members "ReplicationGroup" xml)) let to_query v = Aws.Query.to_query_list ReplicationGroup.to_query v - let to_json v = `List (List.map ReplicationGroup.to_json v) - let of_json j = Aws.Json.to_list ReplicationGroup.of_json j end @@ -4119,9 +4007,7 @@ module KeyList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4255,9 +4141,7 @@ module UnprocessedUpdateActionList = struct (Aws.Xml.members "UnprocessedUpdateAction" xml)) let to_query v = Aws.Query.to_query_list UnprocessedUpdateAction.to_query v - let to_json v = `List (List.map UnprocessedUpdateAction.to_json v) - let of_json j = Aws.Json.to_list UnprocessedUpdateAction.of_json j end @@ -4298,9 +4182,7 @@ module UpdateActionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4310,7 +4192,6 @@ module UpdateActionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4394,9 +4275,7 @@ module ProcessedUpdateActionList = struct (List.map ProcessedUpdateAction.parse (Aws.Xml.members "ProcessedUpdateAction" xml)) let to_query v = Aws.Query.to_query_list ProcessedUpdateAction.to_query v - let to_json v = `List (List.map ProcessedUpdateAction.to_json v) - let of_json j = Aws.Json.to_list ProcessedUpdateAction.of_json j end @@ -4468,9 +4347,7 @@ module OutpostArnsList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "OutpostArn" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4483,9 +4360,7 @@ module AvailabilityZonesList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AvailabilityZone" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4710,9 +4585,7 @@ module NodeSnapshotList = struct Aws.Util.option_all (List.map NodeSnapshot.parse (Aws.Xml.members "NodeSnapshot" xml)) let to_query v = Aws.Query.to_query_list NodeSnapshot.to_query v - let to_json v = `List (List.map NodeSnapshot.to_json v) - let of_json j = Aws.Json.to_list NodeSnapshot.of_json j end @@ -4808,9 +4681,7 @@ module SubnetIdentifierList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SubnetIdentifier" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4853,13 +4724,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "Tag" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -4872,9 +4739,7 @@ module SnapshotArnsList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SnapshotArn" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4887,9 +4752,7 @@ module SecurityGroupIdsList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SecurityGroupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4899,13 +4762,9 @@ module OutpostMode = struct | Cross_outpost let str_to_t = [ "cross-outpost", Cross_outpost; "single-outpost", Single_outpost ] - let t_to_str = [ Cross_outpost, "cross-outpost"; Single_outpost, "single-outpost" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4915,7 +4774,6 @@ module OutpostMode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4929,9 +4787,7 @@ module CacheSecurityGroupNameList = struct (List.map String.parse (Aws.Xml.members "CacheSecurityGroupName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4941,13 +4797,9 @@ module AZMode = struct | Cross_az let str_to_t = [ "cross-az", Cross_az; "single-az", Single_az ] - let t_to_str = [ Cross_az, "cross-az"; Single_az, "single-az" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4957,7 +4809,6 @@ module AZMode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5958,9 +5809,7 @@ module SubnetList = struct Aws.Util.option_all (List.map Subnet.parse (Aws.Xml.members "Subnet" xml)) let to_query v = Aws.Query.to_query_list Subnet.to_query v - let to_json v = `List (List.map Subnet.to_json v) - let of_json j = Aws.Json.to_list Subnet.of_json j end @@ -6047,9 +5896,7 @@ module CacheSubnetGroups = struct (List.map CacheSubnetGroup.parse (Aws.Xml.members "CacheSubnetGroup" xml)) let to_query v = Aws.Query.to_query_list CacheSubnetGroup.to_query v - let to_json v = `List (List.map CacheSubnetGroup.to_json v) - let of_json j = Aws.Json.to_list CacheSubnetGroup.of_json j end @@ -6084,9 +5931,7 @@ module SourceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6096,7 +5941,6 @@ module SourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6158,13 +6002,9 @@ module EventList = struct type t = Event.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Event.parse (Aws.Xml.members "Event" xml)) - let to_query v = Aws.Query.to_query_list Event.to_query v - let to_json v = `List (List.map Event.to_json v) - let of_json j = Aws.Json.to_list Event.of_json j end @@ -6245,13 +6085,9 @@ module ServiceUpdateType = struct type t = Security_update let str_to_t = [ "security-update", Security_update ] - let t_to_str = [ Security_update, "security-update" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6261,7 +6097,6 @@ module ServiceUpdateType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6272,13 +6107,9 @@ module ServiceUpdateStatus = struct | Expired let str_to_t = [ "expired", Expired; "cancelled", Cancelled; "available", Available ] - let t_to_str = [ Expired, "expired"; Cancelled, "cancelled"; Available, "available" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6288,7 +6119,6 @@ module ServiceUpdateStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6306,9 +6136,7 @@ module ServiceUpdateSeverity = struct [ Low, "low"; Medium, "medium"; Important, "important"; Critical, "critical" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6318,7 +6146,6 @@ module ServiceUpdateSeverity = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6332,9 +6159,7 @@ module CacheNodeUpdateStatusList = struct (List.map CacheNodeUpdateStatus.parse (Aws.Xml.members "CacheNodeUpdateStatus" xml)) let to_query v = Aws.Query.to_query_list CacheNodeUpdateStatus.to_query v - let to_json v = `List (List.map CacheNodeUpdateStatus.to_json v) - let of_json j = Aws.Json.to_list CacheNodeUpdateStatus.of_json j end @@ -6601,9 +6426,7 @@ module UpdateActionList = struct Aws.Util.option_all (List.map UpdateAction.parse (Aws.Xml.members "UpdateAction" xml)) let to_query v = Aws.Query.to_query_list UpdateAction.to_query v - let to_json v = `List (List.map UpdateAction.to_json v) - let of_json j = Aws.Json.to_list UpdateAction.of_json j end @@ -6777,9 +6600,7 @@ module ReservedCacheNodesOfferingList = struct (Aws.Xml.members "ReservedCacheNodesOffering" xml)) let to_query v = Aws.Query.to_query_list ReservedCacheNodesOffering.to_query v - let to_json v = `List (List.map ReservedCacheNodesOffering.to_json v) - let of_json j = Aws.Json.to_list ReservedCacheNodesOffering.of_json j end @@ -6870,13 +6691,9 @@ module AuthenticationType = struct | No_password let str_to_t = [ "no-password", No_password; "password", Password ] - let t_to_str = [ No_password, "no-password"; Password, "password" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6886,7 +6703,6 @@ module AuthenticationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7036,13 +6852,9 @@ module UserList = struct type t = User.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map User.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list User.to_query v - let to_json v = `List (List.map User.to_json v) - let of_json j = Aws.Json.to_list User.of_json j end @@ -7055,9 +6867,7 @@ module UpdateActionStatusList = struct Aws.Util.option_all (List.map UpdateActionStatus.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list UpdateActionStatus.to_query v - let to_json v = `List (List.map UpdateActionStatus.to_json v) - let of_json j = Aws.Json.to_list UpdateActionStatus.of_json j end @@ -7107,9 +6917,7 @@ module ServiceUpdateStatusList = struct (List.map ServiceUpdateStatus.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ServiceUpdateStatus.to_query v - let to_json v = `List (List.map ServiceUpdateStatus.to_json v) - let of_json j = Aws.Json.to_list ServiceUpdateStatus.of_json j end @@ -7122,9 +6930,7 @@ module ReplicationGroupIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7388,13 +7194,9 @@ module SnapshotFeatureNotSupportedFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7433,13 +7235,9 @@ module DefaultUserRequired = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7447,13 +7245,9 @@ module UserGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7461,13 +7255,9 @@ module InvalidUserStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7480,9 +7270,7 @@ module UserIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7541,9 +7329,7 @@ module UGReplicationGroupIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7658,9 +7444,7 @@ module UserGroupList = struct Aws.Util.option_all (List.map UserGroup.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list UserGroup.to_query v - let to_json v = `List (List.map UserGroup.to_json v) - let of_json j = Aws.Json.to_list UserGroup.of_json j end @@ -7963,9 +7747,7 @@ module ServiceUpdateList = struct (List.map ServiceUpdate.parse (Aws.Xml.members "ServiceUpdate" xml)) let to_query v = Aws.Query.to_query_list ServiceUpdate.to_query v - let to_json v = `List (List.map ServiceUpdate.to_json v) - let of_json j = Aws.Json.to_list ServiceUpdate.of_json j end @@ -8008,13 +7790,9 @@ module APICallRateForCustomerExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8022,13 +7800,9 @@ module ReplicationGroupNotUnderMigrationFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8252,9 +8026,7 @@ module UserGroupIdListInput = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8267,9 +8039,7 @@ module NodeGroupsToRetainList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "NodeGroupToRetain" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8334,9 +8104,7 @@ module ReshardingConfigurationList = struct (Aws.Xml.members "ReshardingConfiguration" xml)) let to_query v = Aws.Query.to_query_list ReshardingConfiguration.to_query v - let to_json v = `List (List.map ReshardingConfiguration.to_json v) - let of_json j = Aws.Json.to_list ReshardingConfiguration.of_json j end @@ -8349,9 +8117,7 @@ module NodeGroupsToRemoveList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "NodeGroupToRemove" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8475,13 +8241,9 @@ module SnapshotQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8494,9 +8256,7 @@ module GlobalNodeGroupIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "GlobalNodeGroupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8504,13 +8264,9 @@ module UserNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8613,9 +8369,7 @@ module EC2SecurityGroupList = struct (List.map EC2SecurityGroup.parse (Aws.Xml.members "EC2SecurityGroup" xml)) let to_query v = Aws.Query.to_query_list EC2SecurityGroup.to_query v - let to_json v = `List (List.map EC2SecurityGroup.to_json v) - let of_json j = Aws.Json.to_list EC2SecurityGroup.of_json j end @@ -8623,13 +8377,9 @@ module ReservedCacheNodeQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8642,9 +8392,7 @@ module RemoveReplicasList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8702,13 +8450,9 @@ module CacheSubnetGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8760,13 +8504,9 @@ module InvalidCacheClusterStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8774,13 +8514,9 @@ module SnapshotAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8788,13 +8524,9 @@ module ServiceLinkedRoleNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9070,13 +8802,9 @@ module AuthTokenUpdateStrategyType = struct | DELETE let str_to_t = [ "DELETE", DELETE; "ROTATE", ROTATE; "SET", SET ] - let t_to_str = [ DELETE, "DELETE"; ROTATE, "ROTATE"; SET, "SET" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9086,7 +8814,6 @@ module AuthTokenUpdateStrategyType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9326,13 +9053,9 @@ module TestFailoverNotAvailableFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9445,9 +9168,7 @@ module CustomerNodeEndpointList = struct (List.map CustomerNodeEndpoint.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CustomerNodeEndpoint.to_query v - let to_json v = `List (List.map CustomerNodeEndpoint.to_json v) - let of_json j = Aws.Json.to_list CustomerNodeEndpoint.of_json j end @@ -9480,13 +9201,9 @@ module TagNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9494,13 +9211,9 @@ module ClusterQuotaForCustomerExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9599,13 +9312,9 @@ module CacheSecurityGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9619,9 +9328,7 @@ module CacheParameterGroupList = struct (List.map CacheParameterGroup.parse (Aws.Xml.members "CacheParameterGroup" xml)) let to_query v = Aws.Query.to_query_list CacheParameterGroup.to_query v - let to_json v = `List (List.map CacheParameterGroup.to_json v) - let of_json j = Aws.Json.to_list CacheParameterGroup.of_json j end @@ -9880,13 +9587,9 @@ module NodeGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9894,13 +9597,9 @@ module ReservedCacheNodeAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9995,9 +9694,7 @@ module GlobalReplicationGroupList = struct (Aws.Xml.members "GlobalReplicationGroup" xml)) let to_query v = Aws.Query.to_query_list GlobalReplicationGroup.to_query v - let to_json v = `List (List.map GlobalReplicationGroup.to_json v) - let of_json j = Aws.Json.to_list GlobalReplicationGroup.of_json j end @@ -10053,13 +9750,9 @@ module ReservedCacheNodesOfferingNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10113,13 +9806,9 @@ module SnapshotNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10260,9 +9949,7 @@ module RegionalConfigurationList = struct (List.map RegionalConfiguration.parse (Aws.Xml.members "RegionalConfiguration" xml)) let to_query v = Aws.Query.to_query_list RegionalConfiguration.to_query v - let to_json v = `List (List.map RegionalConfiguration.to_json v) - let of_json j = Aws.Json.to_list RegionalConfiguration.of_json j end @@ -10275,9 +9962,7 @@ module SnapshotList = struct Aws.Util.option_all (List.map Snapshot.parse (Aws.Xml.members "Snapshot" xml)) let to_query v = Aws.Query.to_query_list Snapshot.to_query v - let to_json v = `List (List.map Snapshot.to_json v) - let of_json j = Aws.Json.to_list Snapshot.of_json j end @@ -10324,13 +10009,9 @@ module ServiceUpdateNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10421,9 +10102,7 @@ module FilterList = struct Aws.Util.option_all (List.map Filter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Filter.to_query v - let to_json v = `List (List.map Filter.to_json v) - let of_json j = Aws.Json.to_list Filter.of_json j end @@ -11297,9 +10976,7 @@ module CacheSecurityGroups = struct (List.map CacheSecurityGroup.parse (Aws.Xml.members "CacheSecurityGroup" xml)) let to_query v = Aws.Query.to_query_list CacheSecurityGroup.to_query v - let to_json v = `List (List.map CacheSecurityGroup.to_json v) - let of_json j = Aws.Json.to_list CacheSecurityGroup.of_json j end @@ -11393,9 +11070,7 @@ module ParametersList = struct Aws.Util.option_all (List.map Parameter.parse (Aws.Xml.members "Parameter" xml)) let to_query v = Aws.Query.to_query_list Parameter.to_query v - let to_json v = `List (List.map Parameter.to_json v) - let of_json j = Aws.Json.to_list Parameter.of_json j end @@ -11403,13 +11078,9 @@ module GlobalReplicationGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11417,13 +11088,9 @@ module InvalidCacheSecurityGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11522,13 +11189,9 @@ module UserGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12041,13 +11704,9 @@ module CacheSubnetGroupInUse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12086,13 +11745,9 @@ module NodeQuotaForClusterExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12100,13 +11755,9 @@ module SubnetNotAllowedFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12114,13 +11765,9 @@ module ReplicationGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12267,13 +11914,9 @@ module InvalidGlobalReplicationGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12481,13 +12124,9 @@ module InvalidCacheParameterGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12495,13 +12134,9 @@ module InvalidARNFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12509,13 +12144,9 @@ module CacheParameterGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12566,13 +12197,9 @@ module CacheClusterNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12585,9 +12212,7 @@ module PasswordListInput = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -12731,13 +12356,9 @@ module InvalidVPCNetworkStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12745,13 +12366,9 @@ module SubnetInUse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12767,9 +12384,7 @@ module NodeGroupConfigurationList = struct (Aws.Xml.members "NodeGroupConfiguration" xml)) let to_query v = Aws.Query.to_query_list NodeGroupConfiguration.to_query v - let to_json v = `List (List.map NodeGroupConfiguration.to_json v) - let of_json j = Aws.Json.to_list NodeGroupConfiguration.of_json j end @@ -12844,13 +12459,9 @@ module CacheSubnetQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12947,13 +12558,9 @@ module UserAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12961,13 +12568,9 @@ module InvalidSubnet = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12975,13 +12578,9 @@ module InsufficientCacheClusterCapacityFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12989,13 +12588,9 @@ module InvalidKMSKeyFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13028,13 +12623,9 @@ module TagQuotaPerResourceExceeded = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13169,13 +12760,9 @@ module CacheParameterGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13183,13 +12770,9 @@ module ReplicationGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13624,13 +13207,9 @@ module InvalidReplicationGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13741,13 +13320,9 @@ module ReservedCacheNodeNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13907,13 +13482,9 @@ module CacheSecurityGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13921,13 +13492,9 @@ module CacheSubnetGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14025,13 +13592,9 @@ module UserQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14039,13 +13602,9 @@ module AuthorizationAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14174,13 +13733,9 @@ module NodeGroupsPerReplicationGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14188,13 +13743,9 @@ module UserGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14202,13 +13753,9 @@ module NodeQuotaForCustomerExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14326,13 +13873,9 @@ module DuplicateUserNameFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14340,13 +13883,9 @@ module CacheSecurityGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14399,13 +13938,9 @@ module ReplicationGroupAlreadyUnderMigrationFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14413,13 +13948,9 @@ module DefaultUserAssociatedToUserGroupFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14427,13 +13958,9 @@ module AuthorizationNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14554,13 +14081,9 @@ module CacheParameterGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14894,12 +14417,8 @@ module InvalidUserGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/elasticache/lib_test/test_async.ml b/libraries/elasticache/lib_test/test_async.ml index 885d4c00c..68e50fb4e 100644 --- a/libraries/elasticache/lib_test/test_async.ml +++ b/libraries/elasticache/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/elasticache/lib_test/test_lwt.ml b/libraries/elasticache/lib_test/test_lwt.ml index d90162edb..1cc6a5bd1 100644 --- a/libraries/elasticache/lib_test/test_lwt.ml +++ b/libraries/elasticache/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/elasticloadbalancing/lib/addTags.ml b/libraries/elasticloadbalancing/lib/addTags.ml index 225605c06..9b4ab4e20 100644 --- a/libraries/elasticloadbalancing/lib/addTags.ml +++ b/libraries/elasticloadbalancing/lib/addTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddTagsInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/addTags.mli b/libraries/elasticloadbalancing/lib/addTags.mli index c407166aa..bd56d31a7 100644 --- a/libraries/elasticloadbalancing/lib/addTags.mli +++ b/libraries/elasticloadbalancing/lib/addTags.mli @@ -1,9 +1,7 @@ open Types type input = AddTagsInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.ml b/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.ml index 5bee55951..d801994a6 100644 --- a/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ApplySecurityGroupsToLoadBalancerInput.t - type output = ApplySecurityGroupsToLoadBalancerOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.mli b/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.mli index 839f242ea..36fc1ecbf 100644 --- a/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/applySecurityGroupsToLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = ApplySecurityGroupsToLoadBalancerInput.t - type output = ApplySecurityGroupsToLoadBalancerOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.ml b/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.ml index c462a8aa6..2a302e172 100644 --- a/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.ml +++ b/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AttachLoadBalancerToSubnetsInput.t - type output = AttachLoadBalancerToSubnetsOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.mli b/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.mli index a53609fbd..0b3b4e5e5 100644 --- a/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.mli +++ b/libraries/elasticloadbalancing/lib/attachLoadBalancerToSubnets.mli @@ -1,9 +1,7 @@ open Types type input = AttachLoadBalancerToSubnetsInput.t - type output = AttachLoadBalancerToSubnetsOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/configureHealthCheck.ml b/libraries/elasticloadbalancing/lib/configureHealthCheck.ml index b05885063..1e8c406f5 100644 --- a/libraries/elasticloadbalancing/lib/configureHealthCheck.ml +++ b/libraries/elasticloadbalancing/lib/configureHealthCheck.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ConfigureHealthCheckInput.t - type output = ConfigureHealthCheckOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/configureHealthCheck.mli b/libraries/elasticloadbalancing/lib/configureHealthCheck.mli index 0ef2a9742..793b363fd 100644 --- a/libraries/elasticloadbalancing/lib/configureHealthCheck.mli +++ b/libraries/elasticloadbalancing/lib/configureHealthCheck.mli @@ -1,9 +1,7 @@ open Types type input = ConfigureHealthCheckInput.t - type output = ConfigureHealthCheckOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.ml b/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.ml index a0afe3a5b..ba71d1406 100644 --- a/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.ml +++ b/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateAppCookieStickinessPolicyInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.mli b/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.mli index 0ae7ed441..9ec583ddc 100644 --- a/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.mli +++ b/libraries/elasticloadbalancing/lib/createAppCookieStickinessPolicy.mli @@ -1,9 +1,7 @@ open Types type input = CreateAppCookieStickinessPolicyInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.ml b/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.ml index 0824d5ab3..9004b12e2 100644 --- a/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.ml +++ b/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLBCookieStickinessPolicyInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.mli b/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.mli index 48f036cd9..6494a628f 100644 --- a/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.mli +++ b/libraries/elasticloadbalancing/lib/createLBCookieStickinessPolicy.mli @@ -1,9 +1,7 @@ open Types type input = CreateLBCookieStickinessPolicyInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/createLoadBalancer.ml b/libraries/elasticloadbalancing/lib/createLoadBalancer.ml index f625ea962..7fd6a291c 100644 --- a/libraries/elasticloadbalancing/lib/createLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/createLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateAccessPointInput.t - type output = CreateAccessPointOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/createLoadBalancer.mli b/libraries/elasticloadbalancing/lib/createLoadBalancer.mli index 29ee1d5ce..db74dbcb2 100644 --- a/libraries/elasticloadbalancing/lib/createLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/createLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = CreateAccessPointInput.t - type output = CreateAccessPointOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.ml b/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.ml index a5480b8dd..f98eeec5b 100644 --- a/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.ml +++ b/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLoadBalancerListenerInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.mli b/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.mli index 62527f4ae..bb1e730e8 100644 --- a/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.mli +++ b/libraries/elasticloadbalancing/lib/createLoadBalancerListeners.mli @@ -1,9 +1,7 @@ open Types type input = CreateLoadBalancerListenerInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.ml b/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.ml index 0834d1e1a..2f39dc9f0 100644 --- a/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.ml +++ b/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateLoadBalancerPolicyInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.mli b/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.mli index dd665b3da..8b957af34 100644 --- a/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.mli +++ b/libraries/elasticloadbalancing/lib/createLoadBalancerPolicy.mli @@ -1,9 +1,7 @@ open Types type input = CreateLoadBalancerPolicyInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/deleteLoadBalancer.ml b/libraries/elasticloadbalancing/lib/deleteLoadBalancer.ml index edea1e38f..80878dd4f 100644 --- a/libraries/elasticloadbalancing/lib/deleteLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/deleteLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAccessPointInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/deleteLoadBalancer.mli b/libraries/elasticloadbalancing/lib/deleteLoadBalancer.mli index 293542eb1..4bcb039ef 100644 --- a/libraries/elasticloadbalancing/lib/deleteLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/deleteLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAccessPointInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.ml b/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.ml index bbe7d8a36..6a203ec02 100644 --- a/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.ml +++ b/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLoadBalancerListenerInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.mli b/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.mli index 1506dddd4..539ed0a76 100644 --- a/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.mli +++ b/libraries/elasticloadbalancing/lib/deleteLoadBalancerListeners.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLoadBalancerListenerInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.ml b/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.ml index fa832be2c..3fe214d28 100644 --- a/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.ml +++ b/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteLoadBalancerPolicyInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.mli b/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.mli index 174362eed..3fcd6b4f6 100644 --- a/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.mli +++ b/libraries/elasticloadbalancing/lib/deleteLoadBalancerPolicy.mli @@ -1,9 +1,7 @@ open Types type input = DeleteLoadBalancerPolicyInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.ml b/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.ml index 0055c4808..37d3617f6 100644 --- a/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterEndPointsInput.t - type output = DeregisterEndPointsOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.mli b/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.mli index d61eae9aa..158d628de 100644 --- a/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/deregisterInstancesFromLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterEndPointsInput.t - type output = DeregisterEndPointsOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/describeInstanceHealth.ml b/libraries/elasticloadbalancing/lib/describeInstanceHealth.ml index d5f702cae..5d87c52eb 100644 --- a/libraries/elasticloadbalancing/lib/describeInstanceHealth.ml +++ b/libraries/elasticloadbalancing/lib/describeInstanceHealth.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEndPointStateInput.t - type output = DescribeEndPointStateOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/describeInstanceHealth.mli b/libraries/elasticloadbalancing/lib/describeInstanceHealth.mli index f8b03633e..e215f625c 100644 --- a/libraries/elasticloadbalancing/lib/describeInstanceHealth.mli +++ b/libraries/elasticloadbalancing/lib/describeInstanceHealth.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEndPointStateInput.t - type output = DescribeEndPointStateOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.ml b/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.ml index 4bee27c3f..f382f6d40 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.ml +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLoadBalancerAttributesInput.t - type output = DescribeLoadBalancerAttributesOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.mli b/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.mli index 0651e5c21..21a3bff53 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.mli +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancerAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLoadBalancerAttributesInput.t - type output = DescribeLoadBalancerAttributesOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.ml b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.ml index 6a647bf66..293c27533 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.ml +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLoadBalancerPoliciesInput.t - type output = DescribeLoadBalancerPoliciesOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.mli b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.mli index 975c78311..0aa47b8fc 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.mli +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicies.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLoadBalancerPoliciesInput.t - type output = DescribeLoadBalancerPoliciesOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.ml b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.ml index da7cb203b..d17d00348 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.ml +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeLoadBalancerPolicyTypesInput.t - type output = DescribeLoadBalancerPolicyTypesOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.mli b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.mli index a667427ec..41d0e8ff6 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.mli +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancerPolicyTypes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeLoadBalancerPolicyTypesInput.t - type output = DescribeLoadBalancerPolicyTypesOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancers.ml b/libraries/elasticloadbalancing/lib/describeLoadBalancers.ml index 025051d49..b0a5df065 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancers.ml +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancers.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAccessPointsInput.t - type output = DescribeAccessPointsOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/describeLoadBalancers.mli b/libraries/elasticloadbalancing/lib/describeLoadBalancers.mli index ca1547188..8235262a7 100644 --- a/libraries/elasticloadbalancing/lib/describeLoadBalancers.mli +++ b/libraries/elasticloadbalancing/lib/describeLoadBalancers.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAccessPointsInput.t - type output = DescribeAccessPointsOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/describeTags.ml b/libraries/elasticloadbalancing/lib/describeTags.ml index a3a822a9d..e6aa4671f 100644 --- a/libraries/elasticloadbalancing/lib/describeTags.ml +++ b/libraries/elasticloadbalancing/lib/describeTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeTagsInput.t - type output = DescribeTagsOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/describeTags.mli b/libraries/elasticloadbalancing/lib/describeTags.mli index 61ca30f73..b8733554e 100644 --- a/libraries/elasticloadbalancing/lib/describeTags.mli +++ b/libraries/elasticloadbalancing/lib/describeTags.mli @@ -1,9 +1,7 @@ open Types type input = DescribeTagsInput.t - type output = DescribeTagsOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.ml b/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.ml index b0bbff8e8..600895699 100644 --- a/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.ml +++ b/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DetachLoadBalancerFromSubnetsInput.t - type output = DetachLoadBalancerFromSubnetsOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.mli b/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.mli index 13214f739..d0a7652cb 100644 --- a/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.mli +++ b/libraries/elasticloadbalancing/lib/detachLoadBalancerFromSubnets.mli @@ -1,9 +1,7 @@ open Types type input = DetachLoadBalancerFromSubnetsInput.t - type output = DetachLoadBalancerFromSubnetsOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.ml b/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.ml index df31ad57a..eeaac6432 100644 --- a/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveAvailabilityZonesInput.t - type output = RemoveAvailabilityZonesOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.mli b/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.mli index 289d0c274..f70fb0ada 100644 --- a/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/disableAvailabilityZonesForLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = RemoveAvailabilityZonesInput.t - type output = RemoveAvailabilityZonesOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.ml b/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.ml index 2d2145263..d5ccbb23e 100644 --- a/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddAvailabilityZonesInput.t - type output = AddAvailabilityZonesOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.mli b/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.mli index dc102628b..91e33ce8c 100644 --- a/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/enableAvailabilityZonesForLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = AddAvailabilityZonesInput.t - type output = AddAvailabilityZonesOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.ml b/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.ml index 91dd3085b..bacb599ea 100644 --- a/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.ml +++ b/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyLoadBalancerAttributesInput.t - type output = ModifyLoadBalancerAttributesOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.mli b/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.mli index fc7f96657..aab105f3c 100644 --- a/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.mli +++ b/libraries/elasticloadbalancing/lib/modifyLoadBalancerAttributes.mli @@ -1,9 +1,7 @@ open Types type input = ModifyLoadBalancerAttributesInput.t - type output = ModifyLoadBalancerAttributesOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.ml b/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.ml index 0409ac9fc..b7c86084a 100644 --- a/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.ml +++ b/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterEndPointsInput.t - type output = RegisterEndPointsOutput.t - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.mli b/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.mli index 263426357..45e46588c 100644 --- a/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.mli +++ b/libraries/elasticloadbalancing/lib/registerInstancesWithLoadBalancer.mli @@ -1,9 +1,7 @@ open Types type input = RegisterEndPointsInput.t - type output = RegisterEndPointsOutput.t - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/removeTags.ml b/libraries/elasticloadbalancing/lib/removeTags.ml index c94744187..47a759766 100644 --- a/libraries/elasticloadbalancing/lib/removeTags.ml +++ b/libraries/elasticloadbalancing/lib/removeTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveTagsInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/removeTags.mli b/libraries/elasticloadbalancing/lib/removeTags.mli index db40a6a91..26392935d 100644 --- a/libraries/elasticloadbalancing/lib/removeTags.mli +++ b/libraries/elasticloadbalancing/lib/removeTags.mli @@ -1,9 +1,7 @@ open Types type input = RemoveTagsInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.ml b/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.ml index 4a9f668de..943c9e699 100644 --- a/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.ml +++ b/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetLoadBalancerListenerSSLCertificateInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.mli b/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.mli index 5723dfbea..ae7e33563 100644 --- a/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.mli +++ b/libraries/elasticloadbalancing/lib/setLoadBalancerListenerSSLCertificate.mli @@ -1,9 +1,7 @@ open Types type input = SetLoadBalancerListenerSSLCertificateInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.ml b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.ml index 2b7590e19..8b93160a9 100644 --- a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.ml +++ b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetLoadBalancerPoliciesForBackendServerInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.mli b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.mli index 48a498429..a59a1e696 100644 --- a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.mli +++ b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesForBackendServer.mli @@ -1,9 +1,7 @@ open Types type input = SetLoadBalancerPoliciesForBackendServerInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.ml b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.ml index c143344e3..2068f0d0f 100644 --- a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.ml +++ b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetLoadBalancerPoliciesOfListenerInput.t - type output = unit - type error = Errors_internal.t let service = "elasticloadbalancing" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.mli b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.mli index c27039e34..86fbbb96c 100644 --- a/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.mli +++ b/libraries/elasticloadbalancing/lib/setLoadBalancerPoliciesOfListener.mli @@ -1,9 +1,7 @@ open Types type input = SetLoadBalancerPoliciesOfListenerInput.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/elasticloadbalancing/lib/types.ml b/libraries/elasticloadbalancing/lib/types.ml index 6257f9eb1..e3f89b878 100644 --- a/libraries/elasticloadbalancing/lib/types.ml +++ b/libraries/elasticloadbalancing/lib/types.ml @@ -6,13 +6,9 @@ module PolicyNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -20,13 +16,9 @@ module InvalidConfigurationRequestException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -39,9 +31,7 @@ module Subnets = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -91,13 +81,9 @@ module AccessPointNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -151,9 +137,7 @@ module LBCookieStickinessPolicies = struct (List.map LBCookieStickinessPolicy.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list LBCookieStickinessPolicy.to_query v - let to_json v = `List (List.map LBCookieStickinessPolicy.to_json v) - let of_json j = Aws.Json.to_list LBCookieStickinessPolicy.of_json j end @@ -209,9 +193,7 @@ module PolicyAttributeDescriptions = struct (List.map PolicyAttributeDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PolicyAttributeDescription.to_query v - let to_json v = `List (List.map PolicyAttributeDescription.to_json v) - let of_json j = Aws.Json.to_list PolicyAttributeDescription.of_json j end @@ -342,9 +324,7 @@ module SecurityGroups = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -357,9 +337,7 @@ module PolicyNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -409,9 +387,7 @@ module AppCookieStickinessPolicies = struct (List.map AppCookieStickinessPolicy.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AppCookieStickinessPolicy.to_query v - let to_json v = `List (List.map AppCookieStickinessPolicy.to_json v) - let of_json j = Aws.Json.to_list AppCookieStickinessPolicy.of_json j end @@ -620,9 +596,7 @@ module ListenerDescriptions = struct (List.map ListenerDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ListenerDescription.to_query v - let to_json v = `List (List.map ListenerDescription.to_json v) - let of_json j = Aws.Json.to_list ListenerDescription.of_json j end @@ -661,9 +635,7 @@ module Instances = struct Aws.Util.option_all (List.map Instance.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Instance.to_query v - let to_json v = `List (List.map Instance.to_json v) - let of_json j = Aws.Json.to_list Instance.of_json j end @@ -789,9 +761,7 @@ module BackendServerDescriptions = struct (List.map BackendServerDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list BackendServerDescription.to_query v - let to_json v = `List (List.map BackendServerDescription.to_json v) - let of_json j = Aws.Json.to_list BackendServerDescription.of_json j end @@ -804,9 +774,7 @@ module AvailabilityZones = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1040,9 +1008,7 @@ module LoadBalancerDescriptions = struct (List.map LoadBalancerDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list LoadBalancerDescription.to_query v - let to_json v = `List (List.map LoadBalancerDescription.to_json v) - let of_json j = Aws.Json.to_list LoadBalancerDescription.of_json j end @@ -1198,9 +1164,7 @@ module PolicyAttributeTypeDescriptions = struct (List.map PolicyAttributeTypeDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PolicyAttributeTypeDescription.to_query v - let to_json v = `List (List.map PolicyAttributeTypeDescription.to_json v) - let of_json j = Aws.Json.to_list PolicyAttributeTypeDescription.of_json j end @@ -1273,9 +1237,7 @@ module PolicyTypeDescriptions = struct (List.map PolicyTypeDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PolicyTypeDescription.to_query v - let to_json v = `List (List.map PolicyTypeDescription.to_json v) - let of_json j = Aws.Json.to_list PolicyTypeDescription.of_json j end @@ -1405,9 +1367,7 @@ module Ports = struct Aws.Util.option_all (List.map Integer.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Integer.to_query v - let to_json v = `List (List.map Integer.to_json v) - let of_json j = Aws.Json.to_list Integer.of_json j end @@ -1504,13 +1464,9 @@ module CreateLBCookieStickinessPolicyOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1680,9 +1636,7 @@ module AdditionalAttributes = struct (List.map AdditionalAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AdditionalAttribute.to_query v - let to_json v = `List (List.map AdditionalAttribute.to_json v) - let of_json j = Aws.Json.to_list AdditionalAttribute.of_json j end @@ -1915,9 +1869,7 @@ module PolicyTypeNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2003,13 +1955,9 @@ module DuplicateAccessPointNameException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2200,13 +2148,9 @@ module TooManyPoliciesException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2214,13 +2158,9 @@ module DeleteLoadBalancerListenerOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2228,13 +2168,9 @@ module DuplicatePolicyNameException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2242,13 +2178,9 @@ module DeleteLoadBalancerPolicyOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2261,9 +2193,7 @@ module LoadBalancerNamesMax20 = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2506,9 +2436,7 @@ module Listeners = struct Aws.Util.option_all (List.map Listener.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Listener.to_query v - let to_json v = `List (List.map Listener.to_json v) - let of_json j = Aws.Json.to_list Listener.of_json j end @@ -2554,13 +2482,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -2568,13 +2492,9 @@ module RemoveTagsOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2582,13 +2502,9 @@ module DeleteAccessPointOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2596,13 +2512,9 @@ module AddTagsOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2664,9 +2576,7 @@ module InstanceStates = struct Aws.Util.option_all (List.map InstanceState.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceState.to_query v - let to_json v = `List (List.map InstanceState.to_json v) - let of_json j = Aws.Json.to_list InstanceState.of_json j end @@ -2709,13 +2619,9 @@ module CreateAppCookieStickinessPolicyOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2833,13 +2739,9 @@ module InvalidSubnetException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2897,13 +2799,9 @@ module PolicyTypeNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2916,9 +2814,7 @@ module PolicyDescriptions = struct Aws.Util.option_all (List.map PolicyDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PolicyDescription.to_query v - let to_json v = `List (List.map PolicyDescription.to_json v) - let of_json j = Aws.Json.to_list PolicyDescription.of_json j end @@ -2989,9 +2885,7 @@ module TagKeyList = struct Aws.Util.option_all (List.map TagKeyOnly.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TagKeyOnly.to_query v - let to_json v = `List (List.map TagKeyOnly.to_json v) - let of_json j = Aws.Json.to_list TagKeyOnly.of_json j end @@ -2999,13 +2893,9 @@ module CertificateNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3013,13 +2903,9 @@ module DuplicateListenerException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3032,9 +2918,7 @@ module LoadBalancerNames = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3098,13 +2982,9 @@ module CreateLoadBalancerListenerOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3112,13 +2992,9 @@ module InvalidSecurityGroupException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3126,13 +3002,9 @@ module SetLoadBalancerPoliciesOfListenerOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3140,13 +3012,9 @@ module InvalidSchemeException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3316,13 +3184,9 @@ module TooManyAccessPointsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3330,13 +3194,9 @@ module SetLoadBalancerListenerSSLCertificateOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3445,13 +3305,9 @@ module SubnetNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3459,13 +3315,9 @@ module InvalidEndPointException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3473,13 +3325,9 @@ module CreateLoadBalancerPolicyOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3487,13 +3335,9 @@ module ListenerNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3622,13 +3466,9 @@ module TooManyTagsException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3636,13 +3476,9 @@ module LoadBalancerAttributeNotFoundException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3740,9 +3576,7 @@ module TagDescriptions = struct Aws.Util.option_all (List.map TagDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TagDescription.to_query v - let to_json v = `List (List.map TagDescription.to_json v) - let of_json j = Aws.Json.to_list TagDescription.of_json j end @@ -3774,13 +3608,9 @@ module DuplicateTagKeysException = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3793,9 +3623,7 @@ module PolicyAttributes = struct Aws.Util.option_all (List.map PolicyAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PolicyAttribute.to_query v - let to_json v = `List (List.map PolicyAttribute.to_json v) - let of_json j = Aws.Json.to_list PolicyAttribute.of_json j end @@ -3961,13 +3789,9 @@ module SetLoadBalancerPoliciesForBackendServerOutput = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/elasticloadbalancing/lib_test/test_async.ml b/libraries/elasticloadbalancing/lib_test/test_async.ml index 2e77dafc3..275c7f678 100644 --- a/libraries/elasticloadbalancing/lib_test/test_async.ml +++ b/libraries/elasticloadbalancing/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/elasticloadbalancing/lib_test/test_lwt.ml b/libraries/elasticloadbalancing/lib_test/test_lwt.ml index ee9b79182..75b19e257 100644 --- a/libraries/elasticloadbalancing/lib_test/test_lwt.ml +++ b/libraries/elasticloadbalancing/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/kms/lib/cancelKeyDeletion.ml b/libraries/kms/lib/cancelKeyDeletion.ml index 078ed682a..111ed1565 100644 --- a/libraries/kms/lib/cancelKeyDeletion.ml +++ b/libraries/kms/lib/cancelKeyDeletion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelKeyDeletionRequest.t - type output = CancelKeyDeletionResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/cancelKeyDeletion.mli b/libraries/kms/lib/cancelKeyDeletion.mli index a52913aec..a1025a842 100644 --- a/libraries/kms/lib/cancelKeyDeletion.mli +++ b/libraries/kms/lib/cancelKeyDeletion.mli @@ -1,9 +1,7 @@ open Types type input = CancelKeyDeletionRequest.t - type output = CancelKeyDeletionResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/connectCustomKeyStore.ml b/libraries/kms/lib/connectCustomKeyStore.ml index 051db464a..f34aeb683 100644 --- a/libraries/kms/lib/connectCustomKeyStore.ml +++ b/libraries/kms/lib/connectCustomKeyStore.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ConnectCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/connectCustomKeyStore.mli b/libraries/kms/lib/connectCustomKeyStore.mli index 3eb806de2..a99f3f92a 100644 --- a/libraries/kms/lib/connectCustomKeyStore.mli +++ b/libraries/kms/lib/connectCustomKeyStore.mli @@ -1,9 +1,7 @@ open Types type input = ConnectCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/createAlias.ml b/libraries/kms/lib/createAlias.ml index 39b906256..0ee9fc1c6 100644 --- a/libraries/kms/lib/createAlias.ml +++ b/libraries/kms/lib/createAlias.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateAliasRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/createAlias.mli b/libraries/kms/lib/createAlias.mli index f59054d27..ef3a0deca 100644 --- a/libraries/kms/lib/createAlias.mli +++ b/libraries/kms/lib/createAlias.mli @@ -1,9 +1,7 @@ open Types type input = CreateAliasRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/createCustomKeyStore.ml b/libraries/kms/lib/createCustomKeyStore.ml index 97927a0b4..c272e015b 100644 --- a/libraries/kms/lib/createCustomKeyStore.ml +++ b/libraries/kms/lib/createCustomKeyStore.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCustomKeyStoreRequest.t - type output = CreateCustomKeyStoreResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/createCustomKeyStore.mli b/libraries/kms/lib/createCustomKeyStore.mli index 6691b6185..95eef12d7 100644 --- a/libraries/kms/lib/createCustomKeyStore.mli +++ b/libraries/kms/lib/createCustomKeyStore.mli @@ -1,9 +1,7 @@ open Types type input = CreateCustomKeyStoreRequest.t - type output = CreateCustomKeyStoreResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/createGrant.ml b/libraries/kms/lib/createGrant.ml index 2bb48dc5e..9e1ac3f76 100644 --- a/libraries/kms/lib/createGrant.ml +++ b/libraries/kms/lib/createGrant.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateGrantRequest.t - type output = CreateGrantResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/createGrant.mli b/libraries/kms/lib/createGrant.mli index 8f5dea2ce..248bb6938 100644 --- a/libraries/kms/lib/createGrant.mli +++ b/libraries/kms/lib/createGrant.mli @@ -1,9 +1,7 @@ open Types type input = CreateGrantRequest.t - type output = CreateGrantResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/createKey.ml b/libraries/kms/lib/createKey.ml index 76f69d7a8..42e79073e 100644 --- a/libraries/kms/lib/createKey.ml +++ b/libraries/kms/lib/createKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateKeyRequest.t - type output = CreateKeyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/createKey.mli b/libraries/kms/lib/createKey.mli index 404f14a97..9a91b2a74 100644 --- a/libraries/kms/lib/createKey.mli +++ b/libraries/kms/lib/createKey.mli @@ -1,9 +1,7 @@ open Types type input = CreateKeyRequest.t - type output = CreateKeyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/decrypt.ml b/libraries/kms/lib/decrypt.ml index b1f685cf6..d23369830 100644 --- a/libraries/kms/lib/decrypt.ml +++ b/libraries/kms/lib/decrypt.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DecryptRequest.t - type output = DecryptResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/decrypt.mli b/libraries/kms/lib/decrypt.mli index 0c67ab4e9..a32f47b97 100644 --- a/libraries/kms/lib/decrypt.mli +++ b/libraries/kms/lib/decrypt.mli @@ -1,9 +1,7 @@ open Types type input = DecryptRequest.t - type output = DecryptResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/deleteAlias.ml b/libraries/kms/lib/deleteAlias.ml index 567704018..095acde29 100644 --- a/libraries/kms/lib/deleteAlias.ml +++ b/libraries/kms/lib/deleteAlias.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAliasRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/deleteAlias.mli b/libraries/kms/lib/deleteAlias.mli index ffd7453f8..8494b2e9d 100644 --- a/libraries/kms/lib/deleteAlias.mli +++ b/libraries/kms/lib/deleteAlias.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAliasRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/deleteCustomKeyStore.ml b/libraries/kms/lib/deleteCustomKeyStore.ml index 6fbe82531..c7ce2db35 100644 --- a/libraries/kms/lib/deleteCustomKeyStore.ml +++ b/libraries/kms/lib/deleteCustomKeyStore.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/deleteCustomKeyStore.mli b/libraries/kms/lib/deleteCustomKeyStore.mli index 38849bb07..3feb97dab 100644 --- a/libraries/kms/lib/deleteCustomKeyStore.mli +++ b/libraries/kms/lib/deleteCustomKeyStore.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/deleteImportedKeyMaterial.ml b/libraries/kms/lib/deleteImportedKeyMaterial.ml index f8bf3864e..c8557652d 100644 --- a/libraries/kms/lib/deleteImportedKeyMaterial.ml +++ b/libraries/kms/lib/deleteImportedKeyMaterial.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteImportedKeyMaterialRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/deleteImportedKeyMaterial.mli b/libraries/kms/lib/deleteImportedKeyMaterial.mli index be4102ae7..1ce228b78 100644 --- a/libraries/kms/lib/deleteImportedKeyMaterial.mli +++ b/libraries/kms/lib/deleteImportedKeyMaterial.mli @@ -1,9 +1,7 @@ open Types type input = DeleteImportedKeyMaterialRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/describeCustomKeyStores.ml b/libraries/kms/lib/describeCustomKeyStores.ml index 2b780d356..7b6556d63 100644 --- a/libraries/kms/lib/describeCustomKeyStores.ml +++ b/libraries/kms/lib/describeCustomKeyStores.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCustomKeyStoresRequest.t - type output = DescribeCustomKeyStoresResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/describeCustomKeyStores.mli b/libraries/kms/lib/describeCustomKeyStores.mli index 4dc152e75..42964b5b9 100644 --- a/libraries/kms/lib/describeCustomKeyStores.mli +++ b/libraries/kms/lib/describeCustomKeyStores.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCustomKeyStoresRequest.t - type output = DescribeCustomKeyStoresResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/describeKey.ml b/libraries/kms/lib/describeKey.ml index 40fdcf9dc..babce793d 100644 --- a/libraries/kms/lib/describeKey.ml +++ b/libraries/kms/lib/describeKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeKeyRequest.t - type output = DescribeKeyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/describeKey.mli b/libraries/kms/lib/describeKey.mli index 98f85dcf9..86fa00b18 100644 --- a/libraries/kms/lib/describeKey.mli +++ b/libraries/kms/lib/describeKey.mli @@ -1,9 +1,7 @@ open Types type input = DescribeKeyRequest.t - type output = DescribeKeyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/disableKey.ml b/libraries/kms/lib/disableKey.ml index 0fa6512f2..4427172d2 100644 --- a/libraries/kms/lib/disableKey.ml +++ b/libraries/kms/lib/disableKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableKeyRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/disableKey.mli b/libraries/kms/lib/disableKey.mli index 106010a3f..1bdc4d0ba 100644 --- a/libraries/kms/lib/disableKey.mli +++ b/libraries/kms/lib/disableKey.mli @@ -1,9 +1,7 @@ open Types type input = DisableKeyRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/disableKeyRotation.ml b/libraries/kms/lib/disableKeyRotation.ml index 1eaeb6d9f..cec05efde 100644 --- a/libraries/kms/lib/disableKeyRotation.ml +++ b/libraries/kms/lib/disableKeyRotation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisableKeyRotationRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/disableKeyRotation.mli b/libraries/kms/lib/disableKeyRotation.mli index ff3ed5e6f..eecf545cc 100644 --- a/libraries/kms/lib/disableKeyRotation.mli +++ b/libraries/kms/lib/disableKeyRotation.mli @@ -1,9 +1,7 @@ open Types type input = DisableKeyRotationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/disconnectCustomKeyStore.ml b/libraries/kms/lib/disconnectCustomKeyStore.ml index af09286cc..cd0082eaf 100644 --- a/libraries/kms/lib/disconnectCustomKeyStore.ml +++ b/libraries/kms/lib/disconnectCustomKeyStore.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisconnectCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/disconnectCustomKeyStore.mli b/libraries/kms/lib/disconnectCustomKeyStore.mli index 3bb82bf99..e41e73c46 100644 --- a/libraries/kms/lib/disconnectCustomKeyStore.mli +++ b/libraries/kms/lib/disconnectCustomKeyStore.mli @@ -1,9 +1,7 @@ open Types type input = DisconnectCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/enableKey.ml b/libraries/kms/lib/enableKey.ml index d3cd273a2..176362cac 100644 --- a/libraries/kms/lib/enableKey.ml +++ b/libraries/kms/lib/enableKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableKeyRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/enableKey.mli b/libraries/kms/lib/enableKey.mli index 5c90092a0..6d1de01b6 100644 --- a/libraries/kms/lib/enableKey.mli +++ b/libraries/kms/lib/enableKey.mli @@ -1,9 +1,7 @@ open Types type input = EnableKeyRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/enableKeyRotation.ml b/libraries/kms/lib/enableKeyRotation.ml index 53547e939..9fdcea306 100644 --- a/libraries/kms/lib/enableKeyRotation.ml +++ b/libraries/kms/lib/enableKeyRotation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EnableKeyRotationRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/enableKeyRotation.mli b/libraries/kms/lib/enableKeyRotation.mli index 0dae8a4aa..f03c06e39 100644 --- a/libraries/kms/lib/enableKeyRotation.mli +++ b/libraries/kms/lib/enableKeyRotation.mli @@ -1,9 +1,7 @@ open Types type input = EnableKeyRotationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/encrypt.ml b/libraries/kms/lib/encrypt.ml index de8ca8616..efb61112c 100644 --- a/libraries/kms/lib/encrypt.ml +++ b/libraries/kms/lib/encrypt.ml @@ -2,13 +2,10 @@ open Types open Aws type input = EncryptRequest.t - type output = EncryptResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/encrypt.mli b/libraries/kms/lib/encrypt.mli index 4fa8f617e..e885db734 100644 --- a/libraries/kms/lib/encrypt.mli +++ b/libraries/kms/lib/encrypt.mli @@ -1,9 +1,7 @@ open Types type input = EncryptRequest.t - type output = EncryptResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/generateDataKey.ml b/libraries/kms/lib/generateDataKey.ml index 44c140cad..010d43599 100644 --- a/libraries/kms/lib/generateDataKey.ml +++ b/libraries/kms/lib/generateDataKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GenerateDataKeyRequest.t - type output = GenerateDataKeyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/generateDataKey.mli b/libraries/kms/lib/generateDataKey.mli index d686fd78e..6b8222217 100644 --- a/libraries/kms/lib/generateDataKey.mli +++ b/libraries/kms/lib/generateDataKey.mli @@ -1,9 +1,7 @@ open Types type input = GenerateDataKeyRequest.t - type output = GenerateDataKeyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/generateDataKeyPair.ml b/libraries/kms/lib/generateDataKeyPair.ml index 28f1332e8..018fad581 100644 --- a/libraries/kms/lib/generateDataKeyPair.ml +++ b/libraries/kms/lib/generateDataKeyPair.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GenerateDataKeyPairRequest.t - type output = GenerateDataKeyPairResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/generateDataKeyPair.mli b/libraries/kms/lib/generateDataKeyPair.mli index 390526080..ec9a62aea 100644 --- a/libraries/kms/lib/generateDataKeyPair.mli +++ b/libraries/kms/lib/generateDataKeyPair.mli @@ -1,9 +1,7 @@ open Types type input = GenerateDataKeyPairRequest.t - type output = GenerateDataKeyPairResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.ml b/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.ml index a04a9c095..273381353 100644 --- a/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.ml +++ b/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GenerateDataKeyPairWithoutPlaintextRequest.t - type output = GenerateDataKeyPairWithoutPlaintextResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.mli b/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.mli index 4c5fed5c0..7a93cce30 100644 --- a/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.mli +++ b/libraries/kms/lib/generateDataKeyPairWithoutPlaintext.mli @@ -1,9 +1,7 @@ open Types type input = GenerateDataKeyPairWithoutPlaintextRequest.t - type output = GenerateDataKeyPairWithoutPlaintextResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/generateDataKeyWithoutPlaintext.ml b/libraries/kms/lib/generateDataKeyWithoutPlaintext.ml index 8835e334b..6197b9278 100644 --- a/libraries/kms/lib/generateDataKeyWithoutPlaintext.ml +++ b/libraries/kms/lib/generateDataKeyWithoutPlaintext.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GenerateDataKeyWithoutPlaintextRequest.t - type output = GenerateDataKeyWithoutPlaintextResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/generateDataKeyWithoutPlaintext.mli b/libraries/kms/lib/generateDataKeyWithoutPlaintext.mli index fec1b1c5d..a094124eb 100644 --- a/libraries/kms/lib/generateDataKeyWithoutPlaintext.mli +++ b/libraries/kms/lib/generateDataKeyWithoutPlaintext.mli @@ -1,9 +1,7 @@ open Types type input = GenerateDataKeyWithoutPlaintextRequest.t - type output = GenerateDataKeyWithoutPlaintextResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/generateRandom.ml b/libraries/kms/lib/generateRandom.ml index f8124eaba..7e05d338b 100644 --- a/libraries/kms/lib/generateRandom.ml +++ b/libraries/kms/lib/generateRandom.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GenerateRandomRequest.t - type output = GenerateRandomResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/generateRandom.mli b/libraries/kms/lib/generateRandom.mli index 51e09c761..7524dd6ea 100644 --- a/libraries/kms/lib/generateRandom.mli +++ b/libraries/kms/lib/generateRandom.mli @@ -1,9 +1,7 @@ open Types type input = GenerateRandomRequest.t - type output = GenerateRandomResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/getKeyPolicy.ml b/libraries/kms/lib/getKeyPolicy.ml index 26411a785..acad88874 100644 --- a/libraries/kms/lib/getKeyPolicy.ml +++ b/libraries/kms/lib/getKeyPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetKeyPolicyRequest.t - type output = GetKeyPolicyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/getKeyPolicy.mli b/libraries/kms/lib/getKeyPolicy.mli index bf74fe8ea..d5d748d71 100644 --- a/libraries/kms/lib/getKeyPolicy.mli +++ b/libraries/kms/lib/getKeyPolicy.mli @@ -1,9 +1,7 @@ open Types type input = GetKeyPolicyRequest.t - type output = GetKeyPolicyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/getKeyRotationStatus.ml b/libraries/kms/lib/getKeyRotationStatus.ml index ec7d3e513..3be8ba7d2 100644 --- a/libraries/kms/lib/getKeyRotationStatus.ml +++ b/libraries/kms/lib/getKeyRotationStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetKeyRotationStatusRequest.t - type output = GetKeyRotationStatusResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/getKeyRotationStatus.mli b/libraries/kms/lib/getKeyRotationStatus.mli index dd6785087..4bc3ca27d 100644 --- a/libraries/kms/lib/getKeyRotationStatus.mli +++ b/libraries/kms/lib/getKeyRotationStatus.mli @@ -1,9 +1,7 @@ open Types type input = GetKeyRotationStatusRequest.t - type output = GetKeyRotationStatusResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/getParametersForImport.ml b/libraries/kms/lib/getParametersForImport.ml index 68135e390..9409b6432 100644 --- a/libraries/kms/lib/getParametersForImport.ml +++ b/libraries/kms/lib/getParametersForImport.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetParametersForImportRequest.t - type output = GetParametersForImportResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/getParametersForImport.mli b/libraries/kms/lib/getParametersForImport.mli index 65194102c..99259da4a 100644 --- a/libraries/kms/lib/getParametersForImport.mli +++ b/libraries/kms/lib/getParametersForImport.mli @@ -1,9 +1,7 @@ open Types type input = GetParametersForImportRequest.t - type output = GetParametersForImportResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/getPublicKey.ml b/libraries/kms/lib/getPublicKey.ml index cddeb85f1..bcadeffe5 100644 --- a/libraries/kms/lib/getPublicKey.ml +++ b/libraries/kms/lib/getPublicKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetPublicKeyRequest.t - type output = GetPublicKeyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/getPublicKey.mli b/libraries/kms/lib/getPublicKey.mli index ecb3e4b60..56edbc0c9 100644 --- a/libraries/kms/lib/getPublicKey.mli +++ b/libraries/kms/lib/getPublicKey.mli @@ -1,9 +1,7 @@ open Types type input = GetPublicKeyRequest.t - type output = GetPublicKeyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/importKeyMaterial.ml b/libraries/kms/lib/importKeyMaterial.ml index db93a9dcd..cee5cfbf2 100644 --- a/libraries/kms/lib/importKeyMaterial.ml +++ b/libraries/kms/lib/importKeyMaterial.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportKeyMaterialRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/importKeyMaterial.mli b/libraries/kms/lib/importKeyMaterial.mli index 615653fc8..654be08fc 100644 --- a/libraries/kms/lib/importKeyMaterial.mli +++ b/libraries/kms/lib/importKeyMaterial.mli @@ -1,9 +1,7 @@ open Types type input = ImportKeyMaterialRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/listAliases.ml b/libraries/kms/lib/listAliases.ml index a80e8d231..42a3074d3 100644 --- a/libraries/kms/lib/listAliases.ml +++ b/libraries/kms/lib/listAliases.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListAliasesRequest.t - type output = ListAliasesResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/listAliases.mli b/libraries/kms/lib/listAliases.mli index aaa87e7c3..e1ad1a7f3 100644 --- a/libraries/kms/lib/listAliases.mli +++ b/libraries/kms/lib/listAliases.mli @@ -1,9 +1,7 @@ open Types type input = ListAliasesRequest.t - type output = ListAliasesResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/listGrants.ml b/libraries/kms/lib/listGrants.ml index d7ceb2b46..c1408f750 100644 --- a/libraries/kms/lib/listGrants.ml +++ b/libraries/kms/lib/listGrants.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListGrantsRequest.t - type output = ListGrantsResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/listGrants.mli b/libraries/kms/lib/listGrants.mli index dc9e2e340..2fca864ab 100644 --- a/libraries/kms/lib/listGrants.mli +++ b/libraries/kms/lib/listGrants.mli @@ -1,9 +1,7 @@ open Types type input = ListGrantsRequest.t - type output = ListGrantsResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/listKeyPolicies.ml b/libraries/kms/lib/listKeyPolicies.ml index 68f40877a..3d8d2d40e 100644 --- a/libraries/kms/lib/listKeyPolicies.ml +++ b/libraries/kms/lib/listKeyPolicies.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListKeyPoliciesRequest.t - type output = ListKeyPoliciesResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/listKeyPolicies.mli b/libraries/kms/lib/listKeyPolicies.mli index a20988aa4..844c19ac6 100644 --- a/libraries/kms/lib/listKeyPolicies.mli +++ b/libraries/kms/lib/listKeyPolicies.mli @@ -1,9 +1,7 @@ open Types type input = ListKeyPoliciesRequest.t - type output = ListKeyPoliciesResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/listKeys.ml b/libraries/kms/lib/listKeys.ml index 2cd7f6d6d..9c8b16999 100644 --- a/libraries/kms/lib/listKeys.ml +++ b/libraries/kms/lib/listKeys.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListKeysRequest.t - type output = ListKeysResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/listKeys.mli b/libraries/kms/lib/listKeys.mli index a544922d2..ce45a8480 100644 --- a/libraries/kms/lib/listKeys.mli +++ b/libraries/kms/lib/listKeys.mli @@ -1,9 +1,7 @@ open Types type input = ListKeysRequest.t - type output = ListKeysResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/listResourceTags.ml b/libraries/kms/lib/listResourceTags.ml index 82692a06f..4e45e1fbc 100644 --- a/libraries/kms/lib/listResourceTags.ml +++ b/libraries/kms/lib/listResourceTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListResourceTagsRequest.t - type output = ListResourceTagsResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/listResourceTags.mli b/libraries/kms/lib/listResourceTags.mli index 86638a8c9..2e64ed494 100644 --- a/libraries/kms/lib/listResourceTags.mli +++ b/libraries/kms/lib/listResourceTags.mli @@ -1,9 +1,7 @@ open Types type input = ListResourceTagsRequest.t - type output = ListResourceTagsResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/listRetirableGrants.ml b/libraries/kms/lib/listRetirableGrants.ml index 04ac4cb95..97f9814e2 100644 --- a/libraries/kms/lib/listRetirableGrants.ml +++ b/libraries/kms/lib/listRetirableGrants.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListRetirableGrantsRequest.t - type output = ListGrantsResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/listRetirableGrants.mli b/libraries/kms/lib/listRetirableGrants.mli index 59c0eaad9..2ef7a2da6 100644 --- a/libraries/kms/lib/listRetirableGrants.mli +++ b/libraries/kms/lib/listRetirableGrants.mli @@ -1,9 +1,7 @@ open Types type input = ListRetirableGrantsRequest.t - type output = ListGrantsResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/putKeyPolicy.ml b/libraries/kms/lib/putKeyPolicy.ml index 1914b9d6b..011f69abe 100644 --- a/libraries/kms/lib/putKeyPolicy.ml +++ b/libraries/kms/lib/putKeyPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutKeyPolicyRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/putKeyPolicy.mli b/libraries/kms/lib/putKeyPolicy.mli index 883e10e52..61a86e1ae 100644 --- a/libraries/kms/lib/putKeyPolicy.mli +++ b/libraries/kms/lib/putKeyPolicy.mli @@ -1,9 +1,7 @@ open Types type input = PutKeyPolicyRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/reEncrypt.ml b/libraries/kms/lib/reEncrypt.ml index 2021cda72..a2dbc7d8b 100644 --- a/libraries/kms/lib/reEncrypt.ml +++ b/libraries/kms/lib/reEncrypt.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReEncryptRequest.t - type output = ReEncryptResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/reEncrypt.mli b/libraries/kms/lib/reEncrypt.mli index f3faa4e6a..37ee8fe56 100644 --- a/libraries/kms/lib/reEncrypt.mli +++ b/libraries/kms/lib/reEncrypt.mli @@ -1,9 +1,7 @@ open Types type input = ReEncryptRequest.t - type output = ReEncryptResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/replicateKey.ml b/libraries/kms/lib/replicateKey.ml index 8b7f2b478..ef933c150 100644 --- a/libraries/kms/lib/replicateKey.ml +++ b/libraries/kms/lib/replicateKey.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReplicateKeyRequest.t - type output = ReplicateKeyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/replicateKey.mli b/libraries/kms/lib/replicateKey.mli index 7ca7e0383..649aa3bc2 100644 --- a/libraries/kms/lib/replicateKey.mli +++ b/libraries/kms/lib/replicateKey.mli @@ -1,9 +1,7 @@ open Types type input = ReplicateKeyRequest.t - type output = ReplicateKeyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/retireGrant.ml b/libraries/kms/lib/retireGrant.ml index f085fbf1e..f99a9842b 100644 --- a/libraries/kms/lib/retireGrant.ml +++ b/libraries/kms/lib/retireGrant.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RetireGrantRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/retireGrant.mli b/libraries/kms/lib/retireGrant.mli index 69aa9b711..ca6a10529 100644 --- a/libraries/kms/lib/retireGrant.mli +++ b/libraries/kms/lib/retireGrant.mli @@ -1,9 +1,7 @@ open Types type input = RetireGrantRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/revokeGrant.ml b/libraries/kms/lib/revokeGrant.ml index e49e434a7..7d2093f33 100644 --- a/libraries/kms/lib/revokeGrant.ml +++ b/libraries/kms/lib/revokeGrant.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RevokeGrantRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/revokeGrant.mli b/libraries/kms/lib/revokeGrant.mli index 30bf2157a..790744c21 100644 --- a/libraries/kms/lib/revokeGrant.mli +++ b/libraries/kms/lib/revokeGrant.mli @@ -1,9 +1,7 @@ open Types type input = RevokeGrantRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/scheduleKeyDeletion.ml b/libraries/kms/lib/scheduleKeyDeletion.ml index b134d5ee6..38468dfca 100644 --- a/libraries/kms/lib/scheduleKeyDeletion.ml +++ b/libraries/kms/lib/scheduleKeyDeletion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ScheduleKeyDeletionRequest.t - type output = ScheduleKeyDeletionResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/scheduleKeyDeletion.mli b/libraries/kms/lib/scheduleKeyDeletion.mli index b9e477c92..775a654bb 100644 --- a/libraries/kms/lib/scheduleKeyDeletion.mli +++ b/libraries/kms/lib/scheduleKeyDeletion.mli @@ -1,9 +1,7 @@ open Types type input = ScheduleKeyDeletionRequest.t - type output = ScheduleKeyDeletionResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/sign.ml b/libraries/kms/lib/sign.ml index 8ffde447b..229a6b3a4 100644 --- a/libraries/kms/lib/sign.ml +++ b/libraries/kms/lib/sign.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SignRequest.t - type output = SignResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/sign.mli b/libraries/kms/lib/sign.mli index c9912ed0e..4b9a91d0f 100644 --- a/libraries/kms/lib/sign.mli +++ b/libraries/kms/lib/sign.mli @@ -1,9 +1,7 @@ open Types type input = SignRequest.t - type output = SignResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib/tagResource.ml b/libraries/kms/lib/tagResource.ml index 4b2f93770..e00167ae0 100644 --- a/libraries/kms/lib/tagResource.ml +++ b/libraries/kms/lib/tagResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TagResourceRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/tagResource.mli b/libraries/kms/lib/tagResource.mli index 6427f8111..e64a675ac 100644 --- a/libraries/kms/lib/tagResource.mli +++ b/libraries/kms/lib/tagResource.mli @@ -1,9 +1,7 @@ open Types type input = TagResourceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/types.ml b/libraries/kms/lib/types.ml index 9929ab246..47565a6a9 100644 --- a/libraries/kms/lib/types.ml +++ b/libraries/kms/lib/types.ml @@ -21,9 +21,7 @@ module AlgorithmSpec = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -33,7 +31,6 @@ module AlgorithmSpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -106,13 +103,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -153,9 +146,7 @@ module SigningAlgorithmSpec = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -165,7 +156,6 @@ module SigningAlgorithmSpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -179,9 +169,7 @@ module SigningAlgorithmSpecList = struct (List.map SigningAlgorithmSpec.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list SigningAlgorithmSpec.to_query v - let to_json v = `List (List.map SigningAlgorithmSpec.to_json v) - let of_json j = Aws.Json.to_list SigningAlgorithmSpec.of_json j end @@ -198,9 +186,7 @@ module OriginType = struct [ AWS_CLOUDHSM, "AWS_CLOUDHSM"; EXTERNAL, "EXTERNAL"; AWS_KMS, "AWS_KMS" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -210,7 +196,6 @@ module OriginType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -220,13 +205,9 @@ module MultiRegionKeyType = struct | REPLICA let str_to_t = [ "REPLICA", REPLICA; "PRIMARY", PRIMARY ] - let t_to_str = [ REPLICA, "REPLICA"; PRIMARY, "PRIMARY" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -236,7 +217,6 @@ module MultiRegionKeyType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -284,9 +264,7 @@ module MultiRegionKeyList = struct Aws.Util.option_all (List.map MultiRegionKey.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MultiRegionKey.to_query v - let to_json v = `List (List.map MultiRegionKey.to_json v) - let of_json j = Aws.Json.to_list MultiRegionKey.of_json j end @@ -357,13 +335,9 @@ module KeyUsageType = struct | ENCRYPT_DECRYPT let str_to_t = [ "ENCRYPT_DECRYPT", ENCRYPT_DECRYPT; "SIGN_VERIFY", SIGN_VERIFY ] - let t_to_str = [ ENCRYPT_DECRYPT, "ENCRYPT_DECRYPT"; SIGN_VERIFY, "SIGN_VERIFY" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -373,7 +347,6 @@ module KeyUsageType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -411,9 +384,7 @@ module KeyState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -423,7 +394,6 @@ module KeyState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -461,9 +431,7 @@ module KeySpec = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -473,7 +441,6 @@ module KeySpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -483,13 +450,9 @@ module KeyManagerType = struct | CUSTOMER let str_to_t = [ "CUSTOMER", CUSTOMER; "AWS", AWS ] - let t_to_str = [ CUSTOMER, "CUSTOMER"; AWS, "AWS" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -499,7 +462,6 @@ module KeyManagerType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -519,9 +481,7 @@ module ExpirationModelType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -531,7 +491,6 @@ module ExpirationModelType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -554,9 +513,7 @@ module EncryptionAlgorithmSpec = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -566,7 +523,6 @@ module EncryptionAlgorithmSpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -580,9 +536,7 @@ module EncryptionAlgorithmSpecList = struct (List.map EncryptionAlgorithmSpec.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list EncryptionAlgorithmSpec.to_query v - let to_json v = `List (List.map EncryptionAlgorithmSpec.to_json v) - let of_json j = Aws.Json.to_list EncryptionAlgorithmSpec.of_json j end @@ -620,9 +574,7 @@ module CustomerMasterKeySpec = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -632,7 +584,6 @@ module CustomerMasterKeySpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1109,13 +1060,9 @@ module MessageType = struct | DIGEST let str_to_t = [ "DIGEST", DIGEST; "RAW", RAW ] - let t_to_str = [ DIGEST, "DIGEST"; RAW, "RAW" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1125,7 +1072,6 @@ module MessageType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1187,9 +1133,7 @@ module GrantTokenList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1284,9 +1228,7 @@ module ConnectionStateType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1296,7 +1238,6 @@ module ConnectionStateType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1464,9 +1405,7 @@ module TagKeyList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1562,9 +1501,7 @@ module GrantOperation = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1574,7 +1511,6 @@ module GrantOperation = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1587,9 +1523,7 @@ module GrantOperationList = struct Aws.Util.option_all (List.map GrantOperation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list GrantOperation.to_query v - let to_json v = `List (List.map GrantOperation.to_json v) - let of_json j = Aws.Json.to_list GrantOperation.of_json j end @@ -1597,9 +1531,7 @@ module EncryptionContextType = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -1790,9 +1722,7 @@ module GrantList = struct Aws.Util.option_all (List.map GrantListEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list GrantListEntry.to_query v - let to_json v = `List (List.map GrantListEntry.to_json v) - let of_json j = Aws.Json.to_list GrantListEntry.of_json j end @@ -1912,9 +1842,7 @@ module ConnectionErrorCodeType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1924,7 +1852,6 @@ module ConnectionErrorCodeType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2110,9 +2037,7 @@ module AliasList = struct Aws.Util.option_all (List.map AliasListEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AliasListEntry.to_query v - let to_json v = `List (List.map AliasListEntry.to_json v) - let of_json j = Aws.Json.to_list AliasListEntry.of_json j end @@ -2171,9 +2096,7 @@ module DataKeyPairSpec = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2183,7 +2106,6 @@ module DataKeyPairSpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2490,13 +2412,9 @@ module ConnectCustomKeyStoreResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2504,13 +2422,9 @@ module WrappingKeySpec = struct type t = RSA_2048 let str_to_t = [ "RSA_2048", RSA_2048 ] - let t_to_str = [ RSA_2048, "RSA_2048" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2520,7 +2434,6 @@ module WrappingKeySpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2851,9 +2764,7 @@ module KeyList = struct Aws.Util.option_all (List.map KeyListEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list KeyListEntry.to_query v - let to_json v = `List (List.map KeyListEntry.to_json v) - let of_json j = Aws.Json.to_list KeyListEntry.of_json j end @@ -3003,13 +2914,9 @@ module DataKeySpec = struct | AES_128 let str_to_t = [ "AES_128", AES_128; "AES_256", AES_256 ] - let t_to_str = [ AES_128, "AES_128"; AES_256, "AES_256" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3019,7 +2926,6 @@ module DataKeySpec = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3794,9 +3700,7 @@ module PolicyNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4321,13 +4225,9 @@ module DeleteCustomKeyStoreResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -4898,9 +4798,7 @@ module CustomKeyStoresList = struct (List.map CustomKeyStoresListEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CustomKeyStoresListEntry.to_query v - let to_json v = `List (List.map CustomKeyStoresListEntry.to_json v) - let of_json j = Aws.Json.to_list CustomKeyStoresListEntry.of_json j end @@ -6005,13 +5903,9 @@ module ImportKeyMaterialResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6172,13 +6066,9 @@ module DisconnectCustomKeyStoreResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6364,13 +6254,9 @@ module UpdateCustomKeyStoreResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/kms/lib/untagResource.ml b/libraries/kms/lib/untagResource.ml index c3bda658d..cdf04f9f2 100644 --- a/libraries/kms/lib/untagResource.ml +++ b/libraries/kms/lib/untagResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UntagResourceRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/untagResource.mli b/libraries/kms/lib/untagResource.mli index e71a8725a..88107a1f9 100644 --- a/libraries/kms/lib/untagResource.mli +++ b/libraries/kms/lib/untagResource.mli @@ -1,9 +1,7 @@ open Types type input = UntagResourceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/updateAlias.ml b/libraries/kms/lib/updateAlias.ml index 5e29d70ff..a7e0d5175 100644 --- a/libraries/kms/lib/updateAlias.ml +++ b/libraries/kms/lib/updateAlias.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateAliasRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/updateAlias.mli b/libraries/kms/lib/updateAlias.mli index 86005bfb4..bd0a14de2 100644 --- a/libraries/kms/lib/updateAlias.mli +++ b/libraries/kms/lib/updateAlias.mli @@ -1,9 +1,7 @@ open Types type input = UpdateAliasRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/updateCustomKeyStore.ml b/libraries/kms/lib/updateCustomKeyStore.ml index 849eeaad0..8b44bafee 100644 --- a/libraries/kms/lib/updateCustomKeyStore.ml +++ b/libraries/kms/lib/updateCustomKeyStore.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/updateCustomKeyStore.mli b/libraries/kms/lib/updateCustomKeyStore.mli index 216d5782b..05651eb84 100644 --- a/libraries/kms/lib/updateCustomKeyStore.mli +++ b/libraries/kms/lib/updateCustomKeyStore.mli @@ -1,9 +1,7 @@ open Types type input = UpdateCustomKeyStoreRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/updateKeyDescription.ml b/libraries/kms/lib/updateKeyDescription.ml index ea57d7950..df2beda10 100644 --- a/libraries/kms/lib/updateKeyDescription.ml +++ b/libraries/kms/lib/updateKeyDescription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateKeyDescriptionRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/updateKeyDescription.mli b/libraries/kms/lib/updateKeyDescription.mli index cfc170239..7a1452494 100644 --- a/libraries/kms/lib/updateKeyDescription.mli +++ b/libraries/kms/lib/updateKeyDescription.mli @@ -1,9 +1,7 @@ open Types type input = UpdateKeyDescriptionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/updatePrimaryRegion.ml b/libraries/kms/lib/updatePrimaryRegion.ml index c5b304f6d..25bea1199 100644 --- a/libraries/kms/lib/updatePrimaryRegion.ml +++ b/libraries/kms/lib/updatePrimaryRegion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdatePrimaryRegionRequest.t - type output = unit - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/updatePrimaryRegion.mli b/libraries/kms/lib/updatePrimaryRegion.mli index bd5e27d0d..834f88d4d 100644 --- a/libraries/kms/lib/updatePrimaryRegion.mli +++ b/libraries/kms/lib/updatePrimaryRegion.mli @@ -1,9 +1,7 @@ open Types type input = UpdatePrimaryRegionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/kms/lib/verify.ml b/libraries/kms/lib/verify.ml index f375d9365..e38b2ae59 100644 --- a/libraries/kms/lib/verify.ml +++ b/libraries/kms/lib/verify.ml @@ -2,13 +2,10 @@ open Types open Aws type input = VerifyRequest.t - type output = VerifyResponse.t - type error = Errors_internal.t let service = "kms" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/kms/lib/verify.mli b/libraries/kms/lib/verify.mli index fc0b1deb4..46da81cd5 100644 --- a/libraries/kms/lib/verify.mli +++ b/libraries/kms/lib/verify.mli @@ -1,9 +1,7 @@ open Types type input = VerifyRequest.t - type output = VerifyResponse.t - type error = Errors_internal.t include diff --git a/libraries/kms/lib_test/test_async.ml b/libraries/kms/lib_test/test_async.ml index 97aad56a9..35fae1994 100644 --- a/libraries/kms/lib_test/test_async.ml +++ b/libraries/kms/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/kms/lib_test/test_lwt.ml b/libraries/kms/lib_test/test_lwt.ml index e158ddf5f..37c3a11a9 100644 --- a/libraries/kms/lib_test/test_lwt.ml +++ b/libraries/kms/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/rds/lib/addRoleToDBCluster.ml b/libraries/rds/lib/addRoleToDBCluster.ml index b5fe8fab7..3eff15e96 100644 --- a/libraries/rds/lib/addRoleToDBCluster.ml +++ b/libraries/rds/lib/addRoleToDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddRoleToDBClusterMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/addRoleToDBCluster.mli b/libraries/rds/lib/addRoleToDBCluster.mli index 9e95b1e85..4cbf5d1f7 100644 --- a/libraries/rds/lib/addRoleToDBCluster.mli +++ b/libraries/rds/lib/addRoleToDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = AddRoleToDBClusterMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/addRoleToDBInstance.ml b/libraries/rds/lib/addRoleToDBInstance.ml index 00526306f..163751f96 100644 --- a/libraries/rds/lib/addRoleToDBInstance.ml +++ b/libraries/rds/lib/addRoleToDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddRoleToDBInstanceMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/addRoleToDBInstance.mli b/libraries/rds/lib/addRoleToDBInstance.mli index 67fc990f8..cb34a71ff 100644 --- a/libraries/rds/lib/addRoleToDBInstance.mli +++ b/libraries/rds/lib/addRoleToDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = AddRoleToDBInstanceMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/addSourceIdentifierToSubscription.ml b/libraries/rds/lib/addSourceIdentifierToSubscription.ml index 7722e7ffc..cb31722c6 100644 --- a/libraries/rds/lib/addSourceIdentifierToSubscription.ml +++ b/libraries/rds/lib/addSourceIdentifierToSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddSourceIdentifierToSubscriptionMessage.t - type output = AddSourceIdentifierToSubscriptionResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/addSourceIdentifierToSubscription.mli b/libraries/rds/lib/addSourceIdentifierToSubscription.mli index afc58b814..217714e5b 100644 --- a/libraries/rds/lib/addSourceIdentifierToSubscription.mli +++ b/libraries/rds/lib/addSourceIdentifierToSubscription.mli @@ -1,9 +1,7 @@ open Types type input = AddSourceIdentifierToSubscriptionMessage.t - type output = AddSourceIdentifierToSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/addTagsToResource.ml b/libraries/rds/lib/addTagsToResource.ml index 91224440a..319fb3ef7 100644 --- a/libraries/rds/lib/addTagsToResource.ml +++ b/libraries/rds/lib/addTagsToResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddTagsToResourceMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/addTagsToResource.mli b/libraries/rds/lib/addTagsToResource.mli index 4f6416e83..4dc5a2196 100644 --- a/libraries/rds/lib/addTagsToResource.mli +++ b/libraries/rds/lib/addTagsToResource.mli @@ -1,9 +1,7 @@ open Types type input = AddTagsToResourceMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/applyPendingMaintenanceAction.ml b/libraries/rds/lib/applyPendingMaintenanceAction.ml index aaacb1870..7db68d307 100644 --- a/libraries/rds/lib/applyPendingMaintenanceAction.ml +++ b/libraries/rds/lib/applyPendingMaintenanceAction.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ApplyPendingMaintenanceActionMessage.t - type output = ApplyPendingMaintenanceActionResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/applyPendingMaintenanceAction.mli b/libraries/rds/lib/applyPendingMaintenanceAction.mli index 0c4029a9e..e48cd0fb0 100644 --- a/libraries/rds/lib/applyPendingMaintenanceAction.mli +++ b/libraries/rds/lib/applyPendingMaintenanceAction.mli @@ -1,9 +1,7 @@ open Types type input = ApplyPendingMaintenanceActionMessage.t - type output = ApplyPendingMaintenanceActionResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/authorizeDBSecurityGroupIngress.ml b/libraries/rds/lib/authorizeDBSecurityGroupIngress.ml index a56ee9d49..a15da0985 100644 --- a/libraries/rds/lib/authorizeDBSecurityGroupIngress.ml +++ b/libraries/rds/lib/authorizeDBSecurityGroupIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AuthorizeDBSecurityGroupIngressMessage.t - type output = AuthorizeDBSecurityGroupIngressResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/authorizeDBSecurityGroupIngress.mli b/libraries/rds/lib/authorizeDBSecurityGroupIngress.mli index 33797ed7e..6ee93f34d 100644 --- a/libraries/rds/lib/authorizeDBSecurityGroupIngress.mli +++ b/libraries/rds/lib/authorizeDBSecurityGroupIngress.mli @@ -1,9 +1,7 @@ open Types type input = AuthorizeDBSecurityGroupIngressMessage.t - type output = AuthorizeDBSecurityGroupIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/backtrackDBCluster.ml b/libraries/rds/lib/backtrackDBCluster.ml index ae32dfa2a..2d6b9630d 100644 --- a/libraries/rds/lib/backtrackDBCluster.ml +++ b/libraries/rds/lib/backtrackDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = BacktrackDBClusterMessage.t - type output = DBClusterBacktrack.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/backtrackDBCluster.mli b/libraries/rds/lib/backtrackDBCluster.mli index 428b5b592..d7b59b70e 100644 --- a/libraries/rds/lib/backtrackDBCluster.mli +++ b/libraries/rds/lib/backtrackDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = BacktrackDBClusterMessage.t - type output = DBClusterBacktrack.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/cancelExportTask.ml b/libraries/rds/lib/cancelExportTask.ml index ff48ac279..b434132b9 100644 --- a/libraries/rds/lib/cancelExportTask.ml +++ b/libraries/rds/lib/cancelExportTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelExportTaskMessage.t - type output = ExportTask.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/cancelExportTask.mli b/libraries/rds/lib/cancelExportTask.mli index 1344c4d31..d1a0268d6 100644 --- a/libraries/rds/lib/cancelExportTask.mli +++ b/libraries/rds/lib/cancelExportTask.mli @@ -1,9 +1,7 @@ open Types type input = CancelExportTaskMessage.t - type output = ExportTask.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/copyDBClusterParameterGroup.ml b/libraries/rds/lib/copyDBClusterParameterGroup.ml index d78d153d2..7e3980017 100644 --- a/libraries/rds/lib/copyDBClusterParameterGroup.ml +++ b/libraries/rds/lib/copyDBClusterParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyDBClusterParameterGroupMessage.t - type output = CopyDBClusterParameterGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/copyDBClusterParameterGroup.mli b/libraries/rds/lib/copyDBClusterParameterGroup.mli index 95e974f14..edfb011a3 100644 --- a/libraries/rds/lib/copyDBClusterParameterGroup.mli +++ b/libraries/rds/lib/copyDBClusterParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = CopyDBClusterParameterGroupMessage.t - type output = CopyDBClusterParameterGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/copyDBClusterSnapshot.ml b/libraries/rds/lib/copyDBClusterSnapshot.ml index b9c53852e..7364a49aa 100644 --- a/libraries/rds/lib/copyDBClusterSnapshot.ml +++ b/libraries/rds/lib/copyDBClusterSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyDBClusterSnapshotMessage.t - type output = CopyDBClusterSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/copyDBClusterSnapshot.mli b/libraries/rds/lib/copyDBClusterSnapshot.mli index 54c62098a..af95b0fbf 100644 --- a/libraries/rds/lib/copyDBClusterSnapshot.mli +++ b/libraries/rds/lib/copyDBClusterSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CopyDBClusterSnapshotMessage.t - type output = CopyDBClusterSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/copyDBParameterGroup.ml b/libraries/rds/lib/copyDBParameterGroup.ml index 88c11769d..9a0454d68 100644 --- a/libraries/rds/lib/copyDBParameterGroup.ml +++ b/libraries/rds/lib/copyDBParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyDBParameterGroupMessage.t - type output = CopyDBParameterGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/copyDBParameterGroup.mli b/libraries/rds/lib/copyDBParameterGroup.mli index 6423f419e..4f03a84a5 100644 --- a/libraries/rds/lib/copyDBParameterGroup.mli +++ b/libraries/rds/lib/copyDBParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = CopyDBParameterGroupMessage.t - type output = CopyDBParameterGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/copyDBSnapshot.ml b/libraries/rds/lib/copyDBSnapshot.ml index 5ba0551f3..8ef216a00 100644 --- a/libraries/rds/lib/copyDBSnapshot.ml +++ b/libraries/rds/lib/copyDBSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyDBSnapshotMessage.t - type output = CopyDBSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/copyDBSnapshot.mli b/libraries/rds/lib/copyDBSnapshot.mli index 50b1fe687..57ab1f854 100644 --- a/libraries/rds/lib/copyDBSnapshot.mli +++ b/libraries/rds/lib/copyDBSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CopyDBSnapshotMessage.t - type output = CopyDBSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/copyOptionGroup.ml b/libraries/rds/lib/copyOptionGroup.ml index 12e092c54..848e9252c 100644 --- a/libraries/rds/lib/copyOptionGroup.ml +++ b/libraries/rds/lib/copyOptionGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CopyOptionGroupMessage.t - type output = CopyOptionGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/copyOptionGroup.mli b/libraries/rds/lib/copyOptionGroup.mli index 921f79608..54e952059 100644 --- a/libraries/rds/lib/copyOptionGroup.mli +++ b/libraries/rds/lib/copyOptionGroup.mli @@ -1,9 +1,7 @@ open Types type input = CopyOptionGroupMessage.t - type output = CopyOptionGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createCustomAvailabilityZone.ml b/libraries/rds/lib/createCustomAvailabilityZone.ml index 589433fe2..efb63b045 100644 --- a/libraries/rds/lib/createCustomAvailabilityZone.ml +++ b/libraries/rds/lib/createCustomAvailabilityZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateCustomAvailabilityZoneMessage.t - type output = CreateCustomAvailabilityZoneResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createCustomAvailabilityZone.mli b/libraries/rds/lib/createCustomAvailabilityZone.mli index 936e41fc0..c97357b79 100644 --- a/libraries/rds/lib/createCustomAvailabilityZone.mli +++ b/libraries/rds/lib/createCustomAvailabilityZone.mli @@ -1,9 +1,7 @@ open Types type input = CreateCustomAvailabilityZoneMessage.t - type output = CreateCustomAvailabilityZoneResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBCluster.ml b/libraries/rds/lib/createDBCluster.ml index 44199a70c..579e18122 100644 --- a/libraries/rds/lib/createDBCluster.ml +++ b/libraries/rds/lib/createDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBClusterMessage.t - type output = CreateDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBCluster.mli b/libraries/rds/lib/createDBCluster.mli index bf5d74f3c..e1841e1dd 100644 --- a/libraries/rds/lib/createDBCluster.mli +++ b/libraries/rds/lib/createDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBClusterMessage.t - type output = CreateDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBClusterEndpoint.ml b/libraries/rds/lib/createDBClusterEndpoint.ml index 65274d18e..633d75e09 100644 --- a/libraries/rds/lib/createDBClusterEndpoint.ml +++ b/libraries/rds/lib/createDBClusterEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBClusterEndpointMessage.t - type output = DBClusterEndpoint.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBClusterEndpoint.mli b/libraries/rds/lib/createDBClusterEndpoint.mli index 900eec8ea..f9a3a86b1 100644 --- a/libraries/rds/lib/createDBClusterEndpoint.mli +++ b/libraries/rds/lib/createDBClusterEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBClusterEndpointMessage.t - type output = DBClusterEndpoint.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBClusterParameterGroup.ml b/libraries/rds/lib/createDBClusterParameterGroup.ml index c46cd6e97..25027a8fd 100644 --- a/libraries/rds/lib/createDBClusterParameterGroup.ml +++ b/libraries/rds/lib/createDBClusterParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBClusterParameterGroupMessage.t - type output = CreateDBClusterParameterGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBClusterParameterGroup.mli b/libraries/rds/lib/createDBClusterParameterGroup.mli index b0fe7b9b9..e88b75714 100644 --- a/libraries/rds/lib/createDBClusterParameterGroup.mli +++ b/libraries/rds/lib/createDBClusterParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBClusterParameterGroupMessage.t - type output = CreateDBClusterParameterGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBClusterSnapshot.ml b/libraries/rds/lib/createDBClusterSnapshot.ml index cd43b2a99..33f6f4e40 100644 --- a/libraries/rds/lib/createDBClusterSnapshot.ml +++ b/libraries/rds/lib/createDBClusterSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBClusterSnapshotMessage.t - type output = CreateDBClusterSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBClusterSnapshot.mli b/libraries/rds/lib/createDBClusterSnapshot.mli index 00655c73d..2c2b06bde 100644 --- a/libraries/rds/lib/createDBClusterSnapshot.mli +++ b/libraries/rds/lib/createDBClusterSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBClusterSnapshotMessage.t - type output = CreateDBClusterSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBInstance.ml b/libraries/rds/lib/createDBInstance.ml index 5c5f426be..11a86c1f7 100644 --- a/libraries/rds/lib/createDBInstance.ml +++ b/libraries/rds/lib/createDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBInstanceMessage.t - type output = CreateDBInstanceResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBInstance.mli b/libraries/rds/lib/createDBInstance.mli index a58e9cbbd..cbcb756fd 100644 --- a/libraries/rds/lib/createDBInstance.mli +++ b/libraries/rds/lib/createDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBInstanceMessage.t - type output = CreateDBInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBInstanceReadReplica.ml b/libraries/rds/lib/createDBInstanceReadReplica.ml index 89748eea5..a3464e9d3 100644 --- a/libraries/rds/lib/createDBInstanceReadReplica.ml +++ b/libraries/rds/lib/createDBInstanceReadReplica.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBInstanceReadReplicaMessage.t - type output = CreateDBInstanceReadReplicaResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBInstanceReadReplica.mli b/libraries/rds/lib/createDBInstanceReadReplica.mli index d2c23903d..4a391060c 100644 --- a/libraries/rds/lib/createDBInstanceReadReplica.mli +++ b/libraries/rds/lib/createDBInstanceReadReplica.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBInstanceReadReplicaMessage.t - type output = CreateDBInstanceReadReplicaResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBParameterGroup.ml b/libraries/rds/lib/createDBParameterGroup.ml index 7647a500a..2466230c4 100644 --- a/libraries/rds/lib/createDBParameterGroup.ml +++ b/libraries/rds/lib/createDBParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBParameterGroupMessage.t - type output = CreateDBParameterGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBParameterGroup.mli b/libraries/rds/lib/createDBParameterGroup.mli index 02c761a7e..ebb35d10c 100644 --- a/libraries/rds/lib/createDBParameterGroup.mli +++ b/libraries/rds/lib/createDBParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBParameterGroupMessage.t - type output = CreateDBParameterGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBProxy.ml b/libraries/rds/lib/createDBProxy.ml index 42ac13c54..f10438f62 100644 --- a/libraries/rds/lib/createDBProxy.ml +++ b/libraries/rds/lib/createDBProxy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBProxyRequest.t - type output = CreateDBProxyResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBProxy.mli b/libraries/rds/lib/createDBProxy.mli index ad986f9de..d3a2380cd 100644 --- a/libraries/rds/lib/createDBProxy.mli +++ b/libraries/rds/lib/createDBProxy.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBProxyRequest.t - type output = CreateDBProxyResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBSecurityGroup.ml b/libraries/rds/lib/createDBSecurityGroup.ml index 0529c6168..0f950d7ac 100644 --- a/libraries/rds/lib/createDBSecurityGroup.ml +++ b/libraries/rds/lib/createDBSecurityGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBSecurityGroupMessage.t - type output = CreateDBSecurityGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBSecurityGroup.mli b/libraries/rds/lib/createDBSecurityGroup.mli index f03941f61..1a5823a00 100644 --- a/libraries/rds/lib/createDBSecurityGroup.mli +++ b/libraries/rds/lib/createDBSecurityGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBSecurityGroupMessage.t - type output = CreateDBSecurityGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBSnapshot.ml b/libraries/rds/lib/createDBSnapshot.ml index f7a2d55c0..a0c235de6 100644 --- a/libraries/rds/lib/createDBSnapshot.ml +++ b/libraries/rds/lib/createDBSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBSnapshotMessage.t - type output = CreateDBSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBSnapshot.mli b/libraries/rds/lib/createDBSnapshot.mli index 31b8b6c0d..eb5ee5b12 100644 --- a/libraries/rds/lib/createDBSnapshot.mli +++ b/libraries/rds/lib/createDBSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBSnapshotMessage.t - type output = CreateDBSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createDBSubnetGroup.ml b/libraries/rds/lib/createDBSubnetGroup.ml index 211fe2be8..5e1e66ac6 100644 --- a/libraries/rds/lib/createDBSubnetGroup.ml +++ b/libraries/rds/lib/createDBSubnetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDBSubnetGroupMessage.t - type output = CreateDBSubnetGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createDBSubnetGroup.mli b/libraries/rds/lib/createDBSubnetGroup.mli index b52b25d4e..160e09d52 100644 --- a/libraries/rds/lib/createDBSubnetGroup.mli +++ b/libraries/rds/lib/createDBSubnetGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateDBSubnetGroupMessage.t - type output = CreateDBSubnetGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createEventSubscription.ml b/libraries/rds/lib/createEventSubscription.ml index 265e993da..64727c021 100644 --- a/libraries/rds/lib/createEventSubscription.ml +++ b/libraries/rds/lib/createEventSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateEventSubscriptionMessage.t - type output = CreateEventSubscriptionResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createEventSubscription.mli b/libraries/rds/lib/createEventSubscription.mli index f172cd1dc..a925caed5 100644 --- a/libraries/rds/lib/createEventSubscription.mli +++ b/libraries/rds/lib/createEventSubscription.mli @@ -1,9 +1,7 @@ open Types type input = CreateEventSubscriptionMessage.t - type output = CreateEventSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createGlobalCluster.ml b/libraries/rds/lib/createGlobalCluster.ml index 10c7d1717..e63e406ef 100644 --- a/libraries/rds/lib/createGlobalCluster.ml +++ b/libraries/rds/lib/createGlobalCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateGlobalClusterMessage.t - type output = CreateGlobalClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createGlobalCluster.mli b/libraries/rds/lib/createGlobalCluster.mli index 832566926..3b8ab6de6 100644 --- a/libraries/rds/lib/createGlobalCluster.mli +++ b/libraries/rds/lib/createGlobalCluster.mli @@ -1,9 +1,7 @@ open Types type input = CreateGlobalClusterMessage.t - type output = CreateGlobalClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/createOptionGroup.ml b/libraries/rds/lib/createOptionGroup.ml index 0274fcce4..8fea140cd 100644 --- a/libraries/rds/lib/createOptionGroup.ml +++ b/libraries/rds/lib/createOptionGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateOptionGroupMessage.t - type output = CreateOptionGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/createOptionGroup.mli b/libraries/rds/lib/createOptionGroup.mli index 7f2628c6f..b7c6e28cb 100644 --- a/libraries/rds/lib/createOptionGroup.mli +++ b/libraries/rds/lib/createOptionGroup.mli @@ -1,9 +1,7 @@ open Types type input = CreateOptionGroupMessage.t - type output = CreateOptionGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteCustomAvailabilityZone.ml b/libraries/rds/lib/deleteCustomAvailabilityZone.ml index 60394338e..39d9f9a99 100644 --- a/libraries/rds/lib/deleteCustomAvailabilityZone.ml +++ b/libraries/rds/lib/deleteCustomAvailabilityZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteCustomAvailabilityZoneMessage.t - type output = DeleteCustomAvailabilityZoneResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteCustomAvailabilityZone.mli b/libraries/rds/lib/deleteCustomAvailabilityZone.mli index 3779d4afb..3b28e0875 100644 --- a/libraries/rds/lib/deleteCustomAvailabilityZone.mli +++ b/libraries/rds/lib/deleteCustomAvailabilityZone.mli @@ -1,9 +1,7 @@ open Types type input = DeleteCustomAvailabilityZoneMessage.t - type output = DeleteCustomAvailabilityZoneResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBCluster.ml b/libraries/rds/lib/deleteDBCluster.ml index 014915258..32cc7b875 100644 --- a/libraries/rds/lib/deleteDBCluster.ml +++ b/libraries/rds/lib/deleteDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBClusterMessage.t - type output = DeleteDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBCluster.mli b/libraries/rds/lib/deleteDBCluster.mli index e36952141..61bdd45ac 100644 --- a/libraries/rds/lib/deleteDBCluster.mli +++ b/libraries/rds/lib/deleteDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBClusterMessage.t - type output = DeleteDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBClusterEndpoint.ml b/libraries/rds/lib/deleteDBClusterEndpoint.ml index 3bbde73ee..08190cbbc 100644 --- a/libraries/rds/lib/deleteDBClusterEndpoint.ml +++ b/libraries/rds/lib/deleteDBClusterEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBClusterEndpointMessage.t - type output = DBClusterEndpoint.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBClusterEndpoint.mli b/libraries/rds/lib/deleteDBClusterEndpoint.mli index 68cd6f788..393bdca5e 100644 --- a/libraries/rds/lib/deleteDBClusterEndpoint.mli +++ b/libraries/rds/lib/deleteDBClusterEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBClusterEndpointMessage.t - type output = DBClusterEndpoint.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBClusterParameterGroup.ml b/libraries/rds/lib/deleteDBClusterParameterGroup.ml index b33e929ef..55112f09e 100644 --- a/libraries/rds/lib/deleteDBClusterParameterGroup.ml +++ b/libraries/rds/lib/deleteDBClusterParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBClusterParameterGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBClusterParameterGroup.mli b/libraries/rds/lib/deleteDBClusterParameterGroup.mli index 402e9db78..045c2963a 100644 --- a/libraries/rds/lib/deleteDBClusterParameterGroup.mli +++ b/libraries/rds/lib/deleteDBClusterParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBClusterParameterGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBClusterSnapshot.ml b/libraries/rds/lib/deleteDBClusterSnapshot.ml index 0fc39bc76..3bb9c72aa 100644 --- a/libraries/rds/lib/deleteDBClusterSnapshot.ml +++ b/libraries/rds/lib/deleteDBClusterSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBClusterSnapshotMessage.t - type output = DeleteDBClusterSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBClusterSnapshot.mli b/libraries/rds/lib/deleteDBClusterSnapshot.mli index db96c1c39..8030c97bc 100644 --- a/libraries/rds/lib/deleteDBClusterSnapshot.mli +++ b/libraries/rds/lib/deleteDBClusterSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBClusterSnapshotMessage.t - type output = DeleteDBClusterSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBInstance.ml b/libraries/rds/lib/deleteDBInstance.ml index 036aa43cb..8f938f982 100644 --- a/libraries/rds/lib/deleteDBInstance.ml +++ b/libraries/rds/lib/deleteDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBInstanceMessage.t - type output = DeleteDBInstanceResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBInstance.mli b/libraries/rds/lib/deleteDBInstance.mli index c106c07dc..ef77079f4 100644 --- a/libraries/rds/lib/deleteDBInstance.mli +++ b/libraries/rds/lib/deleteDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBInstanceMessage.t - type output = DeleteDBInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBInstanceAutomatedBackup.ml b/libraries/rds/lib/deleteDBInstanceAutomatedBackup.ml index 25e6e00c1..f233abbb9 100644 --- a/libraries/rds/lib/deleteDBInstanceAutomatedBackup.ml +++ b/libraries/rds/lib/deleteDBInstanceAutomatedBackup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBInstanceAutomatedBackupMessage.t - type output = DeleteDBInstanceAutomatedBackupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBInstanceAutomatedBackup.mli b/libraries/rds/lib/deleteDBInstanceAutomatedBackup.mli index c5ddb83fd..78aa49488 100644 --- a/libraries/rds/lib/deleteDBInstanceAutomatedBackup.mli +++ b/libraries/rds/lib/deleteDBInstanceAutomatedBackup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBInstanceAutomatedBackupMessage.t - type output = DeleteDBInstanceAutomatedBackupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBParameterGroup.ml b/libraries/rds/lib/deleteDBParameterGroup.ml index 3848d4734..a25cb85e9 100644 --- a/libraries/rds/lib/deleteDBParameterGroup.ml +++ b/libraries/rds/lib/deleteDBParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBParameterGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBParameterGroup.mli b/libraries/rds/lib/deleteDBParameterGroup.mli index 76c37e5fb..7e8e3c9f9 100644 --- a/libraries/rds/lib/deleteDBParameterGroup.mli +++ b/libraries/rds/lib/deleteDBParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBParameterGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBProxy.ml b/libraries/rds/lib/deleteDBProxy.ml index 2440b519c..9f1744b98 100644 --- a/libraries/rds/lib/deleteDBProxy.ml +++ b/libraries/rds/lib/deleteDBProxy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBProxyRequest.t - type output = DeleteDBProxyResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBProxy.mli b/libraries/rds/lib/deleteDBProxy.mli index 21ee3a48b..922de3c0b 100644 --- a/libraries/rds/lib/deleteDBProxy.mli +++ b/libraries/rds/lib/deleteDBProxy.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBProxyRequest.t - type output = DeleteDBProxyResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBSecurityGroup.ml b/libraries/rds/lib/deleteDBSecurityGroup.ml index 9ae0a98b9..b9f78d7f6 100644 --- a/libraries/rds/lib/deleteDBSecurityGroup.ml +++ b/libraries/rds/lib/deleteDBSecurityGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBSecurityGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBSecurityGroup.mli b/libraries/rds/lib/deleteDBSecurityGroup.mli index ce3f24ffd..63da61bb6 100644 --- a/libraries/rds/lib/deleteDBSecurityGroup.mli +++ b/libraries/rds/lib/deleteDBSecurityGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBSecurityGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBSnapshot.ml b/libraries/rds/lib/deleteDBSnapshot.ml index 94aef6629..0bad47ece 100644 --- a/libraries/rds/lib/deleteDBSnapshot.ml +++ b/libraries/rds/lib/deleteDBSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBSnapshotMessage.t - type output = DeleteDBSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBSnapshot.mli b/libraries/rds/lib/deleteDBSnapshot.mli index a4db1aeb3..245546599 100644 --- a/libraries/rds/lib/deleteDBSnapshot.mli +++ b/libraries/rds/lib/deleteDBSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBSnapshotMessage.t - type output = DeleteDBSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteDBSubnetGroup.ml b/libraries/rds/lib/deleteDBSubnetGroup.ml index 5a2177b80..3d6ca387c 100644 --- a/libraries/rds/lib/deleteDBSubnetGroup.ml +++ b/libraries/rds/lib/deleteDBSubnetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDBSubnetGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteDBSubnetGroup.mli b/libraries/rds/lib/deleteDBSubnetGroup.mli index ef12b19ab..f1b1c44b3 100644 --- a/libraries/rds/lib/deleteDBSubnetGroup.mli +++ b/libraries/rds/lib/deleteDBSubnetGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDBSubnetGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteEventSubscription.ml b/libraries/rds/lib/deleteEventSubscription.ml index 9164bef8d..1107443b7 100644 --- a/libraries/rds/lib/deleteEventSubscription.ml +++ b/libraries/rds/lib/deleteEventSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteEventSubscriptionMessage.t - type output = DeleteEventSubscriptionResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteEventSubscription.mli b/libraries/rds/lib/deleteEventSubscription.mli index 532bb1bdd..187cc795a 100644 --- a/libraries/rds/lib/deleteEventSubscription.mli +++ b/libraries/rds/lib/deleteEventSubscription.mli @@ -1,9 +1,7 @@ open Types type input = DeleteEventSubscriptionMessage.t - type output = DeleteEventSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteGlobalCluster.ml b/libraries/rds/lib/deleteGlobalCluster.ml index b19908abc..63de2ce14 100644 --- a/libraries/rds/lib/deleteGlobalCluster.ml +++ b/libraries/rds/lib/deleteGlobalCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteGlobalClusterMessage.t - type output = DeleteGlobalClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteGlobalCluster.mli b/libraries/rds/lib/deleteGlobalCluster.mli index 16cdfd82b..4b2596112 100644 --- a/libraries/rds/lib/deleteGlobalCluster.mli +++ b/libraries/rds/lib/deleteGlobalCluster.mli @@ -1,9 +1,7 @@ open Types type input = DeleteGlobalClusterMessage.t - type output = DeleteGlobalClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteInstallationMedia.ml b/libraries/rds/lib/deleteInstallationMedia.ml index 93cdadd37..e598b45a7 100644 --- a/libraries/rds/lib/deleteInstallationMedia.ml +++ b/libraries/rds/lib/deleteInstallationMedia.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteInstallationMediaMessage.t - type output = InstallationMedia.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteInstallationMedia.mli b/libraries/rds/lib/deleteInstallationMedia.mli index b0cbb1264..e67954f23 100644 --- a/libraries/rds/lib/deleteInstallationMedia.mli +++ b/libraries/rds/lib/deleteInstallationMedia.mli @@ -1,9 +1,7 @@ open Types type input = DeleteInstallationMediaMessage.t - type output = InstallationMedia.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deleteOptionGroup.ml b/libraries/rds/lib/deleteOptionGroup.ml index ee7f4a2d4..3023c589c 100644 --- a/libraries/rds/lib/deleteOptionGroup.ml +++ b/libraries/rds/lib/deleteOptionGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteOptionGroupMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deleteOptionGroup.mli b/libraries/rds/lib/deleteOptionGroup.mli index 73a90ccc6..0857eccd5 100644 --- a/libraries/rds/lib/deleteOptionGroup.mli +++ b/libraries/rds/lib/deleteOptionGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeleteOptionGroupMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/deregisterDBProxyTargets.ml b/libraries/rds/lib/deregisterDBProxyTargets.ml index 6027bef5d..354f9000c 100644 --- a/libraries/rds/lib/deregisterDBProxyTargets.ml +++ b/libraries/rds/lib/deregisterDBProxyTargets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterDBProxyTargetsRequest.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/deregisterDBProxyTargets.mli b/libraries/rds/lib/deregisterDBProxyTargets.mli index 80b4aebd0..7a614164c 100644 --- a/libraries/rds/lib/deregisterDBProxyTargets.mli +++ b/libraries/rds/lib/deregisterDBProxyTargets.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterDBProxyTargetsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeAccountAttributes.ml b/libraries/rds/lib/describeAccountAttributes.ml index 5e7fc0814..40652fca0 100644 --- a/libraries/rds/lib/describeAccountAttributes.ml +++ b/libraries/rds/lib/describeAccountAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = unit - type output = AccountAttributesMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeAccountAttributes.mli b/libraries/rds/lib/describeAccountAttributes.mli index 7a4402a7e..7cc4530e1 100644 --- a/libraries/rds/lib/describeAccountAttributes.mli +++ b/libraries/rds/lib/describeAccountAttributes.mli @@ -1,9 +1,7 @@ open Types type input = unit - type output = AccountAttributesMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeCertificates.ml b/libraries/rds/lib/describeCertificates.ml index 090236447..faff8956b 100644 --- a/libraries/rds/lib/describeCertificates.ml +++ b/libraries/rds/lib/describeCertificates.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCertificatesMessage.t - type output = CertificateMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeCertificates.mli b/libraries/rds/lib/describeCertificates.mli index c7053d6ab..f7a99041c 100644 --- a/libraries/rds/lib/describeCertificates.mli +++ b/libraries/rds/lib/describeCertificates.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCertificatesMessage.t - type output = CertificateMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeCustomAvailabilityZones.ml b/libraries/rds/lib/describeCustomAvailabilityZones.ml index 827036ee7..665821dd9 100644 --- a/libraries/rds/lib/describeCustomAvailabilityZones.ml +++ b/libraries/rds/lib/describeCustomAvailabilityZones.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeCustomAvailabilityZonesMessage.t - type output = CustomAvailabilityZoneMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeCustomAvailabilityZones.mli b/libraries/rds/lib/describeCustomAvailabilityZones.mli index 2c0a60028..fce0b6608 100644 --- a/libraries/rds/lib/describeCustomAvailabilityZones.mli +++ b/libraries/rds/lib/describeCustomAvailabilityZones.mli @@ -1,9 +1,7 @@ open Types type input = DescribeCustomAvailabilityZonesMessage.t - type output = CustomAvailabilityZoneMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusterBacktracks.ml b/libraries/rds/lib/describeDBClusterBacktracks.ml index c00e3d717..fcd2078c0 100644 --- a/libraries/rds/lib/describeDBClusterBacktracks.ml +++ b/libraries/rds/lib/describeDBClusterBacktracks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClusterBacktracksMessage.t - type output = DBClusterBacktrackMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusterBacktracks.mli b/libraries/rds/lib/describeDBClusterBacktracks.mli index 5c9b9f07c..ff35012d7 100644 --- a/libraries/rds/lib/describeDBClusterBacktracks.mli +++ b/libraries/rds/lib/describeDBClusterBacktracks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClusterBacktracksMessage.t - type output = DBClusterBacktrackMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusterEndpoints.ml b/libraries/rds/lib/describeDBClusterEndpoints.ml index 5f38fc76b..9617fb678 100644 --- a/libraries/rds/lib/describeDBClusterEndpoints.ml +++ b/libraries/rds/lib/describeDBClusterEndpoints.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClusterEndpointsMessage.t - type output = DBClusterEndpointMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusterEndpoints.mli b/libraries/rds/lib/describeDBClusterEndpoints.mli index 6ff4fb481..eaf49bb63 100644 --- a/libraries/rds/lib/describeDBClusterEndpoints.mli +++ b/libraries/rds/lib/describeDBClusterEndpoints.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClusterEndpointsMessage.t - type output = DBClusterEndpointMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusterParameterGroups.ml b/libraries/rds/lib/describeDBClusterParameterGroups.ml index 14dab9ded..f6b824066 100644 --- a/libraries/rds/lib/describeDBClusterParameterGroups.ml +++ b/libraries/rds/lib/describeDBClusterParameterGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClusterParameterGroupsMessage.t - type output = DBClusterParameterGroupsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusterParameterGroups.mli b/libraries/rds/lib/describeDBClusterParameterGroups.mli index 1182b303b..86470c644 100644 --- a/libraries/rds/lib/describeDBClusterParameterGroups.mli +++ b/libraries/rds/lib/describeDBClusterParameterGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClusterParameterGroupsMessage.t - type output = DBClusterParameterGroupsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusterParameters.ml b/libraries/rds/lib/describeDBClusterParameters.ml index 998836f21..cd7541614 100644 --- a/libraries/rds/lib/describeDBClusterParameters.ml +++ b/libraries/rds/lib/describeDBClusterParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClusterParametersMessage.t - type output = DBClusterParameterGroupDetails.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusterParameters.mli b/libraries/rds/lib/describeDBClusterParameters.mli index 87408d4a2..4a7a1bed6 100644 --- a/libraries/rds/lib/describeDBClusterParameters.mli +++ b/libraries/rds/lib/describeDBClusterParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClusterParametersMessage.t - type output = DBClusterParameterGroupDetails.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusterSnapshotAttributes.ml b/libraries/rds/lib/describeDBClusterSnapshotAttributes.ml index 26a3ab21c..a9aa81008 100644 --- a/libraries/rds/lib/describeDBClusterSnapshotAttributes.ml +++ b/libraries/rds/lib/describeDBClusterSnapshotAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClusterSnapshotAttributesMessage.t - type output = DescribeDBClusterSnapshotAttributesResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusterSnapshotAttributes.mli b/libraries/rds/lib/describeDBClusterSnapshotAttributes.mli index 337cbf27a..b7aa14c17 100644 --- a/libraries/rds/lib/describeDBClusterSnapshotAttributes.mli +++ b/libraries/rds/lib/describeDBClusterSnapshotAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClusterSnapshotAttributesMessage.t - type output = DescribeDBClusterSnapshotAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusterSnapshots.ml b/libraries/rds/lib/describeDBClusterSnapshots.ml index 8978d9c41..4bbdf0c23 100644 --- a/libraries/rds/lib/describeDBClusterSnapshots.ml +++ b/libraries/rds/lib/describeDBClusterSnapshots.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClusterSnapshotsMessage.t - type output = DBClusterSnapshotMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusterSnapshots.mli b/libraries/rds/lib/describeDBClusterSnapshots.mli index f172ba7e1..a1aa11bd3 100644 --- a/libraries/rds/lib/describeDBClusterSnapshots.mli +++ b/libraries/rds/lib/describeDBClusterSnapshots.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClusterSnapshotsMessage.t - type output = DBClusterSnapshotMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBClusters.ml b/libraries/rds/lib/describeDBClusters.ml index bc0459d87..82cea4c11 100644 --- a/libraries/rds/lib/describeDBClusters.ml +++ b/libraries/rds/lib/describeDBClusters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBClustersMessage.t - type output = DBClusterMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBClusters.mli b/libraries/rds/lib/describeDBClusters.mli index 9194d11bd..636b1a4fe 100644 --- a/libraries/rds/lib/describeDBClusters.mli +++ b/libraries/rds/lib/describeDBClusters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBClustersMessage.t - type output = DBClusterMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBEngineVersions.ml b/libraries/rds/lib/describeDBEngineVersions.ml index 2463ba676..4ad13e371 100644 --- a/libraries/rds/lib/describeDBEngineVersions.ml +++ b/libraries/rds/lib/describeDBEngineVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBEngineVersionsMessage.t - type output = DBEngineVersionMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBEngineVersions.mli b/libraries/rds/lib/describeDBEngineVersions.mli index df79cda3b..cc98ef039 100644 --- a/libraries/rds/lib/describeDBEngineVersions.mli +++ b/libraries/rds/lib/describeDBEngineVersions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBEngineVersionsMessage.t - type output = DBEngineVersionMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBInstanceAutomatedBackups.ml b/libraries/rds/lib/describeDBInstanceAutomatedBackups.ml index ee89ec5f8..ea3a02266 100644 --- a/libraries/rds/lib/describeDBInstanceAutomatedBackups.ml +++ b/libraries/rds/lib/describeDBInstanceAutomatedBackups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBInstanceAutomatedBackupsMessage.t - type output = DBInstanceAutomatedBackupMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBInstanceAutomatedBackups.mli b/libraries/rds/lib/describeDBInstanceAutomatedBackups.mli index 284634f78..f684ced1f 100644 --- a/libraries/rds/lib/describeDBInstanceAutomatedBackups.mli +++ b/libraries/rds/lib/describeDBInstanceAutomatedBackups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBInstanceAutomatedBackupsMessage.t - type output = DBInstanceAutomatedBackupMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBInstances.ml b/libraries/rds/lib/describeDBInstances.ml index 0bf1d5e07..0db175667 100644 --- a/libraries/rds/lib/describeDBInstances.ml +++ b/libraries/rds/lib/describeDBInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBInstancesMessage.t - type output = DBInstanceMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBInstances.mli b/libraries/rds/lib/describeDBInstances.mli index cf9f7aa47..e853f66e9 100644 --- a/libraries/rds/lib/describeDBInstances.mli +++ b/libraries/rds/lib/describeDBInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBInstancesMessage.t - type output = DBInstanceMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBLogFiles.ml b/libraries/rds/lib/describeDBLogFiles.ml index 469b6b449..d6a972dc7 100644 --- a/libraries/rds/lib/describeDBLogFiles.ml +++ b/libraries/rds/lib/describeDBLogFiles.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBLogFilesMessage.t - type output = DescribeDBLogFilesResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBLogFiles.mli b/libraries/rds/lib/describeDBLogFiles.mli index 92ab0d6a2..ec2ef9139 100644 --- a/libraries/rds/lib/describeDBLogFiles.mli +++ b/libraries/rds/lib/describeDBLogFiles.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBLogFilesMessage.t - type output = DescribeDBLogFilesResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBParameterGroups.ml b/libraries/rds/lib/describeDBParameterGroups.ml index b05ac07d8..f734cc866 100644 --- a/libraries/rds/lib/describeDBParameterGroups.ml +++ b/libraries/rds/lib/describeDBParameterGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBParameterGroupsMessage.t - type output = DBParameterGroupsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBParameterGroups.mli b/libraries/rds/lib/describeDBParameterGroups.mli index 4046bc616..42be6dcf8 100644 --- a/libraries/rds/lib/describeDBParameterGroups.mli +++ b/libraries/rds/lib/describeDBParameterGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBParameterGroupsMessage.t - type output = DBParameterGroupsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBParameters.ml b/libraries/rds/lib/describeDBParameters.ml index 0c5aaffc4..9b4c8e31f 100644 --- a/libraries/rds/lib/describeDBParameters.ml +++ b/libraries/rds/lib/describeDBParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBParametersMessage.t - type output = DBParameterGroupDetails.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBParameters.mli b/libraries/rds/lib/describeDBParameters.mli index d89efe7c7..5223753c2 100644 --- a/libraries/rds/lib/describeDBParameters.mli +++ b/libraries/rds/lib/describeDBParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBParametersMessage.t - type output = DBParameterGroupDetails.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBProxies.ml b/libraries/rds/lib/describeDBProxies.ml index 0e8128228..85ab99387 100644 --- a/libraries/rds/lib/describeDBProxies.ml +++ b/libraries/rds/lib/describeDBProxies.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBProxiesRequest.t - type output = DescribeDBProxiesResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBProxies.mli b/libraries/rds/lib/describeDBProxies.mli index abe3405a8..3d1b16bf7 100644 --- a/libraries/rds/lib/describeDBProxies.mli +++ b/libraries/rds/lib/describeDBProxies.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBProxiesRequest.t - type output = DescribeDBProxiesResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBProxyTargetGroups.ml b/libraries/rds/lib/describeDBProxyTargetGroups.ml index e716b1407..e90fb759c 100644 --- a/libraries/rds/lib/describeDBProxyTargetGroups.ml +++ b/libraries/rds/lib/describeDBProxyTargetGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBProxyTargetGroupsRequest.t - type output = DescribeDBProxyTargetGroupsResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBProxyTargetGroups.mli b/libraries/rds/lib/describeDBProxyTargetGroups.mli index 0b99c4d86..fb6082df1 100644 --- a/libraries/rds/lib/describeDBProxyTargetGroups.mli +++ b/libraries/rds/lib/describeDBProxyTargetGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBProxyTargetGroupsRequest.t - type output = DescribeDBProxyTargetGroupsResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBProxyTargets.ml b/libraries/rds/lib/describeDBProxyTargets.ml index 9ef02d166..e8d3ab1a1 100644 --- a/libraries/rds/lib/describeDBProxyTargets.ml +++ b/libraries/rds/lib/describeDBProxyTargets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBProxyTargetsRequest.t - type output = DescribeDBProxyTargetsResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBProxyTargets.mli b/libraries/rds/lib/describeDBProxyTargets.mli index 4e89059e3..6d57cd507 100644 --- a/libraries/rds/lib/describeDBProxyTargets.mli +++ b/libraries/rds/lib/describeDBProxyTargets.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBProxyTargetsRequest.t - type output = DescribeDBProxyTargetsResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBSecurityGroups.ml b/libraries/rds/lib/describeDBSecurityGroups.ml index 3cf8f0fb1..a77d65969 100644 --- a/libraries/rds/lib/describeDBSecurityGroups.ml +++ b/libraries/rds/lib/describeDBSecurityGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBSecurityGroupsMessage.t - type output = DBSecurityGroupMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBSecurityGroups.mli b/libraries/rds/lib/describeDBSecurityGroups.mli index 173ecba3e..f4f58a796 100644 --- a/libraries/rds/lib/describeDBSecurityGroups.mli +++ b/libraries/rds/lib/describeDBSecurityGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBSecurityGroupsMessage.t - type output = DBSecurityGroupMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBSnapshotAttributes.ml b/libraries/rds/lib/describeDBSnapshotAttributes.ml index 92a0a5fe4..c0f4b8dfe 100644 --- a/libraries/rds/lib/describeDBSnapshotAttributes.ml +++ b/libraries/rds/lib/describeDBSnapshotAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBSnapshotAttributesMessage.t - type output = DescribeDBSnapshotAttributesResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBSnapshotAttributes.mli b/libraries/rds/lib/describeDBSnapshotAttributes.mli index 1ba9e5c9a..6b52d3039 100644 --- a/libraries/rds/lib/describeDBSnapshotAttributes.mli +++ b/libraries/rds/lib/describeDBSnapshotAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBSnapshotAttributesMessage.t - type output = DescribeDBSnapshotAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBSnapshots.ml b/libraries/rds/lib/describeDBSnapshots.ml index 5a244207c..6013df7bc 100644 --- a/libraries/rds/lib/describeDBSnapshots.ml +++ b/libraries/rds/lib/describeDBSnapshots.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBSnapshotsMessage.t - type output = DBSnapshotMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBSnapshots.mli b/libraries/rds/lib/describeDBSnapshots.mli index 8fd92e037..60c047e2d 100644 --- a/libraries/rds/lib/describeDBSnapshots.mli +++ b/libraries/rds/lib/describeDBSnapshots.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBSnapshotsMessage.t - type output = DBSnapshotMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeDBSubnetGroups.ml b/libraries/rds/lib/describeDBSubnetGroups.ml index 3fe2aa42b..bc7633734 100644 --- a/libraries/rds/lib/describeDBSubnetGroups.ml +++ b/libraries/rds/lib/describeDBSubnetGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDBSubnetGroupsMessage.t - type output = DBSubnetGroupMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeDBSubnetGroups.mli b/libraries/rds/lib/describeDBSubnetGroups.mli index 4d515692a..88d7be627 100644 --- a/libraries/rds/lib/describeDBSubnetGroups.mli +++ b/libraries/rds/lib/describeDBSubnetGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDBSubnetGroupsMessage.t - type output = DBSubnetGroupMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeEngineDefaultClusterParameters.ml b/libraries/rds/lib/describeEngineDefaultClusterParameters.ml index dd7e95011..7b62ae947 100644 --- a/libraries/rds/lib/describeEngineDefaultClusterParameters.ml +++ b/libraries/rds/lib/describeEngineDefaultClusterParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEngineDefaultClusterParametersMessage.t - type output = DescribeEngineDefaultClusterParametersResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeEngineDefaultClusterParameters.mli b/libraries/rds/lib/describeEngineDefaultClusterParameters.mli index 123d3c0c3..cf2450630 100644 --- a/libraries/rds/lib/describeEngineDefaultClusterParameters.mli +++ b/libraries/rds/lib/describeEngineDefaultClusterParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEngineDefaultClusterParametersMessage.t - type output = DescribeEngineDefaultClusterParametersResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeEngineDefaultParameters.ml b/libraries/rds/lib/describeEngineDefaultParameters.ml index fe9ab1df3..783ec6b85 100644 --- a/libraries/rds/lib/describeEngineDefaultParameters.ml +++ b/libraries/rds/lib/describeEngineDefaultParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEngineDefaultParametersMessage.t - type output = DescribeEngineDefaultParametersResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeEngineDefaultParameters.mli b/libraries/rds/lib/describeEngineDefaultParameters.mli index a13373a91..6b9810c32 100644 --- a/libraries/rds/lib/describeEngineDefaultParameters.mli +++ b/libraries/rds/lib/describeEngineDefaultParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEngineDefaultParametersMessage.t - type output = DescribeEngineDefaultParametersResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeEventCategories.ml b/libraries/rds/lib/describeEventCategories.ml index 48a94b78d..61410be70 100644 --- a/libraries/rds/lib/describeEventCategories.ml +++ b/libraries/rds/lib/describeEventCategories.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEventCategoriesMessage.t - type output = EventCategoriesMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeEventCategories.mli b/libraries/rds/lib/describeEventCategories.mli index 9a5e22187..997f235bf 100644 --- a/libraries/rds/lib/describeEventCategories.mli +++ b/libraries/rds/lib/describeEventCategories.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEventCategoriesMessage.t - type output = EventCategoriesMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeEventSubscriptions.ml b/libraries/rds/lib/describeEventSubscriptions.ml index c9150325a..00774de82 100644 --- a/libraries/rds/lib/describeEventSubscriptions.ml +++ b/libraries/rds/lib/describeEventSubscriptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEventSubscriptionsMessage.t - type output = EventSubscriptionsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeEventSubscriptions.mli b/libraries/rds/lib/describeEventSubscriptions.mli index 6de3b5600..4173a1841 100644 --- a/libraries/rds/lib/describeEventSubscriptions.mli +++ b/libraries/rds/lib/describeEventSubscriptions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEventSubscriptionsMessage.t - type output = EventSubscriptionsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeEvents.ml b/libraries/rds/lib/describeEvents.ml index d16e88267..592f070e5 100644 --- a/libraries/rds/lib/describeEvents.ml +++ b/libraries/rds/lib/describeEvents.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEventsMessage.t - type output = EventsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeEvents.mli b/libraries/rds/lib/describeEvents.mli index f285c481a..21d01b3a7 100644 --- a/libraries/rds/lib/describeEvents.mli +++ b/libraries/rds/lib/describeEvents.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEventsMessage.t - type output = EventsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeExportTasks.ml b/libraries/rds/lib/describeExportTasks.ml index 88bb68a21..6a5df2d29 100644 --- a/libraries/rds/lib/describeExportTasks.ml +++ b/libraries/rds/lib/describeExportTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeExportTasksMessage.t - type output = ExportTasksMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeExportTasks.mli b/libraries/rds/lib/describeExportTasks.mli index c7322bcad..f1175ac8d 100644 --- a/libraries/rds/lib/describeExportTasks.mli +++ b/libraries/rds/lib/describeExportTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeExportTasksMessage.t - type output = ExportTasksMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeGlobalClusters.ml b/libraries/rds/lib/describeGlobalClusters.ml index 7d93c0c65..1758c946e 100644 --- a/libraries/rds/lib/describeGlobalClusters.ml +++ b/libraries/rds/lib/describeGlobalClusters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeGlobalClustersMessage.t - type output = GlobalClustersMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeGlobalClusters.mli b/libraries/rds/lib/describeGlobalClusters.mli index 97266ca23..d5fc1471b 100644 --- a/libraries/rds/lib/describeGlobalClusters.mli +++ b/libraries/rds/lib/describeGlobalClusters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeGlobalClustersMessage.t - type output = GlobalClustersMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeInstallationMedia.ml b/libraries/rds/lib/describeInstallationMedia.ml index bd863a401..71a7cc266 100644 --- a/libraries/rds/lib/describeInstallationMedia.ml +++ b/libraries/rds/lib/describeInstallationMedia.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstallationMediaMessage.t - type output = InstallationMediaMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeInstallationMedia.mli b/libraries/rds/lib/describeInstallationMedia.mli index 4e8892ed6..71464723b 100644 --- a/libraries/rds/lib/describeInstallationMedia.mli +++ b/libraries/rds/lib/describeInstallationMedia.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstallationMediaMessage.t - type output = InstallationMediaMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeOptionGroupOptions.ml b/libraries/rds/lib/describeOptionGroupOptions.ml index 49bfbd3ba..c50de8719 100644 --- a/libraries/rds/lib/describeOptionGroupOptions.ml +++ b/libraries/rds/lib/describeOptionGroupOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeOptionGroupOptionsMessage.t - type output = OptionGroupOptionsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeOptionGroupOptions.mli b/libraries/rds/lib/describeOptionGroupOptions.mli index 1b7767cf4..f70cb4fc7 100644 --- a/libraries/rds/lib/describeOptionGroupOptions.mli +++ b/libraries/rds/lib/describeOptionGroupOptions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeOptionGroupOptionsMessage.t - type output = OptionGroupOptionsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeOptionGroups.ml b/libraries/rds/lib/describeOptionGroups.ml index 9abc585a0..f7f0ac482 100644 --- a/libraries/rds/lib/describeOptionGroups.ml +++ b/libraries/rds/lib/describeOptionGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeOptionGroupsMessage.t - type output = OptionGroups.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeOptionGroups.mli b/libraries/rds/lib/describeOptionGroups.mli index 4dd011bab..f2fe3c280 100644 --- a/libraries/rds/lib/describeOptionGroups.mli +++ b/libraries/rds/lib/describeOptionGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribeOptionGroupsMessage.t - type output = OptionGroups.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeOrderableDBInstanceOptions.ml b/libraries/rds/lib/describeOrderableDBInstanceOptions.ml index 65afd2ab9..21da2b45b 100644 --- a/libraries/rds/lib/describeOrderableDBInstanceOptions.ml +++ b/libraries/rds/lib/describeOrderableDBInstanceOptions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeOrderableDBInstanceOptionsMessage.t - type output = OrderableDBInstanceOptionsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeOrderableDBInstanceOptions.mli b/libraries/rds/lib/describeOrderableDBInstanceOptions.mli index 38245890a..e3f53768f 100644 --- a/libraries/rds/lib/describeOrderableDBInstanceOptions.mli +++ b/libraries/rds/lib/describeOrderableDBInstanceOptions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeOrderableDBInstanceOptionsMessage.t - type output = OrderableDBInstanceOptionsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describePendingMaintenanceActions.ml b/libraries/rds/lib/describePendingMaintenanceActions.ml index 39aa34885..08722324f 100644 --- a/libraries/rds/lib/describePendingMaintenanceActions.ml +++ b/libraries/rds/lib/describePendingMaintenanceActions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePendingMaintenanceActionsMessage.t - type output = PendingMaintenanceActionsMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describePendingMaintenanceActions.mli b/libraries/rds/lib/describePendingMaintenanceActions.mli index 764245818..75f60e236 100644 --- a/libraries/rds/lib/describePendingMaintenanceActions.mli +++ b/libraries/rds/lib/describePendingMaintenanceActions.mli @@ -1,9 +1,7 @@ open Types type input = DescribePendingMaintenanceActionsMessage.t - type output = PendingMaintenanceActionsMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeReservedDBInstances.ml b/libraries/rds/lib/describeReservedDBInstances.ml index 40d8738c4..18d6a6bb0 100644 --- a/libraries/rds/lib/describeReservedDBInstances.ml +++ b/libraries/rds/lib/describeReservedDBInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedDBInstancesMessage.t - type output = ReservedDBInstanceMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeReservedDBInstances.mli b/libraries/rds/lib/describeReservedDBInstances.mli index 2315c5953..216d01277 100644 --- a/libraries/rds/lib/describeReservedDBInstances.mli +++ b/libraries/rds/lib/describeReservedDBInstances.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedDBInstancesMessage.t - type output = ReservedDBInstanceMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeReservedDBInstancesOfferings.ml b/libraries/rds/lib/describeReservedDBInstancesOfferings.ml index fe238c3be..1d59948a4 100644 --- a/libraries/rds/lib/describeReservedDBInstancesOfferings.ml +++ b/libraries/rds/lib/describeReservedDBInstancesOfferings.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeReservedDBInstancesOfferingsMessage.t - type output = ReservedDBInstancesOfferingMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeReservedDBInstancesOfferings.mli b/libraries/rds/lib/describeReservedDBInstancesOfferings.mli index 40ff56b1b..4f91fe1da 100644 --- a/libraries/rds/lib/describeReservedDBInstancesOfferings.mli +++ b/libraries/rds/lib/describeReservedDBInstancesOfferings.mli @@ -1,9 +1,7 @@ open Types type input = DescribeReservedDBInstancesOfferingsMessage.t - type output = ReservedDBInstancesOfferingMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeSourceRegions.ml b/libraries/rds/lib/describeSourceRegions.ml index a23ccfb0c..f12a880c5 100644 --- a/libraries/rds/lib/describeSourceRegions.ml +++ b/libraries/rds/lib/describeSourceRegions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSourceRegionsMessage.t - type output = SourceRegionMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeSourceRegions.mli b/libraries/rds/lib/describeSourceRegions.mli index 023071f2e..450982a93 100644 --- a/libraries/rds/lib/describeSourceRegions.mli +++ b/libraries/rds/lib/describeSourceRegions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSourceRegionsMessage.t - type output = SourceRegionMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/describeValidDBInstanceModifications.ml b/libraries/rds/lib/describeValidDBInstanceModifications.ml index 5a0faf90d..89367c439 100644 --- a/libraries/rds/lib/describeValidDBInstanceModifications.ml +++ b/libraries/rds/lib/describeValidDBInstanceModifications.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeValidDBInstanceModificationsMessage.t - type output = DescribeValidDBInstanceModificationsResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/describeValidDBInstanceModifications.mli b/libraries/rds/lib/describeValidDBInstanceModifications.mli index 3d386147e..3d75c61d2 100644 --- a/libraries/rds/lib/describeValidDBInstanceModifications.mli +++ b/libraries/rds/lib/describeValidDBInstanceModifications.mli @@ -1,9 +1,7 @@ open Types type input = DescribeValidDBInstanceModificationsMessage.t - type output = DescribeValidDBInstanceModificationsResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/downloadDBLogFilePortion.ml b/libraries/rds/lib/downloadDBLogFilePortion.ml index 0d4527bfb..f21b447d2 100644 --- a/libraries/rds/lib/downloadDBLogFilePortion.ml +++ b/libraries/rds/lib/downloadDBLogFilePortion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DownloadDBLogFilePortionMessage.t - type output = DownloadDBLogFilePortionDetails.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/downloadDBLogFilePortion.mli b/libraries/rds/lib/downloadDBLogFilePortion.mli index 197c7b35e..a79a3a69e 100644 --- a/libraries/rds/lib/downloadDBLogFilePortion.mli +++ b/libraries/rds/lib/downloadDBLogFilePortion.mli @@ -1,9 +1,7 @@ open Types type input = DownloadDBLogFilePortionMessage.t - type output = DownloadDBLogFilePortionDetails.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/failoverDBCluster.ml b/libraries/rds/lib/failoverDBCluster.ml index 1115d0a04..61f948a83 100644 --- a/libraries/rds/lib/failoverDBCluster.ml +++ b/libraries/rds/lib/failoverDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = FailoverDBClusterMessage.t - type output = FailoverDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/failoverDBCluster.mli b/libraries/rds/lib/failoverDBCluster.mli index ea54ad490..4d21194ad 100644 --- a/libraries/rds/lib/failoverDBCluster.mli +++ b/libraries/rds/lib/failoverDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = FailoverDBClusterMessage.t - type output = FailoverDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/importInstallationMedia.ml b/libraries/rds/lib/importInstallationMedia.ml index 03cb99e96..8453dd2ca 100644 --- a/libraries/rds/lib/importInstallationMedia.ml +++ b/libraries/rds/lib/importInstallationMedia.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ImportInstallationMediaMessage.t - type output = InstallationMedia.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/importInstallationMedia.mli b/libraries/rds/lib/importInstallationMedia.mli index caa740205..cbad3eef4 100644 --- a/libraries/rds/lib/importInstallationMedia.mli +++ b/libraries/rds/lib/importInstallationMedia.mli @@ -1,9 +1,7 @@ open Types type input = ImportInstallationMediaMessage.t - type output = InstallationMedia.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/listTagsForResource.ml b/libraries/rds/lib/listTagsForResource.ml index af8bf9cee..afddeef46 100644 --- a/libraries/rds/lib/listTagsForResource.ml +++ b/libraries/rds/lib/listTagsForResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsForResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/listTagsForResource.mli b/libraries/rds/lib/listTagsForResource.mli index 4b5c9405c..9a6d37ac9 100644 --- a/libraries/rds/lib/listTagsForResource.mli +++ b/libraries/rds/lib/listTagsForResource.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsForResourceMessage.t - type output = TagListMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyCertificates.ml b/libraries/rds/lib/modifyCertificates.ml index f970e0aec..84b5b8781 100644 --- a/libraries/rds/lib/modifyCertificates.ml +++ b/libraries/rds/lib/modifyCertificates.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyCertificatesMessage.t - type output = ModifyCertificatesResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyCertificates.mli b/libraries/rds/lib/modifyCertificates.mli index f11ab1d9c..78327e856 100644 --- a/libraries/rds/lib/modifyCertificates.mli +++ b/libraries/rds/lib/modifyCertificates.mli @@ -1,9 +1,7 @@ open Types type input = ModifyCertificatesMessage.t - type output = ModifyCertificatesResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyCurrentDBClusterCapacity.ml b/libraries/rds/lib/modifyCurrentDBClusterCapacity.ml index f7f862f13..26873e029 100644 --- a/libraries/rds/lib/modifyCurrentDBClusterCapacity.ml +++ b/libraries/rds/lib/modifyCurrentDBClusterCapacity.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyCurrentDBClusterCapacityMessage.t - type output = DBClusterCapacityInfo.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyCurrentDBClusterCapacity.mli b/libraries/rds/lib/modifyCurrentDBClusterCapacity.mli index 82dc142c0..41f9d2487 100644 --- a/libraries/rds/lib/modifyCurrentDBClusterCapacity.mli +++ b/libraries/rds/lib/modifyCurrentDBClusterCapacity.mli @@ -1,9 +1,7 @@ open Types type input = ModifyCurrentDBClusterCapacityMessage.t - type output = DBClusterCapacityInfo.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBCluster.ml b/libraries/rds/lib/modifyDBCluster.ml index 5e890f548..ff858309a 100644 --- a/libraries/rds/lib/modifyDBCluster.ml +++ b/libraries/rds/lib/modifyDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBClusterMessage.t - type output = ModifyDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBCluster.mli b/libraries/rds/lib/modifyDBCluster.mli index 6cdd9a061..b335c9494 100644 --- a/libraries/rds/lib/modifyDBCluster.mli +++ b/libraries/rds/lib/modifyDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBClusterMessage.t - type output = ModifyDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBClusterEndpoint.ml b/libraries/rds/lib/modifyDBClusterEndpoint.ml index 8acd36fa3..d7d311567 100644 --- a/libraries/rds/lib/modifyDBClusterEndpoint.ml +++ b/libraries/rds/lib/modifyDBClusterEndpoint.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBClusterEndpointMessage.t - type output = DBClusterEndpoint.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBClusterEndpoint.mli b/libraries/rds/lib/modifyDBClusterEndpoint.mli index d6fa23208..bf9f8e738 100644 --- a/libraries/rds/lib/modifyDBClusterEndpoint.mli +++ b/libraries/rds/lib/modifyDBClusterEndpoint.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBClusterEndpointMessage.t - type output = DBClusterEndpoint.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBClusterParameterGroup.ml b/libraries/rds/lib/modifyDBClusterParameterGroup.ml index 1f69cead9..27a7d158c 100644 --- a/libraries/rds/lib/modifyDBClusterParameterGroup.ml +++ b/libraries/rds/lib/modifyDBClusterParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBClusterParameterGroupMessage.t - type output = DBClusterParameterGroupNameMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBClusterParameterGroup.mli b/libraries/rds/lib/modifyDBClusterParameterGroup.mli index cbae88b9f..8d421b784 100644 --- a/libraries/rds/lib/modifyDBClusterParameterGroup.mli +++ b/libraries/rds/lib/modifyDBClusterParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBClusterParameterGroupMessage.t - type output = DBClusterParameterGroupNameMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBClusterSnapshotAttribute.ml b/libraries/rds/lib/modifyDBClusterSnapshotAttribute.ml index 18ba63088..923e66920 100644 --- a/libraries/rds/lib/modifyDBClusterSnapshotAttribute.ml +++ b/libraries/rds/lib/modifyDBClusterSnapshotAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBClusterSnapshotAttributeMessage.t - type output = ModifyDBClusterSnapshotAttributeResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBClusterSnapshotAttribute.mli b/libraries/rds/lib/modifyDBClusterSnapshotAttribute.mli index 23e6c0559..8126701a6 100644 --- a/libraries/rds/lib/modifyDBClusterSnapshotAttribute.mli +++ b/libraries/rds/lib/modifyDBClusterSnapshotAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBClusterSnapshotAttributeMessage.t - type output = ModifyDBClusterSnapshotAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBInstance.ml b/libraries/rds/lib/modifyDBInstance.ml index 70985ee01..f499df61c 100644 --- a/libraries/rds/lib/modifyDBInstance.ml +++ b/libraries/rds/lib/modifyDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBInstanceMessage.t - type output = ModifyDBInstanceResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBInstance.mli b/libraries/rds/lib/modifyDBInstance.mli index ac449c902..e0a6de7e2 100644 --- a/libraries/rds/lib/modifyDBInstance.mli +++ b/libraries/rds/lib/modifyDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBInstanceMessage.t - type output = ModifyDBInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBParameterGroup.ml b/libraries/rds/lib/modifyDBParameterGroup.ml index aeea7a4b2..1d7d1aa63 100644 --- a/libraries/rds/lib/modifyDBParameterGroup.ml +++ b/libraries/rds/lib/modifyDBParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBParameterGroupMessage.t - type output = DBParameterGroupNameMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBParameterGroup.mli b/libraries/rds/lib/modifyDBParameterGroup.mli index 124eb7cf5..99bad46c2 100644 --- a/libraries/rds/lib/modifyDBParameterGroup.mli +++ b/libraries/rds/lib/modifyDBParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBParameterGroupMessage.t - type output = DBParameterGroupNameMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBProxy.ml b/libraries/rds/lib/modifyDBProxy.ml index 3c834dccd..75383e4ef 100644 --- a/libraries/rds/lib/modifyDBProxy.ml +++ b/libraries/rds/lib/modifyDBProxy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBProxyRequest.t - type output = ModifyDBProxyResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBProxy.mli b/libraries/rds/lib/modifyDBProxy.mli index 70eb83fc8..6c57e0312 100644 --- a/libraries/rds/lib/modifyDBProxy.mli +++ b/libraries/rds/lib/modifyDBProxy.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBProxyRequest.t - type output = ModifyDBProxyResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBProxyTargetGroup.ml b/libraries/rds/lib/modifyDBProxyTargetGroup.ml index 2a0fc4503..163ed1919 100644 --- a/libraries/rds/lib/modifyDBProxyTargetGroup.ml +++ b/libraries/rds/lib/modifyDBProxyTargetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBProxyTargetGroupRequest.t - type output = ModifyDBProxyTargetGroupResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBProxyTargetGroup.mli b/libraries/rds/lib/modifyDBProxyTargetGroup.mli index d3f81666c..30a55d13e 100644 --- a/libraries/rds/lib/modifyDBProxyTargetGroup.mli +++ b/libraries/rds/lib/modifyDBProxyTargetGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBProxyTargetGroupRequest.t - type output = ModifyDBProxyTargetGroupResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBSnapshot.ml b/libraries/rds/lib/modifyDBSnapshot.ml index 5b81b39a2..b343f040c 100644 --- a/libraries/rds/lib/modifyDBSnapshot.ml +++ b/libraries/rds/lib/modifyDBSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBSnapshotMessage.t - type output = ModifyDBSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBSnapshot.mli b/libraries/rds/lib/modifyDBSnapshot.mli index f3ff3e76b..e3f21641b 100644 --- a/libraries/rds/lib/modifyDBSnapshot.mli +++ b/libraries/rds/lib/modifyDBSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBSnapshotMessage.t - type output = ModifyDBSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBSnapshotAttribute.ml b/libraries/rds/lib/modifyDBSnapshotAttribute.ml index b01d61e85..927b44da8 100644 --- a/libraries/rds/lib/modifyDBSnapshotAttribute.ml +++ b/libraries/rds/lib/modifyDBSnapshotAttribute.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBSnapshotAttributeMessage.t - type output = ModifyDBSnapshotAttributeResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBSnapshotAttribute.mli b/libraries/rds/lib/modifyDBSnapshotAttribute.mli index ee18c643f..d5376e647 100644 --- a/libraries/rds/lib/modifyDBSnapshotAttribute.mli +++ b/libraries/rds/lib/modifyDBSnapshotAttribute.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBSnapshotAttributeMessage.t - type output = ModifyDBSnapshotAttributeResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyDBSubnetGroup.ml b/libraries/rds/lib/modifyDBSubnetGroup.ml index c18f0f5c4..1332fff3b 100644 --- a/libraries/rds/lib/modifyDBSubnetGroup.ml +++ b/libraries/rds/lib/modifyDBSubnetGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDBSubnetGroupMessage.t - type output = ModifyDBSubnetGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyDBSubnetGroup.mli b/libraries/rds/lib/modifyDBSubnetGroup.mli index 0bfc81768..5ca9e63ae 100644 --- a/libraries/rds/lib/modifyDBSubnetGroup.mli +++ b/libraries/rds/lib/modifyDBSubnetGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDBSubnetGroupMessage.t - type output = ModifyDBSubnetGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyEventSubscription.ml b/libraries/rds/lib/modifyEventSubscription.ml index 03feab264..917f37006 100644 --- a/libraries/rds/lib/modifyEventSubscription.ml +++ b/libraries/rds/lib/modifyEventSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyEventSubscriptionMessage.t - type output = ModifyEventSubscriptionResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyEventSubscription.mli b/libraries/rds/lib/modifyEventSubscription.mli index 8f2064bfd..9f127127f 100644 --- a/libraries/rds/lib/modifyEventSubscription.mli +++ b/libraries/rds/lib/modifyEventSubscription.mli @@ -1,9 +1,7 @@ open Types type input = ModifyEventSubscriptionMessage.t - type output = ModifyEventSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyGlobalCluster.ml b/libraries/rds/lib/modifyGlobalCluster.ml index a0fd670f1..d120a9529 100644 --- a/libraries/rds/lib/modifyGlobalCluster.ml +++ b/libraries/rds/lib/modifyGlobalCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyGlobalClusterMessage.t - type output = ModifyGlobalClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyGlobalCluster.mli b/libraries/rds/lib/modifyGlobalCluster.mli index 91a04ed15..d74e94f82 100644 --- a/libraries/rds/lib/modifyGlobalCluster.mli +++ b/libraries/rds/lib/modifyGlobalCluster.mli @@ -1,9 +1,7 @@ open Types type input = ModifyGlobalClusterMessage.t - type output = ModifyGlobalClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/modifyOptionGroup.ml b/libraries/rds/lib/modifyOptionGroup.ml index 46a2b1929..45d0ddcdf 100644 --- a/libraries/rds/lib/modifyOptionGroup.ml +++ b/libraries/rds/lib/modifyOptionGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyOptionGroupMessage.t - type output = ModifyOptionGroupResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/modifyOptionGroup.mli b/libraries/rds/lib/modifyOptionGroup.mli index 0bab512dd..a0dbfb06d 100644 --- a/libraries/rds/lib/modifyOptionGroup.mli +++ b/libraries/rds/lib/modifyOptionGroup.mli @@ -1,9 +1,7 @@ open Types type input = ModifyOptionGroupMessage.t - type output = ModifyOptionGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/promoteReadReplica.ml b/libraries/rds/lib/promoteReadReplica.ml index 69d3771fe..6c4469186 100644 --- a/libraries/rds/lib/promoteReadReplica.ml +++ b/libraries/rds/lib/promoteReadReplica.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PromoteReadReplicaMessage.t - type output = PromoteReadReplicaResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/promoteReadReplica.mli b/libraries/rds/lib/promoteReadReplica.mli index e9f8e3820..4ec3b457b 100644 --- a/libraries/rds/lib/promoteReadReplica.mli +++ b/libraries/rds/lib/promoteReadReplica.mli @@ -1,9 +1,7 @@ open Types type input = PromoteReadReplicaMessage.t - type output = PromoteReadReplicaResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/promoteReadReplicaDBCluster.ml b/libraries/rds/lib/promoteReadReplicaDBCluster.ml index bd515db41..940bc8c6e 100644 --- a/libraries/rds/lib/promoteReadReplicaDBCluster.ml +++ b/libraries/rds/lib/promoteReadReplicaDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PromoteReadReplicaDBClusterMessage.t - type output = PromoteReadReplicaDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/promoteReadReplicaDBCluster.mli b/libraries/rds/lib/promoteReadReplicaDBCluster.mli index e6cb431f2..abdcfbeb0 100644 --- a/libraries/rds/lib/promoteReadReplicaDBCluster.mli +++ b/libraries/rds/lib/promoteReadReplicaDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = PromoteReadReplicaDBClusterMessage.t - type output = PromoteReadReplicaDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/purchaseReservedDBInstancesOffering.ml b/libraries/rds/lib/purchaseReservedDBInstancesOffering.ml index 278bddf0d..bad0e6ee7 100644 --- a/libraries/rds/lib/purchaseReservedDBInstancesOffering.ml +++ b/libraries/rds/lib/purchaseReservedDBInstancesOffering.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PurchaseReservedDBInstancesOfferingMessage.t - type output = PurchaseReservedDBInstancesOfferingResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/purchaseReservedDBInstancesOffering.mli b/libraries/rds/lib/purchaseReservedDBInstancesOffering.mli index ad14e3f65..beeca4e36 100644 --- a/libraries/rds/lib/purchaseReservedDBInstancesOffering.mli +++ b/libraries/rds/lib/purchaseReservedDBInstancesOffering.mli @@ -1,9 +1,7 @@ open Types type input = PurchaseReservedDBInstancesOfferingMessage.t - type output = PurchaseReservedDBInstancesOfferingResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/rebootDBInstance.ml b/libraries/rds/lib/rebootDBInstance.ml index da837678b..9f653d107 100644 --- a/libraries/rds/lib/rebootDBInstance.ml +++ b/libraries/rds/lib/rebootDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RebootDBInstanceMessage.t - type output = RebootDBInstanceResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/rebootDBInstance.mli b/libraries/rds/lib/rebootDBInstance.mli index 911418673..e1f0400fc 100644 --- a/libraries/rds/lib/rebootDBInstance.mli +++ b/libraries/rds/lib/rebootDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = RebootDBInstanceMessage.t - type output = RebootDBInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/registerDBProxyTargets.ml b/libraries/rds/lib/registerDBProxyTargets.ml index b0582fa25..5f9fbe3d1 100644 --- a/libraries/rds/lib/registerDBProxyTargets.ml +++ b/libraries/rds/lib/registerDBProxyTargets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterDBProxyTargetsRequest.t - type output = RegisterDBProxyTargetsResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/registerDBProxyTargets.mli b/libraries/rds/lib/registerDBProxyTargets.mli index 633d3c5d0..b0ab67858 100644 --- a/libraries/rds/lib/registerDBProxyTargets.mli +++ b/libraries/rds/lib/registerDBProxyTargets.mli @@ -1,9 +1,7 @@ open Types type input = RegisterDBProxyTargetsRequest.t - type output = RegisterDBProxyTargetsResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/removeFromGlobalCluster.ml b/libraries/rds/lib/removeFromGlobalCluster.ml index 4beab85e7..56fdb98fe 100644 --- a/libraries/rds/lib/removeFromGlobalCluster.ml +++ b/libraries/rds/lib/removeFromGlobalCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveFromGlobalClusterMessage.t - type output = RemoveFromGlobalClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/removeFromGlobalCluster.mli b/libraries/rds/lib/removeFromGlobalCluster.mli index 5173e5790..66e220a40 100644 --- a/libraries/rds/lib/removeFromGlobalCluster.mli +++ b/libraries/rds/lib/removeFromGlobalCluster.mli @@ -1,9 +1,7 @@ open Types type input = RemoveFromGlobalClusterMessage.t - type output = RemoveFromGlobalClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/removeRoleFromDBCluster.ml b/libraries/rds/lib/removeRoleFromDBCluster.ml index a6961ece6..8bcb970d8 100644 --- a/libraries/rds/lib/removeRoleFromDBCluster.ml +++ b/libraries/rds/lib/removeRoleFromDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveRoleFromDBClusterMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/removeRoleFromDBCluster.mli b/libraries/rds/lib/removeRoleFromDBCluster.mli index 713a17284..3766d3e66 100644 --- a/libraries/rds/lib/removeRoleFromDBCluster.mli +++ b/libraries/rds/lib/removeRoleFromDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = RemoveRoleFromDBClusterMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/removeRoleFromDBInstance.ml b/libraries/rds/lib/removeRoleFromDBInstance.ml index f660c54f1..2d363ac84 100644 --- a/libraries/rds/lib/removeRoleFromDBInstance.ml +++ b/libraries/rds/lib/removeRoleFromDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveRoleFromDBInstanceMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/removeRoleFromDBInstance.mli b/libraries/rds/lib/removeRoleFromDBInstance.mli index 1ea1ab052..575e6b85b 100644 --- a/libraries/rds/lib/removeRoleFromDBInstance.mli +++ b/libraries/rds/lib/removeRoleFromDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = RemoveRoleFromDBInstanceMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/removeSourceIdentifierFromSubscription.ml b/libraries/rds/lib/removeSourceIdentifierFromSubscription.ml index 6e873b8d5..920e12c20 100644 --- a/libraries/rds/lib/removeSourceIdentifierFromSubscription.ml +++ b/libraries/rds/lib/removeSourceIdentifierFromSubscription.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveSourceIdentifierFromSubscriptionMessage.t - type output = RemoveSourceIdentifierFromSubscriptionResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/removeSourceIdentifierFromSubscription.mli b/libraries/rds/lib/removeSourceIdentifierFromSubscription.mli index 4f648e4fc..61e9613ce 100644 --- a/libraries/rds/lib/removeSourceIdentifierFromSubscription.mli +++ b/libraries/rds/lib/removeSourceIdentifierFromSubscription.mli @@ -1,9 +1,7 @@ open Types type input = RemoveSourceIdentifierFromSubscriptionMessage.t - type output = RemoveSourceIdentifierFromSubscriptionResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/removeTagsFromResource.ml b/libraries/rds/lib/removeTagsFromResource.ml index bc063d676..1edc9b705 100644 --- a/libraries/rds/lib/removeTagsFromResource.ml +++ b/libraries/rds/lib/removeTagsFromResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveTagsFromResourceMessage.t - type output = unit - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/removeTagsFromResource.mli b/libraries/rds/lib/removeTagsFromResource.mli index 8a922bb84..15ff45e05 100644 --- a/libraries/rds/lib/removeTagsFromResource.mli +++ b/libraries/rds/lib/removeTagsFromResource.mli @@ -1,9 +1,7 @@ open Types type input = RemoveTagsFromResourceMessage.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/rds/lib/resetDBClusterParameterGroup.ml b/libraries/rds/lib/resetDBClusterParameterGroup.ml index 9a3ba4d23..5217810d8 100644 --- a/libraries/rds/lib/resetDBClusterParameterGroup.ml +++ b/libraries/rds/lib/resetDBClusterParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetDBClusterParameterGroupMessage.t - type output = DBClusterParameterGroupNameMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/resetDBClusterParameterGroup.mli b/libraries/rds/lib/resetDBClusterParameterGroup.mli index d3b8decbd..0c8add757 100644 --- a/libraries/rds/lib/resetDBClusterParameterGroup.mli +++ b/libraries/rds/lib/resetDBClusterParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = ResetDBClusterParameterGroupMessage.t - type output = DBClusterParameterGroupNameMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/resetDBParameterGroup.ml b/libraries/rds/lib/resetDBParameterGroup.ml index 381a747b7..d9f40cc98 100644 --- a/libraries/rds/lib/resetDBParameterGroup.ml +++ b/libraries/rds/lib/resetDBParameterGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetDBParameterGroupMessage.t - type output = DBParameterGroupNameMessage.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/resetDBParameterGroup.mli b/libraries/rds/lib/resetDBParameterGroup.mli index fe461b4f3..3d80af8d0 100644 --- a/libraries/rds/lib/resetDBParameterGroup.mli +++ b/libraries/rds/lib/resetDBParameterGroup.mli @@ -1,9 +1,7 @@ open Types type input = ResetDBParameterGroupMessage.t - type output = DBParameterGroupNameMessage.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/restoreDBClusterFromS3.ml b/libraries/rds/lib/restoreDBClusterFromS3.ml index ecfb0a1ba..43ea8d8c5 100644 --- a/libraries/rds/lib/restoreDBClusterFromS3.ml +++ b/libraries/rds/lib/restoreDBClusterFromS3.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreDBClusterFromS3Message.t - type output = RestoreDBClusterFromS3Result.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/restoreDBClusterFromS3.mli b/libraries/rds/lib/restoreDBClusterFromS3.mli index 5e8a0a276..847f752a7 100644 --- a/libraries/rds/lib/restoreDBClusterFromS3.mli +++ b/libraries/rds/lib/restoreDBClusterFromS3.mli @@ -1,9 +1,7 @@ open Types type input = RestoreDBClusterFromS3Message.t - type output = RestoreDBClusterFromS3Result.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/restoreDBClusterFromSnapshot.ml b/libraries/rds/lib/restoreDBClusterFromSnapshot.ml index eb32f199f..c1e552b4f 100644 --- a/libraries/rds/lib/restoreDBClusterFromSnapshot.ml +++ b/libraries/rds/lib/restoreDBClusterFromSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreDBClusterFromSnapshotMessage.t - type output = RestoreDBClusterFromSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/restoreDBClusterFromSnapshot.mli b/libraries/rds/lib/restoreDBClusterFromSnapshot.mli index a320ba64f..4f32ef4c9 100644 --- a/libraries/rds/lib/restoreDBClusterFromSnapshot.mli +++ b/libraries/rds/lib/restoreDBClusterFromSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = RestoreDBClusterFromSnapshotMessage.t - type output = RestoreDBClusterFromSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/restoreDBClusterToPointInTime.ml b/libraries/rds/lib/restoreDBClusterToPointInTime.ml index 4c5daad04..d213f34ea 100644 --- a/libraries/rds/lib/restoreDBClusterToPointInTime.ml +++ b/libraries/rds/lib/restoreDBClusterToPointInTime.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreDBClusterToPointInTimeMessage.t - type output = RestoreDBClusterToPointInTimeResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/restoreDBClusterToPointInTime.mli b/libraries/rds/lib/restoreDBClusterToPointInTime.mli index 750bdee23..234edbe27 100644 --- a/libraries/rds/lib/restoreDBClusterToPointInTime.mli +++ b/libraries/rds/lib/restoreDBClusterToPointInTime.mli @@ -1,9 +1,7 @@ open Types type input = RestoreDBClusterToPointInTimeMessage.t - type output = RestoreDBClusterToPointInTimeResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.ml b/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.ml index 7c02b13fb..e0c09cf67 100644 --- a/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.ml +++ b/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreDBInstanceFromDBSnapshotMessage.t - type output = RestoreDBInstanceFromDBSnapshotResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.mli b/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.mli index cd7d56854..2d44bcc41 100644 --- a/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.mli +++ b/libraries/rds/lib/restoreDBInstanceFromDBSnapshot.mli @@ -1,9 +1,7 @@ open Types type input = RestoreDBInstanceFromDBSnapshotMessage.t - type output = RestoreDBInstanceFromDBSnapshotResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/restoreDBInstanceFromS3.ml b/libraries/rds/lib/restoreDBInstanceFromS3.ml index 35a7fd935..a46ff3b7b 100644 --- a/libraries/rds/lib/restoreDBInstanceFromS3.ml +++ b/libraries/rds/lib/restoreDBInstanceFromS3.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreDBInstanceFromS3Message.t - type output = RestoreDBInstanceFromS3Result.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/restoreDBInstanceFromS3.mli b/libraries/rds/lib/restoreDBInstanceFromS3.mli index fb2fdb92c..fad986b10 100644 --- a/libraries/rds/lib/restoreDBInstanceFromS3.mli +++ b/libraries/rds/lib/restoreDBInstanceFromS3.mli @@ -1,9 +1,7 @@ open Types type input = RestoreDBInstanceFromS3Message.t - type output = RestoreDBInstanceFromS3Result.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/restoreDBInstanceToPointInTime.ml b/libraries/rds/lib/restoreDBInstanceToPointInTime.ml index a50e4db86..280b71e91 100644 --- a/libraries/rds/lib/restoreDBInstanceToPointInTime.ml +++ b/libraries/rds/lib/restoreDBInstanceToPointInTime.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RestoreDBInstanceToPointInTimeMessage.t - type output = RestoreDBInstanceToPointInTimeResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/restoreDBInstanceToPointInTime.mli b/libraries/rds/lib/restoreDBInstanceToPointInTime.mli index d85dad4ab..855f8ece9 100644 --- a/libraries/rds/lib/restoreDBInstanceToPointInTime.mli +++ b/libraries/rds/lib/restoreDBInstanceToPointInTime.mli @@ -1,9 +1,7 @@ open Types type input = RestoreDBInstanceToPointInTimeMessage.t - type output = RestoreDBInstanceToPointInTimeResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/revokeDBSecurityGroupIngress.ml b/libraries/rds/lib/revokeDBSecurityGroupIngress.ml index b1b955ece..aa3999bae 100644 --- a/libraries/rds/lib/revokeDBSecurityGroupIngress.ml +++ b/libraries/rds/lib/revokeDBSecurityGroupIngress.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RevokeDBSecurityGroupIngressMessage.t - type output = RevokeDBSecurityGroupIngressResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/revokeDBSecurityGroupIngress.mli b/libraries/rds/lib/revokeDBSecurityGroupIngress.mli index 23cadcd40..068e67dc4 100644 --- a/libraries/rds/lib/revokeDBSecurityGroupIngress.mli +++ b/libraries/rds/lib/revokeDBSecurityGroupIngress.mli @@ -1,9 +1,7 @@ open Types type input = RevokeDBSecurityGroupIngressMessage.t - type output = RevokeDBSecurityGroupIngressResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/startActivityStream.ml b/libraries/rds/lib/startActivityStream.ml index cac1a56c3..a858fcbe7 100644 --- a/libraries/rds/lib/startActivityStream.ml +++ b/libraries/rds/lib/startActivityStream.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartActivityStreamRequest.t - type output = StartActivityStreamResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/startActivityStream.mli b/libraries/rds/lib/startActivityStream.mli index 7cc548900..5098f35d5 100644 --- a/libraries/rds/lib/startActivityStream.mli +++ b/libraries/rds/lib/startActivityStream.mli @@ -1,9 +1,7 @@ open Types type input = StartActivityStreamRequest.t - type output = StartActivityStreamResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/startDBCluster.ml b/libraries/rds/lib/startDBCluster.ml index 688ad4906..89ff12136 100644 --- a/libraries/rds/lib/startDBCluster.ml +++ b/libraries/rds/lib/startDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartDBClusterMessage.t - type output = StartDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/startDBCluster.mli b/libraries/rds/lib/startDBCluster.mli index 57c008037..c3e1dd593 100644 --- a/libraries/rds/lib/startDBCluster.mli +++ b/libraries/rds/lib/startDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = StartDBClusterMessage.t - type output = StartDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/startDBInstance.ml b/libraries/rds/lib/startDBInstance.ml index 29fb5dac0..3fff64815 100644 --- a/libraries/rds/lib/startDBInstance.ml +++ b/libraries/rds/lib/startDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartDBInstanceMessage.t - type output = StartDBInstanceResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/startDBInstance.mli b/libraries/rds/lib/startDBInstance.mli index 923eaeb96..109473ca2 100644 --- a/libraries/rds/lib/startDBInstance.mli +++ b/libraries/rds/lib/startDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = StartDBInstanceMessage.t - type output = StartDBInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/startExportTask.ml b/libraries/rds/lib/startExportTask.ml index d38b0fb21..9cd7767ed 100644 --- a/libraries/rds/lib/startExportTask.ml +++ b/libraries/rds/lib/startExportTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartExportTaskMessage.t - type output = ExportTask.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/startExportTask.mli b/libraries/rds/lib/startExportTask.mli index 9cd6df290..75d7a4d76 100644 --- a/libraries/rds/lib/startExportTask.mli +++ b/libraries/rds/lib/startExportTask.mli @@ -1,9 +1,7 @@ open Types type input = StartExportTaskMessage.t - type output = ExportTask.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/stopActivityStream.ml b/libraries/rds/lib/stopActivityStream.ml index 1ba8cc482..0324f6fde 100644 --- a/libraries/rds/lib/stopActivityStream.ml +++ b/libraries/rds/lib/stopActivityStream.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopActivityStreamRequest.t - type output = StopActivityStreamResponse.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/stopActivityStream.mli b/libraries/rds/lib/stopActivityStream.mli index 49310a9dc..3ec5b65ab 100644 --- a/libraries/rds/lib/stopActivityStream.mli +++ b/libraries/rds/lib/stopActivityStream.mli @@ -1,9 +1,7 @@ open Types type input = StopActivityStreamRequest.t - type output = StopActivityStreamResponse.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/stopDBCluster.ml b/libraries/rds/lib/stopDBCluster.ml index e4486b892..d9a1cdf34 100644 --- a/libraries/rds/lib/stopDBCluster.ml +++ b/libraries/rds/lib/stopDBCluster.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopDBClusterMessage.t - type output = StopDBClusterResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/stopDBCluster.mli b/libraries/rds/lib/stopDBCluster.mli index f64901be3..a5e61f238 100644 --- a/libraries/rds/lib/stopDBCluster.mli +++ b/libraries/rds/lib/stopDBCluster.mli @@ -1,9 +1,7 @@ open Types type input = StopDBClusterMessage.t - type output = StopDBClusterResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/stopDBInstance.ml b/libraries/rds/lib/stopDBInstance.ml index 23b57e8cf..38b381ae5 100644 --- a/libraries/rds/lib/stopDBInstance.ml +++ b/libraries/rds/lib/stopDBInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopDBInstanceMessage.t - type output = StopDBInstanceResult.t - type error = Errors_internal.t let service = "rds" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/rds/lib/stopDBInstance.mli b/libraries/rds/lib/stopDBInstance.mli index d2ecab385..c9d77978b 100644 --- a/libraries/rds/lib/stopDBInstance.mli +++ b/libraries/rds/lib/stopDBInstance.mli @@ -1,9 +1,7 @@ open Types type input = StopDBInstanceMessage.t - type output = StopDBInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/rds/lib/types.ml b/libraries/rds/lib/types.ml index 97b26edcc..c5e3e49c0 100644 --- a/libraries/rds/lib/types.ml +++ b/libraries/rds/lib/types.ml @@ -47,9 +47,7 @@ module IPRangeList = struct Aws.Util.option_all (List.map IPRange.parse (Aws.Xml.members "IPRange" xml)) let to_query v = Aws.Query.to_query_list IPRange.to_query v - let to_json v = `List (List.map IPRange.to_json v) - let of_json j = Aws.Json.to_list IPRange.of_json j end @@ -130,9 +128,7 @@ module EC2SecurityGroupList = struct (List.map EC2SecurityGroup.parse (Aws.Xml.members "EC2SecurityGroup" xml)) let to_query v = Aws.Query.to_query_list EC2SecurityGroup.to_query v - let to_json v = `List (List.map EC2SecurityGroup.to_json v) - let of_json j = Aws.Json.to_list EC2SecurityGroup.of_json j end @@ -253,9 +249,7 @@ module DBSecurityGroups = struct (List.map DBSecurityGroup.parse (Aws.Xml.members "DBSecurityGroup" xml)) let to_query v = Aws.Query.to_query_list DBSecurityGroup.to_query v - let to_json v = `List (List.map DBSecurityGroup.to_json v) - let of_json j = Aws.Json.to_list DBSecurityGroup.of_json j end @@ -313,9 +307,7 @@ module VpcSecurityGroupIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "VpcSecurityGroupId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -325,13 +317,9 @@ module IAMAuthMode = struct | REQUIRED let str_to_t = [ "REQUIRED", REQUIRED; "DISABLED", DISABLED ] - let t_to_str = [ REQUIRED, "REQUIRED"; DISABLED, "DISABLED" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -341,7 +329,6 @@ module IAMAuthMode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -349,13 +336,9 @@ module AuthScheme = struct type t = SECRETS let str_to_t = [ "SECRETS", SECRETS ] - let t_to_str = [ SECRETS, "SECRETS" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -365,7 +348,6 @@ module AuthScheme = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -666,9 +648,7 @@ module StringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -837,9 +817,7 @@ module WriteForwardingStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -849,7 +827,6 @@ module WriteForwardingStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -904,9 +881,7 @@ module VpcSecurityGroupMembershipList = struct (Aws.Xml.members "VpcSecurityGroupMembership" xml)) let to_query v = Aws.Query.to_query_list VpcSecurityGroupMembership.to_query v - let to_json v = `List (List.map VpcSecurityGroupMembership.to_json v) - let of_json j = Aws.Json.to_list VpcSecurityGroupMembership.of_json j end @@ -949,13 +924,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "Tag" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -1038,9 +1009,7 @@ module ReadReplicaIdentifierList = struct (List.map String.parse (Aws.Xml.members "ReadReplicaIdentifier" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1053,9 +1022,7 @@ module LogTypeList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1121,9 +1088,7 @@ module DomainMembershipList = struct (List.map DomainMembership.parse (Aws.Xml.members "DomainMembership" xml)) let to_query v = Aws.Query.to_query_list DomainMembership.to_query v - let to_json v = `List (List.map DomainMembership.to_json v) - let of_json j = Aws.Json.to_list DomainMembership.of_json j end @@ -1180,9 +1145,7 @@ module DBClusterRoles = struct (List.map DBClusterRole.parse (Aws.Xml.members "DBClusterRole" xml)) let to_query v = Aws.Query.to_query_list DBClusterRole.to_query v - let to_json v = `List (List.map DBClusterRole.to_json v) - let of_json j = Aws.Json.to_list DBClusterRole.of_json j end @@ -1240,9 +1203,7 @@ module DBClusterOptionGroupMemberships = struct (Aws.Xml.members "DBClusterOptionGroup" xml)) let to_query v = Aws.Query.to_query_list DBClusterOptionGroupStatus.to_query v - let to_json v = `List (List.map DBClusterOptionGroupStatus.to_json v) - let of_json j = Aws.Json.to_list DBClusterOptionGroupStatus.of_json j end @@ -1330,9 +1291,7 @@ module DBClusterMemberList = struct (List.map DBClusterMember.parse (Aws.Xml.members "DBClusterMember" xml)) let to_query v = Aws.Query.to_query_list DBClusterMember.to_query v - let to_json v = `List (List.map DBClusterMember.to_json v) - let of_json j = Aws.Json.to_list DBClusterMember.of_json j end @@ -1345,9 +1304,7 @@ module AvailabilityZones = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AvailabilityZone" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1365,9 +1322,7 @@ module ActivityStreamStatus = struct [ Stopping, "stopping"; Started, "started"; Starting, "starting"; Stopped, "stopped" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1377,7 +1332,6 @@ module ActivityStreamStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1387,13 +1341,9 @@ module ActivityStreamMode = struct | Async let str_to_t = [ "async", Async; "sync", Sync ] - let t_to_str = [ Async, "async"; Sync, "sync" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1403,7 +1353,6 @@ module ActivityStreamMode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2124,9 +2073,7 @@ module DBClusterList = struct Aws.Util.option_all (List.map DBCluster.parse (Aws.Xml.members "DBCluster" xml)) let to_query v = Aws.Query.to_query_list DBCluster.to_query v - let to_json v = `List (List.map DBCluster.to_json v) - let of_json j = Aws.Json.to_list DBCluster.of_json j end @@ -2272,9 +2219,7 @@ module DBClusterBacktrackList = struct (List.map DBClusterBacktrack.parse (Aws.Xml.members "DBClusterBacktrack" xml)) let to_query v = Aws.Query.to_query_list DBClusterBacktrack.to_query v - let to_json v = `List (List.map DBClusterBacktrack.to_json v) - let of_json j = Aws.Json.to_list DBClusterBacktrack.of_json j end @@ -2337,9 +2282,7 @@ module CustomAvailabilityZoneList = struct (Aws.Xml.members "CustomAvailabilityZone" xml)) let to_query v = Aws.Query.to_query_list CustomAvailabilityZone.to_query v - let to_json v = `List (List.map CustomAvailabilityZone.to_json v) - let of_json j = Aws.Json.to_list CustomAvailabilityZone.of_json j end @@ -2398,9 +2341,7 @@ module RecurringChargeList = struct (List.map RecurringCharge.parse (Aws.Xml.members "RecurringCharge" xml)) let to_query v = Aws.Query.to_query_list RecurringCharge.to_query v - let to_json v = `List (List.map RecurringCharge.to_json v) - let of_json j = Aws.Json.to_list RecurringCharge.of_json j end @@ -2548,9 +2489,7 @@ module ReservedDBInstancesOfferingList = struct (Aws.Xml.members "ReservedDBInstancesOffering" xml)) let to_query v = Aws.Query.to_query_list ReservedDBInstancesOffering.to_query v - let to_json v = `List (List.map ReservedDBInstancesOffering.to_json v) - let of_json j = Aws.Json.to_list ReservedDBInstancesOffering.of_json j end @@ -2610,13 +2549,9 @@ module EngineFamily = struct | POSTGRESQL let str_to_t = [ "POSTGRESQL", POSTGRESQL; "MYSQL", MYSQL ] - let t_to_str = [ POSTGRESQL, "POSTGRESQL"; MYSQL, "MYSQL" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2626,7 +2561,6 @@ module EngineFamily = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2662,13 +2596,9 @@ module BackupPolicyNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2676,13 +2606,9 @@ module EventSubscriptionQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2799,9 +2725,7 @@ module FilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "Value" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2855,9 +2779,7 @@ module FilterList = struct Aws.Util.option_all (List.map Filter.parse (Aws.Xml.members "Filter" xml)) let to_query v = Aws.Query.to_query_list Filter.to_query v - let to_json v = `List (List.map Filter.to_json v) - let of_json j = Aws.Json.to_list Filter.of_json j end @@ -2977,13 +2899,9 @@ module DBSubnetGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2997,9 +2915,7 @@ module ReadReplicaDBClusterIdentifierList = struct (List.map String.parse (Aws.Xml.members "ReadReplicaDBClusterIdentifier" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3007,13 +2923,9 @@ module AuthorizationQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3087,13 +2999,9 @@ module KMSKeyNotAccessibleFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3101,13 +3009,9 @@ module DBProxyNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3230,9 +3134,7 @@ module SubnetList = struct Aws.Util.option_all (List.map Subnet.parse (Aws.Xml.members "Subnet" xml)) let to_query v = Aws.Query.to_query_list Subnet.to_query v - let to_json v = `List (List.map Subnet.to_json v) - let of_json j = Aws.Json.to_list Subnet.of_json j end @@ -3336,9 +3238,7 @@ module DBSubnetGroups = struct (List.map DBSubnetGroup.parse (Aws.Xml.members "DBSubnetGroup" xml)) let to_query v = Aws.Query.to_query_list DBSubnetGroup.to_query v - let to_json v = `List (List.map DBSubnetGroup.to_json v) - let of_json j = Aws.Json.to_list DBSubnetGroup.of_json j end @@ -3361,9 +3261,7 @@ module TargetType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3373,7 +3271,6 @@ module TargetType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3390,9 +3287,7 @@ module TargetState = struct [ UNAVAILABLE, "UNAVAILABLE"; AVAILABLE, "AVAILABLE"; REGISTERING, "REGISTERING" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3402,7 +3297,6 @@ module TargetState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3428,9 +3322,7 @@ module TargetHealthReason = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3440,7 +3332,6 @@ module TargetHealthReason = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3587,9 +3478,7 @@ module TargetList = struct Aws.Util.option_all (List.map DBProxyTarget.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DBProxyTarget.to_query v - let to_json v = `List (List.map DBProxyTarget.to_json v) - let of_json j = Aws.Json.to_list DBProxyTarget.of_json j end @@ -3640,9 +3529,7 @@ module AttributeValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AttributeValue" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3704,9 +3591,7 @@ module DBSnapshotAttributeList = struct (List.map DBSnapshotAttribute.parse (Aws.Xml.members "DBSnapshotAttribute" xml)) let to_query v = Aws.Query.to_query_list DBSnapshotAttribute.to_query v - let to_json v = `List (List.map DBSnapshotAttribute.to_json v) - let of_json j = Aws.Json.to_list DBSnapshotAttribute.of_json j end @@ -3881,9 +3766,7 @@ module KeyList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4058,9 +3941,7 @@ module EngineModeList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4124,9 +4005,7 @@ module AvailableProcessorFeatureList = struct (Aws.Xml.members "AvailableProcessorFeature" xml)) let to_query v = Aws.Query.to_query_list AvailableProcessorFeature.to_query v - let to_json v = `List (List.map AvailableProcessorFeature.to_json v) - let of_json j = Aws.Json.to_list AvailableProcessorFeature.of_json j end @@ -4140,9 +4019,7 @@ module AvailabilityZoneList = struct (List.map AvailabilityZone.parse (Aws.Xml.members "AvailabilityZone" xml)) let to_query v = Aws.Query.to_query_list AvailabilityZone.to_query v - let to_json v = `List (List.map AvailabilityZone.to_json v) - let of_json j = Aws.Json.to_list AvailabilityZone.of_json j end @@ -4517,9 +4394,7 @@ module OrderableDBInstanceOptionsList = struct (Aws.Xml.members "OrderableDBInstanceOption" xml)) let to_query v = Aws.Query.to_query_list OrderableDBInstanceOption.to_query v - let to_json v = `List (List.map OrderableDBInstanceOption.to_json v) - let of_json j = Aws.Json.to_list OrderableDBInstanceOption.of_json j end @@ -4581,9 +4456,7 @@ module SourceIdsList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SourceId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4596,9 +4469,7 @@ module EventCategoriesList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "EventCategory" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4750,9 +4621,7 @@ module EventSubscriptionsList = struct (List.map EventSubscription.parse (Aws.Xml.members "EventSubscription" xml)) let to_query v = Aws.Query.to_query_list EventSubscription.to_query v - let to_json v = `List (List.map EventSubscription.to_json v) - let of_json j = Aws.Json.to_list EventSubscription.of_json j end @@ -4799,13 +4668,9 @@ module SNSInvalidTopicFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5018,9 +4883,7 @@ module TargetGroupList = struct Aws.Util.option_all (List.map DBProxyTargetGroup.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DBProxyTargetGroup.to_query v - let to_json v = `List (List.map DBProxyTargetGroup.to_json v) - let of_json j = Aws.Json.to_list DBProxyTargetGroup.of_json j end @@ -5070,9 +4933,7 @@ module ProcessorFeatureList = struct (List.map ProcessorFeature.parse (Aws.Xml.members "ProcessorFeature" xml)) let to_query v = Aws.Query.to_query_list ProcessorFeature.to_query v - let to_json v = `List (List.map ProcessorFeature.to_json v) - let of_json j = Aws.Json.to_list ProcessorFeature.of_json j end @@ -5440,13 +5301,9 @@ module DBSecurityGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5459,9 +5316,7 @@ module SubnetIdentifierList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "SubnetIdentifier" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5583,9 +5438,7 @@ module SourceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5595,7 +5448,6 @@ module SourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5684,13 +5536,9 @@ module EventList = struct type t = Event.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Event.parse (Aws.Xml.members "Event" xml)) - let to_query v = Aws.Query.to_query_list Event.to_query v - let to_json v = `List (List.map Event.to_json v) - let of_json j = Aws.Json.to_list Event.of_json j end @@ -5949,9 +5797,7 @@ module ReadersArnList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -6029,9 +5875,7 @@ module GlobalClusterMemberList = struct (List.map GlobalClusterMember.parse (Aws.Xml.members "GlobalClusterMember" xml)) let to_query v = Aws.Query.to_query_list GlobalClusterMember.to_query v - let to_json v = `List (List.map GlobalClusterMember.to_json v) - let of_json j = Aws.Json.to_list GlobalClusterMember.of_json j end @@ -6209,13 +6053,9 @@ module ReplicaMode = struct | Mounted let str_to_t = [ "mounted", Mounted; "open-read-only", Open_read_only ] - let t_to_str = [ Mounted, "mounted"; Open_read_only, "open-read-only" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6225,7 +6065,6 @@ module ReplicaMode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6233,13 +6072,9 @@ module InstallationMediaAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6253,9 +6088,7 @@ module DBParameterGroupList = struct (List.map DBParameterGroup.parse (Aws.Xml.members "DBParameterGroup" xml)) let to_query v = Aws.Query.to_query_list DBParameterGroup.to_query v - let to_json v = `List (List.map DBParameterGroup.to_json v) - let of_json j = Aws.Json.to_list DBParameterGroup.of_json j end @@ -6353,9 +6186,7 @@ module DBSecurityGroupMembershipList = struct (List.map DBSecurityGroupMembership.parse (Aws.Xml.members "DBSecurityGroup" xml)) let to_query v = Aws.Query.to_query_list DBSecurityGroupMembership.to_query v - let to_json v = `List (List.map DBSecurityGroupMembership.to_json v) - let of_json j = Aws.Json.to_list DBSecurityGroupMembership.of_json j end @@ -6574,13 +6405,9 @@ module InvalidRestoreFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6588,13 +6415,9 @@ module DBClusterAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6633,13 +6456,9 @@ module DBSnapshotNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -6762,9 +6581,7 @@ module OptionSettingsList = struct (List.map OptionSetting.parse (Aws.Xml.members "OptionSetting" xml)) let to_query v = Aws.Query.to_query_list OptionSetting.to_query v - let to_json v = `List (List.map OptionSetting.to_json v) - let of_json j = Aws.Json.to_list OptionSetting.of_json j end @@ -7173,9 +6990,7 @@ module DBSecurityGroupNameList = struct (List.map String.parse (Aws.Xml.members "DBSecurityGroupName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7793,9 +7608,7 @@ module OptionsDependedOn = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "OptionName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7809,9 +7622,7 @@ module ReadReplicaDBInstanceIdentifierList = struct (List.map String.parse (Aws.Xml.members "ReadReplicaDBInstanceIdentifier" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8107,9 +7918,7 @@ module OptionGroupMembershipList = struct (List.map OptionGroupMembership.parse (Aws.Xml.members "OptionGroupMembership" xml)) let to_query v = Aws.Query.to_query_list OptionGroupMembership.to_query v - let to_json v = `List (List.map OptionGroupMembership.to_json v) - let of_json j = Aws.Json.to_list OptionGroupMembership.of_json j end @@ -8211,9 +8020,7 @@ module DBParameterGroupStatusList = struct (List.map DBParameterGroupStatus.parse (Aws.Xml.members "DBParameterGroup" xml)) let to_query v = Aws.Query.to_query_list DBParameterGroupStatus.to_query v - let to_json v = `List (List.map DBParameterGroupStatus.to_json v) - let of_json j = Aws.Json.to_list DBParameterGroupStatus.of_json j end @@ -8276,9 +8083,7 @@ module DBInstanceStatusInfoList = struct (List.map DBInstanceStatusInfo.parse (Aws.Xml.members "DBInstanceStatusInfo" xml)) let to_query v = Aws.Query.to_query_list DBInstanceStatusInfo.to_query v - let to_json v = `List (List.map DBInstanceStatusInfo.to_json v) - let of_json j = Aws.Json.to_list DBInstanceStatusInfo.of_json j end @@ -8292,9 +8097,7 @@ module DBInstanceRoles = struct (List.map DBInstanceRole.parse (Aws.Xml.members "DBInstanceRole" xml)) let to_query v = Aws.Query.to_query_list DBInstanceRole.to_query v - let to_json v = `List (List.map DBInstanceRole.to_json v) - let of_json j = Aws.Json.to_list DBInstanceRole.of_json j end @@ -9430,9 +9233,7 @@ module ReservedDBInstanceList = struct (List.map ReservedDBInstance.parse (Aws.Xml.members "ReservedDBInstance" xml)) let to_query v = Aws.Query.to_query_list ReservedDBInstance.to_query v - let to_json v = `List (List.map ReservedDBInstance.to_json v) - let of_json j = Aws.Json.to_list ReservedDBInstance.of_json j end @@ -9440,13 +9241,9 @@ module DBClusterNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9489,13 +9286,9 @@ module DBInstanceRoleNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9503,13 +9296,9 @@ module SnapshotQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9545,13 +9334,9 @@ module InvalidDBClusterCapacityFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9651,9 +9436,7 @@ module UserAuthConfigList = struct Aws.Util.option_all (List.map UserAuthConfig.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list UserAuthConfig.to_query v - let to_json v = `List (List.map UserAuthConfig.to_json v) - let of_json j = Aws.Json.to_list UserAuthConfig.of_json j end @@ -10040,13 +9823,9 @@ module ReservedDBInstanceNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10059,9 +9838,7 @@ module DBSnapshotList = struct Aws.Util.option_all (List.map DBSnapshot.parse (Aws.Xml.members "DBSnapshot" xml)) let to_query v = Aws.Query.to_query_list DBSnapshot.to_query v - let to_json v = `List (List.map DBSnapshot.to_json v) - let of_json j = Aws.Json.to_list DBSnapshot.of_json j end @@ -10069,13 +9846,9 @@ module CertificateNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10083,13 +9856,9 @@ module InvalidDBClusterStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10210,13 +9979,9 @@ module DBClusterEndpointNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10384,13 +10149,9 @@ module ReservedDBInstanceAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10398,13 +10159,9 @@ module InvalidGlobalClusterStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10831,9 +10588,7 @@ module DBClusterSnapshotAttributeList = struct (Aws.Xml.members "DBClusterSnapshotAttribute" xml)) let to_query v = Aws.Query.to_query_list DBClusterSnapshotAttribute.to_query v - let to_json v = `List (List.map DBClusterSnapshotAttribute.to_json v) - let of_json j = Aws.Json.to_list DBClusterSnapshotAttribute.of_json j end @@ -10938,13 +10693,9 @@ module DBProxyTargetGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11059,9 +10810,7 @@ module DBInstanceAutomatedBackupList = struct (Aws.Xml.members "DBInstanceAutomatedBackup" xml)) let to_query v = Aws.Query.to_query_list DBInstanceAutomatedBackup.to_query v - let to_json v = `List (List.map DBInstanceAutomatedBackup.to_json v) - let of_json j = Aws.Json.to_list DBInstanceAutomatedBackup.of_json j end @@ -11148,13 +10897,9 @@ module DBProxyAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11278,9 +11023,7 @@ module OptionConfigurationList = struct (List.map OptionConfiguration.parse (Aws.Xml.members "OptionConfiguration" xml)) let to_query v = Aws.Query.to_query_list OptionConfiguration.to_query v - let to_json v = `List (List.map OptionConfiguration.to_json v) - let of_json j = Aws.Json.to_list OptionConfiguration.of_json j end @@ -11288,13 +11031,9 @@ module InvalidDBParameterGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11380,13 +11119,9 @@ module ApplyMethod = struct | Pending_reboot let str_to_t = [ "pending-reboot", Pending_reboot; "immediate", Immediate ] - let t_to_str = [ Pending_reboot, "pending-reboot"; Immediate, "immediate" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -11396,7 +11131,6 @@ module ApplyMethod = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -11550,9 +11284,7 @@ module ParametersList = struct Aws.Util.option_all (List.map Parameter.parse (Aws.Xml.members "Parameter" xml)) let to_query v = Aws.Query.to_query_list Parameter.to_query v - let to_json v = `List (List.map Parameter.to_json v) - let of_json j = Aws.Json.to_list Parameter.of_json j end @@ -11656,13 +11388,9 @@ module StorageQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11733,13 +11461,9 @@ module DBSecurityGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11752,9 +11476,7 @@ module AccountQuotaList = struct Aws.Util.option_all (List.map AccountQuota.parse (Aws.Xml.members "AccountQuota" xml)) let to_query v = Aws.Query.to_query_list AccountQuota.to_query v - let to_json v = `List (List.map AccountQuota.to_json v) - let of_json j = Aws.Json.to_list AccountQuota.of_json j end @@ -11906,9 +11628,7 @@ module ExportTasksList = struct Aws.Util.option_all (List.map ExportTask.parse (Aws.Xml.members "ExportTask" xml)) let to_query v = Aws.Query.to_query_list ExportTask.to_query v - let to_json v = `List (List.map ExportTask.to_json v) - let of_json j = Aws.Json.to_list ExportTask.of_json j end @@ -11959,13 +11679,9 @@ module DBSubnetGroupNotAllowedFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -11973,13 +11689,9 @@ module DBProxyTargetAlreadyRegisteredFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12111,9 +11823,7 @@ module InstallationMediaList = struct (List.map InstallationMedia.parse (Aws.Xml.members "InstallationMedia" xml)) let to_query v = Aws.Query.to_query_list InstallationMedia.to_query v - let to_json v = `List (List.map InstallationMedia.to_json v) - let of_json j = Aws.Json.to_list InstallationMedia.of_json j end @@ -12172,9 +11882,7 @@ module OptionSettingConfigurationList = struct (List.map OptionSetting.parse (Aws.Xml.members "OptionSetting" xml)) let to_query v = Aws.Query.to_query_list OptionSetting.to_query v - let to_json v = `List (List.map OptionSetting.to_json v) - let of_json j = Aws.Json.to_list OptionSetting.of_json j end @@ -12325,9 +12033,7 @@ module OptionsList = struct Aws.Util.option_all (List.map Option.parse (Aws.Xml.members "Option" xml)) let to_query v = Aws.Query.to_query_list Option.to_query v - let to_json v = `List (List.map Option.to_json v) - let of_json j = Aws.Json.to_list Option.of_json j end @@ -12562,9 +12268,7 @@ module DBInstanceList = struct Aws.Util.option_all (List.map DBInstance.parse (Aws.Xml.members "DBInstance" xml)) let to_query v = Aws.Query.to_query_list DBInstance.to_query v - let to_json v = `List (List.map DBInstance.to_json v) - let of_json j = Aws.Json.to_list DBInstance.of_json j end @@ -12613,13 +12317,9 @@ module InvalidEventSubscriptionStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12627,13 +12327,9 @@ module OptionGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12641,13 +12337,9 @@ module GlobalClusterNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -12695,9 +12387,7 @@ module OptionsConflictsWith = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "OptionConflictName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -12747,9 +12437,7 @@ module OptionGroupOptionVersionsList = struct (List.map OptionVersion.parse (Aws.Xml.members "OptionVersion" xml)) let to_query v = Aws.Query.to_query_list OptionVersion.to_query v - let to_json v = `List (List.map OptionVersion.to_json v) - let of_json j = Aws.Json.to_list OptionVersion.of_json j end @@ -12765,9 +12453,7 @@ module MinimumEngineVersionPerAllowedValueList = struct (Aws.Xml.members "MinimumEngineVersionPerAllowedValue" xml)) let to_query v = Aws.Query.to_query_list MinimumEngineVersionPerAllowedValue.to_query v - let to_json v = `List (List.map MinimumEngineVersionPerAllowedValue.to_json v) - let of_json j = Aws.Json.to_list MinimumEngineVersionPerAllowedValue.of_json j end @@ -12899,9 +12585,7 @@ module OptionGroupOptionSettingsList = struct (Aws.Xml.members "OptionGroupOptionSetting" xml)) let to_query v = Aws.Query.to_query_list OptionGroupOptionSetting.to_query v - let to_json v = `List (List.map OptionGroupOptionSetting.to_json v) - let of_json j = Aws.Json.to_list OptionGroupOptionSetting.of_json j end @@ -13139,9 +12823,7 @@ module OptionGroupOptionsList = struct (List.map OptionGroupOption.parse (Aws.Xml.members "OptionGroupOption" xml)) let to_query v = Aws.Query.to_query_list OptionGroupOption.to_query v - let to_json v = `List (List.map OptionGroupOption.to_json v) - let of_json j = Aws.Json.to_list OptionGroupOption.of_json j end @@ -13760,9 +13442,7 @@ module SupportedCharacterSetsList = struct Aws.Util.option_all (List.map CharacterSet.parse (Aws.Xml.members "CharacterSet" xml)) let to_query v = Aws.Query.to_query_list CharacterSet.to_query v - let to_json v = `List (List.map CharacterSet.to_json v) - let of_json j = Aws.Json.to_list CharacterSet.of_json j end @@ -13866,13 +13546,9 @@ module CustomAvailabilityZoneAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13914,13 +13590,9 @@ module DBSecurityGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14091,9 +13763,7 @@ module UserAuthConfigInfoList = struct Aws.Util.option_all (List.map UserAuthConfigInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list UserAuthConfigInfo.to_query v - let to_json v = `List (List.map UserAuthConfigInfo.to_json v) - let of_json j = Aws.Json.to_list UserAuthConfigInfo.of_json j end @@ -14134,9 +13804,7 @@ module DBProxyStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14146,7 +13814,6 @@ module DBProxyStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14331,9 +13998,7 @@ module DBProxyList = struct Aws.Util.option_all (List.map DBProxy.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DBProxy.to_query v - let to_json v = `List (List.map DBProxy.to_json v) - let of_json j = Aws.Json.to_list DBProxy.of_json j end @@ -14514,13 +14179,9 @@ module DBSecurityGroupNotSupportedFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14569,13 +14230,9 @@ module DBClusterParameterGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14669,13 +14326,9 @@ module DBProxyTargetNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14885,13 +14538,9 @@ module InvalidDBInstanceStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -14991,9 +14640,7 @@ module PendingMaintenanceActionDetails = struct (Aws.Xml.members "PendingMaintenanceAction" xml)) let to_query v = Aws.Query.to_query_list PendingMaintenanceAction.to_query v - let to_json v = `List (List.map PendingMaintenanceAction.to_json v) - let of_json j = Aws.Json.to_list PendingMaintenanceAction.of_json j end @@ -15077,13 +14724,9 @@ module InvalidDBSnapshotStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -15246,13 +14889,9 @@ module ReservedDBInstanceQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -15301,13 +14940,9 @@ module RangeList = struct type t = Range.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Range.parse (Aws.Xml.members "Range" xml)) - let to_query v = Aws.Query.to_query_list Range.to_query v - let to_json v = `List (List.map Range.to_json v) - let of_json j = Aws.Json.to_list Range.of_json j end @@ -15320,9 +14955,7 @@ module DoubleRangeList = struct Aws.Util.option_all (List.map DoubleRange.parse (Aws.Xml.members "DoubleRange" xml)) let to_query v = Aws.Query.to_query_list DoubleRange.to_query v - let to_json v = `List (List.map DoubleRange.to_json v) - let of_json j = Aws.Json.to_list DoubleRange.of_json j end @@ -15427,9 +15060,7 @@ module ValidStorageOptionsList = struct (List.map ValidStorageOptions.parse (Aws.Xml.members "ValidStorageOptions" xml)) let to_query v = Aws.Query.to_query_list ValidStorageOptions.to_query v - let to_json v = `List (List.map ValidStorageOptions.to_json v) - let of_json j = Aws.Json.to_list ValidStorageOptions.of_json j end @@ -15553,13 +15184,9 @@ module ResourceNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -15611,13 +15238,9 @@ module SubscriptionCategoryNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -15630,9 +15253,7 @@ module OptionGroupsList = struct Aws.Util.option_all (List.map OptionGroup.parse (Aws.Xml.members "OptionGroup" xml)) let to_query v = Aws.Query.to_query_list OptionGroup.to_query v - let to_json v = `List (List.map OptionGroup.to_json v) - let of_json j = Aws.Json.to_list OptionGroup.of_json j end @@ -16089,13 +15710,9 @@ module ProvisionedIopsNotAvailableInAZFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16103,13 +15720,9 @@ module GlobalClusterQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16117,13 +15730,9 @@ module SubnetAlreadyInUse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16155,13 +15764,9 @@ module InvalidDBProxyStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16305,13 +15910,9 @@ module InvalidOptionGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16360,13 +15961,9 @@ module DBClusterEndpointAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16379,9 +15976,7 @@ module OptionNamesList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -16466,13 +16061,9 @@ module InvalidSubnet = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16480,13 +16071,9 @@ module GlobalClusterAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -16502,9 +16089,7 @@ module DBClusterParameterGroupList = struct (Aws.Xml.members "DBClusterParameterGroup" xml)) let to_query v = Aws.Query.to_query_list DBClusterParameterGroup.to_query v - let to_json v = `List (List.map DBClusterParameterGroup.to_json v) - let of_json j = Aws.Json.to_list DBClusterParameterGroup.of_json j end @@ -16609,9 +16194,7 @@ module DBClusterEndpointList = struct (List.map DBClusterEndpoint.parse (Aws.Xml.members "DBClusterEndpointList" xml)) let to_query v = Aws.Query.to_query_list DBClusterEndpoint.to_query v - let to_json v = `List (List.map DBClusterEndpoint.to_json v) - let of_json j = Aws.Json.to_list DBClusterEndpoint.of_json j end @@ -17504,9 +17087,7 @@ module CertificateList = struct Aws.Util.option_all (List.map Certificate.parse (Aws.Xml.members "Certificate" xml)) let to_query v = Aws.Query.to_query_list Certificate.to_query v - let to_json v = `List (List.map Certificate.to_json v) - let of_json j = Aws.Json.to_list Certificate.of_json j end @@ -17514,13 +17095,9 @@ module DBClusterSnapshotAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -17890,13 +17467,9 @@ module AuthorizationAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18142,13 +17715,9 @@ module InvalidExportOnlyFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18156,13 +17725,9 @@ module ReservedDBInstancesOfferingNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18224,13 +17789,9 @@ module DBProxyQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18422,13 +17983,9 @@ module SharedSnapshotQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18490,13 +18047,9 @@ module DBClusterRoleNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18504,13 +18057,9 @@ module InvalidDBClusterSnapshotStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18639,13 +18188,9 @@ module DBParameterGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18688,13 +18233,9 @@ module IamRoleMissingPermissionsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18844,9 +18385,7 @@ module FeatureNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18854,13 +18393,9 @@ module InstanceQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -18974,9 +18509,7 @@ module DBClusterSnapshotList = struct (List.map DBClusterSnapshot.parse (Aws.Xml.members "DBClusterSnapshot" xml)) let to_query v = Aws.Query.to_query_list DBClusterSnapshot.to_query v - let to_json v = `List (List.map DBClusterSnapshot.to_json v) - let of_json j = Aws.Json.to_list DBClusterSnapshot.of_json j end @@ -19231,13 +18764,9 @@ module ExportTaskNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -19369,9 +18898,7 @@ module SourceRegionList = struct Aws.Util.option_all (List.map SourceRegion.parse (Aws.Xml.members "SourceRegion" xml)) let to_query v = Aws.Query.to_query_list SourceRegion.to_query v - let to_json v = `List (List.map SourceRegion.to_json v) - let of_json j = Aws.Json.to_list SourceRegion.of_json j end @@ -19748,13 +19275,9 @@ module DBSubnetGroupAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -19794,13 +19317,9 @@ module InsufficientDBClusterCapacityFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -19906,13 +19425,9 @@ module ExportTaskAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -19997,13 +19512,9 @@ module SourceNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -20504,13 +20015,9 @@ module SubscriptionAlreadyExistFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -20968,9 +20475,7 @@ module GlobalClusterList = struct (List.map GlobalCluster.parse (Aws.Xml.members "GlobalClusterMember" xml)) let to_query v = Aws.Query.to_query_list GlobalCluster.to_query v - let to_json v = `List (List.map GlobalCluster.to_json v) - let of_json j = Aws.Json.to_list GlobalCluster.of_json j end @@ -20978,13 +20483,9 @@ module DBClusterRoleQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21584,13 +21085,9 @@ module OptionGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21598,13 +21095,9 @@ module SNSTopicArnNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21662,9 +21155,7 @@ module DescribeDBLogFilesList = struct (Aws.Xml.members "DescribeDBLogFilesDetails" xml)) let to_query v = Aws.Query.to_query_list DescribeDBLogFilesDetails.to_query v - let to_json v = `List (List.map DescribeDBLogFilesDetails.to_json v) - let of_json j = Aws.Json.to_list DescribeDBLogFilesDetails.of_json j end @@ -21719,13 +21210,9 @@ module DBInstanceRoleAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21781,13 +21268,9 @@ module DBClusterBacktrackNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21829,13 +21312,9 @@ module InstallationMediaNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21843,13 +21322,9 @@ module SubscriptionNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -21918,9 +21393,7 @@ module PendingMaintenanceActions = struct (Aws.Xml.members "ResourcePendingMaintenanceActions" xml)) let to_query v = Aws.Query.to_query_list ResourcePendingMaintenanceActions.to_query v - let to_json v = `List (List.map ResourcePendingMaintenanceActions.to_json v) - let of_json j = Aws.Json.to_list ResourcePendingMaintenanceActions.of_json j end @@ -22094,13 +21567,9 @@ module DBInstanceAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22140,13 +21609,9 @@ module DBParameterGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22228,13 +21693,9 @@ module InvalidDBSubnetStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22248,9 +21709,7 @@ module EventCategoriesMapList = struct (List.map EventCategoriesMap.parse (Aws.Xml.members "EventCategoriesMap" xml)) let to_query v = Aws.Query.to_query_list EventCategoriesMap.to_query v - let to_json v = `List (List.map EventCategoriesMap.to_json v) - let of_json j = Aws.Json.to_list EventCategoriesMap.of_json j end @@ -22258,13 +21717,9 @@ module DeregisterDBProxyTargetsResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22496,13 +21951,9 @@ module InsufficientDBInstanceCapacityFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22516,9 +21967,7 @@ module ValidUpgradeTargetList = struct (List.map UpgradeTarget.parse (Aws.Xml.members "UpgradeTarget" xml)) let to_query v = Aws.Query.to_query_list UpgradeTarget.to_query v - let to_json v = `List (List.map UpgradeTarget.to_json v) - let of_json j = Aws.Json.to_list UpgradeTarget.of_json j end @@ -22531,9 +21980,7 @@ module SupportedTimezonesList = struct Aws.Util.option_all (List.map Timezone.parse (Aws.Xml.members "Timezone" xml)) let to_query v = Aws.Query.to_query_list Timezone.to_query v - let to_json v = `List (List.map Timezone.to_json v) - let of_json j = Aws.Json.to_list Timezone.of_json j end @@ -23115,13 +22562,9 @@ module DBParameterGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -23211,13 +22654,9 @@ module InvalidDBClusterEndpointStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -23286,13 +22725,9 @@ module OptionGroupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -23965,13 +23400,9 @@ module InvalidDBSubnetGroupFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -24062,13 +23493,9 @@ module DBInstanceAutomatedBackupNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -24498,13 +23925,9 @@ module DBSubnetGroupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -24512,13 +23935,9 @@ module DBInstanceRoleQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -24807,13 +24226,9 @@ module InvalidExportSourceStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -24977,13 +24392,9 @@ module DBLogFileNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25249,13 +24660,9 @@ module DBUpgradeDependencyFailureFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25310,13 +24717,9 @@ module InvalidDBInstanceAutomatedBackupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25330,9 +24733,7 @@ module DBEngineVersionList = struct (List.map DBEngineVersion.parse (Aws.Xml.members "DBEngineVersion" xml)) let to_query v = Aws.Query.to_query_list DBEngineVersion.to_query v - let to_json v = `List (List.map DBEngineVersion.to_json v) - let of_json j = Aws.Json.to_list DBEngineVersion.of_json j end @@ -25421,13 +24822,9 @@ module DBClusterEndpointQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25619,13 +25016,9 @@ module CustomAvailabilityZoneNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25802,13 +25195,9 @@ module InvalidVPCNetworkStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25937,13 +25326,9 @@ module SNSNoAuthorizationFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25951,13 +25336,9 @@ module InsufficientAvailableIPsInSubnetFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26111,13 +25492,9 @@ module CustomAvailabilityZoneQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26267,13 +25644,9 @@ module StorageTypeNotSupportedFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26281,13 +25654,9 @@ module DBSubnetQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26295,13 +25664,9 @@ module DBClusterSnapshotNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26466,13 +25831,9 @@ module PointInTimeRestoreNotEnabledFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26480,13 +25841,9 @@ module InvalidDBSecurityGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26528,13 +25885,9 @@ module InvalidExportTaskStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26542,13 +25895,9 @@ module DomainNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26613,13 +25962,9 @@ module DBSubnetGroupDoesNotCoverEnoughAZs = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27121,13 +26466,9 @@ module DBSnapshotAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27170,13 +26511,9 @@ module InvalidDBSubnetGroupStateFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27232,13 +26569,9 @@ module IamRoleNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27300,13 +26633,9 @@ module InvalidS3BucketFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27314,13 +26643,9 @@ module DBInstanceNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27379,13 +26704,9 @@ module DescribeAccountAttributesMessage = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27393,13 +26714,9 @@ module DBClusterRoleAlreadyExistsFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27747,13 +27064,9 @@ module DBClusterQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27761,13 +27074,9 @@ module AuthorizationNotFoundFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -27824,13 +27133,9 @@ module InsufficientStorageClusterCapacityFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -28246,13 +27551,9 @@ module DBInstanceAutomatedBackupQuotaExceededFault = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/rds/lib_test/test_async.ml b/libraries/rds/lib_test/test_async.ml index 1b4046870..56f4d1860 100644 --- a/libraries/rds/lib_test/test_async.ml +++ b/libraries/rds/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/rds/lib_test/test_lwt.ml b/libraries/rds/lib_test/test_lwt.ml index ef4e4e19a..2dc48f30b 100644 --- a/libraries/rds/lib_test/test_lwt.ml +++ b/libraries/rds/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/route53/lib/associateVPCWithHostedZone.ml b/libraries/route53/lib/associateVPCWithHostedZone.ml index 4b05f38b0..1cb7405f9 100644 --- a/libraries/route53/lib/associateVPCWithHostedZone.ml +++ b/libraries/route53/lib/associateVPCWithHostedZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssociateVPCWithHostedZoneRequest.t - type output = AssociateVPCWithHostedZoneResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/associateVPCWithHostedZone.mli b/libraries/route53/lib/associateVPCWithHostedZone.mli index e760193ea..50ee739bd 100644 --- a/libraries/route53/lib/associateVPCWithHostedZone.mli +++ b/libraries/route53/lib/associateVPCWithHostedZone.mli @@ -1,9 +1,7 @@ open Types type input = AssociateVPCWithHostedZoneRequest.t - type output = AssociateVPCWithHostedZoneResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/changeResourceRecordSets.ml b/libraries/route53/lib/changeResourceRecordSets.ml index 4a7af2d80..795b50df4 100644 --- a/libraries/route53/lib/changeResourceRecordSets.ml +++ b/libraries/route53/lib/changeResourceRecordSets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ChangeResourceRecordSetsRequest.t - type output = ChangeResourceRecordSetsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/changeResourceRecordSets.mli b/libraries/route53/lib/changeResourceRecordSets.mli index 620cb9e43..fdc2b6a71 100644 --- a/libraries/route53/lib/changeResourceRecordSets.mli +++ b/libraries/route53/lib/changeResourceRecordSets.mli @@ -1,9 +1,7 @@ open Types type input = ChangeResourceRecordSetsRequest.t - type output = ChangeResourceRecordSetsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/changeTagsForResource.ml b/libraries/route53/lib/changeTagsForResource.ml index 9e4244d09..7190a0cb0 100644 --- a/libraries/route53/lib/changeTagsForResource.ml +++ b/libraries/route53/lib/changeTagsForResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ChangeTagsForResourceRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/changeTagsForResource.mli b/libraries/route53/lib/changeTagsForResource.mli index f98d8cd19..f8fa8f60b 100644 --- a/libraries/route53/lib/changeTagsForResource.mli +++ b/libraries/route53/lib/changeTagsForResource.mli @@ -1,9 +1,7 @@ open Types type input = ChangeTagsForResourceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createHealthCheck.ml b/libraries/route53/lib/createHealthCheck.ml index 80758b1d0..2477aa725 100644 --- a/libraries/route53/lib/createHealthCheck.ml +++ b/libraries/route53/lib/createHealthCheck.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateHealthCheckRequest.t - type output = CreateHealthCheckResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createHealthCheck.mli b/libraries/route53/lib/createHealthCheck.mli index 6fbe79a9e..6676d1a5a 100644 --- a/libraries/route53/lib/createHealthCheck.mli +++ b/libraries/route53/lib/createHealthCheck.mli @@ -1,9 +1,7 @@ open Types type input = CreateHealthCheckRequest.t - type output = CreateHealthCheckResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createHostedZone.ml b/libraries/route53/lib/createHostedZone.ml index 1804cd86b..ed8edb4e2 100644 --- a/libraries/route53/lib/createHostedZone.ml +++ b/libraries/route53/lib/createHostedZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateHostedZoneRequest.t - type output = CreateHostedZoneResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createHostedZone.mli b/libraries/route53/lib/createHostedZone.mli index 9750e0db6..e9480d813 100644 --- a/libraries/route53/lib/createHostedZone.mli +++ b/libraries/route53/lib/createHostedZone.mli @@ -1,9 +1,7 @@ open Types type input = CreateHostedZoneRequest.t - type output = CreateHostedZoneResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createQueryLoggingConfig.ml b/libraries/route53/lib/createQueryLoggingConfig.ml index 37053f26a..47e8526d6 100644 --- a/libraries/route53/lib/createQueryLoggingConfig.ml +++ b/libraries/route53/lib/createQueryLoggingConfig.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateQueryLoggingConfigRequest.t - type output = CreateQueryLoggingConfigResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createQueryLoggingConfig.mli b/libraries/route53/lib/createQueryLoggingConfig.mli index 65810a62d..7b8f563a5 100644 --- a/libraries/route53/lib/createQueryLoggingConfig.mli +++ b/libraries/route53/lib/createQueryLoggingConfig.mli @@ -1,9 +1,7 @@ open Types type input = CreateQueryLoggingConfigRequest.t - type output = CreateQueryLoggingConfigResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createReusableDelegationSet.ml b/libraries/route53/lib/createReusableDelegationSet.ml index 5fe462bc7..8089d3910 100644 --- a/libraries/route53/lib/createReusableDelegationSet.ml +++ b/libraries/route53/lib/createReusableDelegationSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateReusableDelegationSetRequest.t - type output = CreateReusableDelegationSetResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createReusableDelegationSet.mli b/libraries/route53/lib/createReusableDelegationSet.mli index 23f7e07aa..f387a1fbb 100644 --- a/libraries/route53/lib/createReusableDelegationSet.mli +++ b/libraries/route53/lib/createReusableDelegationSet.mli @@ -1,9 +1,7 @@ open Types type input = CreateReusableDelegationSetRequest.t - type output = CreateReusableDelegationSetResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createTrafficPolicy.ml b/libraries/route53/lib/createTrafficPolicy.ml index f5daa9527..85243dff2 100644 --- a/libraries/route53/lib/createTrafficPolicy.ml +++ b/libraries/route53/lib/createTrafficPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficPolicyRequest.t - type output = CreateTrafficPolicyResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createTrafficPolicy.mli b/libraries/route53/lib/createTrafficPolicy.mli index a1ffec0e6..0afc2c8b8 100644 --- a/libraries/route53/lib/createTrafficPolicy.mli +++ b/libraries/route53/lib/createTrafficPolicy.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficPolicyRequest.t - type output = CreateTrafficPolicyResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createTrafficPolicyInstance.ml b/libraries/route53/lib/createTrafficPolicyInstance.ml index 0c6224571..1dabdb3df 100644 --- a/libraries/route53/lib/createTrafficPolicyInstance.ml +++ b/libraries/route53/lib/createTrafficPolicyInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficPolicyInstanceRequest.t - type output = CreateTrafficPolicyInstanceResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createTrafficPolicyInstance.mli b/libraries/route53/lib/createTrafficPolicyInstance.mli index 55d84c1a7..fdbe37b89 100644 --- a/libraries/route53/lib/createTrafficPolicyInstance.mli +++ b/libraries/route53/lib/createTrafficPolicyInstance.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficPolicyInstanceRequest.t - type output = CreateTrafficPolicyInstanceResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createTrafficPolicyVersion.ml b/libraries/route53/lib/createTrafficPolicyVersion.ml index dfbabe023..a72f851ce 100644 --- a/libraries/route53/lib/createTrafficPolicyVersion.ml +++ b/libraries/route53/lib/createTrafficPolicyVersion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateTrafficPolicyVersionRequest.t - type output = CreateTrafficPolicyVersionResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createTrafficPolicyVersion.mli b/libraries/route53/lib/createTrafficPolicyVersion.mli index 0f4b8ea85..338917c70 100644 --- a/libraries/route53/lib/createTrafficPolicyVersion.mli +++ b/libraries/route53/lib/createTrafficPolicyVersion.mli @@ -1,9 +1,7 @@ open Types type input = CreateTrafficPolicyVersionRequest.t - type output = CreateTrafficPolicyVersionResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/createVPCAssociationAuthorization.ml b/libraries/route53/lib/createVPCAssociationAuthorization.ml index 9a8177fc5..7335af9bb 100644 --- a/libraries/route53/lib/createVPCAssociationAuthorization.ml +++ b/libraries/route53/lib/createVPCAssociationAuthorization.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateVPCAssociationAuthorizationRequest.t - type output = CreateVPCAssociationAuthorizationResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/createVPCAssociationAuthorization.mli b/libraries/route53/lib/createVPCAssociationAuthorization.mli index dc64eee2d..8863b3036 100644 --- a/libraries/route53/lib/createVPCAssociationAuthorization.mli +++ b/libraries/route53/lib/createVPCAssociationAuthorization.mli @@ -1,9 +1,7 @@ open Types type input = CreateVPCAssociationAuthorizationRequest.t - type output = CreateVPCAssociationAuthorizationResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteHealthCheck.ml b/libraries/route53/lib/deleteHealthCheck.ml index 60e1c8829..829f94a77 100644 --- a/libraries/route53/lib/deleteHealthCheck.ml +++ b/libraries/route53/lib/deleteHealthCheck.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteHealthCheckRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteHealthCheck.mli b/libraries/route53/lib/deleteHealthCheck.mli index 1858647b6..58e5e46e1 100644 --- a/libraries/route53/lib/deleteHealthCheck.mli +++ b/libraries/route53/lib/deleteHealthCheck.mli @@ -1,9 +1,7 @@ open Types type input = DeleteHealthCheckRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteHostedZone.ml b/libraries/route53/lib/deleteHostedZone.ml index 213f898d9..1d5cfe6a3 100644 --- a/libraries/route53/lib/deleteHostedZone.ml +++ b/libraries/route53/lib/deleteHostedZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteHostedZoneRequest.t - type output = DeleteHostedZoneResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteHostedZone.mli b/libraries/route53/lib/deleteHostedZone.mli index d3fe0b9a6..8f39c12f8 100644 --- a/libraries/route53/lib/deleteHostedZone.mli +++ b/libraries/route53/lib/deleteHostedZone.mli @@ -1,9 +1,7 @@ open Types type input = DeleteHostedZoneRequest.t - type output = DeleteHostedZoneResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteQueryLoggingConfig.ml b/libraries/route53/lib/deleteQueryLoggingConfig.ml index 238150ca4..e0a6eeaca 100644 --- a/libraries/route53/lib/deleteQueryLoggingConfig.ml +++ b/libraries/route53/lib/deleteQueryLoggingConfig.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteQueryLoggingConfigRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteQueryLoggingConfig.mli b/libraries/route53/lib/deleteQueryLoggingConfig.mli index 68944ef43..2a38edbe2 100644 --- a/libraries/route53/lib/deleteQueryLoggingConfig.mli +++ b/libraries/route53/lib/deleteQueryLoggingConfig.mli @@ -1,9 +1,7 @@ open Types type input = DeleteQueryLoggingConfigRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteReusableDelegationSet.ml b/libraries/route53/lib/deleteReusableDelegationSet.ml index 225f68a64..f42ceb908 100644 --- a/libraries/route53/lib/deleteReusableDelegationSet.ml +++ b/libraries/route53/lib/deleteReusableDelegationSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteReusableDelegationSetRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteReusableDelegationSet.mli b/libraries/route53/lib/deleteReusableDelegationSet.mli index 1180ea519..72864fe4b 100644 --- a/libraries/route53/lib/deleteReusableDelegationSet.mli +++ b/libraries/route53/lib/deleteReusableDelegationSet.mli @@ -1,9 +1,7 @@ open Types type input = DeleteReusableDelegationSetRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteTrafficPolicy.ml b/libraries/route53/lib/deleteTrafficPolicy.ml index 23b366270..d62b0fb51 100644 --- a/libraries/route53/lib/deleteTrafficPolicy.ml +++ b/libraries/route53/lib/deleteTrafficPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrafficPolicyRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteTrafficPolicy.mli b/libraries/route53/lib/deleteTrafficPolicy.mli index e565a3968..e2fc1fe0a 100644 --- a/libraries/route53/lib/deleteTrafficPolicy.mli +++ b/libraries/route53/lib/deleteTrafficPolicy.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrafficPolicyRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteTrafficPolicyInstance.ml b/libraries/route53/lib/deleteTrafficPolicyInstance.ml index 3b9960af2..4e8451710 100644 --- a/libraries/route53/lib/deleteTrafficPolicyInstance.ml +++ b/libraries/route53/lib/deleteTrafficPolicyInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteTrafficPolicyInstanceRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteTrafficPolicyInstance.mli b/libraries/route53/lib/deleteTrafficPolicyInstance.mli index 445fc94a8..ecff778a7 100644 --- a/libraries/route53/lib/deleteTrafficPolicyInstance.mli +++ b/libraries/route53/lib/deleteTrafficPolicyInstance.mli @@ -1,9 +1,7 @@ open Types type input = DeleteTrafficPolicyInstanceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/deleteVPCAssociationAuthorization.ml b/libraries/route53/lib/deleteVPCAssociationAuthorization.ml index 5f6358270..9390978c9 100644 --- a/libraries/route53/lib/deleteVPCAssociationAuthorization.ml +++ b/libraries/route53/lib/deleteVPCAssociationAuthorization.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteVPCAssociationAuthorizationRequest.t - type output = unit - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/deleteVPCAssociationAuthorization.mli b/libraries/route53/lib/deleteVPCAssociationAuthorization.mli index 8b2778f1f..d530aa4f8 100644 --- a/libraries/route53/lib/deleteVPCAssociationAuthorization.mli +++ b/libraries/route53/lib/deleteVPCAssociationAuthorization.mli @@ -1,9 +1,7 @@ open Types type input = DeleteVPCAssociationAuthorizationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/route53/lib/disassociateVPCFromHostedZone.ml b/libraries/route53/lib/disassociateVPCFromHostedZone.ml index a44885979..e7d2b20c6 100644 --- a/libraries/route53/lib/disassociateVPCFromHostedZone.ml +++ b/libraries/route53/lib/disassociateVPCFromHostedZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DisassociateVPCFromHostedZoneRequest.t - type output = DisassociateVPCFromHostedZoneResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/disassociateVPCFromHostedZone.mli b/libraries/route53/lib/disassociateVPCFromHostedZone.mli index 4869bcc9d..451ab4ea2 100644 --- a/libraries/route53/lib/disassociateVPCFromHostedZone.mli +++ b/libraries/route53/lib/disassociateVPCFromHostedZone.mli @@ -1,9 +1,7 @@ open Types type input = DisassociateVPCFromHostedZoneRequest.t - type output = DisassociateVPCFromHostedZoneResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getAccountLimit.ml b/libraries/route53/lib/getAccountLimit.ml index 80fc24203..a7bcdb28e 100644 --- a/libraries/route53/lib/getAccountLimit.ml +++ b/libraries/route53/lib/getAccountLimit.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetAccountLimitRequest.t - type output = GetAccountLimitResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getAccountLimit.mli b/libraries/route53/lib/getAccountLimit.mli index fa928efee..bbe816d65 100644 --- a/libraries/route53/lib/getAccountLimit.mli +++ b/libraries/route53/lib/getAccountLimit.mli @@ -1,9 +1,7 @@ open Types type input = GetAccountLimitRequest.t - type output = GetAccountLimitResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getChange.ml b/libraries/route53/lib/getChange.ml index f3d022d2f..798e4f165 100644 --- a/libraries/route53/lib/getChange.ml +++ b/libraries/route53/lib/getChange.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetChangeRequest.t - type output = GetChangeResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getChange.mli b/libraries/route53/lib/getChange.mli index 287242580..2918044d9 100644 --- a/libraries/route53/lib/getChange.mli +++ b/libraries/route53/lib/getChange.mli @@ -1,9 +1,7 @@ open Types type input = GetChangeRequest.t - type output = GetChangeResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getCheckerIpRanges.ml b/libraries/route53/lib/getCheckerIpRanges.ml index f50128170..8d5c81bd3 100644 --- a/libraries/route53/lib/getCheckerIpRanges.ml +++ b/libraries/route53/lib/getCheckerIpRanges.ml @@ -2,13 +2,10 @@ open Types open Aws type input = unit - type output = GetCheckerIpRangesResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getCheckerIpRanges.mli b/libraries/route53/lib/getCheckerIpRanges.mli index 70548c00b..1cf640474 100644 --- a/libraries/route53/lib/getCheckerIpRanges.mli +++ b/libraries/route53/lib/getCheckerIpRanges.mli @@ -1,9 +1,7 @@ open Types type input = unit - type output = GetCheckerIpRangesResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getGeoLocation.ml b/libraries/route53/lib/getGeoLocation.ml index 020b69b53..0dbb8d6cc 100644 --- a/libraries/route53/lib/getGeoLocation.ml +++ b/libraries/route53/lib/getGeoLocation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetGeoLocationRequest.t - type output = GetGeoLocationResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getGeoLocation.mli b/libraries/route53/lib/getGeoLocation.mli index 047c92da6..9122d79b1 100644 --- a/libraries/route53/lib/getGeoLocation.mli +++ b/libraries/route53/lib/getGeoLocation.mli @@ -1,9 +1,7 @@ open Types type input = GetGeoLocationRequest.t - type output = GetGeoLocationResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHealthCheck.ml b/libraries/route53/lib/getHealthCheck.ml index b8b37d71a..7ac78f0c8 100644 --- a/libraries/route53/lib/getHealthCheck.ml +++ b/libraries/route53/lib/getHealthCheck.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetHealthCheckRequest.t - type output = GetHealthCheckResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHealthCheck.mli b/libraries/route53/lib/getHealthCheck.mli index 4b6036e03..673fb0d46 100644 --- a/libraries/route53/lib/getHealthCheck.mli +++ b/libraries/route53/lib/getHealthCheck.mli @@ -1,9 +1,7 @@ open Types type input = GetHealthCheckRequest.t - type output = GetHealthCheckResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHealthCheckCount.ml b/libraries/route53/lib/getHealthCheckCount.ml index ca7ae2a04..96c0866c0 100644 --- a/libraries/route53/lib/getHealthCheckCount.ml +++ b/libraries/route53/lib/getHealthCheckCount.ml @@ -2,13 +2,10 @@ open Types open Aws type input = unit - type output = GetHealthCheckCountResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHealthCheckCount.mli b/libraries/route53/lib/getHealthCheckCount.mli index e8c0ab004..bfd49ae8e 100644 --- a/libraries/route53/lib/getHealthCheckCount.mli +++ b/libraries/route53/lib/getHealthCheckCount.mli @@ -1,9 +1,7 @@ open Types type input = unit - type output = GetHealthCheckCountResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHealthCheckLastFailureReason.ml b/libraries/route53/lib/getHealthCheckLastFailureReason.ml index 71e0c0ac4..15f1d7d27 100644 --- a/libraries/route53/lib/getHealthCheckLastFailureReason.ml +++ b/libraries/route53/lib/getHealthCheckLastFailureReason.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetHealthCheckLastFailureReasonRequest.t - type output = GetHealthCheckLastFailureReasonResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHealthCheckLastFailureReason.mli b/libraries/route53/lib/getHealthCheckLastFailureReason.mli index 15562513f..4abda2aca 100644 --- a/libraries/route53/lib/getHealthCheckLastFailureReason.mli +++ b/libraries/route53/lib/getHealthCheckLastFailureReason.mli @@ -1,9 +1,7 @@ open Types type input = GetHealthCheckLastFailureReasonRequest.t - type output = GetHealthCheckLastFailureReasonResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHealthCheckStatus.ml b/libraries/route53/lib/getHealthCheckStatus.ml index d5c8c0a6e..d3b4224c3 100644 --- a/libraries/route53/lib/getHealthCheckStatus.ml +++ b/libraries/route53/lib/getHealthCheckStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetHealthCheckStatusRequest.t - type output = GetHealthCheckStatusResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHealthCheckStatus.mli b/libraries/route53/lib/getHealthCheckStatus.mli index 48b320d07..f4ff16ea1 100644 --- a/libraries/route53/lib/getHealthCheckStatus.mli +++ b/libraries/route53/lib/getHealthCheckStatus.mli @@ -1,9 +1,7 @@ open Types type input = GetHealthCheckStatusRequest.t - type output = GetHealthCheckStatusResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHostedZone.ml b/libraries/route53/lib/getHostedZone.ml index b6af50183..ff70cfef1 100644 --- a/libraries/route53/lib/getHostedZone.ml +++ b/libraries/route53/lib/getHostedZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetHostedZoneRequest.t - type output = GetHostedZoneResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHostedZone.mli b/libraries/route53/lib/getHostedZone.mli index c1682fd3e..8bbebb52e 100644 --- a/libraries/route53/lib/getHostedZone.mli +++ b/libraries/route53/lib/getHostedZone.mli @@ -1,9 +1,7 @@ open Types type input = GetHostedZoneRequest.t - type output = GetHostedZoneResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHostedZoneCount.ml b/libraries/route53/lib/getHostedZoneCount.ml index ec9cb3599..ea6c6280e 100644 --- a/libraries/route53/lib/getHostedZoneCount.ml +++ b/libraries/route53/lib/getHostedZoneCount.ml @@ -2,13 +2,10 @@ open Types open Aws type input = unit - type output = GetHostedZoneCountResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHostedZoneCount.mli b/libraries/route53/lib/getHostedZoneCount.mli index 8f7f78304..6286dfef0 100644 --- a/libraries/route53/lib/getHostedZoneCount.mli +++ b/libraries/route53/lib/getHostedZoneCount.mli @@ -1,9 +1,7 @@ open Types type input = unit - type output = GetHostedZoneCountResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getHostedZoneLimit.ml b/libraries/route53/lib/getHostedZoneLimit.ml index f09eb6ae3..ba37e67ce 100644 --- a/libraries/route53/lib/getHostedZoneLimit.ml +++ b/libraries/route53/lib/getHostedZoneLimit.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetHostedZoneLimitRequest.t - type output = GetHostedZoneLimitResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getHostedZoneLimit.mli b/libraries/route53/lib/getHostedZoneLimit.mli index 7057d4a58..fb5d42826 100644 --- a/libraries/route53/lib/getHostedZoneLimit.mli +++ b/libraries/route53/lib/getHostedZoneLimit.mli @@ -1,9 +1,7 @@ open Types type input = GetHostedZoneLimitRequest.t - type output = GetHostedZoneLimitResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getQueryLoggingConfig.ml b/libraries/route53/lib/getQueryLoggingConfig.ml index 1c7a50233..4d6d0c7d7 100644 --- a/libraries/route53/lib/getQueryLoggingConfig.ml +++ b/libraries/route53/lib/getQueryLoggingConfig.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetQueryLoggingConfigRequest.t - type output = GetQueryLoggingConfigResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getQueryLoggingConfig.mli b/libraries/route53/lib/getQueryLoggingConfig.mli index c16799f17..e64e00fc7 100644 --- a/libraries/route53/lib/getQueryLoggingConfig.mli +++ b/libraries/route53/lib/getQueryLoggingConfig.mli @@ -1,9 +1,7 @@ open Types type input = GetQueryLoggingConfigRequest.t - type output = GetQueryLoggingConfigResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getReusableDelegationSet.ml b/libraries/route53/lib/getReusableDelegationSet.ml index 65e815fa7..05a4b2fd2 100644 --- a/libraries/route53/lib/getReusableDelegationSet.ml +++ b/libraries/route53/lib/getReusableDelegationSet.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetReusableDelegationSetRequest.t - type output = GetReusableDelegationSetResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getReusableDelegationSet.mli b/libraries/route53/lib/getReusableDelegationSet.mli index 46ffb298d..b9fbeca07 100644 --- a/libraries/route53/lib/getReusableDelegationSet.mli +++ b/libraries/route53/lib/getReusableDelegationSet.mli @@ -1,9 +1,7 @@ open Types type input = GetReusableDelegationSetRequest.t - type output = GetReusableDelegationSetResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getReusableDelegationSetLimit.ml b/libraries/route53/lib/getReusableDelegationSetLimit.ml index 702fb8093..2e0762565 100644 --- a/libraries/route53/lib/getReusableDelegationSetLimit.ml +++ b/libraries/route53/lib/getReusableDelegationSetLimit.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetReusableDelegationSetLimitRequest.t - type output = GetReusableDelegationSetLimitResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getReusableDelegationSetLimit.mli b/libraries/route53/lib/getReusableDelegationSetLimit.mli index 27dda8715..6264bb991 100644 --- a/libraries/route53/lib/getReusableDelegationSetLimit.mli +++ b/libraries/route53/lib/getReusableDelegationSetLimit.mli @@ -1,9 +1,7 @@ open Types type input = GetReusableDelegationSetLimitRequest.t - type output = GetReusableDelegationSetLimitResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getTrafficPolicy.ml b/libraries/route53/lib/getTrafficPolicy.ml index f98ace820..5398dc7b1 100644 --- a/libraries/route53/lib/getTrafficPolicy.ml +++ b/libraries/route53/lib/getTrafficPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTrafficPolicyRequest.t - type output = GetTrafficPolicyResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getTrafficPolicy.mli b/libraries/route53/lib/getTrafficPolicy.mli index 101664ac0..9f93a549c 100644 --- a/libraries/route53/lib/getTrafficPolicy.mli +++ b/libraries/route53/lib/getTrafficPolicy.mli @@ -1,9 +1,7 @@ open Types type input = GetTrafficPolicyRequest.t - type output = GetTrafficPolicyResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getTrafficPolicyInstance.ml b/libraries/route53/lib/getTrafficPolicyInstance.ml index c82559b02..d3fdf3a77 100644 --- a/libraries/route53/lib/getTrafficPolicyInstance.ml +++ b/libraries/route53/lib/getTrafficPolicyInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetTrafficPolicyInstanceRequest.t - type output = GetTrafficPolicyInstanceResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getTrafficPolicyInstance.mli b/libraries/route53/lib/getTrafficPolicyInstance.mli index 96d7a2971..68c80b44e 100644 --- a/libraries/route53/lib/getTrafficPolicyInstance.mli +++ b/libraries/route53/lib/getTrafficPolicyInstance.mli @@ -1,9 +1,7 @@ open Types type input = GetTrafficPolicyInstanceRequest.t - type output = GetTrafficPolicyInstanceResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/getTrafficPolicyInstanceCount.ml b/libraries/route53/lib/getTrafficPolicyInstanceCount.ml index 9060a9a1f..561bd44f9 100644 --- a/libraries/route53/lib/getTrafficPolicyInstanceCount.ml +++ b/libraries/route53/lib/getTrafficPolicyInstanceCount.ml @@ -2,13 +2,10 @@ open Types open Aws type input = unit - type output = GetTrafficPolicyInstanceCountResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/getTrafficPolicyInstanceCount.mli b/libraries/route53/lib/getTrafficPolicyInstanceCount.mli index f90201f32..b7ad8df67 100644 --- a/libraries/route53/lib/getTrafficPolicyInstanceCount.mli +++ b/libraries/route53/lib/getTrafficPolicyInstanceCount.mli @@ -1,9 +1,7 @@ open Types type input = unit - type output = GetTrafficPolicyInstanceCountResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listGeoLocations.ml b/libraries/route53/lib/listGeoLocations.ml index e780e4abb..3c4355a3e 100644 --- a/libraries/route53/lib/listGeoLocations.ml +++ b/libraries/route53/lib/listGeoLocations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListGeoLocationsRequest.t - type output = ListGeoLocationsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listGeoLocations.mli b/libraries/route53/lib/listGeoLocations.mli index a52e25bb4..906518569 100644 --- a/libraries/route53/lib/listGeoLocations.mli +++ b/libraries/route53/lib/listGeoLocations.mli @@ -1,9 +1,7 @@ open Types type input = ListGeoLocationsRequest.t - type output = ListGeoLocationsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listHealthChecks.ml b/libraries/route53/lib/listHealthChecks.ml index 2ae51819a..e692fd0f6 100644 --- a/libraries/route53/lib/listHealthChecks.ml +++ b/libraries/route53/lib/listHealthChecks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListHealthChecksRequest.t - type output = ListHealthChecksResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listHealthChecks.mli b/libraries/route53/lib/listHealthChecks.mli index 3a2b6958a..9943d391a 100644 --- a/libraries/route53/lib/listHealthChecks.mli +++ b/libraries/route53/lib/listHealthChecks.mli @@ -1,9 +1,7 @@ open Types type input = ListHealthChecksRequest.t - type output = ListHealthChecksResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listHostedZones.ml b/libraries/route53/lib/listHostedZones.ml index 343cdf18f..76a40ea48 100644 --- a/libraries/route53/lib/listHostedZones.ml +++ b/libraries/route53/lib/listHostedZones.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListHostedZonesRequest.t - type output = ListHostedZonesResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listHostedZones.mli b/libraries/route53/lib/listHostedZones.mli index bba602614..922c49e05 100644 --- a/libraries/route53/lib/listHostedZones.mli +++ b/libraries/route53/lib/listHostedZones.mli @@ -1,9 +1,7 @@ open Types type input = ListHostedZonesRequest.t - type output = ListHostedZonesResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listHostedZonesByName.ml b/libraries/route53/lib/listHostedZonesByName.ml index cc48b01ea..1c6bc786e 100644 --- a/libraries/route53/lib/listHostedZonesByName.ml +++ b/libraries/route53/lib/listHostedZonesByName.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListHostedZonesByNameRequest.t - type output = ListHostedZonesByNameResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listHostedZonesByName.mli b/libraries/route53/lib/listHostedZonesByName.mli index c48b58219..c225baa42 100644 --- a/libraries/route53/lib/listHostedZonesByName.mli +++ b/libraries/route53/lib/listHostedZonesByName.mli @@ -1,9 +1,7 @@ open Types type input = ListHostedZonesByNameRequest.t - type output = ListHostedZonesByNameResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listHostedZonesByVPC.ml b/libraries/route53/lib/listHostedZonesByVPC.ml index 69e530a13..97d482b7e 100644 --- a/libraries/route53/lib/listHostedZonesByVPC.ml +++ b/libraries/route53/lib/listHostedZonesByVPC.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListHostedZonesByVPCRequest.t - type output = ListHostedZonesByVPCResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listHostedZonesByVPC.mli b/libraries/route53/lib/listHostedZonesByVPC.mli index 4267a74a2..0e2153d1a 100644 --- a/libraries/route53/lib/listHostedZonesByVPC.mli +++ b/libraries/route53/lib/listHostedZonesByVPC.mli @@ -1,9 +1,7 @@ open Types type input = ListHostedZonesByVPCRequest.t - type output = ListHostedZonesByVPCResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listQueryLoggingConfigs.ml b/libraries/route53/lib/listQueryLoggingConfigs.ml index 46effa340..3bd227085 100644 --- a/libraries/route53/lib/listQueryLoggingConfigs.ml +++ b/libraries/route53/lib/listQueryLoggingConfigs.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListQueryLoggingConfigsRequest.t - type output = ListQueryLoggingConfigsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listQueryLoggingConfigs.mli b/libraries/route53/lib/listQueryLoggingConfigs.mli index e312af229..5d1584538 100644 --- a/libraries/route53/lib/listQueryLoggingConfigs.mli +++ b/libraries/route53/lib/listQueryLoggingConfigs.mli @@ -1,9 +1,7 @@ open Types type input = ListQueryLoggingConfigsRequest.t - type output = ListQueryLoggingConfigsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listResourceRecordSets.ml b/libraries/route53/lib/listResourceRecordSets.ml index fc2a3b25d..995307b4f 100644 --- a/libraries/route53/lib/listResourceRecordSets.ml +++ b/libraries/route53/lib/listResourceRecordSets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListResourceRecordSetsRequest.t - type output = ListResourceRecordSetsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listResourceRecordSets.mli b/libraries/route53/lib/listResourceRecordSets.mli index c355241aa..10b898fd9 100644 --- a/libraries/route53/lib/listResourceRecordSets.mli +++ b/libraries/route53/lib/listResourceRecordSets.mli @@ -1,9 +1,7 @@ open Types type input = ListResourceRecordSetsRequest.t - type output = ListResourceRecordSetsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listReusableDelegationSets.ml b/libraries/route53/lib/listReusableDelegationSets.ml index b91723cf4..c97039457 100644 --- a/libraries/route53/lib/listReusableDelegationSets.ml +++ b/libraries/route53/lib/listReusableDelegationSets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListReusableDelegationSetsRequest.t - type output = ListReusableDelegationSetsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listReusableDelegationSets.mli b/libraries/route53/lib/listReusableDelegationSets.mli index 26c491c60..8b17b532a 100644 --- a/libraries/route53/lib/listReusableDelegationSets.mli +++ b/libraries/route53/lib/listReusableDelegationSets.mli @@ -1,9 +1,7 @@ open Types type input = ListReusableDelegationSetsRequest.t - type output = ListReusableDelegationSetsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTagsForResource.ml b/libraries/route53/lib/listTagsForResource.ml index fb8f34b70..61505a562 100644 --- a/libraries/route53/lib/listTagsForResource.ml +++ b/libraries/route53/lib/listTagsForResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsForResourceRequest.t - type output = ListTagsForResourceResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTagsForResource.mli b/libraries/route53/lib/listTagsForResource.mli index 80aaa0293..f416762cf 100644 --- a/libraries/route53/lib/listTagsForResource.mli +++ b/libraries/route53/lib/listTagsForResource.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsForResourceRequest.t - type output = ListTagsForResourceResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTagsForResources.ml b/libraries/route53/lib/listTagsForResources.ml index 25b943ce5..d771aa494 100644 --- a/libraries/route53/lib/listTagsForResources.ml +++ b/libraries/route53/lib/listTagsForResources.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsForResourcesRequest.t - type output = ListTagsForResourcesResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTagsForResources.mli b/libraries/route53/lib/listTagsForResources.mli index 1cbeedd88..42531b43b 100644 --- a/libraries/route53/lib/listTagsForResources.mli +++ b/libraries/route53/lib/listTagsForResources.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsForResourcesRequest.t - type output = ListTagsForResourcesResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTrafficPolicies.ml b/libraries/route53/lib/listTrafficPolicies.ml index 246c1146d..a6e01c680 100644 --- a/libraries/route53/lib/listTrafficPolicies.ml +++ b/libraries/route53/lib/listTrafficPolicies.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTrafficPoliciesRequest.t - type output = ListTrafficPoliciesResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTrafficPolicies.mli b/libraries/route53/lib/listTrafficPolicies.mli index 3f64c09c9..0cc0de6ed 100644 --- a/libraries/route53/lib/listTrafficPolicies.mli +++ b/libraries/route53/lib/listTrafficPolicies.mli @@ -1,9 +1,7 @@ open Types type input = ListTrafficPoliciesRequest.t - type output = ListTrafficPoliciesResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTrafficPolicyInstances.ml b/libraries/route53/lib/listTrafficPolicyInstances.ml index 384a2075a..c47ed7ecf 100644 --- a/libraries/route53/lib/listTrafficPolicyInstances.ml +++ b/libraries/route53/lib/listTrafficPolicyInstances.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTrafficPolicyInstancesRequest.t - type output = ListTrafficPolicyInstancesResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTrafficPolicyInstances.mli b/libraries/route53/lib/listTrafficPolicyInstances.mli index 1b626c1b3..ef94d48d3 100644 --- a/libraries/route53/lib/listTrafficPolicyInstances.mli +++ b/libraries/route53/lib/listTrafficPolicyInstances.mli @@ -1,9 +1,7 @@ open Types type input = ListTrafficPolicyInstancesRequest.t - type output = ListTrafficPolicyInstancesResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.ml b/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.ml index bd8294be1..2461e2763 100644 --- a/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.ml +++ b/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTrafficPolicyInstancesByHostedZoneRequest.t - type output = ListTrafficPolicyInstancesByHostedZoneResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.mli b/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.mli index 74832dec3..b9a11a598 100644 --- a/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.mli +++ b/libraries/route53/lib/listTrafficPolicyInstancesByHostedZone.mli @@ -1,9 +1,7 @@ open Types type input = ListTrafficPolicyInstancesByHostedZoneRequest.t - type output = ListTrafficPolicyInstancesByHostedZoneResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.ml b/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.ml index 33bf84e9c..64bdce139 100644 --- a/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.ml +++ b/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTrafficPolicyInstancesByPolicyRequest.t - type output = ListTrafficPolicyInstancesByPolicyResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.mli b/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.mli index c0df9a7ea..395cb1c42 100644 --- a/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.mli +++ b/libraries/route53/lib/listTrafficPolicyInstancesByPolicy.mli @@ -1,9 +1,7 @@ open Types type input = ListTrafficPolicyInstancesByPolicyRequest.t - type output = ListTrafficPolicyInstancesByPolicyResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listTrafficPolicyVersions.ml b/libraries/route53/lib/listTrafficPolicyVersions.ml index 22827e108..a8c52f1d2 100644 --- a/libraries/route53/lib/listTrafficPolicyVersions.ml +++ b/libraries/route53/lib/listTrafficPolicyVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTrafficPolicyVersionsRequest.t - type output = ListTrafficPolicyVersionsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listTrafficPolicyVersions.mli b/libraries/route53/lib/listTrafficPolicyVersions.mli index bd00b6f8e..5b0bb69fd 100644 --- a/libraries/route53/lib/listTrafficPolicyVersions.mli +++ b/libraries/route53/lib/listTrafficPolicyVersions.mli @@ -1,9 +1,7 @@ open Types type input = ListTrafficPolicyVersionsRequest.t - type output = ListTrafficPolicyVersionsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/listVPCAssociationAuthorizations.ml b/libraries/route53/lib/listVPCAssociationAuthorizations.ml index d8cf5c2d5..9a477114e 100644 --- a/libraries/route53/lib/listVPCAssociationAuthorizations.ml +++ b/libraries/route53/lib/listVPCAssociationAuthorizations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListVPCAssociationAuthorizationsRequest.t - type output = ListVPCAssociationAuthorizationsResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/listVPCAssociationAuthorizations.mli b/libraries/route53/lib/listVPCAssociationAuthorizations.mli index f25d935d5..5a8427df4 100644 --- a/libraries/route53/lib/listVPCAssociationAuthorizations.mli +++ b/libraries/route53/lib/listVPCAssociationAuthorizations.mli @@ -1,9 +1,7 @@ open Types type input = ListVPCAssociationAuthorizationsRequest.t - type output = ListVPCAssociationAuthorizationsResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/testDNSAnswer.ml b/libraries/route53/lib/testDNSAnswer.ml index 51147d86a..0c0bc66bb 100644 --- a/libraries/route53/lib/testDNSAnswer.ml +++ b/libraries/route53/lib/testDNSAnswer.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TestDNSAnswerRequest.t - type output = TestDNSAnswerResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/testDNSAnswer.mli b/libraries/route53/lib/testDNSAnswer.mli index 3d53fa109..4db1307d3 100644 --- a/libraries/route53/lib/testDNSAnswer.mli +++ b/libraries/route53/lib/testDNSAnswer.mli @@ -1,9 +1,7 @@ open Types type input = TestDNSAnswerRequest.t - type output = TestDNSAnswerResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/types.ml b/libraries/route53/lib/types.ml index 224a55b9d..dc6f3fb43 100644 --- a/libraries/route53/lib/types.ml +++ b/libraries/route53/lib/types.ml @@ -11,9 +11,7 @@ module RecordData = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "RecordDataEntry" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -63,9 +61,7 @@ module RRType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -75,7 +71,6 @@ module RRType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -385,9 +380,7 @@ module VPCRegion = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -397,7 +390,6 @@ module VPCRegion = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -608,9 +600,7 @@ module QueryLoggingConfigs = struct (List.map QueryLoggingConfig.parse (Aws.Xml.members "QueryLoggingConfig" xml)) let to_query v = Aws.Query.to_query_list QueryLoggingConfig.to_query v - let to_json v = `List (List.map QueryLoggingConfig.to_json v) - let of_json j = Aws.Json.to_list QueryLoggingConfig.of_json j end @@ -796,9 +786,7 @@ module TrafficPolicyInstances = struct (List.map TrafficPolicyInstance.parse (Aws.Xml.members "TrafficPolicyInstance" xml)) let to_query v = Aws.Query.to_query_list TrafficPolicyInstance.to_query v - let to_json v = `List (List.map TrafficPolicyInstance.to_json v) - let of_json j = Aws.Json.to_list TrafficPolicyInstance.of_json j end @@ -944,9 +932,7 @@ module ResourceRecords = struct (List.map ResourceRecord.parse (Aws.Xml.members "ResourceRecord" xml)) let to_query v = Aws.Query.to_query_list ResourceRecord.to_query v - let to_json v = `List (List.map ResourceRecord.to_json v) - let of_json j = Aws.Json.to_list ResourceRecord.of_json j end @@ -1029,9 +1015,7 @@ module ResourceRecordSetRegion = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1041,7 +1025,6 @@ module ResourceRecordSetRegion = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1051,13 +1034,9 @@ module ResourceRecordSetFailover = struct | SECONDARY let str_to_t = [ "SECONDARY", SECONDARY; "PRIMARY", PRIMARY ] - let t_to_str = [ SECONDARY, "SECONDARY"; PRIMARY, "PRIMARY" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1067,7 +1046,6 @@ module ResourceRecordSetFailover = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1356,9 +1334,7 @@ module ResourceRecordSets = struct (List.map ResourceRecordSet.parse (Aws.Xml.members "ResourceRecordSet" xml)) let to_query v = Aws.Query.to_query_list ResourceRecordSet.to_query v - let to_json v = `List (List.map ResourceRecordSet.to_json v) - let of_json j = Aws.Json.to_list ResourceRecordSet.of_json j end @@ -1395,9 +1371,7 @@ module DelegationSetNameServers = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "NameServer" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1463,9 +1437,7 @@ module DelegationSets = struct (List.map DelegationSet.parse (Aws.Xml.members "DelegationSet" xml)) let to_query v = Aws.Query.to_query_list DelegationSet.to_query v - let to_json v = `List (List.map DelegationSet.to_json v) - let of_json j = Aws.Json.to_list DelegationSet.of_json j end @@ -1588,13 +1560,9 @@ module VPCs = struct type t = VPC.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map VPC.parse (Aws.Xml.members "VPC" xml)) - let to_query v = Aws.Query.to_query_list VPC.to_query v - let to_json v = `List (List.map VPC.to_json v) - let of_json j = Aws.Json.to_list VPC.of_json j end @@ -1813,13 +1781,9 @@ module ChangeAction = struct | UPSERT let str_to_t = [ "UPSERT", UPSERT; "DELETE", DELETE; "CREATE", CREATE ] - let t_to_str = [ UPSERT, "UPSERT"; DELETE, "DELETE"; CREATE, "CREATE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1829,7 +1793,6 @@ module ChangeAction = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1888,9 +1851,7 @@ module Changes = struct Aws.Util.option_all (List.map Change.parse (Aws.Xml.members "Change" xml)) let to_query v = Aws.Query.to_query_list Change.to_query v - let to_json v = `List (List.map Change.to_json v) - let of_json j = Aws.Json.to_list Change.of_json j end @@ -2100,9 +2061,7 @@ module TrafficPolicySummaries = struct (List.map TrafficPolicySummary.parse (Aws.Xml.members "TrafficPolicySummary" xml)) let to_query v = Aws.Query.to_query_list TrafficPolicySummary.to_query v - let to_json v = `List (List.map TrafficPolicySummary.to_json v) - let of_json j = Aws.Json.to_list TrafficPolicySummary.of_json j end @@ -2345,9 +2304,7 @@ module ResettableElementName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2357,7 +2314,6 @@ module ResettableElementName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2371,9 +2327,7 @@ module ReusableDelegationSetLimitType = struct [ MAX_ZONES_BY_REUSABLE_DELEGATION_SET, "MAX_ZONES_BY_REUSABLE_DELEGATION_SET" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2383,7 +2337,6 @@ module ReusableDelegationSetLimitType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2574,9 +2527,7 @@ module InsufficientDataHealthStatus = struct [ LastKnownStatus, "LastKnownStatus"; Unhealthy, "Unhealthy"; Healthy, "Healthy" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2586,7 +2537,6 @@ module InsufficientDataHealthStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2621,9 +2571,7 @@ module HealthCheckType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2633,7 +2581,6 @@ module HealthCheckType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2671,9 +2618,7 @@ module HealthCheckRegion = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2683,7 +2628,6 @@ module HealthCheckRegion = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2696,9 +2640,7 @@ module HealthCheckRegionList = struct Aws.Util.option_all (List.map HealthCheckRegion.parse (Aws.Xml.members "Region" xml)) let to_query v = Aws.Query.to_query_list HealthCheckRegion.to_query v - let to_json v = `List (List.map HealthCheckRegion.to_json v) - let of_json j = Aws.Json.to_list HealthCheckRegion.of_json j end @@ -2711,9 +2653,7 @@ module ChildHealthCheckList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ChildHealthCheck" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2808,9 +2748,7 @@ module CloudWatchRegion = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2820,7 +2758,6 @@ module CloudWatchRegion = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3233,9 +3170,7 @@ module Statistic = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3245,7 +3180,6 @@ module Statistic = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3296,9 +3230,7 @@ module DimensionList = struct Aws.Util.option_all (List.map Dimension.parse (Aws.Xml.members "Dimension" xml)) let to_query v = Aws.Query.to_query_list Dimension.to_query v - let to_json v = `List (List.map Dimension.to_json v) - let of_json j = Aws.Json.to_list Dimension.of_json j end @@ -3324,9 +3256,7 @@ module ComparisonOperator = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3336,7 +3266,6 @@ module ComparisonOperator = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3604,9 +3533,7 @@ module HostedZoneLimitType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3616,7 +3543,6 @@ module HostedZoneLimitType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3624,13 +3550,9 @@ module DeleteHealthCheckResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3968,13 +3890,9 @@ module DeleteTrafficPolicyResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -3984,13 +3902,9 @@ module ChangeStatus = struct | INSYNC let str_to_t = [ "INSYNC", INSYNC; "PENDING", PENDING ] - let t_to_str = [ INSYNC, "INSYNC"; PENDING, "PENDING" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4000,7 +3914,6 @@ module ChangeStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4303,13 +4216,9 @@ module GetHealthCheckCountRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -4317,13 +4226,9 @@ module DeleteVPCAssociationAuthorizationResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -4628,9 +4533,7 @@ module AccountLimitType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4640,7 +4543,6 @@ module AccountLimitType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4901,13 +4803,9 @@ module GetTrafficPolicyInstanceCountRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -5020,9 +4918,7 @@ module HostedZoneSummaries = struct (List.map HostedZoneSummary.parse (Aws.Xml.members "HostedZoneSummary" xml)) let to_query v = Aws.Query.to_query_list HostedZoneSummary.to_query v - let to_json v = `List (List.map HostedZoneSummary.to_json v) - let of_json j = Aws.Json.to_list HostedZoneSummary.of_json j end @@ -5065,13 +4961,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "Tag" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -5084,9 +4976,7 @@ module HostedZones = struct Aws.Util.option_all (List.map HostedZone.parse (Aws.Xml.members "HostedZone" xml)) let to_query v = Aws.Query.to_query_list HostedZone.to_query v - let to_json v = `List (List.map HostedZone.to_json v) - let of_json j = Aws.Json.to_list HostedZone.of_json j end @@ -5142,13 +5032,9 @@ module TagResourceType = struct | Hostedzone let str_to_t = [ "hostedzone", Hostedzone; "healthcheck", Healthcheck ] - let t_to_str = [ Hostedzone, "hostedzone"; Healthcheck, "healthcheck" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5158,7 +5044,6 @@ module TagResourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5220,9 +5105,7 @@ module ResourceTagSetList = struct (List.map ResourceTagSet.parse (Aws.Xml.members "ResourceTagSet" xml)) let to_query v = Aws.Query.to_query_list ResourceTagSet.to_query v - let to_json v = `List (List.map ResourceTagSet.to_json v) - let of_json j = Aws.Json.to_list ResourceTagSet.of_json j end @@ -5526,13 +5409,9 @@ module TagKeyList = struct type t = String.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map String.parse (Aws.Xml.members "Key" xml)) - let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5869,9 +5748,7 @@ module HealthChecks = struct Aws.Util.option_all (List.map HealthCheck.parse (Aws.Xml.members "HealthCheck" xml)) let to_query v = Aws.Query.to_query_list HealthCheck.to_query v - let to_json v = `List (List.map HealthCheck.to_json v) - let of_json j = Aws.Json.to_list HealthCheck.of_json j end @@ -6184,9 +6061,7 @@ module GeoLocationDetailsList = struct (List.map GeoLocationDetails.parse (Aws.Xml.members "GeoLocationDetails" xml)) let to_query v = Aws.Query.to_query_list GeoLocationDetails.to_query v - let to_json v = `List (List.map GeoLocationDetails.to_json v) - let of_json j = Aws.Json.to_list GeoLocationDetails.of_json j end @@ -6425,9 +6300,7 @@ module ErrorMessages = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "Message" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -6592,9 +6465,7 @@ module TagResourceIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ResourceId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7051,9 +6922,7 @@ module ResettableElementNameList = struct (List.map ResettableElementName.parse (Aws.Xml.members "ResettableElementName" xml)) let to_query v = Aws.Query.to_query_list ResettableElementName.to_query v - let to_json v = `List (List.map ResettableElementName.to_json v) - let of_json j = Aws.Json.to_list ResettableElementName.of_json j end @@ -7306,13 +7175,9 @@ module GetHostedZoneCountRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7597,13 +7462,9 @@ module ChangeTagsForResourceResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -7843,9 +7704,7 @@ module HealthCheckObservations = struct (Aws.Xml.members "HealthCheckObservation" xml)) let to_query v = Aws.Query.to_query_list HealthCheckObservation.to_query v - let to_json v = `List (List.map HealthCheckObservation.to_json v) - let of_json j = Aws.Json.to_list HealthCheckObservation.of_json j end @@ -7858,9 +7717,7 @@ module CheckerIpRanges = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8150,13 +8007,9 @@ module GetCheckerIpRangesRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8925,13 +8778,9 @@ module DeleteTrafficPolicyInstanceResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9287,9 +9136,7 @@ module TrafficPolicies = struct (List.map TrafficPolicy.parse (Aws.Xml.members "TrafficPolicy" xml)) let to_query v = Aws.Query.to_query_list TrafficPolicy.to_query v - let to_json v = `List (List.map TrafficPolicy.to_json v) - let of_json j = Aws.Json.to_list TrafficPolicy.of_json j end @@ -9472,13 +9319,9 @@ module DeleteQueryLoggingConfigResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9510,13 +9353,9 @@ module DeleteReusableDelegationSetResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/route53/lib/updateHealthCheck.ml b/libraries/route53/lib/updateHealthCheck.ml index 461a4a5ee..9e096b5ec 100644 --- a/libraries/route53/lib/updateHealthCheck.ml +++ b/libraries/route53/lib/updateHealthCheck.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateHealthCheckRequest.t - type output = UpdateHealthCheckResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/updateHealthCheck.mli b/libraries/route53/lib/updateHealthCheck.mli index cd2bcafc7..71d11043d 100644 --- a/libraries/route53/lib/updateHealthCheck.mli +++ b/libraries/route53/lib/updateHealthCheck.mli @@ -1,9 +1,7 @@ open Types type input = UpdateHealthCheckRequest.t - type output = UpdateHealthCheckResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/updateHostedZoneComment.ml b/libraries/route53/lib/updateHostedZoneComment.ml index 9f3b133af..16a286568 100644 --- a/libraries/route53/lib/updateHostedZoneComment.ml +++ b/libraries/route53/lib/updateHostedZoneComment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateHostedZoneCommentRequest.t - type output = UpdateHostedZoneCommentResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/updateHostedZoneComment.mli b/libraries/route53/lib/updateHostedZoneComment.mli index 92c56b936..619623fd5 100644 --- a/libraries/route53/lib/updateHostedZoneComment.mli +++ b/libraries/route53/lib/updateHostedZoneComment.mli @@ -1,9 +1,7 @@ open Types type input = UpdateHostedZoneCommentRequest.t - type output = UpdateHostedZoneCommentResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/updateTrafficPolicyComment.ml b/libraries/route53/lib/updateTrafficPolicyComment.ml index a6cc6eeee..1cbb09657 100644 --- a/libraries/route53/lib/updateTrafficPolicyComment.ml +++ b/libraries/route53/lib/updateTrafficPolicyComment.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateTrafficPolicyCommentRequest.t - type output = UpdateTrafficPolicyCommentResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/updateTrafficPolicyComment.mli b/libraries/route53/lib/updateTrafficPolicyComment.mli index 999c61d09..57a177453 100644 --- a/libraries/route53/lib/updateTrafficPolicyComment.mli +++ b/libraries/route53/lib/updateTrafficPolicyComment.mli @@ -1,9 +1,7 @@ open Types type input = UpdateTrafficPolicyCommentRequest.t - type output = UpdateTrafficPolicyCommentResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib/updateTrafficPolicyInstance.ml b/libraries/route53/lib/updateTrafficPolicyInstance.ml index 25c31a968..36df73703 100644 --- a/libraries/route53/lib/updateTrafficPolicyInstance.ml +++ b/libraries/route53/lib/updateTrafficPolicyInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateTrafficPolicyInstanceRequest.t - type output = UpdateTrafficPolicyInstanceResponse.t - type error = Errors_internal.t let service = "route53" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/route53/lib/updateTrafficPolicyInstance.mli b/libraries/route53/lib/updateTrafficPolicyInstance.mli index 3203fe6ff..372704a3c 100644 --- a/libraries/route53/lib/updateTrafficPolicyInstance.mli +++ b/libraries/route53/lib/updateTrafficPolicyInstance.mli @@ -1,9 +1,7 @@ open Types type input = UpdateTrafficPolicyInstanceRequest.t - type output = UpdateTrafficPolicyInstanceResponse.t - type error = Errors_internal.t include diff --git a/libraries/route53/lib_test/aws_route53_test.ml b/libraries/route53/lib_test/aws_route53_test.ml index 8171906a9..00e02c515 100644 --- a/libraries/route53/lib_test/aws_route53_test.ml +++ b/libraries/route53/lib_test/aws_route53_test.ml @@ -33,7 +33,6 @@ functor -> struct let noop_test config _ = "Noop test succeeds" @? true - let suite config = "Test Route53" >::: [ "Route53 noop" >:: noop_test config ] let () = diff --git a/libraries/route53/lib_test/test_async.ml b/libraries/route53/lib_test/test_async.ml index bd76e901f..0a6f7649d 100644 --- a/libraries/route53/lib_test/test_async.ml +++ b/libraries/route53/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/route53/lib_test/test_lwt.ml b/libraries/route53/lib_test/test_lwt.ml index cd12c67ad..bd7891b8b 100644 --- a/libraries/route53/lib_test/test_lwt.ml +++ b/libraries/route53/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/sdb/lib/batchDeleteAttributes.ml b/libraries/sdb/lib/batchDeleteAttributes.ml index 970fb1680..8784265fe 100644 --- a/libraries/sdb/lib/batchDeleteAttributes.ml +++ b/libraries/sdb/lib/batchDeleteAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = BatchDeleteAttributesRequest.t - type output = unit - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/batchDeleteAttributes.mli b/libraries/sdb/lib/batchDeleteAttributes.mli index ff2d62cbb..c5eb04592 100644 --- a/libraries/sdb/lib/batchDeleteAttributes.mli +++ b/libraries/sdb/lib/batchDeleteAttributes.mli @@ -1,9 +1,7 @@ open Types type input = BatchDeleteAttributesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/batchPutAttributes.ml b/libraries/sdb/lib/batchPutAttributes.ml index 7e3f77e0b..af1caacf0 100644 --- a/libraries/sdb/lib/batchPutAttributes.ml +++ b/libraries/sdb/lib/batchPutAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = BatchPutAttributesRequest.t - type output = unit - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/batchPutAttributes.mli b/libraries/sdb/lib/batchPutAttributes.mli index fdf898b45..5e4186acc 100644 --- a/libraries/sdb/lib/batchPutAttributes.mli +++ b/libraries/sdb/lib/batchPutAttributes.mli @@ -1,9 +1,7 @@ open Types type input = BatchPutAttributesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/createDomain.ml b/libraries/sdb/lib/createDomain.ml index 2a32e1c74..66e384ec1 100644 --- a/libraries/sdb/lib/createDomain.ml +++ b/libraries/sdb/lib/createDomain.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDomainRequest.t - type output = unit - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/createDomain.mli b/libraries/sdb/lib/createDomain.mli index 837e51e5c..2e9dc6f32 100644 --- a/libraries/sdb/lib/createDomain.mli +++ b/libraries/sdb/lib/createDomain.mli @@ -1,9 +1,7 @@ open Types type input = CreateDomainRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/deleteAttributes.ml b/libraries/sdb/lib/deleteAttributes.ml index efe7de69d..ea108e9e0 100644 --- a/libraries/sdb/lib/deleteAttributes.ml +++ b/libraries/sdb/lib/deleteAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAttributesRequest.t - type output = unit - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/deleteAttributes.mli b/libraries/sdb/lib/deleteAttributes.mli index 653a26f47..2bbcfcceb 100644 --- a/libraries/sdb/lib/deleteAttributes.mli +++ b/libraries/sdb/lib/deleteAttributes.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAttributesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/deleteDomain.ml b/libraries/sdb/lib/deleteDomain.ml index e3b7e2049..0bd7566ca 100644 --- a/libraries/sdb/lib/deleteDomain.ml +++ b/libraries/sdb/lib/deleteDomain.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDomainRequest.t - type output = unit - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/deleteDomain.mli b/libraries/sdb/lib/deleteDomain.mli index 14482e061..307a126b4 100644 --- a/libraries/sdb/lib/deleteDomain.mli +++ b/libraries/sdb/lib/deleteDomain.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDomainRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/domainMetadata.ml b/libraries/sdb/lib/domainMetadata.ml index ffe423d32..c8efa9c1d 100644 --- a/libraries/sdb/lib/domainMetadata.ml +++ b/libraries/sdb/lib/domainMetadata.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DomainMetadataRequest.t - type output = DomainMetadataResult.t - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/domainMetadata.mli b/libraries/sdb/lib/domainMetadata.mli index b3a83a0d9..4b63c5de9 100644 --- a/libraries/sdb/lib/domainMetadata.mli +++ b/libraries/sdb/lib/domainMetadata.mli @@ -1,9 +1,7 @@ open Types type input = DomainMetadataRequest.t - type output = DomainMetadataResult.t - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/getAttributes.ml b/libraries/sdb/lib/getAttributes.ml index f309b8d0c..875ab7ded 100644 --- a/libraries/sdb/lib/getAttributes.ml +++ b/libraries/sdb/lib/getAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetAttributesRequest.t - type output = GetAttributesResult.t - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/getAttributes.mli b/libraries/sdb/lib/getAttributes.mli index 4c87400d8..efbdf4837 100644 --- a/libraries/sdb/lib/getAttributes.mli +++ b/libraries/sdb/lib/getAttributes.mli @@ -1,9 +1,7 @@ open Types type input = GetAttributesRequest.t - type output = GetAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/listDomains.ml b/libraries/sdb/lib/listDomains.ml index 198465cc3..c3ef2fd1e 100644 --- a/libraries/sdb/lib/listDomains.ml +++ b/libraries/sdb/lib/listDomains.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListDomainsRequest.t - type output = ListDomainsResult.t - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/listDomains.mli b/libraries/sdb/lib/listDomains.mli index 9b0022108..75b02d5ad 100644 --- a/libraries/sdb/lib/listDomains.mli +++ b/libraries/sdb/lib/listDomains.mli @@ -1,9 +1,7 @@ open Types type input = ListDomainsRequest.t - type output = ListDomainsResult.t - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/putAttributes.ml b/libraries/sdb/lib/putAttributes.ml index 56b70f01c..c7986d4d3 100644 --- a/libraries/sdb/lib/putAttributes.ml +++ b/libraries/sdb/lib/putAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutAttributesRequest.t - type output = unit - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/putAttributes.mli b/libraries/sdb/lib/putAttributes.mli index 47b462dfc..f66e7ce10 100644 --- a/libraries/sdb/lib/putAttributes.mli +++ b/libraries/sdb/lib/putAttributes.mli @@ -1,9 +1,7 @@ open Types type input = PutAttributesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/select.ml b/libraries/sdb/lib/select.ml index 96f259e91..bef98578a 100644 --- a/libraries/sdb/lib/select.ml +++ b/libraries/sdb/lib/select.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SelectRequest.t - type output = SelectResult.t - type error = Errors_internal.t let service = "sdb" - let signature_version = Request.V2 let to_http service region req = diff --git a/libraries/sdb/lib/select.mli b/libraries/sdb/lib/select.mli index 9b764596a..d78d218ed 100644 --- a/libraries/sdb/lib/select.mli +++ b/libraries/sdb/lib/select.mli @@ -1,9 +1,7 @@ open Types type input = SelectRequest.t - type output = SelectResult.t - type error = Errors_internal.t include diff --git a/libraries/sdb/lib/types.ml b/libraries/sdb/lib/types.ml index 4ea2b9f1b..dda75c49c 100644 --- a/libraries/sdb/lib/types.ml +++ b/libraries/sdb/lib/types.ml @@ -205,9 +205,7 @@ module DomainNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "DomainName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -279,9 +277,7 @@ module AttributeList = struct Aws.Util.option_all (List.map Attribute.parse (Aws.Xml.members "Attribute" xml)) let to_query v = Aws.Query.to_query_list Attribute.to_query v - let to_json v = `List (List.map Attribute.to_json v) - let of_json j = Aws.Json.to_list Attribute.of_json j end @@ -491,9 +487,7 @@ module DeletableItemList = struct Aws.Util.option_all (List.map DeletableItem.parse (Aws.Xml.members "Item" xml)) let to_query v = Aws.Query.to_query_list DeletableItem.to_query v - let to_json v = `List (List.map DeletableItem.to_json v) - let of_json j = Aws.Json.to_list DeletableItem.of_json j end @@ -507,9 +501,7 @@ module ReplaceableAttributeList = struct (List.map ReplaceableAttribute.parse (Aws.Xml.members "Attribute" xml)) let to_query v = Aws.Query.to_query_list ReplaceableAttribute.to_query v - let to_json v = `List (List.map ReplaceableAttribute.to_json v) - let of_json j = Aws.Json.to_list ReplaceableAttribute.of_json j end @@ -819,13 +811,9 @@ module ItemList = struct type t = Item.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Item.parse (Aws.Xml.members "Item" xml)) - let to_query v = Aws.Query.to_query_list Item.to_query v - let to_json v = `List (List.map Item.to_json v) - let of_json j = Aws.Json.to_list Item.of_json j end @@ -988,9 +976,7 @@ module AttributeNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AttributeName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1195,7 +1181,6 @@ module GetAttributesResult = struct type t = { attributes : AttributeList.t } let make ?(attributes = []) () = { attributes } - let parse xml = Some { attributes = Aws.Util.of_option [] (AttributeList.parse xml) } let to_query v = @@ -1285,9 +1270,7 @@ module ReplaceableItemList = struct Aws.Util.option_all (List.map ReplaceableItem.parse (Aws.Xml.members "Item" xml)) let to_query v = Aws.Query.to_query_list ReplaceableItem.to_query v - let to_json v = `List (List.map ReplaceableItem.to_json v) - let of_json j = Aws.Json.to_list ReplaceableItem.of_json j end diff --git a/libraries/sdb/lib_test/test_async.ml b/libraries/sdb/lib_test/test_async.ml index f8e3b4566..9882e24f9 100644 --- a/libraries/sdb/lib_test/test_async.ml +++ b/libraries/sdb/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/sdb/lib_test/test_lwt.ml b/libraries/sdb/lib_test/test_lwt.ml index 499207286..3a949ef8e 100644 --- a/libraries/sdb/lib_test/test_lwt.ml +++ b/libraries/sdb/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/sqs/lib/addPermission.ml b/libraries/sqs/lib/addPermission.ml index 0c1098330..c8ca4e70f 100644 --- a/libraries/sqs/lib/addPermission.ml +++ b/libraries/sqs/lib/addPermission.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddPermissionRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/addPermission.mli b/libraries/sqs/lib/addPermission.mli index 1df5cbd1a..133892e15 100644 --- a/libraries/sqs/lib/addPermission.mli +++ b/libraries/sqs/lib/addPermission.mli @@ -1,9 +1,7 @@ open Types type input = AddPermissionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/changeMessageVisibility.ml b/libraries/sqs/lib/changeMessageVisibility.ml index d596cac17..9849d03a6 100644 --- a/libraries/sqs/lib/changeMessageVisibility.ml +++ b/libraries/sqs/lib/changeMessageVisibility.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ChangeMessageVisibilityRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/changeMessageVisibility.mli b/libraries/sqs/lib/changeMessageVisibility.mli index 24f1e2ea6..043ba8d22 100644 --- a/libraries/sqs/lib/changeMessageVisibility.mli +++ b/libraries/sqs/lib/changeMessageVisibility.mli @@ -1,9 +1,7 @@ open Types type input = ChangeMessageVisibilityRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/changeMessageVisibilityBatch.ml b/libraries/sqs/lib/changeMessageVisibilityBatch.ml index dea8f288c..a262f3a08 100644 --- a/libraries/sqs/lib/changeMessageVisibilityBatch.ml +++ b/libraries/sqs/lib/changeMessageVisibilityBatch.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ChangeMessageVisibilityBatchRequest.t - type output = ChangeMessageVisibilityBatchResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/changeMessageVisibilityBatch.mli b/libraries/sqs/lib/changeMessageVisibilityBatch.mli index 7fc98ede8..2acb9738c 100644 --- a/libraries/sqs/lib/changeMessageVisibilityBatch.mli +++ b/libraries/sqs/lib/changeMessageVisibilityBatch.mli @@ -1,9 +1,7 @@ open Types type input = ChangeMessageVisibilityBatchRequest.t - type output = ChangeMessageVisibilityBatchResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/createQueue.ml b/libraries/sqs/lib/createQueue.ml index cd5df8e10..3f5b7432f 100644 --- a/libraries/sqs/lib/createQueue.ml +++ b/libraries/sqs/lib/createQueue.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateQueueRequest.t - type output = CreateQueueResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/createQueue.mli b/libraries/sqs/lib/createQueue.mli index 8b7d7fc2e..071bf873b 100644 --- a/libraries/sqs/lib/createQueue.mli +++ b/libraries/sqs/lib/createQueue.mli @@ -1,9 +1,7 @@ open Types type input = CreateQueueRequest.t - type output = CreateQueueResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/deleteMessage.ml b/libraries/sqs/lib/deleteMessage.ml index 4e8edf969..721da8021 100644 --- a/libraries/sqs/lib/deleteMessage.ml +++ b/libraries/sqs/lib/deleteMessage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteMessageRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/deleteMessage.mli b/libraries/sqs/lib/deleteMessage.mli index 02915f354..49a947347 100644 --- a/libraries/sqs/lib/deleteMessage.mli +++ b/libraries/sqs/lib/deleteMessage.mli @@ -1,9 +1,7 @@ open Types type input = DeleteMessageRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/deleteMessageBatch.ml b/libraries/sqs/lib/deleteMessageBatch.ml index abf0cb755..c12960879 100644 --- a/libraries/sqs/lib/deleteMessageBatch.ml +++ b/libraries/sqs/lib/deleteMessageBatch.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteMessageBatchRequest.t - type output = DeleteMessageBatchResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/deleteMessageBatch.mli b/libraries/sqs/lib/deleteMessageBatch.mli index 157b05db3..2034ab5c8 100644 --- a/libraries/sqs/lib/deleteMessageBatch.mli +++ b/libraries/sqs/lib/deleteMessageBatch.mli @@ -1,9 +1,7 @@ open Types type input = DeleteMessageBatchRequest.t - type output = DeleteMessageBatchResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/deleteQueue.ml b/libraries/sqs/lib/deleteQueue.ml index fc6bb37bf..aafb7c8fc 100644 --- a/libraries/sqs/lib/deleteQueue.ml +++ b/libraries/sqs/lib/deleteQueue.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteQueueRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/deleteQueue.mli b/libraries/sqs/lib/deleteQueue.mli index d46e51ff5..cd55b6ebb 100644 --- a/libraries/sqs/lib/deleteQueue.mli +++ b/libraries/sqs/lib/deleteQueue.mli @@ -1,9 +1,7 @@ open Types type input = DeleteQueueRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/getQueueAttributes.ml b/libraries/sqs/lib/getQueueAttributes.ml index f9fd77ada..b1c61b7e5 100644 --- a/libraries/sqs/lib/getQueueAttributes.ml +++ b/libraries/sqs/lib/getQueueAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetQueueAttributesRequest.t - type output = GetQueueAttributesResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/getQueueAttributes.mli b/libraries/sqs/lib/getQueueAttributes.mli index a5e75d179..0884b51b8 100644 --- a/libraries/sqs/lib/getQueueAttributes.mli +++ b/libraries/sqs/lib/getQueueAttributes.mli @@ -1,9 +1,7 @@ open Types type input = GetQueueAttributesRequest.t - type output = GetQueueAttributesResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/getQueueUrl.ml b/libraries/sqs/lib/getQueueUrl.ml index bc86b0fc1..c25794523 100644 --- a/libraries/sqs/lib/getQueueUrl.ml +++ b/libraries/sqs/lib/getQueueUrl.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetQueueUrlRequest.t - type output = GetQueueUrlResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/getQueueUrl.mli b/libraries/sqs/lib/getQueueUrl.mli index 74539d56c..f65ba48af 100644 --- a/libraries/sqs/lib/getQueueUrl.mli +++ b/libraries/sqs/lib/getQueueUrl.mli @@ -1,9 +1,7 @@ open Types type input = GetQueueUrlRequest.t - type output = GetQueueUrlResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/listDeadLetterSourceQueues.ml b/libraries/sqs/lib/listDeadLetterSourceQueues.ml index c6ac543d2..e7359996a 100644 --- a/libraries/sqs/lib/listDeadLetterSourceQueues.ml +++ b/libraries/sqs/lib/listDeadLetterSourceQueues.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListDeadLetterSourceQueuesRequest.t - type output = ListDeadLetterSourceQueuesResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/listDeadLetterSourceQueues.mli b/libraries/sqs/lib/listDeadLetterSourceQueues.mli index f453539d2..592038ddb 100644 --- a/libraries/sqs/lib/listDeadLetterSourceQueues.mli +++ b/libraries/sqs/lib/listDeadLetterSourceQueues.mli @@ -1,9 +1,7 @@ open Types type input = ListDeadLetterSourceQueuesRequest.t - type output = ListDeadLetterSourceQueuesResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/listQueueTags.ml b/libraries/sqs/lib/listQueueTags.ml index 870b9f298..e4f85ac12 100644 --- a/libraries/sqs/lib/listQueueTags.ml +++ b/libraries/sqs/lib/listQueueTags.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListQueueTagsRequest.t - type output = ListQueueTagsResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/listQueueTags.mli b/libraries/sqs/lib/listQueueTags.mli index 945ed905d..7e0d8b265 100644 --- a/libraries/sqs/lib/listQueueTags.mli +++ b/libraries/sqs/lib/listQueueTags.mli @@ -1,9 +1,7 @@ open Types type input = ListQueueTagsRequest.t - type output = ListQueueTagsResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/listQueues.ml b/libraries/sqs/lib/listQueues.ml index fd3771851..0febc3289 100644 --- a/libraries/sqs/lib/listQueues.ml +++ b/libraries/sqs/lib/listQueues.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListQueuesRequest.t - type output = ListQueuesResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/listQueues.mli b/libraries/sqs/lib/listQueues.mli index 52d82f190..f00f90378 100644 --- a/libraries/sqs/lib/listQueues.mli +++ b/libraries/sqs/lib/listQueues.mli @@ -1,9 +1,7 @@ open Types type input = ListQueuesRequest.t - type output = ListQueuesResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/purgeQueue.ml b/libraries/sqs/lib/purgeQueue.ml index 54d9103ff..2eaa11fcd 100644 --- a/libraries/sqs/lib/purgeQueue.ml +++ b/libraries/sqs/lib/purgeQueue.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PurgeQueueRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/purgeQueue.mli b/libraries/sqs/lib/purgeQueue.mli index 49b79ba85..773560dc6 100644 --- a/libraries/sqs/lib/purgeQueue.mli +++ b/libraries/sqs/lib/purgeQueue.mli @@ -1,9 +1,7 @@ open Types type input = PurgeQueueRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/receiveMessage.ml b/libraries/sqs/lib/receiveMessage.ml index acdc11481..fa27e84e4 100644 --- a/libraries/sqs/lib/receiveMessage.ml +++ b/libraries/sqs/lib/receiveMessage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ReceiveMessageRequest.t - type output = ReceiveMessageResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/receiveMessage.mli b/libraries/sqs/lib/receiveMessage.mli index 0b924f742..dfcbc15b6 100644 --- a/libraries/sqs/lib/receiveMessage.mli +++ b/libraries/sqs/lib/receiveMessage.mli @@ -1,9 +1,7 @@ open Types type input = ReceiveMessageRequest.t - type output = ReceiveMessageResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/removePermission.ml b/libraries/sqs/lib/removePermission.ml index 977f8e459..f4a51e78a 100644 --- a/libraries/sqs/lib/removePermission.ml +++ b/libraries/sqs/lib/removePermission.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemovePermissionRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/removePermission.mli b/libraries/sqs/lib/removePermission.mli index afa46d91f..feef81509 100644 --- a/libraries/sqs/lib/removePermission.mli +++ b/libraries/sqs/lib/removePermission.mli @@ -1,9 +1,7 @@ open Types type input = RemovePermissionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/sendMessage.ml b/libraries/sqs/lib/sendMessage.ml index 4978830fd..ad5a80df1 100644 --- a/libraries/sqs/lib/sendMessage.ml +++ b/libraries/sqs/lib/sendMessage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SendMessageRequest.t - type output = SendMessageResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/sendMessage.mli b/libraries/sqs/lib/sendMessage.mli index a5d84a756..c0fc16def 100644 --- a/libraries/sqs/lib/sendMessage.mli +++ b/libraries/sqs/lib/sendMessage.mli @@ -1,9 +1,7 @@ open Types type input = SendMessageRequest.t - type output = SendMessageResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/sendMessageBatch.ml b/libraries/sqs/lib/sendMessageBatch.ml index a560ba017..dc02b5261 100644 --- a/libraries/sqs/lib/sendMessageBatch.ml +++ b/libraries/sqs/lib/sendMessageBatch.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SendMessageBatchRequest.t - type output = SendMessageBatchResult.t - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/sendMessageBatch.mli b/libraries/sqs/lib/sendMessageBatch.mli index c81e0349d..4b14c9a06 100644 --- a/libraries/sqs/lib/sendMessageBatch.mli +++ b/libraries/sqs/lib/sendMessageBatch.mli @@ -1,9 +1,7 @@ open Types type input = SendMessageBatchRequest.t - type output = SendMessageBatchResult.t - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/setQueueAttributes.ml b/libraries/sqs/lib/setQueueAttributes.ml index 25b7d6c3e..055080fd1 100644 --- a/libraries/sqs/lib/setQueueAttributes.ml +++ b/libraries/sqs/lib/setQueueAttributes.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SetQueueAttributesRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/setQueueAttributes.mli b/libraries/sqs/lib/setQueueAttributes.mli index e45234744..b3b56850d 100644 --- a/libraries/sqs/lib/setQueueAttributes.mli +++ b/libraries/sqs/lib/setQueueAttributes.mli @@ -1,9 +1,7 @@ open Types type input = SetQueueAttributesRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/tagQueue.ml b/libraries/sqs/lib/tagQueue.ml index 36553a842..629837874 100644 --- a/libraries/sqs/lib/tagQueue.ml +++ b/libraries/sqs/lib/tagQueue.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TagQueueRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/tagQueue.mli b/libraries/sqs/lib/tagQueue.mli index 8542d1dd1..3d6040edb 100644 --- a/libraries/sqs/lib/tagQueue.mli +++ b/libraries/sqs/lib/tagQueue.mli @@ -1,9 +1,7 @@ open Types type input = TagQueueRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib/types.ml b/libraries/sqs/lib/types.ml index 8dd4b515b..25377c9c0 100644 --- a/libraries/sqs/lib/types.ml +++ b/libraries/sqs/lib/types.ml @@ -31,13 +31,9 @@ module QueueNameExists = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -51,9 +47,7 @@ module MessageAttributeNameList = struct (List.map String.parse (Aws.Xml.members "MessageAttributeName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -171,9 +165,7 @@ module QueueAttributeName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -183,7 +175,6 @@ module QueueAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -191,7 +182,6 @@ module QueueAttributeMap = struct type t = (QueueAttributeName.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -254,13 +244,9 @@ module InvalidMessageContents = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -268,9 +254,7 @@ module TagMap = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -335,9 +319,7 @@ module QueueUrlList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "QueueUrl" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -456,7 +438,6 @@ module ChangeMessageVisibilityBatchResultEntryList = struct Aws.Query.to_query_list ChangeMessageVisibilityBatchResultEntry.to_query v let to_json v = `List (List.map ChangeMessageVisibilityBatchResultEntry.to_json v) - let of_json j = Aws.Json.to_list ChangeMessageVisibilityBatchResultEntry.of_json j end @@ -464,13 +445,9 @@ module TooManyEntriesInBatchRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -483,9 +460,7 @@ module TagKeyList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "TagKey" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -535,9 +510,7 @@ module StringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "StringListValue" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -550,9 +523,7 @@ module BinaryList = struct Aws.Util.option_all (List.map Blob.parse (Aws.Xml.members "BinaryListValue" xml)) let to_query v = Aws.Query.to_query_list Blob.to_query v - let to_json v = `List (List.map Blob.to_json v) - let of_json j = Aws.Json.to_list Blob.of_json j end @@ -684,9 +655,7 @@ module MessageSystemAttributeName = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -696,7 +665,6 @@ module MessageSystemAttributeName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -704,7 +672,6 @@ module MessageSystemAttributeMap = struct type t = (MessageSystemAttributeName.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -798,7 +765,6 @@ module MessageBodyAttributeMap = struct type t = (String.t, MessageAttributeValue.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -951,9 +917,7 @@ module DeleteMessageBatchResultEntryList = struct (Aws.Xml.members "DeleteMessageBatchResultEntry" xml)) let to_query v = Aws.Query.to_query_list DeleteMessageBatchResultEntry.to_query v - let to_json v = `List (List.map DeleteMessageBatchResultEntry.to_json v) - let of_json j = Aws.Json.to_list DeleteMessageBatchResultEntry.of_json j end @@ -1022,9 +986,7 @@ module BatchResultErrorEntryList = struct (List.map BatchResultErrorEntry.parse (Aws.Xml.members "BatchResultErrorEntry" xml)) let to_query v = Aws.Query.to_query_list BatchResultErrorEntry.to_query v - let to_json v = `List (List.map BatchResultErrorEntry.to_json v) - let of_json j = Aws.Json.to_list BatchResultErrorEntry.of_json j end @@ -1075,13 +1037,9 @@ module InvalidBatchEntryId = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1095,9 +1053,7 @@ module AttributeNameList = struct (List.map QueueAttributeName.parse (Aws.Xml.members "AttributeName" xml)) let to_query v = Aws.Query.to_query_list QueueAttributeName.to_query v - let to_json v = `List (List.map QueueAttributeName.to_json v) - let of_json j = Aws.Json.to_list QueueAttributeName.of_json j end @@ -1151,9 +1107,7 @@ module MessageList = struct Aws.Util.option_all (List.map Message.parse (Aws.Xml.members "Message" xml)) let to_query v = Aws.Query.to_query_list Message.to_query v - let to_json v = `List (List.map Message.to_json v) - let of_json j = Aws.Json.to_list Message.of_json j end @@ -1161,7 +1115,6 @@ module ReceiveMessageResult = struct type t = { messages : MessageList.t } let make ?(messages = []) () = { messages } - let parse xml = Some { messages = Aws.Util.of_option [] (MessageList.parse xml) } let to_query v = @@ -1183,13 +1136,9 @@ module OverLimit = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1205,9 +1154,7 @@ module DeleteMessageBatchRequestEntryList = struct (Aws.Xml.members "DeleteMessageBatchRequestEntry" xml)) let to_query v = Aws.Query.to_query_list DeleteMessageBatchRequestEntry.to_query v - let to_json v = `List (List.map DeleteMessageBatchRequestEntry.to_json v) - let of_json j = Aws.Json.to_list DeleteMessageBatchRequestEntry.of_json j end @@ -1215,13 +1162,9 @@ module MessageSystemAttributeNameForSends = struct type t = AWSTraceHeader let str_to_t = [ "AWSTraceHeader", AWSTraceHeader ] - let t_to_str = [ AWSTraceHeader, "AWSTraceHeader" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1231,7 +1174,6 @@ module MessageSystemAttributeNameForSends = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1239,7 +1181,6 @@ module MessageBodySystemAttributeMap = struct type t = (MessageSystemAttributeNameForSends.t, MessageSystemAttributeValue.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -1388,9 +1329,7 @@ module SendMessageBatchRequestEntryList = struct (Aws.Xml.members "SendMessageBatchRequestEntry" xml)) let to_query v = Aws.Query.to_query_list SendMessageBatchRequestEntry.to_query v - let to_json v = `List (List.map SendMessageBatchRequestEntry.to_json v) - let of_json j = Aws.Json.to_list SendMessageBatchRequestEntry.of_json j end @@ -1398,13 +1337,9 @@ module InvalidAttributeName = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1571,13 +1506,9 @@ module BatchEntryIdsNotDistinct = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1585,13 +1516,9 @@ module UnsupportedOperation = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1696,13 +1623,9 @@ module QueueDoesNotExist = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1746,13 +1669,9 @@ module BatchRequestTooLong = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1876,9 +1795,7 @@ module AWSAccountIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "AWSAccountId" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1886,13 +1803,9 @@ module QueueDeletedRecently = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2173,13 +2086,9 @@ module ReceiptHandleIsInvalid = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2244,9 +2153,7 @@ module ActionNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "ActionName" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2318,9 +2225,7 @@ module SendMessageBatchResultEntryList = struct (Aws.Xml.members "SendMessageBatchResultEntry" xml)) let to_query v = Aws.Query.to_query_list SendMessageBatchResultEntry.to_query v - let to_json v = `List (List.map SendMessageBatchResultEntry.to_json v) - let of_json j = Aws.Json.to_list SendMessageBatchResultEntry.of_json j end @@ -2552,7 +2457,6 @@ module ChangeMessageVisibilityBatchRequestEntryList = struct Aws.Query.to_query_list ChangeMessageVisibilityBatchRequestEntry.to_query v let to_json v = `List (List.map ChangeMessageVisibilityBatchRequestEntry.to_json v) - let of_json j = Aws.Json.to_list ChangeMessageVisibilityBatchRequestEntry.of_json j end @@ -2605,13 +2509,9 @@ module EmptyBatchRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2619,13 +2519,9 @@ module PurgeQueueInProgress = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2706,13 +2602,9 @@ module InvalidIdFormat = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -2745,12 +2637,8 @@ module MessageNotInflight = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/sqs/lib/untagQueue.ml b/libraries/sqs/lib/untagQueue.ml index 16c33926a..2f8f49f1a 100644 --- a/libraries/sqs/lib/untagQueue.ml +++ b/libraries/sqs/lib/untagQueue.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UntagQueueRequest.t - type output = unit - type error = Errors_internal.t let service = "sqs" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sqs/lib/untagQueue.mli b/libraries/sqs/lib/untagQueue.mli index aa74b7a55..a2f415506 100644 --- a/libraries/sqs/lib/untagQueue.mli +++ b/libraries/sqs/lib/untagQueue.mli @@ -1,9 +1,7 @@ open Types type input = UntagQueueRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/sqs/lib_test/test_async.ml b/libraries/sqs/lib_test/test_async.ml index 958f8128b..7794e7e12 100644 --- a/libraries/sqs/lib_test/test_async.ml +++ b/libraries/sqs/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/sqs/lib_test/test_lwt.ml b/libraries/sqs/lib_test/test_lwt.ml index 57816c5df..19fa6223b 100644 --- a/libraries/sqs/lib_test/test_lwt.ml +++ b/libraries/sqs/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/ssm/lib/addTagsToResource.ml b/libraries/ssm/lib/addTagsToResource.ml index 3231c5885..0be901730 100644 --- a/libraries/ssm/lib/addTagsToResource.ml +++ b/libraries/ssm/lib/addTagsToResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AddTagsToResourceRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/addTagsToResource.mli b/libraries/ssm/lib/addTagsToResource.mli index 5106e1344..2aa43685e 100644 --- a/libraries/ssm/lib/addTagsToResource.mli +++ b/libraries/ssm/lib/addTagsToResource.mli @@ -1,9 +1,7 @@ open Types type input = AddTagsToResourceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/cancelCommand.ml b/libraries/ssm/lib/cancelCommand.ml index 624d6392c..d6b200e29 100644 --- a/libraries/ssm/lib/cancelCommand.ml +++ b/libraries/ssm/lib/cancelCommand.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelCommandRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/cancelCommand.mli b/libraries/ssm/lib/cancelCommand.mli index b7fbd85dd..f371ecce8 100644 --- a/libraries/ssm/lib/cancelCommand.mli +++ b/libraries/ssm/lib/cancelCommand.mli @@ -1,9 +1,7 @@ open Types type input = CancelCommandRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/cancelMaintenanceWindowExecution.ml b/libraries/ssm/lib/cancelMaintenanceWindowExecution.ml index a4b6626af..f36194285 100644 --- a/libraries/ssm/lib/cancelMaintenanceWindowExecution.ml +++ b/libraries/ssm/lib/cancelMaintenanceWindowExecution.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CancelMaintenanceWindowExecutionRequest.t - type output = CancelMaintenanceWindowExecutionResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/cancelMaintenanceWindowExecution.mli b/libraries/ssm/lib/cancelMaintenanceWindowExecution.mli index b2e156660..ca8f61a58 100644 --- a/libraries/ssm/lib/cancelMaintenanceWindowExecution.mli +++ b/libraries/ssm/lib/cancelMaintenanceWindowExecution.mli @@ -1,9 +1,7 @@ open Types type input = CancelMaintenanceWindowExecutionRequest.t - type output = CancelMaintenanceWindowExecutionResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createActivation.ml b/libraries/ssm/lib/createActivation.ml index d891dc2a5..c3ab72df5 100644 --- a/libraries/ssm/lib/createActivation.ml +++ b/libraries/ssm/lib/createActivation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateActivationRequest.t - type output = CreateActivationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createActivation.mli b/libraries/ssm/lib/createActivation.mli index b17bc6f4a..0ecbc9485 100644 --- a/libraries/ssm/lib/createActivation.mli +++ b/libraries/ssm/lib/createActivation.mli @@ -1,9 +1,7 @@ open Types type input = CreateActivationRequest.t - type output = CreateActivationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createAssociation.ml b/libraries/ssm/lib/createAssociation.ml index 5c06b132a..f37e67fa1 100644 --- a/libraries/ssm/lib/createAssociation.ml +++ b/libraries/ssm/lib/createAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateAssociationRequest.t - type output = CreateAssociationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createAssociation.mli b/libraries/ssm/lib/createAssociation.mli index d7cf5a14e..6389ec2bd 100644 --- a/libraries/ssm/lib/createAssociation.mli +++ b/libraries/ssm/lib/createAssociation.mli @@ -1,9 +1,7 @@ open Types type input = CreateAssociationRequest.t - type output = CreateAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createAssociationBatch.ml b/libraries/ssm/lib/createAssociationBatch.ml index 478b52ab7..d16066dfd 100644 --- a/libraries/ssm/lib/createAssociationBatch.ml +++ b/libraries/ssm/lib/createAssociationBatch.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateAssociationBatchRequest.t - type output = CreateAssociationBatchResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createAssociationBatch.mli b/libraries/ssm/lib/createAssociationBatch.mli index af48f190d..cb7edfb01 100644 --- a/libraries/ssm/lib/createAssociationBatch.mli +++ b/libraries/ssm/lib/createAssociationBatch.mli @@ -1,9 +1,7 @@ open Types type input = CreateAssociationBatchRequest.t - type output = CreateAssociationBatchResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createDocument.ml b/libraries/ssm/lib/createDocument.ml index 1d07f0048..03616a558 100644 --- a/libraries/ssm/lib/createDocument.ml +++ b/libraries/ssm/lib/createDocument.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateDocumentRequest.t - type output = CreateDocumentResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createDocument.mli b/libraries/ssm/lib/createDocument.mli index 64da71013..29272428b 100644 --- a/libraries/ssm/lib/createDocument.mli +++ b/libraries/ssm/lib/createDocument.mli @@ -1,9 +1,7 @@ open Types type input = CreateDocumentRequest.t - type output = CreateDocumentResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createMaintenanceWindow.ml b/libraries/ssm/lib/createMaintenanceWindow.ml index 4f18d7788..ad2e16daa 100644 --- a/libraries/ssm/lib/createMaintenanceWindow.ml +++ b/libraries/ssm/lib/createMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateMaintenanceWindowRequest.t - type output = CreateMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createMaintenanceWindow.mli b/libraries/ssm/lib/createMaintenanceWindow.mli index e0a40abe0..25dde2e18 100644 --- a/libraries/ssm/lib/createMaintenanceWindow.mli +++ b/libraries/ssm/lib/createMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = CreateMaintenanceWindowRequest.t - type output = CreateMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createOpsItem.ml b/libraries/ssm/lib/createOpsItem.ml index b6b908797..aa4759fdd 100644 --- a/libraries/ssm/lib/createOpsItem.ml +++ b/libraries/ssm/lib/createOpsItem.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateOpsItemRequest.t - type output = CreateOpsItemResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createOpsItem.mli b/libraries/ssm/lib/createOpsItem.mli index dd532a2c4..906c50964 100644 --- a/libraries/ssm/lib/createOpsItem.mli +++ b/libraries/ssm/lib/createOpsItem.mli @@ -1,9 +1,7 @@ open Types type input = CreateOpsItemRequest.t - type output = CreateOpsItemResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createPatchBaseline.ml b/libraries/ssm/lib/createPatchBaseline.ml index c4940a689..006a6521d 100644 --- a/libraries/ssm/lib/createPatchBaseline.ml +++ b/libraries/ssm/lib/createPatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreatePatchBaselineRequest.t - type output = CreatePatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createPatchBaseline.mli b/libraries/ssm/lib/createPatchBaseline.mli index 51398c33c..86a0586cb 100644 --- a/libraries/ssm/lib/createPatchBaseline.mli +++ b/libraries/ssm/lib/createPatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = CreatePatchBaselineRequest.t - type output = CreatePatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/createResourceDataSync.ml b/libraries/ssm/lib/createResourceDataSync.ml index 27e4bba19..cbd392c8c 100644 --- a/libraries/ssm/lib/createResourceDataSync.ml +++ b/libraries/ssm/lib/createResourceDataSync.ml @@ -2,13 +2,10 @@ open Types open Aws type input = CreateResourceDataSyncRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/createResourceDataSync.mli b/libraries/ssm/lib/createResourceDataSync.mli index 7071d5408..e96bba257 100644 --- a/libraries/ssm/lib/createResourceDataSync.mli +++ b/libraries/ssm/lib/createResourceDataSync.mli @@ -1,9 +1,7 @@ open Types type input = CreateResourceDataSyncRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteActivation.ml b/libraries/ssm/lib/deleteActivation.ml index b3d2f6274..de1d10e79 100644 --- a/libraries/ssm/lib/deleteActivation.ml +++ b/libraries/ssm/lib/deleteActivation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteActivationRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteActivation.mli b/libraries/ssm/lib/deleteActivation.mli index 439aa3889..05674c24e 100644 --- a/libraries/ssm/lib/deleteActivation.mli +++ b/libraries/ssm/lib/deleteActivation.mli @@ -1,9 +1,7 @@ open Types type input = DeleteActivationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteAssociation.ml b/libraries/ssm/lib/deleteAssociation.ml index ed25f8ac4..dc5322d52 100644 --- a/libraries/ssm/lib/deleteAssociation.ml +++ b/libraries/ssm/lib/deleteAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteAssociationRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteAssociation.mli b/libraries/ssm/lib/deleteAssociation.mli index d063091d4..495df687d 100644 --- a/libraries/ssm/lib/deleteAssociation.mli +++ b/libraries/ssm/lib/deleteAssociation.mli @@ -1,9 +1,7 @@ open Types type input = DeleteAssociationRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteDocument.ml b/libraries/ssm/lib/deleteDocument.ml index 388407cca..7dde88786 100644 --- a/libraries/ssm/lib/deleteDocument.ml +++ b/libraries/ssm/lib/deleteDocument.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteDocumentRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteDocument.mli b/libraries/ssm/lib/deleteDocument.mli index 08f9a1c32..d7f55a217 100644 --- a/libraries/ssm/lib/deleteDocument.mli +++ b/libraries/ssm/lib/deleteDocument.mli @@ -1,9 +1,7 @@ open Types type input = DeleteDocumentRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteInventory.ml b/libraries/ssm/lib/deleteInventory.ml index 4a1c32564..fc05bc8c0 100644 --- a/libraries/ssm/lib/deleteInventory.ml +++ b/libraries/ssm/lib/deleteInventory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteInventoryRequest.t - type output = DeleteInventoryResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteInventory.mli b/libraries/ssm/lib/deleteInventory.mli index f8ff92857..7fbb12495 100644 --- a/libraries/ssm/lib/deleteInventory.mli +++ b/libraries/ssm/lib/deleteInventory.mli @@ -1,9 +1,7 @@ open Types type input = DeleteInventoryRequest.t - type output = DeleteInventoryResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteMaintenanceWindow.ml b/libraries/ssm/lib/deleteMaintenanceWindow.ml index dab0bf13f..240c036ac 100644 --- a/libraries/ssm/lib/deleteMaintenanceWindow.ml +++ b/libraries/ssm/lib/deleteMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteMaintenanceWindowRequest.t - type output = DeleteMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteMaintenanceWindow.mli b/libraries/ssm/lib/deleteMaintenanceWindow.mli index 48618bab4..6512902e6 100644 --- a/libraries/ssm/lib/deleteMaintenanceWindow.mli +++ b/libraries/ssm/lib/deleteMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = DeleteMaintenanceWindowRequest.t - type output = DeleteMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteParameter.ml b/libraries/ssm/lib/deleteParameter.ml index 9279bf979..f7c6c0dd9 100644 --- a/libraries/ssm/lib/deleteParameter.ml +++ b/libraries/ssm/lib/deleteParameter.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteParameterRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteParameter.mli b/libraries/ssm/lib/deleteParameter.mli index 0064776b7..d11c4c593 100644 --- a/libraries/ssm/lib/deleteParameter.mli +++ b/libraries/ssm/lib/deleteParameter.mli @@ -1,9 +1,7 @@ open Types type input = DeleteParameterRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteParameters.ml b/libraries/ssm/lib/deleteParameters.ml index e89544a8a..fdf4eaee4 100644 --- a/libraries/ssm/lib/deleteParameters.ml +++ b/libraries/ssm/lib/deleteParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteParametersRequest.t - type output = DeleteParametersResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteParameters.mli b/libraries/ssm/lib/deleteParameters.mli index 4622e573c..433a2e749 100644 --- a/libraries/ssm/lib/deleteParameters.mli +++ b/libraries/ssm/lib/deleteParameters.mli @@ -1,9 +1,7 @@ open Types type input = DeleteParametersRequest.t - type output = DeleteParametersResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deletePatchBaseline.ml b/libraries/ssm/lib/deletePatchBaseline.ml index ebb285e2d..b4bc4e619 100644 --- a/libraries/ssm/lib/deletePatchBaseline.ml +++ b/libraries/ssm/lib/deletePatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeletePatchBaselineRequest.t - type output = DeletePatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deletePatchBaseline.mli b/libraries/ssm/lib/deletePatchBaseline.mli index f25614921..d5c233e11 100644 --- a/libraries/ssm/lib/deletePatchBaseline.mli +++ b/libraries/ssm/lib/deletePatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = DeletePatchBaselineRequest.t - type output = DeletePatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deleteResourceDataSync.ml b/libraries/ssm/lib/deleteResourceDataSync.ml index 5c5abe4f6..6f6df36bc 100644 --- a/libraries/ssm/lib/deleteResourceDataSync.ml +++ b/libraries/ssm/lib/deleteResourceDataSync.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeleteResourceDataSyncRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deleteResourceDataSync.mli b/libraries/ssm/lib/deleteResourceDataSync.mli index a16f2f449..146d715da 100644 --- a/libraries/ssm/lib/deleteResourceDataSync.mli +++ b/libraries/ssm/lib/deleteResourceDataSync.mli @@ -1,9 +1,7 @@ open Types type input = DeleteResourceDataSyncRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deregisterManagedInstance.ml b/libraries/ssm/lib/deregisterManagedInstance.ml index a85821c1b..011a9d53b 100644 --- a/libraries/ssm/lib/deregisterManagedInstance.ml +++ b/libraries/ssm/lib/deregisterManagedInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterManagedInstanceRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deregisterManagedInstance.mli b/libraries/ssm/lib/deregisterManagedInstance.mli index 1b0d778e5..2892ede28 100644 --- a/libraries/ssm/lib/deregisterManagedInstance.mli +++ b/libraries/ssm/lib/deregisterManagedInstance.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterManagedInstanceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.ml b/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.ml index af00deb4e..5df41eb3c 100644 --- a/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.ml +++ b/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterPatchBaselineForPatchGroupRequest.t - type output = DeregisterPatchBaselineForPatchGroupResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.mli b/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.mli index 1be2f0b23..f724aadfb 100644 --- a/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.mli +++ b/libraries/ssm/lib/deregisterPatchBaselineForPatchGroup.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterPatchBaselineForPatchGroupRequest.t - type output = DeregisterPatchBaselineForPatchGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.ml b/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.ml index d9bbab65e..1fa0cbf2c 100644 --- a/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.ml +++ b/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterTargetFromMaintenanceWindowRequest.t - type output = DeregisterTargetFromMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.mli b/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.mli index 310ab6813..efe70e683 100644 --- a/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.mli +++ b/libraries/ssm/lib/deregisterTargetFromMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterTargetFromMaintenanceWindowRequest.t - type output = DeregisterTargetFromMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.ml b/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.ml index 37a14906e..02aafd487 100644 --- a/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.ml +++ b/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DeregisterTaskFromMaintenanceWindowRequest.t - type output = DeregisterTaskFromMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.mli b/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.mli index f733db9ba..3e8997f30 100644 --- a/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.mli +++ b/libraries/ssm/lib/deregisterTaskFromMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = DeregisterTaskFromMaintenanceWindowRequest.t - type output = DeregisterTaskFromMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeActivations.ml b/libraries/ssm/lib/describeActivations.ml index 3129b69a6..e5a21b2ac 100644 --- a/libraries/ssm/lib/describeActivations.ml +++ b/libraries/ssm/lib/describeActivations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeActivationsRequest.t - type output = DescribeActivationsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeActivations.mli b/libraries/ssm/lib/describeActivations.mli index 7dfedf6de..02ec5a095 100644 --- a/libraries/ssm/lib/describeActivations.mli +++ b/libraries/ssm/lib/describeActivations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeActivationsRequest.t - type output = DescribeActivationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeAssociation.ml b/libraries/ssm/lib/describeAssociation.ml index 3d4e361f1..6a0d51222 100644 --- a/libraries/ssm/lib/describeAssociation.ml +++ b/libraries/ssm/lib/describeAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAssociationRequest.t - type output = DescribeAssociationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeAssociation.mli b/libraries/ssm/lib/describeAssociation.mli index 1a4c984bd..c90832537 100644 --- a/libraries/ssm/lib/describeAssociation.mli +++ b/libraries/ssm/lib/describeAssociation.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAssociationRequest.t - type output = DescribeAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeAssociationExecutionTargets.ml b/libraries/ssm/lib/describeAssociationExecutionTargets.ml index f2e52d6b6..f1a7be934 100644 --- a/libraries/ssm/lib/describeAssociationExecutionTargets.ml +++ b/libraries/ssm/lib/describeAssociationExecutionTargets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAssociationExecutionTargetsRequest.t - type output = DescribeAssociationExecutionTargetsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeAssociationExecutionTargets.mli b/libraries/ssm/lib/describeAssociationExecutionTargets.mli index 31e0993ca..d8527b767 100644 --- a/libraries/ssm/lib/describeAssociationExecutionTargets.mli +++ b/libraries/ssm/lib/describeAssociationExecutionTargets.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAssociationExecutionTargetsRequest.t - type output = DescribeAssociationExecutionTargetsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeAssociationExecutions.ml b/libraries/ssm/lib/describeAssociationExecutions.ml index 84307500c..bf7a5b635 100644 --- a/libraries/ssm/lib/describeAssociationExecutions.ml +++ b/libraries/ssm/lib/describeAssociationExecutions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAssociationExecutionsRequest.t - type output = DescribeAssociationExecutionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeAssociationExecutions.mli b/libraries/ssm/lib/describeAssociationExecutions.mli index 0afb94e92..9d8ac67f1 100644 --- a/libraries/ssm/lib/describeAssociationExecutions.mli +++ b/libraries/ssm/lib/describeAssociationExecutions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAssociationExecutionsRequest.t - type output = DescribeAssociationExecutionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeAutomationExecutions.ml b/libraries/ssm/lib/describeAutomationExecutions.ml index dec51f618..e47d598d4 100644 --- a/libraries/ssm/lib/describeAutomationExecutions.ml +++ b/libraries/ssm/lib/describeAutomationExecutions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAutomationExecutionsRequest.t - type output = DescribeAutomationExecutionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeAutomationExecutions.mli b/libraries/ssm/lib/describeAutomationExecutions.mli index c2f2b06dc..8c1dd3d67 100644 --- a/libraries/ssm/lib/describeAutomationExecutions.mli +++ b/libraries/ssm/lib/describeAutomationExecutions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAutomationExecutionsRequest.t - type output = DescribeAutomationExecutionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeAutomationStepExecutions.ml b/libraries/ssm/lib/describeAutomationStepExecutions.ml index a8ab94557..fe72f6c51 100644 --- a/libraries/ssm/lib/describeAutomationStepExecutions.ml +++ b/libraries/ssm/lib/describeAutomationStepExecutions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAutomationStepExecutionsRequest.t - type output = DescribeAutomationStepExecutionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeAutomationStepExecutions.mli b/libraries/ssm/lib/describeAutomationStepExecutions.mli index b4a76d18f..88b5ed2a3 100644 --- a/libraries/ssm/lib/describeAutomationStepExecutions.mli +++ b/libraries/ssm/lib/describeAutomationStepExecutions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAutomationStepExecutionsRequest.t - type output = DescribeAutomationStepExecutionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeAvailablePatches.ml b/libraries/ssm/lib/describeAvailablePatches.ml index 6a7d8d747..acf22c6ba 100644 --- a/libraries/ssm/lib/describeAvailablePatches.ml +++ b/libraries/ssm/lib/describeAvailablePatches.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeAvailablePatchesRequest.t - type output = DescribeAvailablePatchesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeAvailablePatches.mli b/libraries/ssm/lib/describeAvailablePatches.mli index 065286a1f..de28d7c29 100644 --- a/libraries/ssm/lib/describeAvailablePatches.mli +++ b/libraries/ssm/lib/describeAvailablePatches.mli @@ -1,9 +1,7 @@ open Types type input = DescribeAvailablePatchesRequest.t - type output = DescribeAvailablePatchesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeDocument.ml b/libraries/ssm/lib/describeDocument.ml index 2cb72f577..c7449291f 100644 --- a/libraries/ssm/lib/describeDocument.ml +++ b/libraries/ssm/lib/describeDocument.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDocumentRequest.t - type output = DescribeDocumentResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeDocument.mli b/libraries/ssm/lib/describeDocument.mli index c4b3af099..eb0d624aa 100644 --- a/libraries/ssm/lib/describeDocument.mli +++ b/libraries/ssm/lib/describeDocument.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDocumentRequest.t - type output = DescribeDocumentResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeDocumentPermission.ml b/libraries/ssm/lib/describeDocumentPermission.ml index da7f1a9d4..058c939e2 100644 --- a/libraries/ssm/lib/describeDocumentPermission.ml +++ b/libraries/ssm/lib/describeDocumentPermission.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeDocumentPermissionRequest.t - type output = DescribeDocumentPermissionResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeDocumentPermission.mli b/libraries/ssm/lib/describeDocumentPermission.mli index 200637e32..5bc9c0f6e 100644 --- a/libraries/ssm/lib/describeDocumentPermission.mli +++ b/libraries/ssm/lib/describeDocumentPermission.mli @@ -1,9 +1,7 @@ open Types type input = DescribeDocumentPermissionRequest.t - type output = DescribeDocumentPermissionResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeEffectiveInstanceAssociations.ml b/libraries/ssm/lib/describeEffectiveInstanceAssociations.ml index 97f2f1adc..4df862d45 100644 --- a/libraries/ssm/lib/describeEffectiveInstanceAssociations.ml +++ b/libraries/ssm/lib/describeEffectiveInstanceAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEffectiveInstanceAssociationsRequest.t - type output = DescribeEffectiveInstanceAssociationsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeEffectiveInstanceAssociations.mli b/libraries/ssm/lib/describeEffectiveInstanceAssociations.mli index 690a7f2c0..0af190897 100644 --- a/libraries/ssm/lib/describeEffectiveInstanceAssociations.mli +++ b/libraries/ssm/lib/describeEffectiveInstanceAssociations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEffectiveInstanceAssociationsRequest.t - type output = DescribeEffectiveInstanceAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.ml b/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.ml index 3cd13392a..f92aecc3e 100644 --- a/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.ml +++ b/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeEffectivePatchesForPatchBaselineRequest.t - type output = DescribeEffectivePatchesForPatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.mli b/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.mli index df72bfae7..dda481606 100644 --- a/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.mli +++ b/libraries/ssm/lib/describeEffectivePatchesForPatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = DescribeEffectivePatchesForPatchBaselineRequest.t - type output = DescribeEffectivePatchesForPatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeInstanceAssociationsStatus.ml b/libraries/ssm/lib/describeInstanceAssociationsStatus.ml index 072445949..27cb38791 100644 --- a/libraries/ssm/lib/describeInstanceAssociationsStatus.ml +++ b/libraries/ssm/lib/describeInstanceAssociationsStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceAssociationsStatusRequest.t - type output = DescribeInstanceAssociationsStatusResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeInstanceAssociationsStatus.mli b/libraries/ssm/lib/describeInstanceAssociationsStatus.mli index 466d4896d..2efc38552 100644 --- a/libraries/ssm/lib/describeInstanceAssociationsStatus.mli +++ b/libraries/ssm/lib/describeInstanceAssociationsStatus.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceAssociationsStatusRequest.t - type output = DescribeInstanceAssociationsStatusResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeInstanceInformation.ml b/libraries/ssm/lib/describeInstanceInformation.ml index f165155c4..7e9eee165 100644 --- a/libraries/ssm/lib/describeInstanceInformation.ml +++ b/libraries/ssm/lib/describeInstanceInformation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstanceInformationRequest.t - type output = DescribeInstanceInformationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeInstanceInformation.mli b/libraries/ssm/lib/describeInstanceInformation.mli index 861af9c12..3756b1794 100644 --- a/libraries/ssm/lib/describeInstanceInformation.mli +++ b/libraries/ssm/lib/describeInstanceInformation.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstanceInformationRequest.t - type output = DescribeInstanceInformationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeInstancePatchStates.ml b/libraries/ssm/lib/describeInstancePatchStates.ml index 29a22b6c2..a66b3cdf8 100644 --- a/libraries/ssm/lib/describeInstancePatchStates.ml +++ b/libraries/ssm/lib/describeInstancePatchStates.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstancePatchStatesRequest.t - type output = DescribeInstancePatchStatesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeInstancePatchStates.mli b/libraries/ssm/lib/describeInstancePatchStates.mli index 2366749e0..c6bedffe2 100644 --- a/libraries/ssm/lib/describeInstancePatchStates.mli +++ b/libraries/ssm/lib/describeInstancePatchStates.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstancePatchStatesRequest.t - type output = DescribeInstancePatchStatesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.ml b/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.ml index 94b13f50e..d495d0bcb 100644 --- a/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.ml +++ b/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstancePatchStatesForPatchGroupRequest.t - type output = DescribeInstancePatchStatesForPatchGroupResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.mli b/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.mli index 7c27e80a6..dfbe4b5b6 100644 --- a/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.mli +++ b/libraries/ssm/lib/describeInstancePatchStatesForPatchGroup.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstancePatchStatesForPatchGroupRequest.t - type output = DescribeInstancePatchStatesForPatchGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeInstancePatches.ml b/libraries/ssm/lib/describeInstancePatches.ml index cd08e9ccf..72a9ba9f7 100644 --- a/libraries/ssm/lib/describeInstancePatches.ml +++ b/libraries/ssm/lib/describeInstancePatches.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInstancePatchesRequest.t - type output = DescribeInstancePatchesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeInstancePatches.mli b/libraries/ssm/lib/describeInstancePatches.mli index 6cbbc9726..e01efdc79 100644 --- a/libraries/ssm/lib/describeInstancePatches.mli +++ b/libraries/ssm/lib/describeInstancePatches.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInstancePatchesRequest.t - type output = DescribeInstancePatchesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeInventoryDeletions.ml b/libraries/ssm/lib/describeInventoryDeletions.ml index 795f1f73b..e28827285 100644 --- a/libraries/ssm/lib/describeInventoryDeletions.ml +++ b/libraries/ssm/lib/describeInventoryDeletions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeInventoryDeletionsRequest.t - type output = DescribeInventoryDeletionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeInventoryDeletions.mli b/libraries/ssm/lib/describeInventoryDeletions.mli index 3c31553f5..b7a807b4c 100644 --- a/libraries/ssm/lib/describeInventoryDeletions.mli +++ b/libraries/ssm/lib/describeInventoryDeletions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeInventoryDeletionsRequest.t - type output = DescribeInventoryDeletionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.ml b/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.ml index ae0c1995a..aff789fa2 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowExecutionTaskInvocationsRequest.t - type output = DescribeMaintenanceWindowExecutionTaskInvocationsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.mli b/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.mli index 8fb3ae839..e5eb00011 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowExecutionTaskInvocations.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowExecutionTaskInvocationsRequest.t - type output = DescribeMaintenanceWindowExecutionTaskInvocationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.ml b/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.ml index b91bd40ce..e67da7223 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowExecutionTasksRequest.t - type output = DescribeMaintenanceWindowExecutionTasksResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.mli b/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.mli index 735fe16bf..6c3e9e540 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowExecutionTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowExecutionTasksRequest.t - type output = DescribeMaintenanceWindowExecutionTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowExecutions.ml b/libraries/ssm/lib/describeMaintenanceWindowExecutions.ml index 64c23ed1f..ef2342482 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowExecutions.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowExecutions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowExecutionsRequest.t - type output = DescribeMaintenanceWindowExecutionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowExecutions.mli b/libraries/ssm/lib/describeMaintenanceWindowExecutions.mli index ff7ccefd1..d55787397 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowExecutions.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowExecutions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowExecutionsRequest.t - type output = DescribeMaintenanceWindowExecutionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowSchedule.ml b/libraries/ssm/lib/describeMaintenanceWindowSchedule.ml index 3350ebc91..2f24bb5bd 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowSchedule.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowSchedule.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowScheduleRequest.t - type output = DescribeMaintenanceWindowScheduleResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowSchedule.mli b/libraries/ssm/lib/describeMaintenanceWindowSchedule.mli index 092f4ed1d..2b3a14632 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowSchedule.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowSchedule.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowScheduleRequest.t - type output = DescribeMaintenanceWindowScheduleResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowTargets.ml b/libraries/ssm/lib/describeMaintenanceWindowTargets.ml index 0ca7d1d8f..0d971b04c 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowTargets.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowTargets.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowTargetsRequest.t - type output = DescribeMaintenanceWindowTargetsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowTargets.mli b/libraries/ssm/lib/describeMaintenanceWindowTargets.mli index 7022086e5..05f2e3e18 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowTargets.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowTargets.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowTargetsRequest.t - type output = DescribeMaintenanceWindowTargetsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowTasks.ml b/libraries/ssm/lib/describeMaintenanceWindowTasks.ml index 9276bb502..76faa8a96 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowTasks.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowTasks.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowTasksRequest.t - type output = DescribeMaintenanceWindowTasksResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowTasks.mli b/libraries/ssm/lib/describeMaintenanceWindowTasks.mli index 03fca5273..cae46b9b5 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowTasks.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowTasks.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowTasksRequest.t - type output = DescribeMaintenanceWindowTasksResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindows.ml b/libraries/ssm/lib/describeMaintenanceWindows.ml index 41055bd8d..3024c78ac 100644 --- a/libraries/ssm/lib/describeMaintenanceWindows.ml +++ b/libraries/ssm/lib/describeMaintenanceWindows.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowsRequest.t - type output = DescribeMaintenanceWindowsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindows.mli b/libraries/ssm/lib/describeMaintenanceWindows.mli index 6b0454d97..c95fdfa16 100644 --- a/libraries/ssm/lib/describeMaintenanceWindows.mli +++ b/libraries/ssm/lib/describeMaintenanceWindows.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowsRequest.t - type output = DescribeMaintenanceWindowsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeMaintenanceWindowsForTarget.ml b/libraries/ssm/lib/describeMaintenanceWindowsForTarget.ml index 6120848ae..0b7f2d104 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowsForTarget.ml +++ b/libraries/ssm/lib/describeMaintenanceWindowsForTarget.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeMaintenanceWindowsForTargetRequest.t - type output = DescribeMaintenanceWindowsForTargetResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeMaintenanceWindowsForTarget.mli b/libraries/ssm/lib/describeMaintenanceWindowsForTarget.mli index 5b10f80ac..10c768db1 100644 --- a/libraries/ssm/lib/describeMaintenanceWindowsForTarget.mli +++ b/libraries/ssm/lib/describeMaintenanceWindowsForTarget.mli @@ -1,9 +1,7 @@ open Types type input = DescribeMaintenanceWindowsForTargetRequest.t - type output = DescribeMaintenanceWindowsForTargetResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeOpsItems.ml b/libraries/ssm/lib/describeOpsItems.ml index d05734ce4..364853b1e 100644 --- a/libraries/ssm/lib/describeOpsItems.ml +++ b/libraries/ssm/lib/describeOpsItems.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeOpsItemsRequest.t - type output = DescribeOpsItemsResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeOpsItems.mli b/libraries/ssm/lib/describeOpsItems.mli index 5da8d5cb3..6d0512b76 100644 --- a/libraries/ssm/lib/describeOpsItems.mli +++ b/libraries/ssm/lib/describeOpsItems.mli @@ -1,9 +1,7 @@ open Types type input = DescribeOpsItemsRequest.t - type output = DescribeOpsItemsResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeParameters.ml b/libraries/ssm/lib/describeParameters.ml index c19e9726d..39dc7faf1 100644 --- a/libraries/ssm/lib/describeParameters.ml +++ b/libraries/ssm/lib/describeParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeParametersRequest.t - type output = DescribeParametersResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeParameters.mli b/libraries/ssm/lib/describeParameters.mli index 24a4fbbc1..f16021896 100644 --- a/libraries/ssm/lib/describeParameters.mli +++ b/libraries/ssm/lib/describeParameters.mli @@ -1,9 +1,7 @@ open Types type input = DescribeParametersRequest.t - type output = DescribeParametersResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describePatchBaselines.ml b/libraries/ssm/lib/describePatchBaselines.ml index 02a31ab87..a2ca602df 100644 --- a/libraries/ssm/lib/describePatchBaselines.ml +++ b/libraries/ssm/lib/describePatchBaselines.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePatchBaselinesRequest.t - type output = DescribePatchBaselinesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describePatchBaselines.mli b/libraries/ssm/lib/describePatchBaselines.mli index e956d9921..418199274 100644 --- a/libraries/ssm/lib/describePatchBaselines.mli +++ b/libraries/ssm/lib/describePatchBaselines.mli @@ -1,9 +1,7 @@ open Types type input = DescribePatchBaselinesRequest.t - type output = DescribePatchBaselinesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describePatchGroupState.ml b/libraries/ssm/lib/describePatchGroupState.ml index 14f544f9a..7e2ba17cf 100644 --- a/libraries/ssm/lib/describePatchGroupState.ml +++ b/libraries/ssm/lib/describePatchGroupState.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePatchGroupStateRequest.t - type output = DescribePatchGroupStateResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describePatchGroupState.mli b/libraries/ssm/lib/describePatchGroupState.mli index b0bc35aa9..0db68f67f 100644 --- a/libraries/ssm/lib/describePatchGroupState.mli +++ b/libraries/ssm/lib/describePatchGroupState.mli @@ -1,9 +1,7 @@ open Types type input = DescribePatchGroupStateRequest.t - type output = DescribePatchGroupStateResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describePatchGroups.ml b/libraries/ssm/lib/describePatchGroups.ml index f19d46256..762d6f82e 100644 --- a/libraries/ssm/lib/describePatchGroups.ml +++ b/libraries/ssm/lib/describePatchGroups.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePatchGroupsRequest.t - type output = DescribePatchGroupsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describePatchGroups.mli b/libraries/ssm/lib/describePatchGroups.mli index b9fcf25bb..825660d3a 100644 --- a/libraries/ssm/lib/describePatchGroups.mli +++ b/libraries/ssm/lib/describePatchGroups.mli @@ -1,9 +1,7 @@ open Types type input = DescribePatchGroupsRequest.t - type output = DescribePatchGroupsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describePatchProperties.ml b/libraries/ssm/lib/describePatchProperties.ml index a4259a06c..351525b0f 100644 --- a/libraries/ssm/lib/describePatchProperties.ml +++ b/libraries/ssm/lib/describePatchProperties.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribePatchPropertiesRequest.t - type output = DescribePatchPropertiesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describePatchProperties.mli b/libraries/ssm/lib/describePatchProperties.mli index 6b1955957..9101738bd 100644 --- a/libraries/ssm/lib/describePatchProperties.mli +++ b/libraries/ssm/lib/describePatchProperties.mli @@ -1,9 +1,7 @@ open Types type input = DescribePatchPropertiesRequest.t - type output = DescribePatchPropertiesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/describeSessions.ml b/libraries/ssm/lib/describeSessions.ml index 873ea38a2..bbd0dec9b 100644 --- a/libraries/ssm/lib/describeSessions.ml +++ b/libraries/ssm/lib/describeSessions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DescribeSessionsRequest.t - type output = DescribeSessionsResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/describeSessions.mli b/libraries/ssm/lib/describeSessions.mli index 6ebca7330..d15f181a4 100644 --- a/libraries/ssm/lib/describeSessions.mli +++ b/libraries/ssm/lib/describeSessions.mli @@ -1,9 +1,7 @@ open Types type input = DescribeSessionsRequest.t - type output = DescribeSessionsResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getAutomationExecution.ml b/libraries/ssm/lib/getAutomationExecution.ml index f61854ad8..68fbe7641 100644 --- a/libraries/ssm/lib/getAutomationExecution.ml +++ b/libraries/ssm/lib/getAutomationExecution.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetAutomationExecutionRequest.t - type output = GetAutomationExecutionResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getAutomationExecution.mli b/libraries/ssm/lib/getAutomationExecution.mli index 9aed7c2ea..fcf35d4ae 100644 --- a/libraries/ssm/lib/getAutomationExecution.mli +++ b/libraries/ssm/lib/getAutomationExecution.mli @@ -1,9 +1,7 @@ open Types type input = GetAutomationExecutionRequest.t - type output = GetAutomationExecutionResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getCalendarState.ml b/libraries/ssm/lib/getCalendarState.ml index 424f30475..215727f85 100644 --- a/libraries/ssm/lib/getCalendarState.ml +++ b/libraries/ssm/lib/getCalendarState.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetCalendarStateRequest.t - type output = GetCalendarStateResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getCalendarState.mli b/libraries/ssm/lib/getCalendarState.mli index 77d68cd37..268e9ff2c 100644 --- a/libraries/ssm/lib/getCalendarState.mli +++ b/libraries/ssm/lib/getCalendarState.mli @@ -1,9 +1,7 @@ open Types type input = GetCalendarStateRequest.t - type output = GetCalendarStateResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getCommandInvocation.ml b/libraries/ssm/lib/getCommandInvocation.ml index e82d25a6e..843b188b2 100644 --- a/libraries/ssm/lib/getCommandInvocation.ml +++ b/libraries/ssm/lib/getCommandInvocation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetCommandInvocationRequest.t - type output = GetCommandInvocationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getCommandInvocation.mli b/libraries/ssm/lib/getCommandInvocation.mli index bb8a74fb6..081912c07 100644 --- a/libraries/ssm/lib/getCommandInvocation.mli +++ b/libraries/ssm/lib/getCommandInvocation.mli @@ -1,9 +1,7 @@ open Types type input = GetCommandInvocationRequest.t - type output = GetCommandInvocationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getConnectionStatus.ml b/libraries/ssm/lib/getConnectionStatus.ml index 66945bd7b..c3a93d7dd 100644 --- a/libraries/ssm/lib/getConnectionStatus.ml +++ b/libraries/ssm/lib/getConnectionStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetConnectionStatusRequest.t - type output = GetConnectionStatusResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getConnectionStatus.mli b/libraries/ssm/lib/getConnectionStatus.mli index 9e3b7ec79..847a461fc 100644 --- a/libraries/ssm/lib/getConnectionStatus.mli +++ b/libraries/ssm/lib/getConnectionStatus.mli @@ -1,9 +1,7 @@ open Types type input = GetConnectionStatusRequest.t - type output = GetConnectionStatusResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getDefaultPatchBaseline.ml b/libraries/ssm/lib/getDefaultPatchBaseline.ml index 08658afc4..bcedf223d 100644 --- a/libraries/ssm/lib/getDefaultPatchBaseline.ml +++ b/libraries/ssm/lib/getDefaultPatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetDefaultPatchBaselineRequest.t - type output = GetDefaultPatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getDefaultPatchBaseline.mli b/libraries/ssm/lib/getDefaultPatchBaseline.mli index de916b7dd..c0d569c1e 100644 --- a/libraries/ssm/lib/getDefaultPatchBaseline.mli +++ b/libraries/ssm/lib/getDefaultPatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = GetDefaultPatchBaselineRequest.t - type output = GetDefaultPatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.ml b/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.ml index 51946ea79..e4649b815 100644 --- a/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.ml +++ b/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetDeployablePatchSnapshotForInstanceRequest.t - type output = GetDeployablePatchSnapshotForInstanceResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.mli b/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.mli index 3e6807779..b6c2306bf 100644 --- a/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.mli +++ b/libraries/ssm/lib/getDeployablePatchSnapshotForInstance.mli @@ -1,9 +1,7 @@ open Types type input = GetDeployablePatchSnapshotForInstanceRequest.t - type output = GetDeployablePatchSnapshotForInstanceResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getDocument.ml b/libraries/ssm/lib/getDocument.ml index 82564ea8d..5d6ef5122 100644 --- a/libraries/ssm/lib/getDocument.ml +++ b/libraries/ssm/lib/getDocument.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetDocumentRequest.t - type output = GetDocumentResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getDocument.mli b/libraries/ssm/lib/getDocument.mli index e42272941..722082460 100644 --- a/libraries/ssm/lib/getDocument.mli +++ b/libraries/ssm/lib/getDocument.mli @@ -1,9 +1,7 @@ open Types type input = GetDocumentRequest.t - type output = GetDocumentResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getInventory.ml b/libraries/ssm/lib/getInventory.ml index d51320a6b..4f8dcd6c9 100644 --- a/libraries/ssm/lib/getInventory.ml +++ b/libraries/ssm/lib/getInventory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetInventoryRequest.t - type output = GetInventoryResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getInventory.mli b/libraries/ssm/lib/getInventory.mli index b1d3382a2..125081839 100644 --- a/libraries/ssm/lib/getInventory.mli +++ b/libraries/ssm/lib/getInventory.mli @@ -1,9 +1,7 @@ open Types type input = GetInventoryRequest.t - type output = GetInventoryResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getInventorySchema.ml b/libraries/ssm/lib/getInventorySchema.ml index 5be911db7..5aa03a14e 100644 --- a/libraries/ssm/lib/getInventorySchema.ml +++ b/libraries/ssm/lib/getInventorySchema.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetInventorySchemaRequest.t - type output = GetInventorySchemaResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getInventorySchema.mli b/libraries/ssm/lib/getInventorySchema.mli index 82b92f352..e0f3767c1 100644 --- a/libraries/ssm/lib/getInventorySchema.mli +++ b/libraries/ssm/lib/getInventorySchema.mli @@ -1,9 +1,7 @@ open Types type input = GetInventorySchemaRequest.t - type output = GetInventorySchemaResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getMaintenanceWindow.ml b/libraries/ssm/lib/getMaintenanceWindow.ml index 1e843e19c..1e159b58a 100644 --- a/libraries/ssm/lib/getMaintenanceWindow.ml +++ b/libraries/ssm/lib/getMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMaintenanceWindowRequest.t - type output = GetMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getMaintenanceWindow.mli b/libraries/ssm/lib/getMaintenanceWindow.mli index d3b07a657..3cadeb8cc 100644 --- a/libraries/ssm/lib/getMaintenanceWindow.mli +++ b/libraries/ssm/lib/getMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = GetMaintenanceWindowRequest.t - type output = GetMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getMaintenanceWindowExecution.ml b/libraries/ssm/lib/getMaintenanceWindowExecution.ml index 0718f318e..4bd37234e 100644 --- a/libraries/ssm/lib/getMaintenanceWindowExecution.ml +++ b/libraries/ssm/lib/getMaintenanceWindowExecution.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMaintenanceWindowExecutionRequest.t - type output = GetMaintenanceWindowExecutionResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getMaintenanceWindowExecution.mli b/libraries/ssm/lib/getMaintenanceWindowExecution.mli index 177eb97d5..ced364420 100644 --- a/libraries/ssm/lib/getMaintenanceWindowExecution.mli +++ b/libraries/ssm/lib/getMaintenanceWindowExecution.mli @@ -1,9 +1,7 @@ open Types type input = GetMaintenanceWindowExecutionRequest.t - type output = GetMaintenanceWindowExecutionResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getMaintenanceWindowExecutionTask.ml b/libraries/ssm/lib/getMaintenanceWindowExecutionTask.ml index d0bacf32c..2eebc84a4 100644 --- a/libraries/ssm/lib/getMaintenanceWindowExecutionTask.ml +++ b/libraries/ssm/lib/getMaintenanceWindowExecutionTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMaintenanceWindowExecutionTaskRequest.t - type output = GetMaintenanceWindowExecutionTaskResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getMaintenanceWindowExecutionTask.mli b/libraries/ssm/lib/getMaintenanceWindowExecutionTask.mli index 1aefac140..25daf1ff9 100644 --- a/libraries/ssm/lib/getMaintenanceWindowExecutionTask.mli +++ b/libraries/ssm/lib/getMaintenanceWindowExecutionTask.mli @@ -1,9 +1,7 @@ open Types type input = GetMaintenanceWindowExecutionTaskRequest.t - type output = GetMaintenanceWindowExecutionTaskResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.ml b/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.ml index efece9eda..3db567e23 100644 --- a/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.ml +++ b/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMaintenanceWindowExecutionTaskInvocationRequest.t - type output = GetMaintenanceWindowExecutionTaskInvocationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.mli b/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.mli index 61f0e9323..8bb418f39 100644 --- a/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.mli +++ b/libraries/ssm/lib/getMaintenanceWindowExecutionTaskInvocation.mli @@ -1,9 +1,7 @@ open Types type input = GetMaintenanceWindowExecutionTaskInvocationRequest.t - type output = GetMaintenanceWindowExecutionTaskInvocationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getMaintenanceWindowTask.ml b/libraries/ssm/lib/getMaintenanceWindowTask.ml index 767bd0c34..c2c47f347 100644 --- a/libraries/ssm/lib/getMaintenanceWindowTask.ml +++ b/libraries/ssm/lib/getMaintenanceWindowTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetMaintenanceWindowTaskRequest.t - type output = GetMaintenanceWindowTaskResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getMaintenanceWindowTask.mli b/libraries/ssm/lib/getMaintenanceWindowTask.mli index eb7311d74..f87c776a8 100644 --- a/libraries/ssm/lib/getMaintenanceWindowTask.mli +++ b/libraries/ssm/lib/getMaintenanceWindowTask.mli @@ -1,9 +1,7 @@ open Types type input = GetMaintenanceWindowTaskRequest.t - type output = GetMaintenanceWindowTaskResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getOpsItem.ml b/libraries/ssm/lib/getOpsItem.ml index a8a1f8286..81e25b928 100644 --- a/libraries/ssm/lib/getOpsItem.ml +++ b/libraries/ssm/lib/getOpsItem.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetOpsItemRequest.t - type output = GetOpsItemResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getOpsItem.mli b/libraries/ssm/lib/getOpsItem.mli index 76301f319..0851ac2f0 100644 --- a/libraries/ssm/lib/getOpsItem.mli +++ b/libraries/ssm/lib/getOpsItem.mli @@ -1,9 +1,7 @@ open Types type input = GetOpsItemRequest.t - type output = GetOpsItemResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getOpsSummary.ml b/libraries/ssm/lib/getOpsSummary.ml index 364529879..baa07b3da 100644 --- a/libraries/ssm/lib/getOpsSummary.ml +++ b/libraries/ssm/lib/getOpsSummary.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetOpsSummaryRequest.t - type output = GetOpsSummaryResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getOpsSummary.mli b/libraries/ssm/lib/getOpsSummary.mli index 6b34f25cc..dd973c38c 100644 --- a/libraries/ssm/lib/getOpsSummary.mli +++ b/libraries/ssm/lib/getOpsSummary.mli @@ -1,9 +1,7 @@ open Types type input = GetOpsSummaryRequest.t - type output = GetOpsSummaryResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getParameter.ml b/libraries/ssm/lib/getParameter.ml index ae522bb87..056f10e95 100644 --- a/libraries/ssm/lib/getParameter.ml +++ b/libraries/ssm/lib/getParameter.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetParameterRequest.t - type output = GetParameterResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getParameter.mli b/libraries/ssm/lib/getParameter.mli index 0833a44be..e0c8541a9 100644 --- a/libraries/ssm/lib/getParameter.mli +++ b/libraries/ssm/lib/getParameter.mli @@ -1,9 +1,7 @@ open Types type input = GetParameterRequest.t - type output = GetParameterResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getParameterHistory.ml b/libraries/ssm/lib/getParameterHistory.ml index 212af192d..3625e51e4 100644 --- a/libraries/ssm/lib/getParameterHistory.ml +++ b/libraries/ssm/lib/getParameterHistory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetParameterHistoryRequest.t - type output = GetParameterHistoryResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getParameterHistory.mli b/libraries/ssm/lib/getParameterHistory.mli index 9b6fda435..001fed44c 100644 --- a/libraries/ssm/lib/getParameterHistory.mli +++ b/libraries/ssm/lib/getParameterHistory.mli @@ -1,9 +1,7 @@ open Types type input = GetParameterHistoryRequest.t - type output = GetParameterHistoryResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getParameters.ml b/libraries/ssm/lib/getParameters.ml index b197688b3..474d3004c 100644 --- a/libraries/ssm/lib/getParameters.ml +++ b/libraries/ssm/lib/getParameters.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetParametersRequest.t - type output = GetParametersResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getParameters.mli b/libraries/ssm/lib/getParameters.mli index 721715069..5d59c17a9 100644 --- a/libraries/ssm/lib/getParameters.mli +++ b/libraries/ssm/lib/getParameters.mli @@ -1,9 +1,7 @@ open Types type input = GetParametersRequest.t - type output = GetParametersResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getParametersByPath.ml b/libraries/ssm/lib/getParametersByPath.ml index 1670cf9b8..9920a6569 100644 --- a/libraries/ssm/lib/getParametersByPath.ml +++ b/libraries/ssm/lib/getParametersByPath.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetParametersByPathRequest.t - type output = GetParametersByPathResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getParametersByPath.mli b/libraries/ssm/lib/getParametersByPath.mli index 140d6ba0f..4077dcf89 100644 --- a/libraries/ssm/lib/getParametersByPath.mli +++ b/libraries/ssm/lib/getParametersByPath.mli @@ -1,9 +1,7 @@ open Types type input = GetParametersByPathRequest.t - type output = GetParametersByPathResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getPatchBaseline.ml b/libraries/ssm/lib/getPatchBaseline.ml index b6f64abf0..d747c5957 100644 --- a/libraries/ssm/lib/getPatchBaseline.ml +++ b/libraries/ssm/lib/getPatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetPatchBaselineRequest.t - type output = GetPatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getPatchBaseline.mli b/libraries/ssm/lib/getPatchBaseline.mli index e175f767b..c31ef907e 100644 --- a/libraries/ssm/lib/getPatchBaseline.mli +++ b/libraries/ssm/lib/getPatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = GetPatchBaselineRequest.t - type output = GetPatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getPatchBaselineForPatchGroup.ml b/libraries/ssm/lib/getPatchBaselineForPatchGroup.ml index 404a5e617..07b89f677 100644 --- a/libraries/ssm/lib/getPatchBaselineForPatchGroup.ml +++ b/libraries/ssm/lib/getPatchBaselineForPatchGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetPatchBaselineForPatchGroupRequest.t - type output = GetPatchBaselineForPatchGroupResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getPatchBaselineForPatchGroup.mli b/libraries/ssm/lib/getPatchBaselineForPatchGroup.mli index 9f5430ce7..64be3e47e 100644 --- a/libraries/ssm/lib/getPatchBaselineForPatchGroup.mli +++ b/libraries/ssm/lib/getPatchBaselineForPatchGroup.mli @@ -1,9 +1,7 @@ open Types type input = GetPatchBaselineForPatchGroupRequest.t - type output = GetPatchBaselineForPatchGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/getServiceSetting.ml b/libraries/ssm/lib/getServiceSetting.ml index 02e123a21..ff4d9f6a3 100644 --- a/libraries/ssm/lib/getServiceSetting.ml +++ b/libraries/ssm/lib/getServiceSetting.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetServiceSettingRequest.t - type output = GetServiceSettingResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/getServiceSetting.mli b/libraries/ssm/lib/getServiceSetting.mli index c110ddb81..2f3db3a61 100644 --- a/libraries/ssm/lib/getServiceSetting.mli +++ b/libraries/ssm/lib/getServiceSetting.mli @@ -1,9 +1,7 @@ open Types type input = GetServiceSettingRequest.t - type output = GetServiceSettingResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/labelParameterVersion.ml b/libraries/ssm/lib/labelParameterVersion.ml index fdfd15f6a..89665f343 100644 --- a/libraries/ssm/lib/labelParameterVersion.ml +++ b/libraries/ssm/lib/labelParameterVersion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = LabelParameterVersionRequest.t - type output = LabelParameterVersionResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/labelParameterVersion.mli b/libraries/ssm/lib/labelParameterVersion.mli index 31a43cb0d..d94f91b62 100644 --- a/libraries/ssm/lib/labelParameterVersion.mli +++ b/libraries/ssm/lib/labelParameterVersion.mli @@ -1,9 +1,7 @@ open Types type input = LabelParameterVersionRequest.t - type output = LabelParameterVersionResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listAssociationVersions.ml b/libraries/ssm/lib/listAssociationVersions.ml index 773688c20..1b2b2b123 100644 --- a/libraries/ssm/lib/listAssociationVersions.ml +++ b/libraries/ssm/lib/listAssociationVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListAssociationVersionsRequest.t - type output = ListAssociationVersionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listAssociationVersions.mli b/libraries/ssm/lib/listAssociationVersions.mli index f59fd8d35..9a31cf90c 100644 --- a/libraries/ssm/lib/listAssociationVersions.mli +++ b/libraries/ssm/lib/listAssociationVersions.mli @@ -1,9 +1,7 @@ open Types type input = ListAssociationVersionsRequest.t - type output = ListAssociationVersionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listAssociations.ml b/libraries/ssm/lib/listAssociations.ml index 0314ae618..0b4126bcc 100644 --- a/libraries/ssm/lib/listAssociations.ml +++ b/libraries/ssm/lib/listAssociations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListAssociationsRequest.t - type output = ListAssociationsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listAssociations.mli b/libraries/ssm/lib/listAssociations.mli index 45580c754..510fe2de4 100644 --- a/libraries/ssm/lib/listAssociations.mli +++ b/libraries/ssm/lib/listAssociations.mli @@ -1,9 +1,7 @@ open Types type input = ListAssociationsRequest.t - type output = ListAssociationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listCommandInvocations.ml b/libraries/ssm/lib/listCommandInvocations.ml index 33088ad6b..281d0c583 100644 --- a/libraries/ssm/lib/listCommandInvocations.ml +++ b/libraries/ssm/lib/listCommandInvocations.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListCommandInvocationsRequest.t - type output = ListCommandInvocationsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listCommandInvocations.mli b/libraries/ssm/lib/listCommandInvocations.mli index 987d28fc8..37a4be6e2 100644 --- a/libraries/ssm/lib/listCommandInvocations.mli +++ b/libraries/ssm/lib/listCommandInvocations.mli @@ -1,9 +1,7 @@ open Types type input = ListCommandInvocationsRequest.t - type output = ListCommandInvocationsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listCommands.ml b/libraries/ssm/lib/listCommands.ml index 94efd0cd5..a42f486ac 100644 --- a/libraries/ssm/lib/listCommands.ml +++ b/libraries/ssm/lib/listCommands.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListCommandsRequest.t - type output = ListCommandsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listCommands.mli b/libraries/ssm/lib/listCommands.mli index 61b582c4c..a5ebb9a31 100644 --- a/libraries/ssm/lib/listCommands.mli +++ b/libraries/ssm/lib/listCommands.mli @@ -1,9 +1,7 @@ open Types type input = ListCommandsRequest.t - type output = ListCommandsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listComplianceItems.ml b/libraries/ssm/lib/listComplianceItems.ml index 0eef39fdf..d781aa355 100644 --- a/libraries/ssm/lib/listComplianceItems.ml +++ b/libraries/ssm/lib/listComplianceItems.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListComplianceItemsRequest.t - type output = ListComplianceItemsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listComplianceItems.mli b/libraries/ssm/lib/listComplianceItems.mli index e8bfa8fc4..16da13c03 100644 --- a/libraries/ssm/lib/listComplianceItems.mli +++ b/libraries/ssm/lib/listComplianceItems.mli @@ -1,9 +1,7 @@ open Types type input = ListComplianceItemsRequest.t - type output = ListComplianceItemsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listComplianceSummaries.ml b/libraries/ssm/lib/listComplianceSummaries.ml index ef93a823e..c5f0f3fae 100644 --- a/libraries/ssm/lib/listComplianceSummaries.ml +++ b/libraries/ssm/lib/listComplianceSummaries.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListComplianceSummariesRequest.t - type output = ListComplianceSummariesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listComplianceSummaries.mli b/libraries/ssm/lib/listComplianceSummaries.mli index 9bd8b99af..b664bb2ae 100644 --- a/libraries/ssm/lib/listComplianceSummaries.mli +++ b/libraries/ssm/lib/listComplianceSummaries.mli @@ -1,9 +1,7 @@ open Types type input = ListComplianceSummariesRequest.t - type output = ListComplianceSummariesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listDocumentVersions.ml b/libraries/ssm/lib/listDocumentVersions.ml index b1ce9d798..7697e21e5 100644 --- a/libraries/ssm/lib/listDocumentVersions.ml +++ b/libraries/ssm/lib/listDocumentVersions.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListDocumentVersionsRequest.t - type output = ListDocumentVersionsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listDocumentVersions.mli b/libraries/ssm/lib/listDocumentVersions.mli index c5e7f820d..4e498fdb7 100644 --- a/libraries/ssm/lib/listDocumentVersions.mli +++ b/libraries/ssm/lib/listDocumentVersions.mli @@ -1,9 +1,7 @@ open Types type input = ListDocumentVersionsRequest.t - type output = ListDocumentVersionsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listDocuments.ml b/libraries/ssm/lib/listDocuments.ml index fb01a3fd7..5719be26d 100644 --- a/libraries/ssm/lib/listDocuments.ml +++ b/libraries/ssm/lib/listDocuments.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListDocumentsRequest.t - type output = ListDocumentsResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listDocuments.mli b/libraries/ssm/lib/listDocuments.mli index 4c743a28b..7ffc6b2b2 100644 --- a/libraries/ssm/lib/listDocuments.mli +++ b/libraries/ssm/lib/listDocuments.mli @@ -1,9 +1,7 @@ open Types type input = ListDocumentsRequest.t - type output = ListDocumentsResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listInventoryEntries.ml b/libraries/ssm/lib/listInventoryEntries.ml index 964ec3a0f..e5275a85d 100644 --- a/libraries/ssm/lib/listInventoryEntries.ml +++ b/libraries/ssm/lib/listInventoryEntries.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListInventoryEntriesRequest.t - type output = ListInventoryEntriesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listInventoryEntries.mli b/libraries/ssm/lib/listInventoryEntries.mli index 89f55bb59..712c86bff 100644 --- a/libraries/ssm/lib/listInventoryEntries.mli +++ b/libraries/ssm/lib/listInventoryEntries.mli @@ -1,9 +1,7 @@ open Types type input = ListInventoryEntriesRequest.t - type output = ListInventoryEntriesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listResourceComplianceSummaries.ml b/libraries/ssm/lib/listResourceComplianceSummaries.ml index 6ea5c21dc..1cce23a51 100644 --- a/libraries/ssm/lib/listResourceComplianceSummaries.ml +++ b/libraries/ssm/lib/listResourceComplianceSummaries.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListResourceComplianceSummariesRequest.t - type output = ListResourceComplianceSummariesResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listResourceComplianceSummaries.mli b/libraries/ssm/lib/listResourceComplianceSummaries.mli index d7d7231c8..bf178ee30 100644 --- a/libraries/ssm/lib/listResourceComplianceSummaries.mli +++ b/libraries/ssm/lib/listResourceComplianceSummaries.mli @@ -1,9 +1,7 @@ open Types type input = ListResourceComplianceSummariesRequest.t - type output = ListResourceComplianceSummariesResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listResourceDataSync.ml b/libraries/ssm/lib/listResourceDataSync.ml index dac1018c7..accf598a8 100644 --- a/libraries/ssm/lib/listResourceDataSync.ml +++ b/libraries/ssm/lib/listResourceDataSync.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListResourceDataSyncRequest.t - type output = ListResourceDataSyncResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listResourceDataSync.mli b/libraries/ssm/lib/listResourceDataSync.mli index 655f9b522..3f9b7f01b 100644 --- a/libraries/ssm/lib/listResourceDataSync.mli +++ b/libraries/ssm/lib/listResourceDataSync.mli @@ -1,9 +1,7 @@ open Types type input = ListResourceDataSyncRequest.t - type output = ListResourceDataSyncResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/listTagsForResource.ml b/libraries/ssm/lib/listTagsForResource.ml index f835fb4d9..eb784fc63 100644 --- a/libraries/ssm/lib/listTagsForResource.ml +++ b/libraries/ssm/lib/listTagsForResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ListTagsForResourceRequest.t - type output = ListTagsForResourceResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/listTagsForResource.mli b/libraries/ssm/lib/listTagsForResource.mli index c89a9ed26..8aae0b164 100644 --- a/libraries/ssm/lib/listTagsForResource.mli +++ b/libraries/ssm/lib/listTagsForResource.mli @@ -1,9 +1,7 @@ open Types type input = ListTagsForResourceRequest.t - type output = ListTagsForResourceResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/modifyDocumentPermission.ml b/libraries/ssm/lib/modifyDocumentPermission.ml index 9034b95e0..58879f717 100644 --- a/libraries/ssm/lib/modifyDocumentPermission.ml +++ b/libraries/ssm/lib/modifyDocumentPermission.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ModifyDocumentPermissionRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/modifyDocumentPermission.mli b/libraries/ssm/lib/modifyDocumentPermission.mli index 9b8f63bdb..39a42450e 100644 --- a/libraries/ssm/lib/modifyDocumentPermission.mli +++ b/libraries/ssm/lib/modifyDocumentPermission.mli @@ -1,9 +1,7 @@ open Types type input = ModifyDocumentPermissionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/putComplianceItems.ml b/libraries/ssm/lib/putComplianceItems.ml index 18a3994de..e5d89b00f 100644 --- a/libraries/ssm/lib/putComplianceItems.ml +++ b/libraries/ssm/lib/putComplianceItems.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutComplianceItemsRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/putComplianceItems.mli b/libraries/ssm/lib/putComplianceItems.mli index c5f9ab6c7..f7b639d22 100644 --- a/libraries/ssm/lib/putComplianceItems.mli +++ b/libraries/ssm/lib/putComplianceItems.mli @@ -1,9 +1,7 @@ open Types type input = PutComplianceItemsRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/putInventory.ml b/libraries/ssm/lib/putInventory.ml index 00211bb7b..323988a55 100644 --- a/libraries/ssm/lib/putInventory.ml +++ b/libraries/ssm/lib/putInventory.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutInventoryRequest.t - type output = PutInventoryResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/putInventory.mli b/libraries/ssm/lib/putInventory.mli index 0d6526180..59fc4ba06 100644 --- a/libraries/ssm/lib/putInventory.mli +++ b/libraries/ssm/lib/putInventory.mli @@ -1,9 +1,7 @@ open Types type input = PutInventoryRequest.t - type output = PutInventoryResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/putParameter.ml b/libraries/ssm/lib/putParameter.ml index 5256d8aa4..77bbcc813 100644 --- a/libraries/ssm/lib/putParameter.ml +++ b/libraries/ssm/lib/putParameter.ml @@ -2,13 +2,10 @@ open Types open Aws type input = PutParameterRequest.t - type output = PutParameterResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/putParameter.mli b/libraries/ssm/lib/putParameter.mli index b09fbfa90..655024611 100644 --- a/libraries/ssm/lib/putParameter.mli +++ b/libraries/ssm/lib/putParameter.mli @@ -1,9 +1,7 @@ open Types type input = PutParameterRequest.t - type output = PutParameterResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/registerDefaultPatchBaseline.ml b/libraries/ssm/lib/registerDefaultPatchBaseline.ml index dfc6f635e..7b1946c51 100644 --- a/libraries/ssm/lib/registerDefaultPatchBaseline.ml +++ b/libraries/ssm/lib/registerDefaultPatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterDefaultPatchBaselineRequest.t - type output = RegisterDefaultPatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/registerDefaultPatchBaseline.mli b/libraries/ssm/lib/registerDefaultPatchBaseline.mli index d25fcf383..0fb7c5a53 100644 --- a/libraries/ssm/lib/registerDefaultPatchBaseline.mli +++ b/libraries/ssm/lib/registerDefaultPatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = RegisterDefaultPatchBaselineRequest.t - type output = RegisterDefaultPatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/registerPatchBaselineForPatchGroup.ml b/libraries/ssm/lib/registerPatchBaselineForPatchGroup.ml index dc1d9b124..e5f38bed6 100644 --- a/libraries/ssm/lib/registerPatchBaselineForPatchGroup.ml +++ b/libraries/ssm/lib/registerPatchBaselineForPatchGroup.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterPatchBaselineForPatchGroupRequest.t - type output = RegisterPatchBaselineForPatchGroupResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/registerPatchBaselineForPatchGroup.mli b/libraries/ssm/lib/registerPatchBaselineForPatchGroup.mli index bf90db927..d1147c7e1 100644 --- a/libraries/ssm/lib/registerPatchBaselineForPatchGroup.mli +++ b/libraries/ssm/lib/registerPatchBaselineForPatchGroup.mli @@ -1,9 +1,7 @@ open Types type input = RegisterPatchBaselineForPatchGroupRequest.t - type output = RegisterPatchBaselineForPatchGroupResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/registerTargetWithMaintenanceWindow.ml b/libraries/ssm/lib/registerTargetWithMaintenanceWindow.ml index c68f434e6..49b6bfdb3 100644 --- a/libraries/ssm/lib/registerTargetWithMaintenanceWindow.ml +++ b/libraries/ssm/lib/registerTargetWithMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterTargetWithMaintenanceWindowRequest.t - type output = RegisterTargetWithMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/registerTargetWithMaintenanceWindow.mli b/libraries/ssm/lib/registerTargetWithMaintenanceWindow.mli index 8bace7d56..9d0b83464 100644 --- a/libraries/ssm/lib/registerTargetWithMaintenanceWindow.mli +++ b/libraries/ssm/lib/registerTargetWithMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = RegisterTargetWithMaintenanceWindowRequest.t - type output = RegisterTargetWithMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/registerTaskWithMaintenanceWindow.ml b/libraries/ssm/lib/registerTaskWithMaintenanceWindow.ml index 54e2e0c93..d390e4506 100644 --- a/libraries/ssm/lib/registerTaskWithMaintenanceWindow.ml +++ b/libraries/ssm/lib/registerTaskWithMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RegisterTaskWithMaintenanceWindowRequest.t - type output = RegisterTaskWithMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/registerTaskWithMaintenanceWindow.mli b/libraries/ssm/lib/registerTaskWithMaintenanceWindow.mli index a92b16235..390078c0f 100644 --- a/libraries/ssm/lib/registerTaskWithMaintenanceWindow.mli +++ b/libraries/ssm/lib/registerTaskWithMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = RegisterTaskWithMaintenanceWindowRequest.t - type output = RegisterTaskWithMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/removeTagsFromResource.ml b/libraries/ssm/lib/removeTagsFromResource.ml index 674dde232..89bdd1663 100644 --- a/libraries/ssm/lib/removeTagsFromResource.ml +++ b/libraries/ssm/lib/removeTagsFromResource.ml @@ -2,13 +2,10 @@ open Types open Aws type input = RemoveTagsFromResourceRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/removeTagsFromResource.mli b/libraries/ssm/lib/removeTagsFromResource.mli index b1ec6a106..65c778f67 100644 --- a/libraries/ssm/lib/removeTagsFromResource.mli +++ b/libraries/ssm/lib/removeTagsFromResource.mli @@ -1,9 +1,7 @@ open Types type input = RemoveTagsFromResourceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/resetServiceSetting.ml b/libraries/ssm/lib/resetServiceSetting.ml index af617a975..3f644f77e 100644 --- a/libraries/ssm/lib/resetServiceSetting.ml +++ b/libraries/ssm/lib/resetServiceSetting.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResetServiceSettingRequest.t - type output = ResetServiceSettingResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/resetServiceSetting.mli b/libraries/ssm/lib/resetServiceSetting.mli index ce6742d7c..f2f2338fd 100644 --- a/libraries/ssm/lib/resetServiceSetting.mli +++ b/libraries/ssm/lib/resetServiceSetting.mli @@ -1,9 +1,7 @@ open Types type input = ResetServiceSettingRequest.t - type output = ResetServiceSettingResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/resumeSession.ml b/libraries/ssm/lib/resumeSession.ml index 74ea8fef2..7c6d1a4b0 100644 --- a/libraries/ssm/lib/resumeSession.ml +++ b/libraries/ssm/lib/resumeSession.ml @@ -2,13 +2,10 @@ open Types open Aws type input = ResumeSessionRequest.t - type output = ResumeSessionResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/resumeSession.mli b/libraries/ssm/lib/resumeSession.mli index 7106ad90e..ed414ca2a 100644 --- a/libraries/ssm/lib/resumeSession.mli +++ b/libraries/ssm/lib/resumeSession.mli @@ -1,9 +1,7 @@ open Types type input = ResumeSessionRequest.t - type output = ResumeSessionResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/sendAutomationSignal.ml b/libraries/ssm/lib/sendAutomationSignal.ml index cdbc226c6..603efda0a 100644 --- a/libraries/ssm/lib/sendAutomationSignal.ml +++ b/libraries/ssm/lib/sendAutomationSignal.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SendAutomationSignalRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/sendAutomationSignal.mli b/libraries/ssm/lib/sendAutomationSignal.mli index 720beb697..2ca8e68b6 100644 --- a/libraries/ssm/lib/sendAutomationSignal.mli +++ b/libraries/ssm/lib/sendAutomationSignal.mli @@ -1,9 +1,7 @@ open Types type input = SendAutomationSignalRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/sendCommand.ml b/libraries/ssm/lib/sendCommand.ml index d0a57157b..7bc2721e3 100644 --- a/libraries/ssm/lib/sendCommand.ml +++ b/libraries/ssm/lib/sendCommand.ml @@ -2,13 +2,10 @@ open Types open Aws type input = SendCommandRequest.t - type output = SendCommandResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/sendCommand.mli b/libraries/ssm/lib/sendCommand.mli index d5ee1b8b6..cf7abef30 100644 --- a/libraries/ssm/lib/sendCommand.mli +++ b/libraries/ssm/lib/sendCommand.mli @@ -1,9 +1,7 @@ open Types type input = SendCommandRequest.t - type output = SendCommandResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/startAssociationsOnce.ml b/libraries/ssm/lib/startAssociationsOnce.ml index b9b73aedf..7aec5dfff 100644 --- a/libraries/ssm/lib/startAssociationsOnce.ml +++ b/libraries/ssm/lib/startAssociationsOnce.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartAssociationsOnceRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/startAssociationsOnce.mli b/libraries/ssm/lib/startAssociationsOnce.mli index b86fbfadd..b0ca9fb76 100644 --- a/libraries/ssm/lib/startAssociationsOnce.mli +++ b/libraries/ssm/lib/startAssociationsOnce.mli @@ -1,9 +1,7 @@ open Types type input = StartAssociationsOnceRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/startAutomationExecution.ml b/libraries/ssm/lib/startAutomationExecution.ml index 59750b8a3..53180d147 100644 --- a/libraries/ssm/lib/startAutomationExecution.ml +++ b/libraries/ssm/lib/startAutomationExecution.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartAutomationExecutionRequest.t - type output = StartAutomationExecutionResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/startAutomationExecution.mli b/libraries/ssm/lib/startAutomationExecution.mli index 6989b9b6f..aeb9c9fb7 100644 --- a/libraries/ssm/lib/startAutomationExecution.mli +++ b/libraries/ssm/lib/startAutomationExecution.mli @@ -1,9 +1,7 @@ open Types type input = StartAutomationExecutionRequest.t - type output = StartAutomationExecutionResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/startSession.ml b/libraries/ssm/lib/startSession.ml index 6307a6663..3f524e69a 100644 --- a/libraries/ssm/lib/startSession.ml +++ b/libraries/ssm/lib/startSession.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StartSessionRequest.t - type output = StartSessionResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/startSession.mli b/libraries/ssm/lib/startSession.mli index e87474dad..d12b80d0c 100644 --- a/libraries/ssm/lib/startSession.mli +++ b/libraries/ssm/lib/startSession.mli @@ -1,9 +1,7 @@ open Types type input = StartSessionRequest.t - type output = StartSessionResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/stopAutomationExecution.ml b/libraries/ssm/lib/stopAutomationExecution.ml index 7ba0d7781..ab5c2ee1c 100644 --- a/libraries/ssm/lib/stopAutomationExecution.ml +++ b/libraries/ssm/lib/stopAutomationExecution.ml @@ -2,13 +2,10 @@ open Types open Aws type input = StopAutomationExecutionRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/stopAutomationExecution.mli b/libraries/ssm/lib/stopAutomationExecution.mli index 65330e190..a0ba201d9 100644 --- a/libraries/ssm/lib/stopAutomationExecution.mli +++ b/libraries/ssm/lib/stopAutomationExecution.mli @@ -1,9 +1,7 @@ open Types type input = StopAutomationExecutionRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/terminateSession.ml b/libraries/ssm/lib/terminateSession.ml index 2f28948bc..8818daa43 100644 --- a/libraries/ssm/lib/terminateSession.ml +++ b/libraries/ssm/lib/terminateSession.ml @@ -2,13 +2,10 @@ open Types open Aws type input = TerminateSessionRequest.t - type output = TerminateSessionResponse.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/terminateSession.mli b/libraries/ssm/lib/terminateSession.mli index 114df4485..a2e9a92e6 100644 --- a/libraries/ssm/lib/terminateSession.mli +++ b/libraries/ssm/lib/terminateSession.mli @@ -1,9 +1,7 @@ open Types type input = TerminateSessionRequest.t - type output = TerminateSessionResponse.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/types.ml b/libraries/ssm/lib/types.ml index 37e725da9..b28808cbc 100644 --- a/libraries/ssm/lib/types.ml +++ b/libraries/ssm/lib/types.ml @@ -11,9 +11,7 @@ module TargetValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -99,9 +97,7 @@ module OperatingSystem = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -111,7 +107,6 @@ module OperatingSystem = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -288,9 +283,7 @@ module PatchGroupPatchBaselineMappingList = struct (List.map PatchGroupPatchBaselineMapping.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchGroupPatchBaselineMapping.to_query v - let to_json v = `List (List.map PatchGroupPatchBaselineMapping.to_json v) - let of_json j = Aws.Json.to_list PatchGroupPatchBaselineMapping.of_json j end @@ -437,9 +430,7 @@ module ParameterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -477,9 +468,7 @@ module CommandInvocationStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -489,7 +478,6 @@ module CommandInvocationStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -749,13 +737,9 @@ module ParametersFilterKey = struct | KeyId let str_to_t = [ "KeyId", KeyId; "Type", Type; "Name", Name ] - let t_to_str = [ KeyId, "KeyId"; Type, "Type"; Name, "Name" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -765,7 +749,6 @@ module ParametersFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -803,9 +786,7 @@ module MaintenanceWindowExecutionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -815,7 +796,6 @@ module MaintenanceWindowExecutionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -876,9 +856,7 @@ module AttachmentsSourceValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -901,9 +879,7 @@ module AttachmentsSourceKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -913,7 +889,6 @@ module AttachmentsSourceKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -975,9 +950,7 @@ module AttachmentsSourceList = struct Aws.Util.option_all (List.map AttachmentsSource.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AttachmentsSource.to_query v - let to_json v = `List (List.map AttachmentsSource.to_json v) - let of_json j = Aws.Json.to_list AttachmentsSource.of_json j end @@ -985,13 +958,9 @@ module InvalidOutputLocation = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -1004,9 +973,7 @@ module DocumentKeyValuesFilterValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1014,13 +981,9 @@ module AttachmentHashType = struct type t = Sha256 let str_to_t = [ "Sha256", Sha256 ] - let t_to_str = [ Sha256, "Sha256" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1030,7 +993,6 @@ module AttachmentHashType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1098,9 +1060,7 @@ module ParametersFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1158,9 +1118,7 @@ module ParametersFilterList = struct Aws.Util.option_all (List.map ParametersFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ParametersFilter.to_query v - let to_json v = `List (List.map ParametersFilter.to_json v) - let of_json j = Aws.Json.to_list ParametersFilter.of_json j end @@ -1173,9 +1131,7 @@ module ParameterStringFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1241,9 +1197,7 @@ module ParameterStringFilterList = struct (List.map ParameterStringFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ParameterStringFilter.to_query v - let to_json v = `List (List.map ParameterStringFilter.to_json v) - let of_json j = Aws.Json.to_list ParameterStringFilter.of_json j end @@ -1322,9 +1276,7 @@ module InventoryDeletionSummaryItems = struct (List.map InventoryDeletionSummaryItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryDeletionSummaryItem.to_query v - let to_json v = `List (List.map InventoryDeletionSummaryItem.to_json v) - let of_json j = Aws.Json.to_list InventoryDeletionSummaryItem.of_json j end @@ -1389,13 +1341,9 @@ module InventoryDeletionStatus = struct | Complete let str_to_t = [ "Complete", Complete; "InProgress", InProgress ] - let t_to_str = [ Complete, "Complete"; InProgress, "InProgress" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1405,7 +1353,6 @@ module InventoryDeletionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1524,9 +1471,7 @@ module InventoryDeletionsList = struct (List.map InventoryDeletionStatusItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryDeletionStatusItem.to_query v - let to_json v = `List (List.map InventoryDeletionStatusItem.to_json v) - let of_json j = Aws.Json.to_list InventoryDeletionStatusItem.of_json j end @@ -1560,13 +1505,9 @@ module DocumentParameterType = struct | StringList let str_to_t = [ "StringList", StringList; "String", String ] - let t_to_str = [ StringList, "StringList"; String, "String" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1576,7 +1517,6 @@ module DocumentParameterType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1584,9 +1524,7 @@ module NormalStringMap = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -1605,9 +1543,7 @@ module Targets = struct Aws.Util.option_all (List.map Target.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Target.to_query v - let to_json v = `List (List.map Target.to_json v) - let of_json j = Aws.Json.to_list Target.of_json j end @@ -1712,9 +1648,7 @@ module ComplianceResourceIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -1731,9 +1665,7 @@ module ParameterType = struct [ SecureString, "SecureString"; StringList, "StringList"; String, "String" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1743,7 +1675,6 @@ module ParameterType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1766,9 +1697,7 @@ module ParameterTier = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -1778,7 +1707,6 @@ module ParameterTier = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -1837,9 +1765,7 @@ module ParameterPolicyList = struct (List.map ParameterInlinePolicy.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ParameterInlinePolicy.to_query v - let to_json v = `List (List.map ParameterInlinePolicy.to_json v) - let of_json j = Aws.Json.to_list ParameterInlinePolicy.of_json j end @@ -1852,9 +1778,7 @@ module ParameterLabelList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2016,9 +1940,7 @@ module ParameterHistoryList = struct Aws.Util.option_all (List.map ParameterHistory.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ParameterHistory.to_query v - let to_json v = `List (List.map ParameterHistory.to_json v) - let of_json j = Aws.Json.to_list ParameterHistory.of_json j end @@ -2047,9 +1969,7 @@ module DocumentStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2059,7 +1979,6 @@ module DocumentStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2070,13 +1989,9 @@ module DocumentFormat = struct | TEXT let str_to_t = [ "TEXT", TEXT; "JSON", JSON; "YAML", YAML ] - let t_to_str = [ TEXT, "TEXT"; JSON, "JSON"; YAML, "YAML" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2086,7 +2001,6 @@ module DocumentFormat = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2229,9 +2143,7 @@ module AutomationExecutionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2241,7 +2153,6 @@ module AutomationExecutionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2254,9 +2165,7 @@ module PatchSourceProductList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2406,9 +2315,7 @@ module MaintenanceWindowExecutionList = struct (List.map MaintenanceWindowExecution.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowExecution.to_query v - let to_json v = `List (List.map MaintenanceWindowExecution.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowExecution.of_json j end @@ -2468,9 +2375,7 @@ module InventoryFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2645,13 +2550,9 @@ module MaintenanceWindowResourceType = struct | RESOURCE_GROUP let str_to_t = [ "RESOURCE_GROUP", RESOURCE_GROUP; "INSTANCE", INSTANCE ] - let t_to_str = [ RESOURCE_GROUP, "RESOURCE_GROUP"; INSTANCE, "INSTANCE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2661,7 +2562,6 @@ module MaintenanceWindowResourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2812,9 +2712,7 @@ module InstancePatchStateOperatorType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2824,7 +2722,6 @@ module InstancePatchStateOperatorType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -2837,9 +2734,7 @@ module InstancePatchStateFilterValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -2911,9 +2806,7 @@ module InstancePatchStateFilterList = struct (List.map InstancePatchStateFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstancePatchStateFilter.to_query v - let to_json v = `List (List.map InstancePatchStateFilter.to_json v) - let of_json j = Aws.Json.to_list InstancePatchStateFilter.of_json j end @@ -2921,13 +2814,9 @@ module ResourceDataSyncS3Format = struct type t = JsonSerDe let str_to_t = [ "JsonSerDe", JsonSerDe ] - let t_to_str = [ JsonSerDe, "JsonSerDe" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -2937,7 +2826,6 @@ module ResourceDataSyncS3Format = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3269,9 +3157,7 @@ module ParameterNameList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3387,9 +3273,7 @@ module ParameterList = struct Aws.Util.option_all (List.map Parameter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Parameter.to_query v - let to_json v = `List (List.map Parameter.to_json v) - let of_json j = Aws.Json.to_list Parameter.of_json j end @@ -3496,13 +3380,9 @@ module AssociationFilterOperatorType = struct | GREATER_THAN let str_to_t = [ "GREATER_THAN", GREATER_THAN; "LESS_THAN", LESS_THAN; "EQUAL", EQUAL ] - let t_to_str = [ GREATER_THAN, "GREATER_THAN"; LESS_THAN, "LESS_THAN"; EQUAL, "EQUAL" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3512,7 +3392,6 @@ module AssociationFilterOperatorType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3529,9 +3408,7 @@ module AssociationExecutionFilterKey = struct [ CreatedTime, "CreatedTime"; Status, "Status"; ExecutionId, "ExecutionId" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -3541,7 +3418,6 @@ module AssociationExecutionFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -3611,9 +3487,7 @@ module AssociationExecutionFilterList = struct (List.map AssociationExecutionFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationExecutionFilter.to_query v - let to_json v = `List (List.map AssociationExecutionFilter.to_json v) - let of_json j = Aws.Json.to_list AssociationExecutionFilter.of_json j end @@ -3701,9 +3575,7 @@ module Regions = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3716,9 +3588,7 @@ module Accounts = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3814,9 +3684,7 @@ module TargetLocations = struct Aws.Util.option_all (List.map TargetLocation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TargetLocation.to_query v - let to_json v = `List (List.map TargetLocation.to_json v) - let of_json j = Aws.Json.to_list TargetLocation.of_json j end @@ -3829,9 +3697,7 @@ module StringList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3839,9 +3705,7 @@ module InstanceAssociationStatusAggregatedCount = struct type t = (String.t, Integer.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string Integer.to_query v let to_json v = @@ -3860,9 +3724,7 @@ module ResourceDataSyncSourceRegionList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -3907,9 +3769,7 @@ module ResourceDataSyncOrganizationalUnitList = struct (List.map ResourceDataSyncOrganizationalUnit.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceDataSyncOrganizationalUnit.to_query v - let to_json v = `List (List.map ResourceDataSyncOrganizationalUnit.to_json v) - let of_json j = Aws.Json.to_list ResourceDataSyncOrganizationalUnit.of_json j end @@ -4065,13 +3925,9 @@ module LastResourceDataSyncStatus = struct | InProgress let str_to_t = [ "InProgress", InProgress; "Failed", Failed; "Successful", Successful ] - let t_to_str = [ InProgress, "InProgress"; Failed, "Failed"; Successful, "Successful" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4081,7 +3937,6 @@ module LastResourceDataSyncStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4239,9 +4094,7 @@ module ResourceDataSyncItemList = struct (List.map ResourceDataSyncItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceDataSyncItem.to_query v - let to_json v = `List (List.map ResourceDataSyncItem.to_json v) - let of_json j = Aws.Json.to_list ResourceDataSyncItem.of_json j end @@ -4387,9 +4240,7 @@ module DocumentType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4399,7 +4250,6 @@ module DocumentType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4450,9 +4300,7 @@ module DocumentRequiresList = struct Aws.Util.option_all (List.map DocumentRequires.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DocumentRequires.to_query v - let to_json v = `List (List.map DocumentRequires.to_json v) - let of_json j = Aws.Json.to_list DocumentRequires.of_json j end @@ -4465,9 +4313,7 @@ module AttachmentContentList = struct Aws.Util.option_all (List.map AttachmentContent.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AttachmentContent.to_query v - let to_json v = `List (List.map AttachmentContent.to_json v) - let of_json j = Aws.Json.to_list AttachmentContent.of_json j end @@ -4640,9 +4486,7 @@ module PatchSourceList = struct Aws.Util.option_all (List.map PatchSource.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchSource.to_query v - let to_json v = `List (List.map PatchSource.to_json v) - let of_json j = Aws.Json.to_list PatchSource.of_json j end @@ -4655,9 +4499,7 @@ module PatchFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -4728,9 +4570,7 @@ module PatchFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4740,7 +4580,6 @@ module PatchFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4796,9 +4635,7 @@ module PatchFilterList = struct Aws.Util.option_all (List.map PatchFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchFilter.to_query v - let to_json v = `List (List.map PatchFilter.to_json v) - let of_json j = Aws.Json.to_list PatchFilter.of_json j end @@ -4865,9 +4702,7 @@ module PatchComplianceLevel = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -4877,7 +4712,6 @@ module PatchComplianceLevel = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -4980,9 +4814,7 @@ module PatchRuleList = struct Aws.Util.option_all (List.map PatchRule.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchRule.to_query v - let to_json v = `List (List.map PatchRule.to_json v) - let of_json j = Aws.Json.to_list PatchRule.of_json j end @@ -5026,9 +4858,7 @@ module PatchIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5041,9 +4871,7 @@ module PatchGroupList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5053,13 +4881,9 @@ module PatchAction = struct | BLOCK let str_to_t = [ "BLOCK", BLOCK; "ALLOW_AS_DEPENDENCY", ALLOW_AS_DEPENDENCY ] - let t_to_str = [ BLOCK, "BLOCK"; ALLOW_AS_DEPENDENCY, "ALLOW_AS_DEPENDENCY" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5069,7 +4893,6 @@ module PatchAction = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5344,13 +5167,9 @@ module TagList = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -5510,9 +5329,7 @@ module PatchOrchestratorFilterValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5569,9 +5386,7 @@ module PatchOrchestratorFilterList = struct (List.map PatchOrchestratorFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchOrchestratorFilter.to_query v - let to_json v = `List (List.map PatchOrchestratorFilter.to_json v) - let of_json j = Aws.Json.to_list PatchOrchestratorFilter.of_json j end @@ -5632,13 +5447,9 @@ module RebootOption = struct | NoReboot let str_to_t = [ "NoReboot", NoReboot; "RebootIfNeeded", RebootIfNeeded ] - let t_to_str = [ NoReboot, "NoReboot"; RebootIfNeeded, "RebootIfNeeded" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5648,7 +5459,6 @@ module RebootOption = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5685,9 +5495,7 @@ module OpsItemFilterValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -5713,9 +5521,7 @@ module OpsItemFilterOperator = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5725,7 +5531,6 @@ module OpsItemFilterOperator = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5784,9 +5589,7 @@ module OpsItemFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -5796,7 +5599,6 @@ module OpsItemFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -5862,9 +5664,7 @@ module OpsItemFilters = struct Aws.Util.option_all (List.map OpsItemFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsItemFilter.to_query v - let to_json v = `List (List.map OpsItemFilter.to_json v) - let of_json j = Aws.Json.to_list OpsItemFilter.of_json j end @@ -5923,9 +5723,7 @@ module InventoryItemEntry = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -5944,9 +5742,7 @@ module InventoryItemEntryList = struct Aws.Util.option_all (List.map InventoryItemEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryItemEntry.to_query v - let to_json v = `List (List.map InventoryItemEntry.to_json v) - let of_json j = Aws.Json.to_list InventoryItemEntry.of_json j end @@ -6028,9 +5824,7 @@ module InstanceInformationFilterValueSet = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -6089,9 +5883,7 @@ module OpsFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -6123,9 +5915,7 @@ module OpsFilterOperatorType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6135,7 +5925,6 @@ module OpsFilterOperatorType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6196,9 +5985,7 @@ module OpsFilterList = struct Aws.Util.option_all (List.map OpsFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsFilter.to_query v - let to_json v = `List (List.map OpsFilter.to_json v) - let of_json j = Aws.Json.to_list OpsFilter.of_json j end @@ -6206,9 +5993,7 @@ module OpsAggregatorValueMap = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -6239,11 +6024,8 @@ module rec OpsAggregator : sig -> t val parse : Ezxmlm.nodes -> t option - val to_query : t -> Aws.Query.t - val to_json : t -> Aws.Json.t - val of_json : Aws.Json.t -> t end = struct type t = @@ -6337,13 +6119,9 @@ and OpsAggregatorList : sig type t = OpsAggregator.t list val make : 'a -> unit -> 'a - val parse : Ezxmlm.nodes -> t option - val to_query : t -> Aws.Query.t - val to_json : t -> Aws.Json.t - val of_json : Aws.Json.t -> t end = struct type t = OpsAggregator.t list @@ -6354,9 +6132,7 @@ end = struct Aws.Util.option_all (List.map OpsAggregator.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsAggregator.to_query v - let to_json v = `List (List.map OpsAggregator.to_json v) - let of_json j = Aws.Json.to_list OpsAggregator.of_json j end @@ -6488,9 +6264,7 @@ module OpsEntityItemEntry = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -6561,13 +6335,9 @@ module ConnectionStatus = struct | NotConnected let str_to_t = [ "NotConnected", NotConnected; "Connected", Connected ] - let t_to_str = [ NotConnected, "NotConnected"; Connected, "Connected" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6577,7 +6347,6 @@ module ConnectionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6611,9 +6380,7 @@ module InventoryItemContentContext = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -6723,9 +6490,7 @@ module InventoryItemList = struct Aws.Util.option_all (List.map InventoryItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryItem.to_query v - let to_json v = `List (List.map InventoryItem.to_json v) - let of_json j = Aws.Json.to_list InventoryItem.of_json j end @@ -6775,7 +6540,6 @@ module Parameters = struct type t = (String.t, ParameterValueList.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -6797,13 +6561,9 @@ module NotificationType = struct | Invocation let str_to_t = [ "Invocation", Invocation; "Command", Command ] - let t_to_str = [ Invocation, "Invocation"; Command, "Command" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6813,7 +6573,6 @@ module NotificationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6845,9 +6604,7 @@ module NotificationEvent = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6857,7 +6614,6 @@ module NotificationEvent = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -6870,9 +6626,7 @@ module NotificationEventList = struct Aws.Util.option_all (List.map NotificationEvent.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list NotificationEvent.to_query v - let to_json v = `List (List.map NotificationEvent.to_json v) - let of_json j = Aws.Json.to_list NotificationEvent.of_json j end @@ -6944,13 +6698,9 @@ module DocumentHashType = struct | Sha1 let str_to_t = [ "Sha1", Sha1; "Sha256", Sha256 ] - let t_to_str = [ Sha1, "Sha1"; Sha256, "Sha256" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -6960,7 +6710,6 @@ module DocumentHashType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7171,9 +6920,7 @@ module AutomationParameterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -7181,7 +6928,6 @@ module AutomationParameterMap = struct type t = (String.t, AutomationParameterValueList.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -7353,9 +7099,7 @@ module CommandPluginStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7365,7 +7109,6 @@ module CommandPluginStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7528,13 +7271,9 @@ module StopType = struct | Cancel let str_to_t = [ "Cancel", Cancel; "Complete", Complete ] - let t_to_str = [ Cancel, "Cancel"; Complete, "Complete" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7544,7 +7283,6 @@ module StopType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7598,13 +7336,9 @@ module InventoryAttributeDataType = struct | Number let str_to_t = [ "number", Number; "string", String ] - let t_to_str = [ Number, "number"; String, "string" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7614,7 +7348,6 @@ module InventoryAttributeDataType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7673,9 +7406,7 @@ module InventoryItemAttributeList = struct (List.map InventoryItemAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryItemAttribute.to_query v - let to_json v = `List (List.map InventoryItemAttribute.to_json v) - let of_json j = Aws.Json.to_list InventoryItemAttribute.of_json j end @@ -7749,9 +7480,7 @@ module InventoryItemSchemaResultList = struct (List.map InventoryItemSchema.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryItemSchema.to_query v - let to_json v = `List (List.map InventoryItemSchema.to_json v) - let of_json j = Aws.Json.to_list InventoryItemSchema.of_json j end @@ -7783,9 +7512,7 @@ module InventoryQueryOperatorType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -7795,7 +7522,6 @@ module InventoryQueryOperatorType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -7864,9 +7590,7 @@ module InventoryFilterList = struct Aws.Util.option_all (List.map InventoryFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryFilter.to_query v - let to_json v = `List (List.map InventoryFilter.to_json v) - let of_json j = Aws.Json.to_list InventoryFilter.of_json j end @@ -7923,9 +7647,7 @@ module InventoryGroupList = struct Aws.Util.option_all (List.map InventoryGroup.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryGroup.to_query v - let to_json v = `List (List.map InventoryGroup.to_json v) - let of_json j = Aws.Json.to_list InventoryGroup.of_json j end @@ -7944,11 +7666,8 @@ module rec InventoryAggregator : sig -> t val parse : Ezxmlm.nodes -> t option - val to_query : t -> Aws.Query.t - val to_json : t -> Aws.Json.t - val of_json : Aws.Json.t -> t end = struct type t = @@ -8008,13 +7727,9 @@ and InventoryAggregatorList : sig type t = InventoryAggregator.t list val make : 'a -> unit -> 'a - val parse : Ezxmlm.nodes -> t option - val to_query : t -> Aws.Query.t - val to_json : t -> Aws.Json.t - val of_json : Aws.Json.t -> t end = struct type t = InventoryAggregator.t list @@ -8026,9 +7741,7 @@ end = struct (List.map InventoryAggregator.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryAggregator.to_query v - let to_json v = `List (List.map InventoryAggregator.to_json v) - let of_json j = Aws.Json.to_list InventoryAggregator.of_json j end @@ -8127,13 +7840,9 @@ module DeleteAssociationResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8251,13 +7960,9 @@ module AssociationStatusName = struct | Failed let str_to_t = [ "Failed", Failed; "Success", Success; "Pending", Pending ] - let t_to_str = [ Failed, "Failed"; Success, "Success"; Pending, "Pending" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -8267,7 +7972,6 @@ module AssociationStatusName = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -8339,9 +8043,7 @@ module AssociationIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8378,9 +8080,7 @@ module OpsEntityItemEntryList = struct Aws.Util.option_all (List.map OpsEntityItemEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsEntityItemEntry.to_query v - let to_json v = `List (List.map OpsEntityItemEntry.to_json v) - let of_json j = Aws.Json.to_list OpsEntityItemEntry.of_json j end @@ -8508,9 +8208,7 @@ module MaintenanceWindowFilterValues = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -8567,9 +8265,7 @@ module MaintenanceWindowFilterList = struct (List.map MaintenanceWindowFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowFilter.to_query v - let to_json v = `List (List.map MaintenanceWindowFilter.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowFilter.of_json j end @@ -8757,9 +8453,7 @@ module ActivationList = struct Aws.Util.option_all (List.map Activation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Activation.to_query v - let to_json v = `List (List.map Activation.to_json v) - let of_json j = Aws.Json.to_list Activation.of_json j end @@ -8767,13 +8461,9 @@ module RemoveTagsFromResourceResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -8786,9 +8476,7 @@ module CommandPluginList = struct Aws.Util.option_all (List.map CommandPlugin.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CommandPlugin.to_query v - let to_json v = `List (List.map CommandPlugin.to_json v) - let of_json j = Aws.Json.to_list CommandPlugin.of_json j end @@ -9001,9 +8689,7 @@ module CommandInvocationList = struct Aws.Util.option_all (List.map CommandInvocation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CommandInvocation.to_query v - let to_json v = `List (List.map CommandInvocation.to_json v) - let of_json j = Aws.Json.to_list CommandInvocation.of_json j end @@ -9057,13 +8743,9 @@ module DeleteParameterResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -9103,9 +8785,7 @@ module RelatedOpsItems = struct Aws.Util.option_all (List.map RelatedOpsItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list RelatedOpsItem.to_query v - let to_json v = `List (List.map RelatedOpsItem.to_json v) - let of_json j = Aws.Json.to_list RelatedOpsItem.of_json j end @@ -9115,13 +8795,9 @@ module OpsItemDataType = struct | String let str_to_t = [ "String", String; "SearchableString", SearchableString ] - let t_to_str = [ String, "String"; SearchableString, "SearchableString" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9131,7 +8807,6 @@ module OpsItemDataType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9175,9 +8850,7 @@ module OpsItemOperationalData = struct type t = (String.t, OpsItemDataValue.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string OpsItemDataValue.to_query v let to_json v = @@ -9222,9 +8895,7 @@ module OpsItemNotifications = struct (List.map OpsItemNotification.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsItemNotification.to_query v - let to_json v = `List (List.map OpsItemNotification.to_json v) - let of_json j = Aws.Json.to_list OpsItemNotification.of_json j end @@ -9375,9 +9046,7 @@ module StepExecutionFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -9387,13 +9056,9 @@ module ComplianceStatus = struct | NON_COMPLIANT let str_to_t = [ "NON_COMPLIANT", NON_COMPLIANT; "COMPLIANT", COMPLIANT ] - let t_to_str = [ NON_COMPLIANT, "NON_COMPLIANT"; COMPLIANT, "COMPLIANT" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9403,7 +9068,6 @@ module ComplianceStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9585,13 +9249,9 @@ module OpsItemStatus = struct | Resolved let str_to_t = [ "Resolved", Resolved; "InProgress", InProgress; "Open", Open ] - let t_to_str = [ Resolved, "Resolved"; InProgress, "InProgress"; Open, "Open" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9601,7 +9261,6 @@ module OpsItemStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9707,13 +9366,9 @@ module DocumentPermissionType = struct type t = Share let str_to_t = [ "Share", Share ] - let t_to_str = [ Share, "Share" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -9723,7 +9378,6 @@ module DocumentPermissionType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -9736,9 +9390,7 @@ module AccountIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -10007,9 +9659,7 @@ module AssociationExecutionTargetsList = struct (List.map AssociationExecutionTarget.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationExecutionTarget.to_query v - let to_json v = `List (List.map AssociationExecutionTarget.to_json v) - let of_json j = Aws.Json.to_list AssociationExecutionTarget.of_json j end @@ -10041,9 +9691,7 @@ module SessionFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10053,7 +9701,6 @@ module SessionFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10106,9 +9753,7 @@ module SessionFilterList = struct Aws.Util.option_all (List.map SessionFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list SessionFilter.to_query v - let to_json v = `List (List.map SessionFilter.to_json v) - let of_json j = Aws.Json.to_list SessionFilter.of_json j end @@ -10222,9 +9867,7 @@ module AutomationExecutionFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -10284,13 +9927,9 @@ module PatchOperationType = struct | Install let str_to_t = [ "Install", Install; "Scan", Scan ] - let t_to_str = [ Install, "Install"; Scan, "Scan" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10300,7 +9939,6 @@ module PatchOperationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10563,9 +10201,7 @@ module InstancePatchStateList = struct Aws.Util.option_all (List.map InstancePatchState.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstancePatchState.to_query v - let to_json v = `List (List.map InstancePatchState.to_json v) - let of_json j = Aws.Json.to_list InstancePatchState.of_json j end @@ -10647,13 +10283,9 @@ module StopAutomationExecutionResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -10867,9 +10499,7 @@ module AssociationComplianceSeverity = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10879,7 +10509,6 @@ module AssociationComplianceSeverity = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10908,9 +10537,7 @@ module CommandFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -10920,7 +10547,6 @@ module CommandFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -10973,9 +10599,7 @@ module CommandFilterList = struct Aws.Util.option_all (List.map CommandFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CommandFilter.to_query v - let to_json v = `List (List.map CommandFilter.to_json v) - let of_json j = Aws.Json.to_list CommandFilter.of_json j end @@ -11193,9 +10817,7 @@ module ComplianceSeverity = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -11205,7 +10827,6 @@ module ComplianceSeverity = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -11213,9 +10834,7 @@ module ComplianceItemDetails = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -11349,9 +10968,7 @@ module ComplianceItemList = struct Aws.Util.option_all (List.map ComplianceItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ComplianceItem.to_query v - let to_json v = `List (List.map ComplianceItem.to_json v) - let of_json j = Aws.Json.to_list ComplianceItem.of_json j end @@ -11389,9 +11006,7 @@ module InstanceInformationFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -11401,7 +11016,6 @@ module InstanceInformationFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -11424,9 +11038,7 @@ module DescribeActivationsFilterKeys = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -11436,7 +11048,6 @@ module DescribeActivationsFilterKeys = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -11497,9 +11108,7 @@ module DescribeActivationsFilterList = struct (List.map DescribeActivationsFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DescribeActivationsFilter.to_query v - let to_json v = `List (List.map DescribeActivationsFilter.to_json v) - let of_json j = Aws.Json.to_list DescribeActivationsFilter.of_json j end @@ -11600,9 +11209,7 @@ module MaintenanceWindowsForTargetList = struct (List.map MaintenanceWindowIdentityForTarget.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowIdentityForTarget.to_query v - let to_json v = `List (List.map MaintenanceWindowIdentityForTarget.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowIdentityForTarget.of_json j end @@ -11675,9 +11282,7 @@ module MaintenanceWindowTaskType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -11687,7 +11292,6 @@ module MaintenanceWindowTaskType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -11978,9 +11582,7 @@ module InstanceInformationFilterList = struct (List.map InstanceInformationFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceInformationFilter.to_query v - let to_json v = `List (List.map InstanceInformationFilter.to_json v) - let of_json j = Aws.Json.to_list InstanceInformationFilter.of_json j end @@ -12121,9 +11723,7 @@ module AccountSharingInfoList = struct Aws.Util.option_all (List.map AccountSharingInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AccountSharingInfo.to_query v - let to_json v = `List (List.map AccountSharingInfo.to_json v) - let of_json j = Aws.Json.to_list AccountSharingInfo.of_json j end @@ -12188,9 +11788,7 @@ module InstanceIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -12325,13 +11923,9 @@ module AssociationSyncCompliance = struct | MANUAL let str_to_t = [ "MANUAL", MANUAL; "AUTO", AUTO ] - let t_to_str = [ MANUAL, "MANUAL"; AUTO, "AUTO" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12341,7 +11935,6 @@ module AssociationSyncCompliance = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12556,9 +12149,7 @@ module ComplianceStringFilterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -12587,9 +12178,7 @@ module ComplianceQueryOperatorType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -12599,7 +12188,6 @@ module ComplianceQueryOperatorType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -12667,9 +12255,7 @@ module ComplianceStringFilterList = struct (List.map ComplianceStringFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ComplianceStringFilter.to_query v - let to_json v = `List (List.map ComplianceStringFilter.to_json v) - let of_json j = Aws.Json.to_list ComplianceStringFilter.of_json j end @@ -12682,9 +12268,7 @@ module ComplianceResourceTypeList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -12868,9 +12452,7 @@ module AssociationStatusAggregatedCount = struct type t = (String.t, Integer.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string Integer.to_query v let to_json v = @@ -13074,9 +12656,7 @@ module AssociationList = struct Aws.Util.option_all (List.map Association.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Association.to_query v - let to_json v = `List (List.map Association.to_json v) - let of_json j = Aws.Json.to_list Association.of_json j end @@ -13086,13 +12666,9 @@ module CalendarState = struct | CLOSED let str_to_t = [ "CLOSED", CLOSED; "OPEN", OPEN ] - let t_to_str = [ CLOSED, "CLOSED"; OPEN, "OPEN" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13102,7 +12678,6 @@ module CalendarState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13112,13 +12687,9 @@ module ExecutionMode = struct | Interactive let str_to_t = [ "Interactive", Interactive; "Auto", Auto ] - let t_to_str = [ Interactive, "Interactive"; Auto, "Auto" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13128,7 +12699,6 @@ module ExecutionMode = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -13205,7 +12775,6 @@ module InventoryResultItemMap = struct type t = (String.t, InventoryResultItem.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -13399,9 +12968,7 @@ module MaintenanceWindowTaskParameterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -13445,7 +13012,6 @@ module MaintenanceWindowTaskParameters = struct type t = (String.t, MaintenanceWindowTaskParameterValueExpression.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -13695,13 +13261,9 @@ module ModifyDocumentPermissionResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -13733,9 +13295,7 @@ module PatchProperty = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -13745,7 +13305,6 @@ module PatchProperty = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14037,9 +13596,7 @@ module CommandStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14049,7 +13606,6 @@ module CommandStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14419,13 +13975,9 @@ module ComplianceUploadType = struct | PARTIAL let str_to_t = [ "PARTIAL", PARTIAL; "COMPLETE", COMPLETE ] - let t_to_str = [ PARTIAL, "PARTIAL"; COMPLETE, "COMPLETE" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14435,7 +13987,6 @@ module ComplianceUploadType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14549,9 +14100,7 @@ module SessionStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14561,7 +14110,6 @@ module SessionStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14722,9 +14270,7 @@ module SessionList = struct Aws.Util.option_all (List.map Session.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Session.to_query v - let to_json v = `List (List.map Session.to_json v) - let of_json j = Aws.Json.to_list Session.of_json j end @@ -14803,9 +14349,7 @@ module MaintenanceWindowIdentityList = struct (List.map MaintenanceWindowIdentity.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowIdentity.to_query v - let to_json v = `List (List.map MaintenanceWindowIdentity.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowIdentity.of_json j end @@ -14884,9 +14428,7 @@ module ResourceTypeForTagging = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14896,7 +14438,6 @@ module ResourceTypeForTagging = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -14986,9 +14527,7 @@ module PatchComplianceDataState = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -14998,7 +14537,6 @@ module PatchComplianceDataState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -15547,9 +15085,7 @@ module ResourceComplianceSummaryItemList = struct (List.map ResourceComplianceSummaryItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResourceComplianceSummaryItem.to_query v - let to_json v = `List (List.map ResourceComplianceSummaryItem.to_json v) - let of_json j = Aws.Json.to_list ResourceComplianceSummaryItem.of_json j end @@ -15681,7 +15217,6 @@ module MaintenanceWindowExecutionTaskIdentityList = struct Aws.Query.to_query_list MaintenanceWindowExecutionTaskIdentity.to_query v let to_json v = `List (List.map MaintenanceWindowExecutionTaskIdentity.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowExecutionTaskIdentity.of_json j end @@ -15970,9 +15505,7 @@ module InstanceAssociationStatusInfos = struct (List.map InstanceAssociationStatusInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceAssociationStatusInfo.to_query v - let to_json v = `List (List.map InstanceAssociationStatusInfo.to_json v) - let of_json j = Aws.Json.to_list InstanceAssociationStatusInfo.of_json j end @@ -16032,13 +15565,9 @@ module SessionState = struct | History let str_to_t = [ "History", History; "Active", Active ] - let t_to_str = [ History, "History"; Active, "Active" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16048,7 +15577,6 @@ module SessionState = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -16314,9 +15842,7 @@ module TargetParameterList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -16493,9 +16019,7 @@ module PatchDeploymentStatus = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -16505,7 +16029,6 @@ module PatchDeploymentStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -16769,9 +16292,7 @@ module MaintenanceWindowTaskParametersList = struct (List.map MaintenanceWindowTaskParameters.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowTaskParameters.to_query v - let to_json v = `List (List.map MaintenanceWindowTaskParameters.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowTaskParameters.of_json j end @@ -16949,9 +16470,7 @@ module ComplianceItemEntryList = struct (List.map ComplianceItemEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ComplianceItemEntry.to_query v - let to_json v = `List (List.map ComplianceItemEntry.to_json v) - let of_json j = Aws.Json.to_list ComplianceItemEntry.of_json j end @@ -17168,13 +16687,9 @@ module InvocationDoesNotExist = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -17209,13 +16724,9 @@ module Fault = struct | Unknown let str_to_t = [ "Unknown", Unknown; "Server", Server; "Client", Client ] - let t_to_str = [ Unknown, "Unknown"; Server, "Server"; Client, "Client" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -17225,7 +16736,6 @@ module Fault = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17478,9 +16988,7 @@ module FailedCreateAssociationList = struct (List.map FailedCreateAssociation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list FailedCreateAssociation.to_query v - let to_json v = `List (List.map FailedCreateAssociation.to_json v) - let of_json j = Aws.Json.to_list FailedCreateAssociation.of_json j end @@ -17773,9 +17281,7 @@ module AssociationDescriptionList = struct (List.map AssociationDescription.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationDescription.to_query v - let to_json v = `List (List.map AssociationDescription.to_json v) - let of_json j = Aws.Json.to_list AssociationDescription.of_json j end @@ -17865,9 +17371,7 @@ module AssociationFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -17877,7 +17381,6 @@ module AssociationFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -17931,9 +17434,7 @@ module KeyList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18044,9 +17545,7 @@ module MaintenanceWindowTargetList = struct (List.map MaintenanceWindowTarget.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowTarget.to_query v - let to_json v = `List (List.map MaintenanceWindowTarget.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowTarget.of_json j end @@ -18187,9 +17686,7 @@ module PatchCVEIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18202,9 +17699,7 @@ module PatchBugzillaIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18217,9 +17712,7 @@ module PatchAdvisoryIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18509,9 +18002,7 @@ module EffectivePatchList = struct Aws.Util.option_all (List.map EffectivePatch.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list EffectivePatch.to_query v - let to_json v = `List (List.map EffectivePatch.to_json v) - let of_json j = Aws.Json.to_list EffectivePatch.of_json j end @@ -18569,9 +18060,7 @@ module SessionManagerParameterValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18579,7 +18068,6 @@ module SessionManagerParameters = struct type t = (String.t, SessionManagerParameterValueList.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -18678,9 +18166,7 @@ module SignalType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -18690,7 +18176,6 @@ module SignalType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -18824,9 +18309,7 @@ module PatchPropertyEntry = struct type t = (String.t, String.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string String.to_query v let to_json v = @@ -18845,9 +18328,7 @@ module CalendarNameOrARNList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -18965,9 +18446,7 @@ module ComplianceSummaryItemList = struct (List.map ComplianceSummaryItem.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ComplianceSummaryItem.to_query v - let to_json v = `List (List.map ComplianceSummaryItem.to_json v) - let of_json j = Aws.Json.to_list ComplianceSummaryItem.of_json j end @@ -19059,9 +18538,7 @@ module AutomationExecutionFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -19071,7 +18548,6 @@ module AutomationExecutionFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -19347,13 +18823,9 @@ module InvalidFilterKey = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -19564,9 +19036,7 @@ module AssociationVersionList = struct (List.map AssociationVersionInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationVersionInfo.to_query v - let to_json v = `List (List.map AssociationVersionInfo.to_json v) - let of_json j = Aws.Json.to_list AssociationVersionInfo.of_json j end @@ -19627,9 +19097,7 @@ module DocumentKeyValuesFilterList = struct (List.map DocumentKeyValuesFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DocumentKeyValuesFilter.to_query v - let to_json v = `List (List.map DocumentKeyValuesFilter.to_json v) - let of_json j = Aws.Json.to_list DocumentKeyValuesFilter.of_json j end @@ -19655,9 +19123,7 @@ module DocumentFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -19667,7 +19133,6 @@ module DocumentFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -19720,9 +19185,7 @@ module DocumentFilterList = struct Aws.Util.option_all (List.map DocumentFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DocumentFilter.to_query v - let to_json v = `List (List.map DocumentFilter.to_json v) - let of_json j = Aws.Json.to_list DocumentFilter.of_json j end @@ -19826,9 +19289,7 @@ module ResultAttributeList = struct Aws.Util.option_all (List.map ResultAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ResultAttribute.to_query v - let to_json v = `List (List.map ResultAttribute.to_json v) - let of_json j = Aws.Json.to_list ResultAttribute.of_json j end @@ -19902,9 +19363,7 @@ module PatchComplianceDataList = struct (List.map PatchComplianceData.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchComplianceData.to_query v - let to_json v = `List (List.map PatchComplianceData.to_json v) - let of_json j = Aws.Json.to_list PatchComplianceData.of_json j end @@ -20106,9 +19565,7 @@ module CommandList = struct Aws.Util.option_all (List.map Command.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Command.to_query v - let to_json v = `List (List.map Command.to_json v) - let of_json j = Aws.Json.to_list Command.of_json j end @@ -20141,13 +19598,9 @@ module UpdateOpsItemResponse = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -20160,9 +19613,7 @@ module TargetMapValueList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -20278,13 +19729,9 @@ module PlatformType = struct | Linux let str_to_t = [ "Linux", Linux; "Windows", Windows ] - let t_to_str = [ Linux, "Linux"; Windows, "Windows" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -20294,7 +19741,6 @@ module PlatformType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -20307,9 +19753,7 @@ module PlatformTypeList = struct Aws.Util.option_all (List.map PlatformType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PlatformType.to_query v - let to_json v = `List (List.map PlatformType.to_json v) - let of_json j = Aws.Json.to_list PlatformType.of_json j end @@ -20389,9 +19833,7 @@ module PatchPropertiesList = struct Aws.Util.option_all (List.map PatchPropertyEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchPropertyEntry.to_query v - let to_json v = `List (List.map PatchPropertyEntry.to_json v) - let of_json j = Aws.Json.to_list PatchPropertyEntry.of_json j end @@ -20583,9 +20025,7 @@ module PatchList = struct Aws.Util.option_all (List.map Patch.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list Patch.to_query v - let to_json v = `List (List.map Patch.to_json v) - let of_json j = Aws.Json.to_list Patch.of_json j end @@ -20631,13 +20071,9 @@ module InvalidPluginName = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -20743,7 +20179,6 @@ module TargetMap = struct type t = (String.t, TargetMapValueList.t) Hashtbl.t let make elems () = elems - let parse xml = None let to_query v = @@ -20768,9 +20203,7 @@ module TargetMaps = struct Aws.Util.option_all (List.map TargetMap.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list TargetMap.to_query v - let to_json v = `List (List.map TargetMap.to_json v) - let of_json j = Aws.Json.to_list TargetMap.of_json j end @@ -21076,9 +20509,7 @@ module OpsResultAttributeList = struct Aws.Util.option_all (List.map OpsResultAttribute.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsResultAttribute.to_query v - let to_json v = `List (List.map OpsResultAttribute.to_json v) - let of_json j = Aws.Json.to_list OpsResultAttribute.of_json j end @@ -21203,9 +20634,7 @@ module OpsItemParameterNamesList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -21310,9 +20739,7 @@ module ValidNextStepList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -21627,9 +21054,7 @@ module StepExecutionList = struct Aws.Util.option_all (List.map StepExecution.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StepExecution.to_query v - let to_json v = `List (List.map StepExecution.to_json v) - let of_json j = Aws.Json.to_list StepExecution.of_json j end @@ -21681,13 +21106,9 @@ module SendAutomationSignalResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22086,9 +21507,7 @@ module OpsItemSummaries = struct Aws.Util.option_all (List.map OpsItemSummary.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsItemSummary.to_query v - let to_json v = `List (List.map OpsItemSummary.to_json v) - let of_json j = Aws.Json.to_list OpsItemSummary.of_json j end @@ -22200,13 +21619,9 @@ module InvalidResourceType = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22351,9 +21766,7 @@ module AssociationExecutionTargetsFilterKey = struct [ ResourceType, "ResourceType"; ResourceId, "ResourceId"; Status, "Status" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -22363,7 +21776,6 @@ module AssociationExecutionTargetsFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -22371,13 +21783,9 @@ module CreateResourceDataSyncResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22432,13 +21840,9 @@ module DeregisterManagedInstanceResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22539,9 +21943,7 @@ module AttachmentInformationList = struct (List.map AttachmentInformation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AttachmentInformation.to_query v - let to_json v = `List (List.map AttachmentInformation.to_json v) - let of_json j = Aws.Json.to_list AttachmentInformation.of_json j end @@ -22594,9 +21996,7 @@ module AutomationExecutionFilterList = struct (List.map AutomationExecutionFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AutomationExecutionFilter.to_query v - let to_json v = `List (List.map AutomationExecutionFilter.to_json v) - let of_json j = Aws.Json.to_list AutomationExecutionFilter.of_json j end @@ -22679,13 +22079,9 @@ module InvalidCommandId = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22762,13 +22158,9 @@ module DuplicateInstanceId = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -22781,9 +22173,7 @@ module InstancePatchStatesList = struct Aws.Util.option_all (List.map InstancePatchState.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstancePatchState.to_query v - let to_json v = `List (List.map InstancePatchState.to_json v) - let of_json j = Aws.Json.to_list InstancePatchState.of_json j end @@ -23114,9 +22504,7 @@ module DocumentIdentifierList = struct Aws.Util.option_all (List.map DocumentIdentifier.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DocumentIdentifier.to_query v - let to_json v = `List (List.map DocumentIdentifier.to_json v) - let of_json j = Aws.Json.to_list DocumentIdentifier.of_json j end @@ -23139,9 +22527,7 @@ module ResourceType = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23151,7 +22537,6 @@ module ResourceType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23168,9 +22553,7 @@ module PingStatus = struct [ Inactive, "Inactive"; ConnectionLost, "ConnectionLost"; Online, "Online" ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23180,7 +22563,6 @@ module PingStatus = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23477,9 +22859,7 @@ module InstanceInformationList = struct (List.map InstanceInformation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceInformation.to_query v - let to_json v = `List (List.map InstanceInformation.to_json v) - let of_json j = Aws.Json.to_list InstanceInformation.of_json j end @@ -23752,13 +23132,9 @@ module InventorySchemaDeleteOption = struct | DeleteSchema let str_to_t = [ "DeleteSchema", DeleteSchema; "DisableSchema", DisableSchema ] - let t_to_str = [ DeleteSchema, "DeleteSchema"; DisableSchema, "DisableSchema" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -23768,7 +23144,6 @@ module InventorySchemaDeleteOption = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -23837,9 +23212,7 @@ module InstanceAssociationList = struct (List.map InstanceAssociation.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceAssociation.to_query v - let to_json v = `List (List.map InstanceAssociation.to_json v) - let of_json j = Aws.Json.to_list InstanceAssociation.of_json j end @@ -23847,13 +23220,9 @@ module UpdateServiceSettingResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -23999,9 +23368,7 @@ module AssociationExecutionsList = struct (List.map AssociationExecution.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationExecution.to_query v - let to_json v = `List (List.map AssociationExecution.to_json v) - let of_json j = Aws.Json.to_list AssociationExecution.of_json j end @@ -24210,13 +23577,9 @@ module StatusUnchanged = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -24230,9 +23593,7 @@ module CreateAssociationBatchRequestEntries = struct (List.map CreateAssociationBatchRequestEntry.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list CreateAssociationBatchRequestEntry.to_query v - let to_json v = `List (List.map CreateAssociationBatchRequestEntry.to_json v) - let of_json j = Aws.Json.to_list CreateAssociationBatchRequestEntry.of_json j end @@ -24352,13 +23713,9 @@ module PatchSet = struct | APPLICATION let str_to_t = [ "APPLICATION", APPLICATION; "OS", OS ] - let t_to_str = [ APPLICATION, "APPLICATION"; OS, "OS" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -24368,7 +23725,6 @@ module PatchSet = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -24490,9 +23846,7 @@ module OpsEntityItemMap = struct type t = (String.t, OpsEntityItem.t) Hashtbl.t let make elems () = elems - let parse xml = None - let to_query v = Aws.Query.to_query_hashtbl String.to_string OpsEntityItem.to_query v let to_json v = @@ -24709,13 +24063,9 @@ module AssociationAlreadyExists = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25019,9 +24369,7 @@ module DocumentParameterList = struct Aws.Util.option_all (List.map DocumentParameter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DocumentParameter.to_query v - let to_json v = `List (List.map DocumentParameter.to_json v) - let of_json j = Aws.Json.to_list DocumentParameter.of_json j end @@ -25350,13 +24698,9 @@ module AssociationLimitExceeded = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25449,9 +24793,7 @@ module PatchBaselineIdentityList = struct (List.map PatchBaselineIdentity.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PatchBaselineIdentity.to_query v - let to_json v = `List (List.map PatchBaselineIdentity.to_json v) - let of_json j = Aws.Json.to_list PatchBaselineIdentity.of_json j end @@ -25713,9 +25055,7 @@ module ParameterMetadataList = struct Aws.Util.option_all (List.map ParameterMetadata.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ParameterMetadata.to_query v - let to_json v = `List (List.map ParameterMetadata.to_json v) - let of_json j = Aws.Json.to_list ParameterMetadata.of_json j end @@ -25723,13 +25063,9 @@ module UpdateResourceDataSyncResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -25743,9 +25079,7 @@ module InventoryResultEntityList = struct (List.map InventoryResultEntity.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InventoryResultEntity.to_query v - let to_json v = `List (List.map InventoryResultEntity.to_json v) - let of_json j = Aws.Json.to_list InventoryResultEntity.of_json j end @@ -26030,13 +25364,9 @@ module TooManyTagsError = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26107,9 +25437,7 @@ module OpsItemOpsDataKeysList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -26167,9 +25495,7 @@ module StepExecutionFilterKey = struct ] let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26179,7 +25505,6 @@ module StepExecutionFilterKey = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -26372,9 +25697,7 @@ module MaintenanceWindowTaskList = struct (List.map MaintenanceWindowTask.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list MaintenanceWindowTask.to_query v - let to_json v = `List (List.map MaintenanceWindowTask.to_json v) - let of_json j = Aws.Json.to_list MaintenanceWindowTask.of_json j end @@ -26564,9 +25887,7 @@ module StepExecutionFilterList = struct (List.map StepExecutionFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list StepExecutionFilter.to_query v - let to_json v = `List (List.map StepExecutionFilter.to_json v) - let of_json j = Aws.Json.to_list StepExecutionFilter.of_json j end @@ -26665,9 +25986,7 @@ module ScheduledWindowExecutionList = struct (List.map ScheduledWindowExecution.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list ScheduledWindowExecution.to_query v - let to_json v = `List (List.map ScheduledWindowExecution.to_json v) - let of_json j = Aws.Json.to_list ScheduledWindowExecution.of_json j end @@ -26783,9 +26102,7 @@ module InstanceInformationStringFilterList = struct (List.map InstanceInformationStringFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list InstanceInformationStringFilter.to_query v - let to_json v = `List (List.map InstanceInformationStringFilter.to_json v) - let of_json j = Aws.Json.to_list InstanceInformationStringFilter.of_json j end @@ -26946,13 +26263,9 @@ module CancelCommandResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -26962,13 +26275,9 @@ module AutomationType = struct | Local let str_to_t = [ "Local", Local; "CrossAccount", CrossAccount ] - let t_to_str = [ Local, "Local"; CrossAccount, "CrossAccount" ] - let to_string e = Aws.Util.of_option_exn (Aws.Util.list_find t_to_str e) - let of_string s = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t s) - let make v () = v let parse xml = @@ -26978,7 +26287,6 @@ module AutomationType = struct Aws.Query.Value (Some (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v))) let to_json v = String.to_json (Aws.Util.of_option_exn (Aws.Util.list_find t_to_str v)) - let of_json j = Aws.Util.of_option_exn (Aws.Util.list_find str_to_t (String.of_json j)) end @@ -27254,9 +26562,7 @@ module AutomationExecutionMetadataList = struct (List.map AutomationExecutionMetadata.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AutomationExecutionMetadata.to_query v - let to_json v = `List (List.map AutomationExecutionMetadata.to_json v) - let of_json j = Aws.Json.to_list AutomationExecutionMetadata.of_json j end @@ -27405,9 +26711,7 @@ module OpsEntityList = struct Aws.Util.option_all (List.map OpsEntity.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list OpsEntity.to_query v - let to_json v = `List (List.map OpsEntity.to_json v) - let of_json j = Aws.Json.to_list OpsEntity.of_json j end @@ -27545,13 +26849,9 @@ module AssociatedInstances = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -28052,13 +27352,9 @@ module InvalidResourceId = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -29313,13 +28609,9 @@ module UpdateManagedInstanceRoleResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -29568,13 +28860,9 @@ module DeleteDocumentResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -29702,9 +28990,7 @@ module MaintenanceWindowExecutionTaskIdList = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -29747,13 +29033,9 @@ module DeleteActivationResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -29978,9 +29260,7 @@ module AssociationFilterList = struct Aws.Util.option_all (List.map AssociationFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationFilter.to_query v - let to_json v = `List (List.map AssociationFilter.to_json v) - let of_json j = Aws.Json.to_list AssociationFilter.of_json j end @@ -30240,13 +29520,9 @@ module StartAssociationsOnceResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -30778,13 +30054,9 @@ module AddTagsToResourceResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -31045,13 +30317,9 @@ module DeleteResourceDataSyncResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -31378,9 +30646,7 @@ module AssociationExecutionTargetsFilterList = struct (List.map AssociationExecutionTargetsFilter.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list AssociationExecutionTargetsFilter.to_query v - let to_json v = `List (List.map AssociationExecutionTargetsFilter.to_json v) - let of_json j = Aws.Json.to_list AssociationExecutionTargetsFilter.of_json j end @@ -31690,9 +30956,7 @@ module DocumentVersionList = struct (List.map DocumentVersionInfo.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list DocumentVersionInfo.to_query v - let to_json v = `List (List.map DocumentVersionInfo.to_json v) - let of_json j = Aws.Json.to_list DocumentVersionInfo.of_json j end @@ -32305,13 +31569,9 @@ module InvalidOutputFolder = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end @@ -32722,12 +31982,8 @@ module PutComplianceItemsResult = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/ssm/lib/updateAssociation.ml b/libraries/ssm/lib/updateAssociation.ml index 140b45d93..4cf6d8003 100644 --- a/libraries/ssm/lib/updateAssociation.ml +++ b/libraries/ssm/lib/updateAssociation.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateAssociationRequest.t - type output = UpdateAssociationResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateAssociation.mli b/libraries/ssm/lib/updateAssociation.mli index 18342f7b9..d5c01fb4c 100644 --- a/libraries/ssm/lib/updateAssociation.mli +++ b/libraries/ssm/lib/updateAssociation.mli @@ -1,9 +1,7 @@ open Types type input = UpdateAssociationRequest.t - type output = UpdateAssociationResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateAssociationStatus.ml b/libraries/ssm/lib/updateAssociationStatus.ml index b0b08a5bf..213c75ebd 100644 --- a/libraries/ssm/lib/updateAssociationStatus.ml +++ b/libraries/ssm/lib/updateAssociationStatus.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateAssociationStatusRequest.t - type output = UpdateAssociationStatusResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateAssociationStatus.mli b/libraries/ssm/lib/updateAssociationStatus.mli index 5d9fdc2cb..4b6c7abe1 100644 --- a/libraries/ssm/lib/updateAssociationStatus.mli +++ b/libraries/ssm/lib/updateAssociationStatus.mli @@ -1,9 +1,7 @@ open Types type input = UpdateAssociationStatusRequest.t - type output = UpdateAssociationStatusResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateDocument.ml b/libraries/ssm/lib/updateDocument.ml index b948a4255..f26fd662d 100644 --- a/libraries/ssm/lib/updateDocument.ml +++ b/libraries/ssm/lib/updateDocument.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateDocumentRequest.t - type output = UpdateDocumentResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateDocument.mli b/libraries/ssm/lib/updateDocument.mli index 93e17dbd7..d34d03f2c 100644 --- a/libraries/ssm/lib/updateDocument.mli +++ b/libraries/ssm/lib/updateDocument.mli @@ -1,9 +1,7 @@ open Types type input = UpdateDocumentRequest.t - type output = UpdateDocumentResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateDocumentDefaultVersion.ml b/libraries/ssm/lib/updateDocumentDefaultVersion.ml index 97d450f8f..26a7d11e3 100644 --- a/libraries/ssm/lib/updateDocumentDefaultVersion.ml +++ b/libraries/ssm/lib/updateDocumentDefaultVersion.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateDocumentDefaultVersionRequest.t - type output = UpdateDocumentDefaultVersionResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateDocumentDefaultVersion.mli b/libraries/ssm/lib/updateDocumentDefaultVersion.mli index 82bd402e0..25ca8e974 100644 --- a/libraries/ssm/lib/updateDocumentDefaultVersion.mli +++ b/libraries/ssm/lib/updateDocumentDefaultVersion.mli @@ -1,9 +1,7 @@ open Types type input = UpdateDocumentDefaultVersionRequest.t - type output = UpdateDocumentDefaultVersionResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateMaintenanceWindow.ml b/libraries/ssm/lib/updateMaintenanceWindow.ml index e52579a17..5776cac90 100644 --- a/libraries/ssm/lib/updateMaintenanceWindow.ml +++ b/libraries/ssm/lib/updateMaintenanceWindow.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateMaintenanceWindowRequest.t - type output = UpdateMaintenanceWindowResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateMaintenanceWindow.mli b/libraries/ssm/lib/updateMaintenanceWindow.mli index 4d8951e39..e07e060df 100644 --- a/libraries/ssm/lib/updateMaintenanceWindow.mli +++ b/libraries/ssm/lib/updateMaintenanceWindow.mli @@ -1,9 +1,7 @@ open Types type input = UpdateMaintenanceWindowRequest.t - type output = UpdateMaintenanceWindowResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateMaintenanceWindowTarget.ml b/libraries/ssm/lib/updateMaintenanceWindowTarget.ml index 9fe3723b7..17e57cdae 100644 --- a/libraries/ssm/lib/updateMaintenanceWindowTarget.ml +++ b/libraries/ssm/lib/updateMaintenanceWindowTarget.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateMaintenanceWindowTargetRequest.t - type output = UpdateMaintenanceWindowTargetResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateMaintenanceWindowTarget.mli b/libraries/ssm/lib/updateMaintenanceWindowTarget.mli index 9b9129d58..01f2ff796 100644 --- a/libraries/ssm/lib/updateMaintenanceWindowTarget.mli +++ b/libraries/ssm/lib/updateMaintenanceWindowTarget.mli @@ -1,9 +1,7 @@ open Types type input = UpdateMaintenanceWindowTargetRequest.t - type output = UpdateMaintenanceWindowTargetResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateMaintenanceWindowTask.ml b/libraries/ssm/lib/updateMaintenanceWindowTask.ml index 3c1d480ed..c7508b251 100644 --- a/libraries/ssm/lib/updateMaintenanceWindowTask.ml +++ b/libraries/ssm/lib/updateMaintenanceWindowTask.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateMaintenanceWindowTaskRequest.t - type output = UpdateMaintenanceWindowTaskResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateMaintenanceWindowTask.mli b/libraries/ssm/lib/updateMaintenanceWindowTask.mli index 15851cf9f..18686804a 100644 --- a/libraries/ssm/lib/updateMaintenanceWindowTask.mli +++ b/libraries/ssm/lib/updateMaintenanceWindowTask.mli @@ -1,9 +1,7 @@ open Types type input = UpdateMaintenanceWindowTaskRequest.t - type output = UpdateMaintenanceWindowTaskResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateManagedInstanceRole.ml b/libraries/ssm/lib/updateManagedInstanceRole.ml index 3ba0986f4..3f5adf537 100644 --- a/libraries/ssm/lib/updateManagedInstanceRole.ml +++ b/libraries/ssm/lib/updateManagedInstanceRole.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateManagedInstanceRoleRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateManagedInstanceRole.mli b/libraries/ssm/lib/updateManagedInstanceRole.mli index a151c527c..a788ca23a 100644 --- a/libraries/ssm/lib/updateManagedInstanceRole.mli +++ b/libraries/ssm/lib/updateManagedInstanceRole.mli @@ -1,9 +1,7 @@ open Types type input = UpdateManagedInstanceRoleRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateOpsItem.ml b/libraries/ssm/lib/updateOpsItem.ml index 57f2a74a9..b3de98371 100644 --- a/libraries/ssm/lib/updateOpsItem.ml +++ b/libraries/ssm/lib/updateOpsItem.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateOpsItemRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateOpsItem.mli b/libraries/ssm/lib/updateOpsItem.mli index c13b34ae4..9152cc56a 100644 --- a/libraries/ssm/lib/updateOpsItem.mli +++ b/libraries/ssm/lib/updateOpsItem.mli @@ -1,9 +1,7 @@ open Types type input = UpdateOpsItemRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updatePatchBaseline.ml b/libraries/ssm/lib/updatePatchBaseline.ml index d8f916a92..51e49d355 100644 --- a/libraries/ssm/lib/updatePatchBaseline.ml +++ b/libraries/ssm/lib/updatePatchBaseline.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdatePatchBaselineRequest.t - type output = UpdatePatchBaselineResult.t - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updatePatchBaseline.mli b/libraries/ssm/lib/updatePatchBaseline.mli index 70c1aeb79..54034b2df 100644 --- a/libraries/ssm/lib/updatePatchBaseline.mli +++ b/libraries/ssm/lib/updatePatchBaseline.mli @@ -1,9 +1,7 @@ open Types type input = UpdatePatchBaselineRequest.t - type output = UpdatePatchBaselineResult.t - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateResourceDataSync.ml b/libraries/ssm/lib/updateResourceDataSync.ml index 1e0a41b0b..f5f4f1176 100644 --- a/libraries/ssm/lib/updateResourceDataSync.ml +++ b/libraries/ssm/lib/updateResourceDataSync.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateResourceDataSyncRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateResourceDataSync.mli b/libraries/ssm/lib/updateResourceDataSync.mli index 62dd69a4a..8b58d7fa8 100644 --- a/libraries/ssm/lib/updateResourceDataSync.mli +++ b/libraries/ssm/lib/updateResourceDataSync.mli @@ -1,9 +1,7 @@ open Types type input = UpdateResourceDataSyncRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib/updateServiceSetting.ml b/libraries/ssm/lib/updateServiceSetting.ml index 3f1368b6e..270860fe6 100644 --- a/libraries/ssm/lib/updateServiceSetting.ml +++ b/libraries/ssm/lib/updateServiceSetting.ml @@ -2,13 +2,10 @@ open Types open Aws type input = UpdateServiceSettingRequest.t - type output = unit - type error = Errors_internal.t let service = "ssm" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/ssm/lib/updateServiceSetting.mli b/libraries/ssm/lib/updateServiceSetting.mli index 641183bb0..88d9434c2 100644 --- a/libraries/ssm/lib/updateServiceSetting.mli +++ b/libraries/ssm/lib/updateServiceSetting.mli @@ -1,9 +1,7 @@ open Types type input = UpdateServiceSettingRequest.t - type output = unit - type error = Errors_internal.t include diff --git a/libraries/ssm/lib_test/test_async.ml b/libraries/ssm/lib_test/test_async.ml index d1b8da0e8..148af2868 100644 --- a/libraries/ssm/lib_test/test_async.ml +++ b/libraries/ssm/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/ssm/lib_test/test_lwt.ml b/libraries/ssm/lib_test/test_lwt.ml index d6a98c9b8..5ec7f9ced 100644 --- a/libraries/ssm/lib_test/test_lwt.ml +++ b/libraries/ssm/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/libraries/sts/lib/assumeRole.ml b/libraries/sts/lib/assumeRole.ml index 10a7edf70..fa8043834 100644 --- a/libraries/sts/lib/assumeRole.ml +++ b/libraries/sts/lib/assumeRole.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssumeRoleRequest.t - type output = AssumeRoleResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/assumeRole.mli b/libraries/sts/lib/assumeRole.mli index efa247ab8..bc4a4c8cc 100644 --- a/libraries/sts/lib/assumeRole.mli +++ b/libraries/sts/lib/assumeRole.mli @@ -1,9 +1,7 @@ open Types type input = AssumeRoleRequest.t - type output = AssumeRoleResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/assumeRoleWithSAML.ml b/libraries/sts/lib/assumeRoleWithSAML.ml index 70c813b35..ad5bdc82f 100644 --- a/libraries/sts/lib/assumeRoleWithSAML.ml +++ b/libraries/sts/lib/assumeRoleWithSAML.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssumeRoleWithSAMLRequest.t - type output = AssumeRoleWithSAMLResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/assumeRoleWithSAML.mli b/libraries/sts/lib/assumeRoleWithSAML.mli index 13cde49b3..c766e54bb 100644 --- a/libraries/sts/lib/assumeRoleWithSAML.mli +++ b/libraries/sts/lib/assumeRoleWithSAML.mli @@ -1,9 +1,7 @@ open Types type input = AssumeRoleWithSAMLRequest.t - type output = AssumeRoleWithSAMLResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/assumeRoleWithWebIdentity.ml b/libraries/sts/lib/assumeRoleWithWebIdentity.ml index 51a6e4932..c5e76afbe 100644 --- a/libraries/sts/lib/assumeRoleWithWebIdentity.ml +++ b/libraries/sts/lib/assumeRoleWithWebIdentity.ml @@ -2,13 +2,10 @@ open Types open Aws type input = AssumeRoleWithWebIdentityRequest.t - type output = AssumeRoleWithWebIdentityResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/assumeRoleWithWebIdentity.mli b/libraries/sts/lib/assumeRoleWithWebIdentity.mli index 8061114c8..1215c10b5 100644 --- a/libraries/sts/lib/assumeRoleWithWebIdentity.mli +++ b/libraries/sts/lib/assumeRoleWithWebIdentity.mli @@ -1,9 +1,7 @@ open Types type input = AssumeRoleWithWebIdentityRequest.t - type output = AssumeRoleWithWebIdentityResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/decodeAuthorizationMessage.ml b/libraries/sts/lib/decodeAuthorizationMessage.ml index 19e452ba5..f83da570c 100644 --- a/libraries/sts/lib/decodeAuthorizationMessage.ml +++ b/libraries/sts/lib/decodeAuthorizationMessage.ml @@ -2,13 +2,10 @@ open Types open Aws type input = DecodeAuthorizationMessageRequest.t - type output = DecodeAuthorizationMessageResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/decodeAuthorizationMessage.mli b/libraries/sts/lib/decodeAuthorizationMessage.mli index ac87a62f1..d4b2e591a 100644 --- a/libraries/sts/lib/decodeAuthorizationMessage.mli +++ b/libraries/sts/lib/decodeAuthorizationMessage.mli @@ -1,9 +1,7 @@ open Types type input = DecodeAuthorizationMessageRequest.t - type output = DecodeAuthorizationMessageResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/getAccessKeyInfo.ml b/libraries/sts/lib/getAccessKeyInfo.ml index 6c53427e4..2de2a4399 100644 --- a/libraries/sts/lib/getAccessKeyInfo.ml +++ b/libraries/sts/lib/getAccessKeyInfo.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetAccessKeyInfoRequest.t - type output = GetAccessKeyInfoResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/getAccessKeyInfo.mli b/libraries/sts/lib/getAccessKeyInfo.mli index b682e1264..cf325d442 100644 --- a/libraries/sts/lib/getAccessKeyInfo.mli +++ b/libraries/sts/lib/getAccessKeyInfo.mli @@ -1,9 +1,7 @@ open Types type input = GetAccessKeyInfoRequest.t - type output = GetAccessKeyInfoResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/getCallerIdentity.ml b/libraries/sts/lib/getCallerIdentity.ml index 2de55f957..f97e7d2b7 100644 --- a/libraries/sts/lib/getCallerIdentity.ml +++ b/libraries/sts/lib/getCallerIdentity.ml @@ -2,13 +2,10 @@ open Types open Aws type input = unit - type output = GetCallerIdentityResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/getCallerIdentity.mli b/libraries/sts/lib/getCallerIdentity.mli index 16f3dbbb1..1428989a6 100644 --- a/libraries/sts/lib/getCallerIdentity.mli +++ b/libraries/sts/lib/getCallerIdentity.mli @@ -1,9 +1,7 @@ open Types type input = unit - type output = GetCallerIdentityResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/getFederationToken.ml b/libraries/sts/lib/getFederationToken.ml index f94fe438a..77277bbdc 100644 --- a/libraries/sts/lib/getFederationToken.ml +++ b/libraries/sts/lib/getFederationToken.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetFederationTokenRequest.t - type output = GetFederationTokenResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/getFederationToken.mli b/libraries/sts/lib/getFederationToken.mli index 3aa27ca7e..3df8afaa2 100644 --- a/libraries/sts/lib/getFederationToken.mli +++ b/libraries/sts/lib/getFederationToken.mli @@ -1,9 +1,7 @@ open Types type input = GetFederationTokenRequest.t - type output = GetFederationTokenResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/getSessionToken.ml b/libraries/sts/lib/getSessionToken.ml index 3bc29c1f6..06e375e4a 100644 --- a/libraries/sts/lib/getSessionToken.ml +++ b/libraries/sts/lib/getSessionToken.ml @@ -2,13 +2,10 @@ open Types open Aws type input = GetSessionTokenRequest.t - type output = GetSessionTokenResponse.t - type error = Errors_internal.t let service = "sts" - let signature_version = Request.V4 let to_http service region req = diff --git a/libraries/sts/lib/getSessionToken.mli b/libraries/sts/lib/getSessionToken.mli index 732607b28..b35eb8453 100644 --- a/libraries/sts/lib/getSessionToken.mli +++ b/libraries/sts/lib/getSessionToken.mli @@ -1,9 +1,7 @@ open Types type input = GetSessionTokenRequest.t - type output = GetSessionTokenResponse.t - type error = Errors_internal.t include diff --git a/libraries/sts/lib/types.ml b/libraries/sts/lib/types.ml index ea1112efa..c9cef9a25 100644 --- a/libraries/sts/lib/types.ml +++ b/libraries/sts/lib/types.ml @@ -66,13 +66,9 @@ module TagListType = struct type t = Tag.t list let make elems () = elems - let parse xml = Aws.Util.option_all (List.map Tag.parse (Aws.Xml.members "member" xml)) - let to_query v = Aws.Query.to_query_list Tag.to_query v - let to_json v = `List (List.map Tag.to_json v) - let of_json j = Aws.Json.to_list Tag.of_json j end @@ -85,9 +81,7 @@ module TagKeyListType = struct Aws.Util.option_all (List.map String.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list String.to_query v - let to_json v = `List (List.map String.to_json v) - let of_json j = Aws.Json.to_list String.of_json j end @@ -101,9 +95,7 @@ module PolicyDescriptorListType = struct (List.map PolicyDescriptorType.parse (Aws.Xml.members "member" xml)) let to_query v = Aws.Query.to_query_list PolicyDescriptorType.to_query v - let to_json v = `List (List.map PolicyDescriptorType.to_json v) - let of_json j = Aws.Json.to_list PolicyDescriptorType.of_json j end @@ -934,13 +926,9 @@ module GetCallerIdentityRequest = struct type t = unit let make () = () - let parse xml = Some () - let to_query v = Aws.Query.List (Aws.Util.list_filter_opt []) - let to_json v = `Assoc (Aws.Util.list_filter_opt []) - let of_json j = () end diff --git a/libraries/sts/lib_test/test_async.ml b/libraries/sts/lib_test/test_async.ml index dbb637731..72cbd89ef 100644 --- a/libraries/sts/lib_test/test_async.ml +++ b/libraries/sts/lib_test/test_async.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Async.Deferred.t let run_request = Aws_async.Runtime.run_request - let un_m v = Async.Thread_safe.block_on_async_exn (fun () -> v) end) diff --git a/libraries/sts/lib_test/test_lwt.ml b/libraries/sts/lib_test/test_lwt.ml index bc47d4afb..6a391492a 100644 --- a/libraries/sts/lib_test/test_lwt.ml +++ b/libraries/sts/lib_test/test_lwt.ml @@ -4,6 +4,5 @@ module T = TestSuite (struct type 'a m = 'a Lwt.t let run_request = Aws_lwt.Runtime.run_request - let un_m = Lwt_main.run end) diff --git a/src/aws_gen.ml b/src/aws_gen.ml index c0ad19c00..75c2c4d21 100644 --- a/src/aws_gen.ml +++ b/src/aws_gen.ml @@ -125,7 +125,6 @@ module Json = struct end let log s = Printf.eprintf (s ^^ "\n%!") - let ( ) a b = Filename.concat a b let rec mkdir_p ?(root = "") dirs = diff --git a/src/dune b/src/dune index 79388d316..3efc3a497 100644 --- a/src/dune +++ b/src/dune @@ -13,4 +13,5 @@ (rule (targets endpoints.ml endpoints.mli) (deps endpoints.atd) - (action (run atdgen %{deps} -json))) + (action + (run atdgen %{deps} -json))) diff --git a/src/endpoint_gen.ml b/src/endpoint_gen.ml index ee688f833..137dae661 100644 --- a/src/endpoint_gen.ml +++ b/src/endpoint_gen.ml @@ -1,7 +1,6 @@ open Cmdliner let ( ) a b = Filename.concat a b - let log s = Printf.eprintf (s ^^ "\n%!") let var_replace hostname svc_name region dns_suffix = diff --git a/src/generate.ml b/src/generate.ml index 1c171da67..306439add 100644 --- a/src/generate.ml +++ b/src/generate.ml @@ -38,9 +38,7 @@ module G = Graph.Imperative.Digraph.ConcreteBidirectional (struct type t = Shape.t let compare a b = compare a.Shape.name b.Shape.name - let hash a = Hashtbl.hash a.Shape.name - let equal a b = a.Shape.name = b.Shape.name end) diff --git a/src/reading.mli b/src/reading.mli index dd8662220..c301bff08 100644 --- a/src/reading.mli +++ b/src/reading.mli @@ -32,7 +32,5 @@ ----------------------------------------------------------------------------*) val shape : string * Yojson.Basic.t -> Structures.Shape.parsed - val op : string * Yojson.Basic.t -> Structures.Operation.t - val error : string -> Yojson.Basic.t -> Structures.Error.t diff --git a/src/util.ml b/src/util.ml index 5b8c41bf3..0af34f164 100644 --- a/src/util.ml +++ b/src/util.ml @@ -61,11 +61,8 @@ module Char = struct include Char let _is_uppercase i = i >= 65 && i <= 90 - let _is_alpha i = _is_uppercase i || (i >= 97 && i <= 122) - let is_uppercase c = _is_uppercase (code c) - let is_alpha c = _is_alpha (code c) let is_alphanum c = diff --git a/src/util.mli b/src/util.mli index 3897f6f23..ab91acfbb 100644 --- a/src/util.mli +++ b/src/util.mli @@ -33,9 +33,7 @@ module Printing : sig val write_all : filename:string -> string -> unit - val write_structure : string -> Parsetree.structure -> unit - val write_signature : string -> Parsetree.signature -> unit end @@ -68,7 +66,5 @@ val inline_shapes : *) val filter_map : 'a list -> f:('a -> 'b option) -> 'b list - val option_map : string option -> f:string -> string option - val of_option_exn : 'a option -> 'a