Regenerate

libraries/autoscaling/lib/attachInstances.ml

@@ -1,38 +1,31 @@
 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 =
   let uri =
     Uri.add_query_params
-      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2011-01-01" ]; "Action", [ "AttachInstances" ] ]
+         [("Version", ["2011-01-01"]); ("Action", ["AttachInstances"])]
          (Util.drop_empty
-            (Uri.query_of_encoded (Query.render (AttachInstancesQuery.to_query req)))))
-  in
-  `POST, uri, []
-
+            (Uri.query_of_encoded
+               (Query.render (AttachInstancesQuery.to_query req))))) in
+  (`POST, uri, [])
 let of_http body = `Ok ()
-
 let parse_error code err =
-  let errors = [ Errors_internal.ResourceContention ] @ Errors_internal.common in
+  let errors = [Errors_internal.ResourceContention] @ Errors_internal.common in
   match Errors_internal.of_string err with
   | Some var ->
-      if List.mem var errors
-         &&
-         match Errors_internal.to_http_code var with
-         | Some var -> var = code
-         | None -> true
+      if
+        (List.mem var errors) &&
+          ((match Errors_internal.to_http_code var with
+            | Some var -> var = code
+            | None -> true))
       then Some var
       else None
-  | None -> None
+  | None -> None

libraries/autoscaling/lib/attachInstances.mli

@@ -1,10 +1,7 @@
 open Types
-
 type input = AttachInstancesQuery.t
-
 type output = unit
-
 type error = Errors_internal.t
-
 include
-  Aws.Call with type input := input and type output := output and type error := error
+  Aws.Call with type  input :=  input and type  output :=  output and type
+     error :=  error

libraries/autoscaling/lib/attachLoadBalancers.ml

@@ -1,38 +1,31 @@
 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 =
   let uri =
     Uri.add_query_params
-      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2011-01-01" ]; "Action", [ "AttachLoadBalancers" ] ]
+         [("Version", ["2011-01-01"]); ("Action", ["AttachLoadBalancers"])]
          (Util.drop_empty
-            (Uri.query_of_encoded (Query.render (AttachLoadBalancersType.to_query req)))))
-  in
-  `POST, uri, []
-
+            (Uri.query_of_encoded
+               (Query.render (AttachLoadBalancersType.to_query req))))) in
+  (`POST, uri, [])
 let of_http body = `Ok ()
-
 let parse_error code err =
-  let errors = [ Errors_internal.ResourceContention ] @ Errors_internal.common in
+  let errors = [Errors_internal.ResourceContention] @ Errors_internal.common in
   match Errors_internal.of_string err with
   | Some var ->
-      if List.mem var errors
-         &&
-         match Errors_internal.to_http_code var with
-         | Some var -> var = code
-         | None -> true
+      if
+        (List.mem var errors) &&
+          ((match Errors_internal.to_http_code var with
+            | Some var -> var = code
+            | None -> true))
       then Some var
       else None
-  | None -> None
+  | None -> None

libraries/autoscaling/lib/attachLoadBalancers.mli

@@ -1,10 +1,7 @@
 open Types
-
 type input = AttachLoadBalancersType.t
-
 type output = unit
-
 type error = Errors_internal.t
-
 include
-  Aws.Call with type input := input and type output := output and type error := error
+  Aws.Call with type  input :=  input and type  output :=  output and type
+     error :=  error

libraries/autoscaling/lib/completeLifecycleAction.ml

@@ -1,39 +1,32 @@
 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 =
   let uri =
     Uri.add_query_params
-      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2011-01-01" ]; "Action", [ "CompleteLifecycleAction" ] ]
+         [("Version", ["2011-01-01"]);
+         ("Action", ["CompleteLifecycleAction"])]
          (Util.drop_empty
             (Uri.query_of_encoded
-               (Query.render (CompleteLifecycleActionType.to_query req)))))
-  in
-  `POST, uri, []
-
+               (Query.render (CompleteLifecycleActionType.to_query req))))) in
+  (`POST, uri, [])
 let of_http body = `Ok ()
-
 let parse_error code err =
-  let errors = [ Errors_internal.ResourceContention ] @ Errors_internal.common in
+  let errors = [Errors_internal.ResourceContention] @ Errors_internal.common in
   match Errors_internal.of_string err with
   | Some var ->
-      if List.mem var errors
-         &&
-         match Errors_internal.to_http_code var with
-         | Some var -> var = code
-         | None -> true
+      if
+        (List.mem var errors) &&
+          ((match Errors_internal.to_http_code var with
+            | Some var -> var = code
+            | None -> true))
       then Some var
       else None
-  | None -> None
+  | None -> None

libraries/autoscaling/lib/completeLifecycleAction.mli

@@ -1,10 +1,7 @@
 open Types
-
 type input = CompleteLifecycleActionType.t
-
 type output = unit
-
 type error = Errors_internal.t
-
 include
-  Aws.Call with type input := input and type output := output and type error := error
+  Aws.Call with type  input :=  input and type  output :=  output and type
+     error :=  error

libraries/autoscaling/lib/createAutoScalingGroup.ml

@@ -1,45 +1,35 @@
 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 =
   let uri =
     Uri.add_query_params
-      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2011-01-01" ]; "Action", [ "CreateAutoScalingGroup" ] ]
+         [("Version", ["2011-01-01"]);
+         ("Action", ["CreateAutoScalingGroup"])]
          (Util.drop_empty
             (Uri.query_of_encoded
-               (Query.render (CreateAutoScalingGroupType.to_query req)))))
-  in
-  `POST, uri, []
-
+               (Query.render (CreateAutoScalingGroupType.to_query req))))) in
+  (`POST, uri, [])
 let of_http body = `Ok ()
-
 let parse_error code err =
   let errors =
-    [ Errors_internal.ResourceContention
-    ; Errors_internal.LimitExceeded
-    ; Errors_internal.AlreadyExists
-    ]
-    @ Errors_internal.common
-  in
+    [Errors_internal.ResourceContention;
+    Errors_internal.LimitExceeded;
+    Errors_internal.AlreadyExists] @ Errors_internal.common in
   match Errors_internal.of_string err with
   | Some var ->
-      if List.mem var errors
-         &&
-         match Errors_internal.to_http_code var with
-         | Some var -> var = code
-         | None -> true
+      if
+        (List.mem var errors) &&
+          ((match Errors_internal.to_http_code var with
+            | Some var -> var = code
+            | None -> true))
       then Some var
       else None
-  | None -> None
+  | None -> None

libraries/autoscaling/lib/createAutoScalingGroup.mli

@@ -1,10 +1,7 @@
 open Types
-
 type input = CreateAutoScalingGroupType.t
-
 type output = unit
-
 type error = Errors_internal.t
-
 include
-  Aws.Call with type input := input and type output := output and type error := error
+  Aws.Call with type  input :=  input and type  output :=  output and type
+     error :=  error

libraries/autoscaling/lib/createLaunchConfiguration.ml

@@ -1,45 +1,35 @@
 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 =
   let uri =
     Uri.add_query_params
-      (Uri.of_string (Aws.Util.of_option_exn (Endpoints.url_of service region)))
+      (Uri.of_string
+         (Aws.Util.of_option_exn (Endpoints.url_of service region)))
       (List.append
-         [ "Version", [ "2011-01-01" ]; "Action", [ "CreateLaunchConfiguration" ] ]
+         [("Version", ["2011-01-01"]);
+         ("Action", ["CreateLaunchConfiguration"])]
          (Util.drop_empty
             (Uri.query_of_encoded
-               (Query.render (CreateLaunchConfigurationType.to_query req)))))
-  in
-  `POST, uri, []
-
+               (Query.render (CreateLaunchConfigurationType.to_query req))))) in
+  (`POST, uri, [])
 let of_http body = `Ok ()
-
 let parse_error code err =
   let errors =
-    [ Errors_internal.ResourceContention
-    ; Errors_internal.LimitExceeded
-    ; Errors_internal.AlreadyExists
-    ]
-    @ Errors_internal.common
-  in
+    [Errors_internal.ResourceContention;
+    Errors_internal.LimitExceeded;
+    Errors_internal.AlreadyExists] @ Errors_internal.common in
   match Errors_internal.of_string err with
   | Some var ->
-      if List.mem var errors
-         &&
-         match Errors_internal.to_http_code var with
-         | Some var -> var = code
-         | None -> true
+      if
+        (List.mem var errors) &&
+          ((match Errors_internal.to_http_code var with
+            | Some var -> var = code
+            | None -> true))
       then Some var
       else None
-  | None -> None
+  | None -> None

libraries/autoscaling/lib/createLaunchConfiguration.mli

@@ -1,10 +1,7 @@
 open Types
-
 type input = CreateLaunchConfigurationType.t
-
 type output = unit
-
 type error = Errors_internal.t
-
 include
-  Aws.Call with type input := input and type output := output and type error := error
+  Aws.Call with type  input :=  input and type  output :=  output and type
+     error :=  error