fixup! Generate Elasticmapreduce support.

inhabitedtype · Aug 28, 2019 · ef4f165 · ef4f165
1 parent ab4f655
commit ef4f165
Show file tree

Hide file tree

Showing 18 changed files with 107 additions and 56 deletions.
diff --git a/libraries/elasticmapreduce/lib/addInstanceGroups.ml b/libraries/elasticmapreduce/lib/addInstanceGroups.ml
@@ -4,10 +4,11 @@ type input = AddInstanceGroupsInput.t
 type output = AddInstanceGroupsOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["AddInstanceGroups"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/addJobFlowSteps.ml b/libraries/elasticmapreduce/lib/addJobFlowSteps.ml
@@ -4,10 +4,11 @@ type input = AddJobFlowStepsInput.t
 type output = AddJobFlowStepsOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["AddJobFlowSteps"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/addTags.ml b/libraries/elasticmapreduce/lib/addTags.ml
@@ -4,10 +4,11 @@ type input = AddTagsInput.t
 type output = unit
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append [("Version", ["2009-03-31"]); ("Action", ["AddTags"])]
          (Util.drop_empty
             (Uri.query_of_encoded (Query.render (AddTagsInput.to_query req))))) in

diff --git a/libraries/elasticmapreduce/lib/describeCluster.ml b/libraries/elasticmapreduce/lib/describeCluster.ml
@@ -4,10 +4,11 @@ type input = DescribeClusterInput.t
 type output = DescribeClusterOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["DescribeCluster"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/describeJobFlows.ml b/libraries/elasticmapreduce/lib/describeJobFlows.ml
@@ -4,10 +4,11 @@ type input = DescribeJobFlowsInput.t
 type output = DescribeJobFlowsOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["DescribeJobFlows"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/describeStep.ml b/libraries/elasticmapreduce/lib/describeStep.ml
@@ -4,10 +4,11 @@ type input = DescribeStepInput.t
 type output = DescribeStepOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["DescribeStep"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/listBootstrapActions.ml b/libraries/elasticmapreduce/lib/listBootstrapActions.ml
@@ -4,10 +4,11 @@ type input = ListBootstrapActionsInput.t
 type output = ListBootstrapActionsOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["ListBootstrapActions"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/listClusters.ml b/libraries/elasticmapreduce/lib/listClusters.ml
@@ -4,10 +4,11 @@ type input = ListClustersInput.t
 type output = ListClustersOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["ListClusters"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/listInstanceGroups.ml b/libraries/elasticmapreduce/lib/listInstanceGroups.ml
@@ -4,10 +4,11 @@ type input = ListInstanceGroupsInput.t
 type output = ListInstanceGroupsOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["ListInstanceGroups"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/listInstances.ml b/libraries/elasticmapreduce/lib/listInstances.ml
@@ -4,10 +4,11 @@ type input = ListInstancesInput.t
 type output = ListInstancesOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["ListInstances"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/listSteps.ml b/libraries/elasticmapreduce/lib/listSteps.ml
@@ -4,10 +4,11 @@ type input = ListStepsInput.t
 type output = ListStepsOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append [("Version", ["2009-03-31"]); ("Action", ["ListSteps"])]
          (Util.drop_empty
             (Uri.query_of_encoded

diff --git a/libraries/elasticmapreduce/lib/modifyInstanceGroups.ml b/libraries/elasticmapreduce/lib/modifyInstanceGroups.ml
@@ -4,10 +4,11 @@ type input = ModifyInstanceGroupsInput.t
 type output = unit
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["ModifyInstanceGroups"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/removeTags.ml b/libraries/elasticmapreduce/lib/removeTags.ml
@@ -4,10 +4,11 @@ type input = RemoveTagsInput.t
 type output = unit
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append [("Version", ["2009-03-31"]); ("Action", ["RemoveTags"])]
          (Util.drop_empty
             (Uri.query_of_encoded

diff --git a/libraries/elasticmapreduce/lib/runJobFlow.ml b/libraries/elasticmapreduce/lib/runJobFlow.ml
@@ -4,10 +4,11 @@ type input = RunJobFlowInput.t
 type output = RunJobFlowOutput.t
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append [("Version", ["2009-03-31"]); ("Action", ["RunJobFlow"])]
          (Util.drop_empty
             (Uri.query_of_encoded

diff --git a/libraries/elasticmapreduce/lib/setTerminationProtection.ml b/libraries/elasticmapreduce/lib/setTerminationProtection.ml
@@ -4,10 +4,11 @@ type input = SetTerminationProtectionInput.t
 type output = unit
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]);
          ("Action", ["SetTerminationProtection"])]

diff --git a/libraries/elasticmapreduce/lib/setVisibleToAllUsers.ml b/libraries/elasticmapreduce/lib/setVisibleToAllUsers.ml
@@ -4,10 +4,11 @@ type input = SetVisibleToAllUsersInput.t
 type output = unit
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["SetVisibleToAllUsers"])]
          (Util.drop_empty

diff --git a/libraries/elasticmapreduce/lib/terminateJobFlows.ml b/libraries/elasticmapreduce/lib/terminateJobFlows.ml
@@ -4,10 +4,11 @@ type input = TerminateJobFlowsInput.t
 type output = unit
 type error = Errors_internal.t
 let service = "elasticmapreduce"
-let to_http req =
+let to_http service region req =
   let uri =
     Uri.add_query_params
-      (Uri.of_string "https://elasticmapreduce.amazonaws.com")
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
          [("Version", ["2009-03-31"]); ("Action", ["TerminateJobFlows"])]
          (Util.drop_empty