Upgrade ocamlformat.

.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

.ocamlformat-ignore

@@ -0,0 +1 @@
+src/syntax.ml

lib/aws.ml

@@ -44,21 +44,15 @@ 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
 
 type ('i, 'o, 'e) call =
-  (module Call with type input = 'i and type output = 'o and type error = 'e)
+  (module Call with type input = 'i and type output = 'o and type error = 'e)

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
 

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 =

libraries/autoscaling/lib/attachInstances.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = AttachInstancesQuery.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/attachLoadBalancers.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = AttachLoadBalancersType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/completeLifecycleAction.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = CompleteLifecycleActionType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/createAutoScalingGroup.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = CreateAutoScalingGroupType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/createLaunchConfiguration.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = CreateLaunchConfigurationType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/createOrUpdateTags.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = CreateOrUpdateTagsType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deleteAutoScalingGroup.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = DeleteAutoScalingGroupType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deleteLaunchConfiguration.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = LaunchConfigurationNameType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deleteLifecycleHook.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = DeleteLifecycleHookType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deleteNotificationConfiguration.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = DeleteNotificationConfigurationType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deletePolicy.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = DeletePolicyType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deleteScheduledAction.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = DeleteScheduledActionType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include

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 =

libraries/autoscaling/lib/deleteTags.mli

@@ -1,9 +1,7 @@
 open Types
 
 type input = DeleteTagsType.t
-
 type output = unit
-
 type error = Errors_internal.t
 
 include