Source file values_0.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.ec2
let apiVersion = "2016-11-15"
let endpointPrefix = "ec2"
let serviceFullName = "Amazon Elastic Compute Cloud"
let signatureVersion = "v4"
let protocol = "ec2"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon EC2"
let xmlNamespace = "http://ec2.amazonaws.com/doc/2016-11-15"
module Ec2_error =
  struct
    type common_client_errors =
      [ `AuthFailure  | `Blocked  | `DryRunOperation 
      | `IdempotentParameterMismatch  | `IncompleteSignature 
      | `InvalidAction  | `InvalidCharacter  | `InvalidClientTokenId 
      | `InvalidPaginationToken  | `InvalidParameter 
      | `InvalidParameterCombination  | `InvalidParameterValue 
      | `InvalidQueryParameter  | `MalformedQueryString  | `MissingAction 
      | `MissingAuthenticationToken  | `MissingParameter  | `OptInRequired 
      | `PendingVerification  | `RequestExpired  | `UnauthorizedOperation 
      | `UnknownParameter  | `UnsupportedInstanceAttribute 
      | `UnsupportedOperation  | `UnsupportedProtocol  | `ValidationError 
      | `Unknown_code of string ]
    type client_errors_for_specific_actions =
      [ `ActiveVpcPeeringConnectionPerVpcLimitExceeded 
      | `AddressLimitExceeded  | `AsnConflict  | `AttachmentLimitExceeded 
      | `BootForVolumeTypeUnsupported  | `BundlingInProgress 
      | `CannotDelete  | `CidrConflict 
      | `ClientVpnAuthorizationRuleLimitExceeded 
      | `ClientVpnCertificateRevocationListLimitExceeded 
      | `ClientVpnEndpointAssociationExists 
      | `ClientVpnEndpointLimitExceeded  | `ClientVpnRouteLimitExceeded 
      | `ClientVpnTerminateConnectionsLimitExceeded 
      | `ConcurrentCreateImageNoRebootLimitExceeded 
      | `ConcurrentSnapshotLimitExceeded  | `ConcurrentTagAccess 
      | `CreditSpecificationUpdateInProgress 
      | `CustomerGatewayLimitExceeded  | `CustomerKeyHasBeenRevoked 
      | `DefaultSubnetAlreadyExistsInAvailabilityZone 
      | `DefaultVpcAlreadyExists  | `DefaultVpcDoesNotExist 
      | `DeleteConversionTaskError  | `DependencyViolation 
      | `DisallowedForDedicatedTenancyNetwork  | `DiskImageSizeTooLarge 
      | `DuplicateSubnetsInSameZone  | `EIPMigratedToVpc 
      | `EncryptedVolumesNotSupported  | `ExistingVpcEndpointConnections 
      | `FilterLimitExceeded  | `FleetNotInModifiableState 
      | `FlowLogAlreadyExists  | `FlowLogsLimitExceeded 
      | `Gateway_NotAttached  | `HostAlreadyCoveredByReservation 
      | `HostLimitExceeded  | `IdempotentInstanceTerminated 
      | `InaccessibleStorageLocation  | `IncompatibleHostRequirements 
      | `IncorrectInstanceState  | `IncorrectModificationState 
      | `IncorrectState  | `InstanceAlreadyLinked 
      | `InstanceCreditSpecification_NotSupported  | `InstanceLimitExceeded 
      | `InsufficientCapacityOnHost  | `InsufficientFreeAddressesInSubnet 
      | `InsufficientReservedInstancesCapacity 
      | `InterfaceInUseByTrafficMirrorSession 
      | `InterfaceInUseByTrafficMirrorTarget 
      | `InternetGatewayLimitExceeded  | `InvalidAMIAttributeItemValue 
      | `InvalidAMIID_Malformed  | `InvalidAMIID_NotFound 
      | `InvalidAMIID_Unavailable  | `InvalidAMIName_Duplicate 
      | `InvalidAMIName_Malformed  | `InvalidAddress_Locked 
      | `InvalidAddress_Malformed  | `InvalidAddress_NotFound 
      | `InvalidAddressID_NotFound  | `InvalidAffinity 
      | `InvalidAllocationID_NotFound  | `InvalidAssociationID_NotFound 
      | `InvalidAttachment_NotFound  | `InvalidAttachmentID_NotFound 
      | `InvalidAutoPlacement  | `InvalidAvailabilityZone 
      | `InvalidBlockDeviceMapping  | `InvalidBundleID_NotFound 
      | `InvalidCapacityReservationIdMalformedException 
      | `InvalidCapacityReservationIdNotFoundException  | `InvalidCidr_InUse 
      | `InvalidClientToken  | `InvalidClientVpnActiveAssociationNotFound 
      | `InvalidClientVpnAssociationIdNotFound 
      | `InvalidClientVpnConnection_IdNotFound 
      | `InvalidClientVpnConnection_UserNotFound 
      | `InvalidClientVpnDuplicateAssociationException 
      | `InvalidClientVpnDuplicateAuthorizationRule 
      | `InvalidClientVpnDuplicateRoute 
      | `InvalidClientVpnEndpointAuthorizationRuleNotFound 
      | `InvalidClientVpnEndpointId_NotFound 
      | `InvalidClientVpnRouteNotFound 
      | `InvalidClientVpnSubnetId_DifferentAccount 
      | `InvalidClientVpnSubnetId_DuplicateAz 
      | `InvalidClientVpnSubnetId_NotFound 
      | `InvalidClientVpnSubnetId_OverlappingCidr 
      | `InvalidConversionTaskId  | `InvalidConversionTaskId_Malformed 
      | `InvalidCpuCredits_Malformed 
      | `InvalidCustomerGateway_DuplicateIpAddress 
      | `InvalidCustomerGatewayID_NotFound 
      | `InvalidCustomerGatewayId_Malformed  | `InvalidCustomerGatewayState 
      | `InvalidDevice_InUse  | `InvalidDhcpOptionID_NotFound 
      | `InvalidDhcpOptionsID_NotFound  | `InvalidDhcpOptionsId_Malformed 
      | `InvalidExportTaskID_NotFound  | `InvalidFilter 
      | `InvalidFlowLogId_NotFound  | `InvalidFormat 
      | `InvalidFpgaImageID_Malformed  | `InvalidFpgaImageID_NotFound 
      | `InvalidGatewayID_NotFound  | `InvalidGroup_Duplicate 
      | `InvalidGroup_InUse  | `InvalidGroup_NotFound 
      | `InvalidGroup_Reserved  | `InvalidGroupId_Malformed 
      | `InvalidHostConfiguration  | `InvalidHostID_Malformed 
      | `InvalidHostID_NotFound  | `InvalidHostId 
      | `InvalidHostId_Malformed  | `InvalidHostId_NotFound 
      | `InvalidHostReservationId_Malformed 
      | `InvalidHostReservationOfferingId_Malformed  | `InvalidHostState 
      | `InvalidID  | `InvalidIPAddress_InUse 
      | `InvalidIamInstanceProfileArn_Malformed  | `InvalidInput 
      | `InvalidInstanceAttributeValue 
      | `InvalidInstanceCreditSpecification_DuplicateInstanceId 
      | `InvalidInstanceFamily  | `InvalidInstanceID 
      | `InvalidInstanceID_Malformed  | `InvalidInstanceID_NotFound 
      | `InvalidInstanceID_NotLinkable  | `InvalidInstanceState 
      | `InvalidInstanceType  | `InvalidInterface_IpAddressLimitExceeded 
      | `InvalidInternetGatewayID_NotFound 
      | `InvalidInternetGatewayId_Malformed  | `InvalidKernelId_Malformed 
      | `InvalidKey_Format  | `InvalidKeyPair_Duplicate 
      | `InvalidKeyPair_Format  | `InvalidKeyPair_NotFound 
      | `InvalidLaunchTemplateId_Malformed 
      | `InvalidLaunchTemplateId_NotFound 
      | `InvalidLaunchTemplateId_VersionNotFound 
      | `InvalidLaunchTemplateName_AlreadyExistsException 
      | `InvalidLaunchTemplateName_MalformedException 
      | `InvalidLaunchTemplateName_NotFoundException  | `InvalidManifest 
      | `InvalidMaxResults  | `InvalidNatGatewayID_NotFound 
      | `InvalidNetworkAclEntry_NotFound  | `InvalidNetworkAclID_NotFound 
      | `InvalidNetworkAclId_Malformed  | `InvalidNetworkInterface_InUse 
      | `InvalidNetworkInterfaceAttachmentId_Malformed 
      | `InvalidNetworkInterfaceID_NotFound 
      | `InvalidNetworkInterfaceId_Malformed 
      | `InvalidNetworkLoadBalancerArn_Malformed 
      | `InvalidNetworkLoadBalancerArn_NotFound  | `InvalidNextToken 
      | `InvalidOption_Conflict  | `InvalidPermission_Duplicate 
      | `InvalidPermission_Malformed  | `InvalidPermission_NotFound 
      | `InvalidPlacementGroup_Duplicate  | `InvalidPlacementGroup_InUse 
      | `InvalidPlacementGroup_Unknown  | `InvalidPolicyDocument 
      | `InvalidPrefixListId_Malformed  | `InvalidPrefixListId_NotFound 
      | `InvalidProductInfo  | `InvalidPurchaseToken_Expired 
      | `InvalidPurchaseToken_Malformed  | `InvalidQuantity 
      | `InvalidRamDiskId_Malformed  | `InvalidRegion  | `InvalidRequest 
      | `InvalidReservationID_Malformed  | `InvalidReservationID_NotFound 
      | `InvalidReservedInstancesId  | `InvalidReservedInstancesOfferingId 
      | `InvalidResourceType_Unknown  | `InvalidRoute_InvalidState 
      | `InvalidRoute_Malformed  | `InvalidRoute_NotFound 
      | `InvalidRouteTableID_NotFound  | `InvalidRouteTableId_Malformed 
      | `InvalidScheduledInstance  | `InvalidSecurity_RequestHasExpired 
      | `InvalidSecurityGroupID_NotFound 
      | `InvalidSecurityGroupId_Malformed  | `InvalidServiceName 
      | `InvalidSnapshot_InUse  | `InvalidSnapshot_NotFound 
      | `InvalidSnapshotID_Malformed  | `InvalidSpotDatafeed_NotFound 
      | `InvalidSpotFleetRequestConfig 
      | `InvalidSpotFleetRequestId_Malformed 
      | `InvalidSpotFleetRequestId_NotFound 
      | `InvalidSpotInstanceRequestID_Malformed 
      | `InvalidSpotInstanceRequestID_NotFound  | `InvalidState 
      | `InvalidStateTransition  | `InvalidSubnet  | `InvalidSubnet_Conflict 
      | `InvalidSubnet_Range  | `InvalidSubnetID_Malformed 
      | `InvalidSubnetID_NotFound  | `InvalidTagKey_Malformed 
      | `InvalidTargetArn_Unknown  | `InvalidTenancy  | `InvalidTime 
      | `InvalidTrafficMirrorFilterNotFound 
      | `InvalidTrafficMirrorFilterRuleNotFound 
      | `InvalidTrafficMirrorSessionNotFound 
      | `InvalidTrafficMirrorTargetNoFound  | `InvalidUserID_Malformed 
      | `InvalidVolume_NotFound  | `InvalidVolume_ZoneMismatch 
      | `InvalidVolumeID_Duplicate  | `InvalidVolumeID_Malformed 
      | `InvalidVolumeID_ZoneMismatch  | `InvalidVpcEndpoint_NotFound 
      | `InvalidVpcEndpointId_Malformed  | `InvalidVpcEndpointId_NotFound 
      | `InvalidVpcEndpointService_NotFound 
      | `InvalidVpcEndpointServiceId_NotFound  | `InvalidVpcEndpointType 
      | `InvalidVpcID_Malformed  | `InvalidVpcID_NotFound 
      | `InvalidVpcPeeringConnectionID_NotFound 
      | `InvalidVpcPeeringConnectionId_Malformed 
      | `InvalidVpcPeeringConnectionState_DnsHostnamesDisabled 
      | `InvalidVpcRange  | `InvalidVpcState 
      | `InvalidVpnConnection_InvalidState 
      | `InvalidVpnConnection_InvalidType  | `InvalidVpnConnectionID 
      | `InvalidVpnConnectionID_NotFound 
      | `InvalidVpnGatewayAttachment_NotFound 
      | `InvalidVpnGatewayID_NotFound  | `InvalidVpnGatewayState 
      | `InvalidZone_NotFound  | `KeyPairLimitExceeded 
      | `LegacySecurityGroup  | `LimitPriceExceeded 
      | `LogDestinationNotFoundException  | `LogDestinationPermissionIssue 
      | `MaxConfigLimitExceededException  | `MaxIOPSLimitExceeded 
      | `MaxScheduledInstanceCapacityExceeded 
      | `MaxSpotFleetRequestCountExceeded  | `MaxSpotInstanceCountExceeded 
      | `MaxTemplateLimitExceeded  | `MaxTemplateVersionLimitExceeded 
      | `MissingInput  | `NatGatewayLimitExceeded  | `NatGatewayMalformed 
      | `NatGatewayNotFound  | `NetworkAclEntryAlreadyExists 
      | `NetworkAclEntryLimitExceeded  | `NetworkAclLimitExceeded 
      | `NetworkInterfaceLimitExceeded  | `NetworkInterfaceNotFoundException 
      | `NetworkInterfaceNotSupportedException 
      | `NetworkLoadBalancerNotFoundException 
      | `NlbInUseByTrafficMirrorTargetException  | `NoSuchVersion 
      | `NonEBSInstance  | `NotExportable  | `OperationNotPermitted 
      | `OutstandingVpcPeeringConnectionLimitExceeded 
      | `PendingSnapshotLimitExceeded 
      | `PendingVpcPeeringConnectionLimitExceeded 
      | `PlacementGroupLimitExceeded  | `PrivateIpAddressLimitExceeded 
      | `RequestResourceCountExceeded  | `ReservationCapacityExceeded 
      | `ReservedInstancesCountExceeded  | `ReservedInstancesLimitExceeded 
      | `ReservedInstancesUnavailable  | `Resource_AlreadyAssigned 
      | `Resource_AlreadyAssociated  | `ResourceCountExceeded 
      | `ResourceCountLimitExceeded  | `ResourceLimitExceeded 
      | `RouteAlreadyExists  | `RouteLimitExceeded 
      | `RouteTableLimitExceeded  | `RulesPerSecurityGroupLimitExceeded 
      | `ScheduledInstanceLimitExceeded 
      | `ScheduledInstanceParameterMismatch  | `ScheduledInstanceSlotNotOpen 
      | `ScheduledInstanceSlotUnavailable  | `SecurityGroupLimitExceeded 
      | `SecurityGroupsPerInstanceLimitExceeded 
      | `SecurityGroupsPerInterfaceLimitExceeded  | `SignatureDoesNotMatch 
      | `SnapshotCopyUnsupported_InterRegion 
      | `SnapshotCreationPerVolumeRateExceeded  | `SnapshotLimitExceeded 
      | `SubnetLimitExceeded  | `TagLimitExceeded 
      | `TargetCapacityLimitExceededException  | `TrafficMirrorFilterInUse 
      | `TrafficMirrorFilterLimitExceeded 
      | `TrafficMirrorFilterRuleAlreadyExists 
      | `TrafficMirrorFilterRuleLimitExceeded 
      | `TrafficMirrorSessionLimitExceeded 
      | `TrafficMirrorSessionsPerInterfaceLimitExceeded 
      | `TrafficMirrorSessionsPerTargetLimitExceeded 
      | `TrafficMirrorSourcesPerTargetLimitExceeded 
      | `TrafficMirrorTargetInUseException 
      | `TrafficMirrorTargetLimitExceeded  | `UnavailableHostRequirements 
      | `UnknownPrincipalType_Unsupported  | `UnknownVolumeType 
      | `Unsupported  | `UnsupportedException 
      | `UnsupportedHibernationConfiguration 
      | `UnsupportedHostConfiguration  | `UnsupportedInstanceTypeOnHost 
      | `UnsupportedTenancy  | `UpdateLimitExceeded  | `VPCIdNotSpecified 
      | `VPCResourceNotSpecified  | `VolumeIOPSLimit  | `VolumeInUse 
      | `VolumeLimitExceeded  | `VolumeModificationSizeLimitExceeded 
      | `VolumeTypeNotAvailableInZone  | `VpcCidrConflict 
      | `VpcEndpointLimitExceeded  | `VpcLimitExceeded 
      | `VpcPeeringConnectionAlreadyExists 
      | `VpcPeeringConnectionsPerVpcLimitExceeded 
      | `VpnConnectionLimitExceeded  | `VpnGatewayAttachmentLimitExceeded 
      | `VpnGatewayLimitExceeded  | `ZonesMismatched 
      | `Unknown_code of string ]
    type server_errors =
      [ `InsufficientAddressCapacity  | `InsufficientCapacity 
      | `InsufficientHostCapacity  | `InsufficientInstanceCapacity 
      | `InsufficientReservedInstanceCapacity  | `InsufficientVolumeCapacity 
      | `InternalError  | `InternalFailure  | `RequestLimitExceeded 
      | `ServiceUnavailable  | `Unavailable  | `Unknown_code of string ]
    type code =
      [ | common_client_errors | client_errors_for_specific_actions
      | server_errors]
    type t = (code * string option)
    let string_to_code name =
      match name with
      | "AuthFailure" -> `AuthFailure
      | "Blocked" -> `Blocked
      | "DryRunOperation" -> `DryRunOperation
      | "IdempotentParameterMismatch" -> `IdempotentParameterMismatch
      | "IncompleteSignature" -> `IncompleteSignature
      | "InvalidAction" -> `InvalidAction
      | "InvalidCharacter" -> `InvalidCharacter
      | "InvalidClientTokenId" -> `InvalidClientTokenId
      | "InvalidPaginationToken" -> `InvalidPaginationToken
      | "InvalidParameter" -> `InvalidParameter
      | "InvalidParameterCombination" -> `InvalidParameterCombination
      | "InvalidParameterValue" -> `InvalidParameterValue
      | "InvalidQueryParameter" -> `InvalidQueryParameter
      | "MalformedQueryString" -> `MalformedQueryString
      | "MissingAction" -> `MissingAction
      | "MissingAuthenticationToken" -> `MissingAuthenticationToken
      | "MissingParameter" -> `MissingParameter
      | "OptInRequired" -> `OptInRequired
      | "PendingVerification" -> `PendingVerification
      | "RequestExpired" -> `RequestExpired
      | "UnauthorizedOperation" -> `UnauthorizedOperation
      | "UnknownParameter" -> `UnknownParameter
      | "UnsupportedInstanceAttribute" -> `UnsupportedInstanceAttribute
      | "UnsupportedOperation" -> `UnsupportedOperation
      | "UnsupportedProtocol" -> `UnsupportedProtocol
      | "ValidationError" -> `ValidationError
      | "ActiveVpcPeeringConnectionPerVpcLimitExceeded" ->
          `ActiveVpcPeeringConnectionPerVpcLimitExceeded
      | "AddressLimitExceeded" -> `AddressLimitExceeded
      | "AsnConflict" -> `AsnConflict
      | "AttachmentLimitExceeded" -> `AttachmentLimitExceeded
      | "BootForVolumeTypeUnsupported" -> `BootForVolumeTypeUnsupported
      | "BundlingInProgress" -> `BundlingInProgress
      | "CannotDelete" -> `CannotDelete
      | "CidrConflict" -> `CidrConflict
      | "ClientVpnAuthorizationRuleLimitExceeded" ->
          `ClientVpnAuthorizationRuleLimitExceeded
      | "ClientVpnCertificateRevocationListLimitExceeded" ->
          `ClientVpnCertificateRevocationListLimitExceeded
      | "ClientVpnEndpointAssociationExists" ->
          `ClientVpnEndpointAssociationExists
      | "ClientVpnEndpointLimitExceeded" -> `ClientVpnEndpointLimitExceeded
      | "ClientVpnRouteLimitExceeded" -> `ClientVpnRouteLimitExceeded
      | "ClientVpnTerminateConnectionsLimitExceeded" ->
          `ClientVpnTerminateConnectionsLimitExceeded
      | "ConcurrentCreateImageNoRebootLimitExceeded" ->
          `ConcurrentCreateImageNoRebootLimitExceeded
      | "ConcurrentSnapshotLimitExceeded" -> `ConcurrentSnapshotLimitExceeded
      | "ConcurrentTagAccess" -> `ConcurrentTagAccess
      | "CreditSpecificationUpdateInProgress" ->
          `CreditSpecificationUpdateInProgress
      | "CustomerGatewayLimitExceeded" -> `CustomerGatewayLimitExceeded
      | "CustomerKeyHasBeenRevoked" -> `CustomerKeyHasBeenRevoked
      | "DefaultSubnetAlreadyExistsInAvailabilityZone" ->
          `DefaultSubnetAlreadyExistsInAvailabilityZone
      | "DefaultVpcAlreadyExists" -> `DefaultVpcAlreadyExists
      | "DefaultVpcDoesNotExist" -> `DefaultVpcDoesNotExist
      | "DeleteConversionTaskError" -> `DeleteConversionTaskError
      | "DependencyViolation" -> `DependencyViolation
      | "DisallowedForDedicatedTenancyNetwork" ->
          `DisallowedForDedicatedTenancyNetwork
      | "DiskImageSizeTooLarge" -> `DiskImageSizeTooLarge
      | "DuplicateSubnetsInSameZone" -> `DuplicateSubnetsInSameZone
      | "EIPMigratedToVpc" -> `EIPMigratedToVpc
      | "EncryptedVolumesNotSupported" -> `EncryptedVolumesNotSupported
      | "ExistingVpcEndpointConnections" -> `ExistingVpcEndpointConnections
      | "FilterLimitExceeded" -> `FilterLimitExceeded
      | "FleetNotInModifiableState" -> `FleetNotInModifiableState
      | "FlowLogAlreadyExists" -> `FlowLogAlreadyExists
      | "FlowLogsLimitExceeded" -> `FlowLogsLimitExceeded
      | "Gateway.NotAttached" -> `Gateway_NotAttached
      | "HostAlreadyCoveredByReservation" -> `HostAlreadyCoveredByReservation
      | "HostLimitExceeded" -> `HostLimitExceeded
      | "IdempotentInstanceTerminated" -> `IdempotentInstanceTerminated
      | "InaccessibleStorageLocation" -> `InaccessibleStorageLocation
      | "IncompatibleHostRequirements" -> `IncompatibleHostRequirements
      | "IncorrectInstanceState" -> `IncorrectInstanceState
      | "IncorrectModificationState" -> `IncorrectModificationState
      | "IncorrectState" -> `IncorrectState
      | "InstanceAlreadyLinked" -> `InstanceAlreadyLinked
      | "InstanceCreditSpecification.NotSupported" ->
          `InstanceCreditSpecification_NotSupported
      | "InstanceLimitExceeded" -> `InstanceLimitExceeded
      | "InsufficientCapacityOnHost" -> `InsufficientCapacityOnHost
      | "InsufficientFreeAddressesInSubnet" ->
          `InsufficientFreeAddressesInSubnet
      | "InsufficientReservedInstancesCapacity" ->
          `InsufficientReservedInstancesCapacity
      | "InterfaceInUseByTrafficMirrorSession" ->
          `InterfaceInUseByTrafficMirrorSession
      | "InterfaceInUseByTrafficMirrorTarget" ->
          `InterfaceInUseByTrafficMirrorTarget
      | "InternetGatewayLimitExceeded" -> `InternetGatewayLimitExceeded
      | "InvalidAMIAttributeItemValue" -> `InvalidAMIAttributeItemValue
      | "InvalidAMIID.Malformed" -> `InvalidAMIID_Malformed
      | "InvalidAMIID.NotFound" -> `InvalidAMIID_NotFound
      | "InvalidAMIID.Unavailable" -> `InvalidAMIID_Unavailable
      | "InvalidAMIName.Duplicate" -> `InvalidAMIName_Duplicate
      | "InvalidAMIName.Malformed" -> `InvalidAMIName_Malformed
      | "InvalidAddress.Locked" -> `InvalidAddress_Locked
      | "InvalidAddress.Malformed" -> `InvalidAddress_Malformed
      | "InvalidAddress.NotFound" -> `InvalidAddress_NotFound
      | "InvalidAddressID.NotFound" -> `InvalidAddressID_NotFound
      | "InvalidAffinity" -> `InvalidAffinity
      | "InvalidAllocationID.NotFound" -> `InvalidAllocationID_NotFound
      | "InvalidAssociationID.NotFound" -> `InvalidAssociationID_NotFound
      | "InvalidAttachment.NotFound" -> `InvalidAttachment_NotFound
      | "InvalidAttachmentID.NotFound" -> `InvalidAttachmentID_NotFound
      | "InvalidAutoPlacement" -> `InvalidAutoPlacement
      | "InvalidAvailabilityZone" -> `InvalidAvailabilityZone
      | "InvalidBlockDeviceMapping" -> `InvalidBlockDeviceMapping
      | "InvalidBundleID.NotFound" -> `InvalidBundleID_NotFound
      | "InvalidCapacityReservationIdMalformedException" ->
          `InvalidCapacityReservationIdMalformedException
      | "InvalidCapacityReservationIdNotFoundException" ->
          `InvalidCapacityReservationIdNotFoundException
      | "InvalidCidr.InUse" -> `InvalidCidr_InUse
      | "InvalidClientToken" -> `InvalidClientToken
      | "InvalidClientVpnActiveAssociationNotFound" ->
          `InvalidClientVpnActiveAssociationNotFound
      | "InvalidClientVpnAssociationIdNotFound" ->
          `InvalidClientVpnAssociationIdNotFound
      | "InvalidClientVpnConnection.IdNotFound" ->
          `InvalidClientVpnConnection_IdNotFound
      | "InvalidClientVpnConnection.UserNotFound" ->
          `InvalidClientVpnConnection_UserNotFound
      | "InvalidClientVpnDuplicateAssociationException" ->
          `InvalidClientVpnDuplicateAssociationException
      | "InvalidClientVpnDuplicateAuthorizationRule" ->
          `InvalidClientVpnDuplicateAuthorizationRule
      | "InvalidClientVpnDuplicateRoute" -> `InvalidClientVpnDuplicateRoute
      | "InvalidClientVpnEndpointAuthorizationRuleNotFound" ->
          `InvalidClientVpnEndpointAuthorizationRuleNotFound
      | "InvalidClientVpnEndpointId.NotFound" ->
          `InvalidClientVpnEndpointId_NotFound
      | "InvalidClientVpnRouteNotFound" -> `InvalidClientVpnRouteNotFound
      | "InvalidClientVpnSubnetId.DifferentAccount" ->
          `InvalidClientVpnSubnetId_DifferentAccount
      | "InvalidClientVpnSubnetId.DuplicateAz" ->
          `InvalidClientVpnSubnetId_DuplicateAz
      | "InvalidClientVpnSubnetId.NotFound" ->
          `InvalidClientVpnSubnetId_NotFound
      | "InvalidClientVpnSubnetId.OverlappingCidr" ->
          `InvalidClientVpnSubnetId_OverlappingCidr
      | "InvalidConversionTaskId" -> `InvalidConversionTaskId
      | "InvalidConversionTaskId.Malformed" ->
          `InvalidConversionTaskId_Malformed
      | "InvalidCpuCredits.Malformed" -> `InvalidCpuCredits_Malformed
      | "InvalidCustomerGateway.DuplicateIpAddress" ->
          `InvalidCustomerGateway_DuplicateIpAddress
      | "InvalidCustomerGatewayID.NotFound" ->
          `InvalidCustomerGatewayID_NotFound
      | "InvalidCustomerGatewayId.Malformed" ->
          `InvalidCustomerGatewayId_Malformed
      | "InvalidCustomerGatewayState" -> `InvalidCustomerGatewayState
      | "InvalidDevice.InUse" -> `InvalidDevice_InUse
      | "InvalidDhcpOptionID.NotFound" -> `InvalidDhcpOptionID_NotFound
      | "InvalidDhcpOptionsID.NotFound" -> `InvalidDhcpOptionsID_NotFound
      | "InvalidDhcpOptionsId.Malformed" -> `InvalidDhcpOptionsId_Malformed
      | "InvalidExportTaskID.NotFound" -> `InvalidExportTaskID_NotFound
      | "InvalidFilter" -> `InvalidFilter
      | "InvalidFlowLogId.NotFound" -> `InvalidFlowLogId_NotFound
      | "InvalidFormat" -> `InvalidFormat
      | "InvalidFpgaImageID.Malformed" -> `InvalidFpgaImageID_Malformed
      | "InvalidFpgaImageID.NotFound" -> `InvalidFpgaImageID_NotFound
      | "InvalidGatewayID.NotFound" -> `InvalidGatewayID_NotFound
      | "InvalidGroup.Duplicate" -> `InvalidGroup_Duplicate
      | "InvalidGroup.InUse" -> `InvalidGroup_InUse
      | "InvalidGroup.NotFound" -> `InvalidGroup_NotFound
      | "InvalidGroup.Reserved" -> `InvalidGroup_Reserved
      | "InvalidGroupId.Malformed" -> `InvalidGroupId_Malformed
      | "InvalidHostConfiguration" -> `InvalidHostConfiguration
      | "InvalidHostID.Malformed" -> `InvalidHostID_Malformed
      | "InvalidHostID.NotFound" -> `InvalidHostID_NotFound
      | "InvalidHostId" -> `InvalidHostId
      | "InvalidHostId.Malformed" -> `InvalidHostId_Malformed
      | "InvalidHostId.NotFound" -> `InvalidHostId_NotFound
      | "InvalidHostReservationId.Malformed" ->
          `InvalidHostReservationId_Malformed
      | "InvalidHostReservationOfferingId.Malformed" ->
          `InvalidHostReservationOfferingId_Malformed
      | "InvalidHostState" -> `InvalidHostState
      | "InvalidID" -> `InvalidID
      | "InvalidIPAddress.InUse" -> `InvalidIPAddress_InUse
      | "InvalidIamInstanceProfileArn.Malformed" ->
          `InvalidIamInstanceProfileArn_Malformed
      | "InvalidInput" -> `InvalidInput
      | "InvalidInstanceAttributeValue" -> `InvalidInstanceAttributeValue
      | "InvalidInstanceCreditSpecification.DuplicateInstanceId" ->
          `InvalidInstanceCreditSpecification_DuplicateInstanceId
      | "InvalidInstanceFamily" -> `InvalidInstanceFamily
      | "InvalidInstanceID" -> `InvalidInstanceID
      | "InvalidInstanceID.Malformed" -> `InvalidInstanceID_Malformed
      | "InvalidInstanceID.NotFound" -> `InvalidInstanceID_NotFound
      | "InvalidInstanceID.NotLinkable" -> `InvalidInstanceID_NotLinkable
      | "InvalidInstanceState" -> `InvalidInstanceState
      | "InvalidInstanceType" -> `InvalidInstanceType
      | "InvalidInterface.IpAddressLimitExceeded" ->
          `InvalidInterface_IpAddressLimitExceeded
      | "InvalidInternetGatewayID.NotFound" ->
          `InvalidInternetGatewayID_NotFound
      | "InvalidInternetGatewayId.Malformed" ->
          `InvalidInternetGatewayId_Malformed
      | "InvalidKernelId.Malformed" -> `InvalidKernelId_Malformed
      | "InvalidKey.Format" -> `InvalidKey_Format
      | "InvalidKeyPair.Duplicate" -> `InvalidKeyPair_Duplicate
      | "InvalidKeyPair.Format" -> `InvalidKeyPair_Format
      | "InvalidKeyPair.NotFound" -> `InvalidKeyPair_NotFound
      | "InvalidLaunchTemplateId.Malformed" ->
          `InvalidLaunchTemplateId_Malformed
      | "InvalidLaunchTemplateId.NotFound" ->
          `InvalidLaunchTemplateId_NotFound
      | "InvalidLaunchTemplateId.VersionNotFound" ->
          `InvalidLaunchTemplateId_VersionNotFound
      | "InvalidLaunchTemplateName.AlreadyExistsException" ->
          `InvalidLaunchTemplateName_AlreadyExistsException
      | "InvalidLaunchTemplateName.MalformedException" ->
          `InvalidLaunchTemplateName_MalformedException
      | "InvalidLaunchTemplateName.NotFoundException" ->
          `InvalidLaunchTemplateName_NotFoundException
      | "InvalidManifest" -> `InvalidManifest
      | "InvalidMaxResults" -> `InvalidMaxResults
      | "InvalidNatGatewayID.NotFound" -> `InvalidNatGatewayID_NotFound
      | "InvalidNetworkAclEntry.NotFound" -> `InvalidNetworkAclEntry_NotFound
      | "InvalidNetworkAclID.NotFound" -> `InvalidNetworkAclID_NotFound
      | "InvalidNetworkAclId.Malformed" -> `InvalidNetworkAclId_Malformed
      | "InvalidNetworkInterface.InUse" -> `InvalidNetworkInterface_InUse
      | "InvalidNetworkInterfaceAttachmentId.Malformed" ->
          `InvalidNetworkInterfaceAttachmentId_Malformed
      | "InvalidNetworkInterfaceID.NotFound" ->
          `InvalidNetworkInterfaceID_NotFound
      | "InvalidNetworkInterfaceId.Malformed" ->
          `InvalidNetworkInterfaceId_Malformed
      | "InvalidNetworkLoadBalancerArn.Malformed" ->
          `InvalidNetworkLoadBalancerArn_Malformed
      | "InvalidNetworkLoadBalancerArn.NotFound" ->
          `InvalidNetworkLoadBalancerArn_NotFound
      | "InvalidNextToken" -> `InvalidNextToken
      | "InvalidOption.Conflict" -> `InvalidOption_Conflict
      | "InvalidPermission.Duplicate" -> `InvalidPermission_Duplicate
      | "InvalidPermission.Malformed" -> `InvalidPermission_Malformed
      | "InvalidPermission.NotFound" -> `InvalidPermission_NotFound
      | "InvalidPlacementGroup.Duplicate" -> `InvalidPlacementGroup_Duplicate
      | "InvalidPlacementGroup.InUse" -> `InvalidPlacementGroup_InUse
      | "InvalidPlacementGroup.Unknown" -> `InvalidPlacementGroup_Unknown
      | "InvalidPolicyDocument" -> `InvalidPolicyDocument
      | "InvalidPrefixListId.Malformed" -> `InvalidPrefixListId_Malformed
      | "InvalidPrefixListId.NotFound" -> `InvalidPrefixListId_NotFound
      | "InvalidProductInfo" -> `InvalidProductInfo
      | "InvalidPurchaseToken.Expired" -> `InvalidPurchaseToken_Expired
      | "InvalidPurchaseToken.Malformed" -> `InvalidPurchaseToken_Malformed
      | "InvalidQuantity" -> `InvalidQuantity
      | "InvalidRamDiskId.Malformed" -> `InvalidRamDiskId_Malformed
      | "InvalidRegion" -> `InvalidRegion
      | "InvalidRequest" -> `InvalidRequest
      | "InvalidReservationID.Malformed" -> `InvalidReservationID_Malformed
      | "InvalidReservationID.NotFound" -> `InvalidReservationID_NotFound
      | "InvalidReservedInstancesId" -> `InvalidReservedInstancesId
      | "InvalidReservedInstancesOfferingId" ->
          `InvalidReservedInstancesOfferingId
      | "InvalidResourceType.Unknown" -> `InvalidResourceType_Unknown
      | "InvalidRoute.InvalidState" -> `InvalidRoute_InvalidState
      | "InvalidRoute.Malformed" -> `InvalidRoute_Malformed
      | "InvalidRoute.NotFound" -> `InvalidRoute_NotFound
      | "InvalidRouteTableID.NotFound" -> `InvalidRouteTableID_NotFound
      | "InvalidRouteTableId.Malformed" -> `InvalidRouteTableId_Malformed
      | "InvalidScheduledInstance" -> `InvalidScheduledInstance
      | "InvalidSecurity.RequestHasExpired" ->
          `InvalidSecurity_RequestHasExpired
      | "InvalidSecurityGroupID.NotFound" -> `InvalidSecurityGroupID_NotFound
      | "InvalidSecurityGroupId.Malformed" ->
          `InvalidSecurityGroupId_Malformed
      | "InvalidServiceName" -> `InvalidServiceName
      | "InvalidSnapshot.InUse" -> `InvalidSnapshot_InUse
      | "InvalidSnapshot.NotFound" -> `InvalidSnapshot_NotFound
      | "InvalidSnapshotID.Malformed" -> `InvalidSnapshotID_Malformed
      | "InvalidSpotDatafeed.NotFound" -> `InvalidSpotDatafeed_NotFound
      | "InvalidSpotFleetRequestConfig" -> `InvalidSpotFleetRequestConfig
      | "InvalidSpotFleetRequestId.Malformed" ->
          `InvalidSpotFleetRequestId_Malformed
      | "InvalidSpotFleetRequestId.NotFound" ->
          `InvalidSpotFleetRequestId_NotFound
      | "InvalidSpotInstanceRequestID.Malformed" ->
          `InvalidSpotInstanceRequestID_Malformed
      | "InvalidSpotInstanceRequestID.NotFound" ->
          `InvalidSpotInstanceRequestID_NotFound
      | "InvalidState" -> `InvalidState
      | "InvalidStateTransition" -> `InvalidStateTransition
      | "InvalidSubnet" -> `InvalidSubnet
      | "InvalidSubnet.Conflict" -> `InvalidSubnet_Conflict
      | "InvalidSubnet.Range" -> `InvalidSubnet_Range
      | "InvalidSubnetID.Malformed" -> `InvalidSubnetID_Malformed
      | "InvalidSubnetID.NotFound" -> `InvalidSubnetID_NotFound
      | "InvalidTagKey.Malformed" -> `InvalidTagKey_Malformed
      | "InvalidTargetArn.Unknown" -> `InvalidTargetArn_Unknown
      | "InvalidTenancy" -> `InvalidTenancy
      | "InvalidTime" -> `InvalidTime
      | "InvalidTrafficMirrorFilterNotFound" ->
          `InvalidTrafficMirrorFilterNotFound
      | "InvalidTrafficMirrorFilterRuleNotFound" ->
          `InvalidTrafficMirrorFilterRuleNotFound
      | "InvalidTrafficMirrorSessionNotFound" ->
          `InvalidTrafficMirrorSessionNotFound
      | "InvalidTrafficMirrorTargetNoFound" ->
          `InvalidTrafficMirrorTargetNoFound
      | "InvalidUserID.Malformed" -> `InvalidUserID_Malformed
      | "InvalidVolume.NotFound" -> `InvalidVolume_NotFound
      | "InvalidVolume.ZoneMismatch" -> `InvalidVolume_ZoneMismatch
      | "InvalidVolumeID.Duplicate" -> `InvalidVolumeID_Duplicate
      | "InvalidVolumeID.Malformed" -> `InvalidVolumeID_Malformed
      | "InvalidVolumeID.ZoneMismatch" -> `InvalidVolumeID_ZoneMismatch
      | "InvalidVpcEndpoint.NotFound" -> `InvalidVpcEndpoint_NotFound
      | "InvalidVpcEndpointId.Malformed" -> `InvalidVpcEndpointId_Malformed
      | "InvalidVpcEndpointId.NotFound" -> `InvalidVpcEndpointId_NotFound
      | "InvalidVpcEndpointService.NotFound" ->
          `InvalidVpcEndpointService_NotFound
      | "InvalidVpcEndpointServiceId.NotFound" ->
          `InvalidVpcEndpointServiceId_NotFound
      | "InvalidVpcEndpointType" -> `InvalidVpcEndpointType
      | "InvalidVpcID.Malformed" -> `InvalidVpcID_Malformed
      | "InvalidVpcID.NotFound" -> `InvalidVpcID_NotFound
      | "InvalidVpcPeeringConnectionID.NotFound" ->
          `InvalidVpcPeeringConnectionID_NotFound
      | "InvalidVpcPeeringConnectionId.Malformed" ->
          `InvalidVpcPeeringConnectionId_Malformed
      | "InvalidVpcPeeringConnectionState.DnsHostnamesDisabled" ->
          `InvalidVpcPeeringConnectionState_DnsHostnamesDisabled
      | "InvalidVpcRange" -> `InvalidVpcRange
      | "InvalidVpcState" -> `InvalidVpcState
      | "InvalidVpnConnection.InvalidState" ->
          `InvalidVpnConnection_InvalidState
      | "InvalidVpnConnection.InvalidType" ->
          `InvalidVpnConnection_InvalidType
      | "InvalidVpnConnectionID" -> `InvalidVpnConnectionID
      | "InvalidVpnConnectionID.NotFound" -> `InvalidVpnConnectionID_NotFound
      | "InvalidVpnGatewayAttachment.NotFound" ->
          `InvalidVpnGatewayAttachment_NotFound
      | "InvalidVpnGatewayID.NotFound" -> `InvalidVpnGatewayID_NotFound
      | "InvalidVpnGatewayState" -> `InvalidVpnGatewayState
      | "InvalidZone.NotFound" -> `InvalidZone_NotFound
      | "KeyPairLimitExceeded" -> `KeyPairLimitExceeded
      | "LegacySecurityGroup" -> `LegacySecurityGroup
      | "LimitPriceExceeded" -> `LimitPriceExceeded
      | "LogDestinationNotFoundException" -> `LogDestinationNotFoundException
      | "LogDestinationPermissionIssue" -> `LogDestinationPermissionIssue
      | "MaxConfigLimitExceededException" -> `MaxConfigLimitExceededException
      | "MaxIOPSLimitExceeded" -> `MaxIOPSLimitExceeded
      | "MaxScheduledInstanceCapacityExceeded" ->
          `MaxScheduledInstanceCapacityExceeded
      | "MaxSpotFleetRequestCountExceeded" ->
          `MaxSpotFleetRequestCountExceeded
      | "MaxSpotInstanceCountExceeded" -> `MaxSpotInstanceCountExceeded
      | "MaxTemplateLimitExceeded" -> `MaxTemplateLimitExceeded
      | "MaxTemplateVersionLimitExceeded" -> `MaxTemplateVersionLimitExceeded
      | "MissingInput" -> `MissingInput
      | "NatGatewayLimitExceeded" -> `NatGatewayLimitExceeded
      | "NatGatewayMalformed" -> `NatGatewayMalformed
      | "NatGatewayNotFound" -> `NatGatewayNotFound
      | "NetworkAclEntryAlreadyExists" -> `NetworkAclEntryAlreadyExists
      | "NetworkAclEntryLimitExceeded" -> `NetworkAclEntryLimitExceeded
      | "NetworkAclLimitExceeded" -> `NetworkAclLimitExceeded
      | "NetworkInterfaceLimitExceeded" -> `NetworkInterfaceLimitExceeded
      | "NetworkInterfaceNotFoundException" ->
          `NetworkInterfaceNotFoundException
      | "NetworkInterfaceNotSupportedException" ->
          `NetworkInterfaceNotSupportedException
      | "NetworkLoadBalancerNotFoundException" ->
          `NetworkLoadBalancerNotFoundException
      | "NlbInUseByTrafficMirrorTargetException" ->
          `NlbInUseByTrafficMirrorTargetException
      | "NoSuchVersion" -> `NoSuchVersion
      | "NonEBSInstance" -> `NonEBSInstance
      | "NotExportable" -> `NotExportable
      | "OperationNotPermitted" -> `OperationNotPermitted
      | "OutstandingVpcPeeringConnectionLimitExceeded" ->
          `OutstandingVpcPeeringConnectionLimitExceeded
      | "PendingSnapshotLimitExceeded" -> `PendingSnapshotLimitExceeded
      | "PendingVpcPeeringConnectionLimitExceeded" ->
          `PendingVpcPeeringConnectionLimitExceeded
      | "PlacementGroupLimitExceeded" -> `PlacementGroupLimitExceeded
      | "PrivateIpAddressLimitExceeded" -> `PrivateIpAddressLimitExceeded
      | "RequestResourceCountExceeded" -> `RequestResourceCountExceeded
      | "ReservationCapacityExceeded" -> `ReservationCapacityExceeded
      | "ReservedInstancesCountExceeded" -> `ReservedInstancesCountExceeded
      | "ReservedInstancesLimitExceeded" -> `ReservedInstancesLimitExceeded
      | "ReservedInstancesUnavailable" -> `ReservedInstancesUnavailable
      | "Resource.AlreadyAssigned" -> `Resource_AlreadyAssigned
      | "Resource.AlreadyAssociated" -> `Resource_AlreadyAssociated
      | "ResourceCountExceeded" -> `ResourceCountExceeded
      | "ResourceCountLimitExceeded" -> `ResourceCountLimitExceeded
      | "ResourceLimitExceeded" -> `ResourceLimitExceeded
      | "RouteAlreadyExists" -> `RouteAlreadyExists
      | "RouteLimitExceeded" -> `RouteLimitExceeded
      | "RouteTableLimitExceeded" -> `RouteTableLimitExceeded
      | "RulesPerSecurityGroupLimitExceeded" ->
          `RulesPerSecurityGroupLimitExceeded
      | "ScheduledInstanceLimitExceeded" -> `ScheduledInstanceLimitExceeded
      | "ScheduledInstanceParameterMismatch" ->
          `ScheduledInstanceParameterMismatch
      | "ScheduledInstanceSlotNotOpen" -> `ScheduledInstanceSlotNotOpen
      | "ScheduledInstanceSlotUnavailable" ->
          `ScheduledInstanceSlotUnavailable
      | "SecurityGroupLimitExceeded" -> `SecurityGroupLimitExceeded
      | "SecurityGroupsPerInstanceLimitExceeded" ->
          `SecurityGroupsPerInstanceLimitExceeded
      | "SecurityGroupsPerInterfaceLimitExceeded" ->
          `SecurityGroupsPerInterfaceLimitExceeded
      | "SignatureDoesNotMatch" -> `SignatureDoesNotMatch
      | "SnapshotCopyUnsupported.InterRegion" ->
          `SnapshotCopyUnsupported_InterRegion
      | "SnapshotCreationPerVolumeRateExceeded" ->
          `SnapshotCreationPerVolumeRateExceeded
      | "SnapshotLimitExceeded" -> `SnapshotLimitExceeded
      | "SubnetLimitExceeded" -> `SubnetLimitExceeded
      | "TagLimitExceeded" -> `TagLimitExceeded
      | "TargetCapacityLimitExceededException" ->
          `TargetCapacityLimitExceededException
      | "TrafficMirrorFilterInUse" -> `TrafficMirrorFilterInUse
      | "TrafficMirrorFilterLimitExceeded" ->
          `TrafficMirrorFilterLimitExceeded
      | "TrafficMirrorFilterRuleAlreadyExists" ->
          `TrafficMirrorFilterRuleAlreadyExists
      | "TrafficMirrorFilterRuleLimitExceeded" ->
          `TrafficMirrorFilterRuleLimitExceeded
      | "TrafficMirrorSessionLimitExceeded" ->
          `TrafficMirrorSessionLimitExceeded
      | "TrafficMirrorSessionsPerInterfaceLimitExceeded" ->
          `TrafficMirrorSessionsPerInterfaceLimitExceeded
      | "TrafficMirrorSessionsPerTargetLimitExceeded" ->
          `TrafficMirrorSessionsPerTargetLimitExceeded
      | "TrafficMirrorSourcesPerTargetLimitExceeded" ->
          `TrafficMirrorSourcesPerTargetLimitExceeded
      | "TrafficMirrorTargetInUseException" ->
          `TrafficMirrorTargetInUseException
      | "TrafficMirrorTargetLimitExceeded" ->
          `TrafficMirrorTargetLimitExceeded
      | "UnavailableHostRequirements" -> `UnavailableHostRequirements
      | "UnknownPrincipalType.Unsupported" ->
          `UnknownPrincipalType_Unsupported
      | "UnknownVolumeType" -> `UnknownVolumeType
      | "Unsupported" -> `Unsupported
      | "UnsupportedException" -> `UnsupportedException
      | "UnsupportedHibernationConfiguration" ->
          `UnsupportedHibernationConfiguration
      | "UnsupportedHostConfiguration" -> `UnsupportedHostConfiguration
      | "UnsupportedInstanceTypeOnHost" -> `UnsupportedInstanceTypeOnHost
      | "UnsupportedTenancy" -> `UnsupportedTenancy
      | "UpdateLimitExceeded" -> `UpdateLimitExceeded
      | "VPCIdNotSpecified" -> `VPCIdNotSpecified
      | "VPCResourceNotSpecified" -> `VPCResourceNotSpecified
      | "VolumeIOPSLimit" -> `VolumeIOPSLimit
      | "VolumeInUse" -> `VolumeInUse
      | "VolumeLimitExceeded" -> `VolumeLimitExceeded
      | "VolumeModificationSizeLimitExceeded" ->
          `VolumeModificationSizeLimitExceeded
      | "VolumeTypeNotAvailableInZone" -> `VolumeTypeNotAvailableInZone
      | "VpcCidrConflict" -> `VpcCidrConflict
      | "VpcEndpointLimitExceeded" -> `VpcEndpointLimitExceeded
      | "VpcLimitExceeded" -> `VpcLimitExceeded
      | "VpcPeeringConnectionAlreadyExists" ->
          `VpcPeeringConnectionAlreadyExists
      | "VpcPeeringConnectionsPerVpcLimitExceeded" ->
          `VpcPeeringConnectionsPerVpcLimitExceeded
      | "VpnConnectionLimitExceeded" -> `VpnConnectionLimitExceeded
      | "VpnGatewayAttachmentLimitExceeded" ->
          `VpnGatewayAttachmentLimitExceeded
      | "VpnGatewayLimitExceeded" -> `VpnGatewayLimitExceeded
      | "ZonesMismatched" -> `ZonesMismatched
      | "InsufficientAddressCapacity" -> `InsufficientAddressCapacity
      | "InsufficientCapacity" -> `InsufficientCapacity
      | "InsufficientHostCapacity" -> `InsufficientHostCapacity
      | "InsufficientInstanceCapacity" -> `InsufficientInstanceCapacity
      | "InsufficientReservedInstanceCapacity" ->
          `InsufficientReservedInstanceCapacity
      | "InsufficientVolumeCapacity" -> `InsufficientVolumeCapacity
      | "InternalError" -> `InternalError
      | "InternalFailure" -> `InternalFailure
      | "RequestLimitExceeded" -> `RequestLimitExceeded
      | "ServiceUnavailable" -> `ServiceUnavailable
      | "Unavailable" -> `Unavailable
      | name -> `Unknown_code name
    let code_to_string : code -> string =
      function
      | `AuthFailure -> "AuthFailure"
      | `Blocked -> "Blocked"
      | `DryRunOperation -> "DryRunOperation"
      | `IdempotentParameterMismatch -> "IdempotentParameterMismatch"
      | `IncompleteSignature -> "IncompleteSignature"
      | `InvalidAction -> "InvalidAction"
      | `InvalidCharacter -> "InvalidCharacter"
      | `InvalidClientTokenId -> "InvalidClientTokenId"
      | `InvalidPaginationToken -> "InvalidPaginationToken"
      | `InvalidParameter -> "InvalidParameter"
      | `InvalidParameterCombination -> "InvalidParameterCombination"
      | `InvalidParameterValue -> "InvalidParameterValue"
      | `InvalidQueryParameter -> "InvalidQueryParameter"
      | `MalformedQueryString -> "MalformedQueryString"
      | `MissingAction -> "MissingAction"
      | `MissingAuthenticationToken -> "MissingAuthenticationToken"
      | `MissingParameter -> "MissingParameter"
      | `OptInRequired -> "OptInRequired"
      | `PendingVerification -> "PendingVerification"
      | `RequestExpired -> "RequestExpired"
      | `UnauthorizedOperation -> "UnauthorizedOperation"
      | `UnknownParameter -> "UnknownParameter"
      | `UnsupportedInstanceAttribute -> "UnsupportedInstanceAttribute"
      | `UnsupportedOperation -> "UnsupportedOperation"
      | `UnsupportedProtocol -> "UnsupportedProtocol"
      | `ValidationError -> "ValidationError"
      | `ActiveVpcPeeringConnectionPerVpcLimitExceeded ->
          "ActiveVpcPeeringConnectionPerVpcLimitExceeded"
      | `AddressLimitExceeded -> "AddressLimitExceeded"
      | `AsnConflict -> "AsnConflict"
      | `AttachmentLimitExceeded -> "AttachmentLimitExceeded"
      | `BootForVolumeTypeUnsupported -> "BootForVolumeTypeUnsupported"
      | `BundlingInProgress -> "BundlingInProgress"
      | `CannotDelete -> "CannotDelete"
      | `CidrConflict -> "CidrConflict"
      | `ClientVpnAuthorizationRuleLimitExceeded ->
          "ClientVpnAuthorizationRuleLimitExceeded"
      | `ClientVpnCertificateRevocationListLimitExceeded ->
          "ClientVpnCertificateRevocationListLimitExceeded"
      | `ClientVpnEndpointAssociationExists ->
          "ClientVpnEndpointAssociationExists"
      | `ClientVpnEndpointLimitExceeded -> "ClientVpnEndpointLimitExceeded"
      | `ClientVpnRouteLimitExceeded -> "ClientVpnRouteLimitExceeded"
      | `ClientVpnTerminateConnectionsLimitExceeded ->
          "ClientVpnTerminateConnectionsLimitExceeded"
      | `ConcurrentCreateImageNoRebootLimitExceeded ->
          "ConcurrentCreateImageNoRebootLimitExceeded"
      | `ConcurrentSnapshotLimitExceeded -> "ConcurrentSnapshotLimitExceeded"
      | `ConcurrentTagAccess -> "ConcurrentTagAccess"
      | `CreditSpecificationUpdateInProgress ->
          "CreditSpecificationUpdateInProgress"
      | `CustomerGatewayLimitExceeded -> "CustomerGatewayLimitExceeded"
      | `CustomerKeyHasBeenRevoked -> "CustomerKeyHasBeenRevoked"
      | `DefaultSubnetAlreadyExistsInAvailabilityZone ->
          "DefaultSubnetAlreadyExistsInAvailabilityZone"
      | `DefaultVpcAlreadyExists -> "DefaultVpcAlreadyExists"
      | `DefaultVpcDoesNotExist -> "DefaultVpcDoesNotExist"
      | `DeleteConversionTaskError -> "DeleteConversionTaskError"
      | `DependencyViolation -> "DependencyViolation"
      | `DisallowedForDedicatedTenancyNetwork ->
          "DisallowedForDedicatedTenancyNetwork"
      | `DiskImageSizeTooLarge -> "DiskImageSizeTooLarge"
      | `DuplicateSubnetsInSameZone -> "DuplicateSubnetsInSameZone"
      | `EIPMigratedToVpc -> "EIPMigratedToVpc"
      | `EncryptedVolumesNotSupported -> "EncryptedVolumesNotSupported"
      | `ExistingVpcEndpointConnections -> "ExistingVpcEndpointConnections"
      | `FilterLimitExceeded -> "FilterLimitExceeded"
      | `FleetNotInModifiableState -> "FleetNotInModifiableState"
      | `FlowLogAlreadyExists -> "FlowLogAlreadyExists"
      | `FlowLogsLimitExceeded -> "FlowLogsLimitExceeded"
      | `Gateway_NotAttached -> "Gateway.NotAttached"
      | `HostAlreadyCoveredByReservation -> "HostAlreadyCoveredByReservation"
      | `HostLimitExceeded -> "HostLimitExceeded"
      | `IdempotentInstanceTerminated -> "IdempotentInstanceTerminated"
      | `InaccessibleStorageLocation -> "InaccessibleStorageLocation"
      | `IncompatibleHostRequirements -> "IncompatibleHostRequirements"
      | `IncorrectInstanceState -> "IncorrectInstanceState"
      | `IncorrectModificationState -> "IncorrectModificationState"
      | `IncorrectState -> "IncorrectState"
      | `InstanceAlreadyLinked -> "InstanceAlreadyLinked"
      | `InstanceCreditSpecification_NotSupported ->
          "InstanceCreditSpecification.NotSupported"
      | `InstanceLimitExceeded -> "InstanceLimitExceeded"
      | `InsufficientCapacityOnHost -> "InsufficientCapacityOnHost"
      | `InsufficientFreeAddressesInSubnet ->
          "InsufficientFreeAddressesInSubnet"
      | `InsufficientReservedInstancesCapacity ->
          "InsufficientReservedInstancesCapacity"
      | `InterfaceInUseByTrafficMirrorSession ->
          "InterfaceInUseByTrafficMirrorSession"
      | `InterfaceInUseByTrafficMirrorTarget ->
          "InterfaceInUseByTrafficMirrorTarget"
      | `InternetGatewayLimitExceeded -> "InternetGatewayLimitExceeded"
      | `InvalidAMIAttributeItemValue -> "InvalidAMIAttributeItemValue"
      | `InvalidAMIID_Malformed -> "InvalidAMIID.Malformed"
      | `InvalidAMIID_NotFound -> "InvalidAMIID.NotFound"
      | `InvalidAMIID_Unavailable -> "InvalidAMIID.Unavailable"
      | `InvalidAMIName_Duplicate -> "InvalidAMIName.Duplicate"
      | `InvalidAMIName_Malformed -> "InvalidAMIName.Malformed"
      | `InvalidAddress_Locked -> "InvalidAddress.Locked"
      | `InvalidAddress_Malformed -> "InvalidAddress.Malformed"
      | `InvalidAddress_NotFound -> "InvalidAddress.NotFound"
      | `InvalidAddressID_NotFound -> "InvalidAddressID.NotFound"
      | `InvalidAffinity -> "InvalidAffinity"
      | `InvalidAllocationID_NotFound -> "InvalidAllocationID.NotFound"
      | `InvalidAssociationID_NotFound -> "InvalidAssociationID.NotFound"
      | `InvalidAttachment_NotFound -> "InvalidAttachment.NotFound"
      | `InvalidAttachmentID_NotFound -> "InvalidAttachmentID.NotFound"
      | `InvalidAutoPlacement -> "InvalidAutoPlacement"
      | `InvalidAvailabilityZone -> "InvalidAvailabilityZone"
      | `InvalidBlockDeviceMapping -> "InvalidBlockDeviceMapping"
      | `InvalidBundleID_NotFound -> "InvalidBundleID.NotFound"
      | `InvalidCapacityReservationIdMalformedException ->
          "InvalidCapacityReservationIdMalformedException"
      | `InvalidCapacityReservationIdNotFoundException ->
          "InvalidCapacityReservationIdNotFoundException"
      | `InvalidCidr_InUse -> "InvalidCidr.InUse"
      | `InvalidClientToken -> "InvalidClientToken"
      | `InvalidClientVpnActiveAssociationNotFound ->
          "InvalidClientVpnActiveAssociationNotFound"
      | `InvalidClientVpnAssociationIdNotFound ->
          "InvalidClientVpnAssociationIdNotFound"
      | `InvalidClientVpnConnection_IdNotFound ->
          "InvalidClientVpnConnection.IdNotFound"
      | `InvalidClientVpnConnection_UserNotFound ->
          "InvalidClientVpnConnection.UserNotFound"
      | `InvalidClientVpnDuplicateAssociationException ->
          "InvalidClientVpnDuplicateAssociationException"
      | `InvalidClientVpnDuplicateAuthorizationRule ->
          "InvalidClientVpnDuplicateAuthorizationRule"
      | `InvalidClientVpnDuplicateRoute -> "InvalidClientVpnDuplicateRoute"
      | `InvalidClientVpnEndpointAuthorizationRuleNotFound ->
          "InvalidClientVpnEndpointAuthorizationRuleNotFound"
      | `InvalidClientVpnEndpointId_NotFound ->
          "InvalidClientVpnEndpointId.NotFound"
      | `InvalidClientVpnRouteNotFound -> "InvalidClientVpnRouteNotFound"
      | `InvalidClientVpnSubnetId_DifferentAccount ->
          "InvalidClientVpnSubnetId.DifferentAccount"
      | `InvalidClientVpnSubnetId_DuplicateAz ->
          "InvalidClientVpnSubnetId.DuplicateAz"
      | `InvalidClientVpnSubnetId_NotFound ->
          "InvalidClientVpnSubnetId.NotFound"
      | `InvalidClientVpnSubnetId_OverlappingCidr ->
          "InvalidClientVpnSubnetId.OverlappingCidr"
      | `InvalidConversionTaskId -> "InvalidConversionTaskId"
      | `InvalidConversionTaskId_Malformed ->
          "InvalidConversionTaskId.Malformed"
      | `InvalidCpuCredits_Malformed -> "InvalidCpuCredits.Malformed"
      | `InvalidCustomerGateway_DuplicateIpAddress ->
          "InvalidCustomerGateway.DuplicateIpAddress"
      | `InvalidCustomerGatewayID_NotFound ->
          "InvalidCustomerGatewayID.NotFound"
      | `InvalidCustomerGatewayId_Malformed ->
          "InvalidCustomerGatewayId.Malformed"
      | `InvalidCustomerGatewayState -> "InvalidCustomerGatewayState"
      | `InvalidDevice_InUse -> "InvalidDevice.InUse"
      | `InvalidDhcpOptionID_NotFound -> "InvalidDhcpOptionID.NotFound"
      | `InvalidDhcpOptionsID_NotFound -> "InvalidDhcpOptionsID.NotFound"
      | `InvalidDhcpOptionsId_Malformed -> "InvalidDhcpOptionsId.Malformed"
      | `InvalidExportTaskID_NotFound -> "InvalidExportTaskID.NotFound"
      | `InvalidFilter -> "InvalidFilter"
      | `InvalidFlowLogId_NotFound -> "InvalidFlowLogId.NotFound"
      | `InvalidFormat -> "InvalidFormat"
      | `InvalidFpgaImageID_Malformed -> "InvalidFpgaImageID.Malformed"
      | `InvalidFpgaImageID_NotFound -> "InvalidFpgaImageID.NotFound"
      | `InvalidGatewayID_NotFound -> "InvalidGatewayID.NotFound"
      | `InvalidGroup_Duplicate -> "InvalidGroup.Duplicate"
      | `InvalidGroup_InUse -> "InvalidGroup.InUse"
      | `InvalidGroup_NotFound -> "InvalidGroup.NotFound"
      | `InvalidGroup_Reserved -> "InvalidGroup.Reserved"
      | `InvalidGroupId_Malformed -> "InvalidGroupId.Malformed"
      | `InvalidHostConfiguration -> "InvalidHostConfiguration"
      | `InvalidHostID_Malformed -> "InvalidHostID.Malformed"
      | `InvalidHostID_NotFound -> "InvalidHostID.NotFound"
      | `InvalidHostId -> "InvalidHostId"
      | `InvalidHostId_Malformed -> "InvalidHostId.Malformed"
      | `InvalidHostId_NotFound -> "InvalidHostId.NotFound"
      | `InvalidHostReservationId_Malformed ->
          "InvalidHostReservationId.Malformed"
      | `InvalidHostReservationOfferingId_Malformed ->
          "InvalidHostReservationOfferingId.Malformed"
      | `InvalidHostState -> "InvalidHostState"
      | `InvalidID -> "InvalidID"
      | `InvalidIPAddress_InUse -> "InvalidIPAddress.InUse"
      | `InvalidIamInstanceProfileArn_Malformed ->
          "InvalidIamInstanceProfileArn.Malformed"
      | `InvalidInput -> "InvalidInput"
      | `InvalidInstanceAttributeValue -> "InvalidInstanceAttributeValue"
      | `InvalidInstanceCreditSpecification_DuplicateInstanceId ->
          "InvalidInstanceCreditSpecification.DuplicateInstanceId"
      | `InvalidInstanceFamily -> "InvalidInstanceFamily"
      | `InvalidInstanceID -> "InvalidInstanceID"
      | `InvalidInstanceID_Malformed -> "InvalidInstanceID.Malformed"
      | `InvalidInstanceID_NotFound -> "InvalidInstanceID.NotFound"
      | `InvalidInstanceID_NotLinkable -> "InvalidInstanceID.NotLinkable"
      | `InvalidInstanceState -> "InvalidInstanceState"
      | `InvalidInstanceType -> "InvalidInstanceType"
      | `InvalidInterface_IpAddressLimitExceeded ->
          "InvalidInterface.IpAddressLimitExceeded"
      | `InvalidInternetGatewayID_NotFound ->
          "InvalidInternetGatewayID.NotFound"
      | `InvalidInternetGatewayId_Malformed ->
          "InvalidInternetGatewayId.Malformed"
      | `InvalidKernelId_Malformed -> "InvalidKernelId.Malformed"
      | `InvalidKey_Format -> "InvalidKey.Format"
      | `InvalidKeyPair_Duplicate -> "InvalidKeyPair.Duplicate"
      | `InvalidKeyPair_Format -> "InvalidKeyPair.Format"
      | `InvalidKeyPair_NotFound -> "InvalidKeyPair.NotFound"
      | `InvalidLaunchTemplateId_Malformed ->
          "InvalidLaunchTemplateId.Malformed"
      | `InvalidLaunchTemplateId_NotFound ->
          "InvalidLaunchTemplateId.NotFound"
      | `InvalidLaunchTemplateId_VersionNotFound ->
          "InvalidLaunchTemplateId.VersionNotFound"
      | `InvalidLaunchTemplateName_AlreadyExistsException ->
          "InvalidLaunchTemplateName.AlreadyExistsException"
      | `InvalidLaunchTemplateName_MalformedException ->
          "InvalidLaunchTemplateName.MalformedException"
      | `InvalidLaunchTemplateName_NotFoundException ->
          "InvalidLaunchTemplateName.NotFoundException"
      | `InvalidManifest -> "InvalidManifest"
      | `InvalidMaxResults -> "InvalidMaxResults"
      | `InvalidNatGatewayID_NotFound -> "InvalidNatGatewayID.NotFound"
      | `InvalidNetworkAclEntry_NotFound -> "InvalidNetworkAclEntry.NotFound"
      | `InvalidNetworkAclID_NotFound -> "InvalidNetworkAclID.NotFound"
      | `InvalidNetworkAclId_Malformed -> "InvalidNetworkAclId.Malformed"
      | `InvalidNetworkInterface_InUse -> "InvalidNetworkInterface.InUse"
      | `InvalidNetworkInterfaceAttachmentId_Malformed ->
          "InvalidNetworkInterfaceAttachmentId.Malformed"
      | `InvalidNetworkInterfaceID_NotFound ->
          "InvalidNetworkInterfaceID.NotFound"
      | `InvalidNetworkInterfaceId_Malformed ->
          "InvalidNetworkInterfaceId.Malformed"
      | `InvalidNetworkLoadBalancerArn_Malformed ->
          "InvalidNetworkLoadBalancerArn.Malformed"
      | `InvalidNetworkLoadBalancerArn_NotFound ->
          "InvalidNetworkLoadBalancerArn.NotFound"
      | `InvalidNextToken -> "InvalidNextToken"
      | `InvalidOption_Conflict -> "InvalidOption.Conflict"
      | `InvalidPermission_Duplicate -> "InvalidPermission.Duplicate"
      | `InvalidPermission_Malformed -> "InvalidPermission.Malformed"
      | `InvalidPermission_NotFound -> "InvalidPermission.NotFound"
      | `InvalidPlacementGroup_Duplicate -> "InvalidPlacementGroup.Duplicate"
      | `InvalidPlacementGroup_InUse -> "InvalidPlacementGroup.InUse"
      | `InvalidPlacementGroup_Unknown -> "InvalidPlacementGroup.Unknown"
      | `InvalidPolicyDocument -> "InvalidPolicyDocument"
      | `InvalidPrefixListId_Malformed -> "InvalidPrefixListId.Malformed"
      | `InvalidPrefixListId_NotFound -> "InvalidPrefixListId.NotFound"
      | `InvalidProductInfo -> "InvalidProductInfo"
      | `InvalidPurchaseToken_Expired -> "InvalidPurchaseToken.Expired"
      | `InvalidPurchaseToken_Malformed -> "InvalidPurchaseToken.Malformed"
      | `InvalidQuantity -> "InvalidQuantity"
      | `InvalidRamDiskId_Malformed -> "InvalidRamDiskId.Malformed"
      | `InvalidRegion -> "InvalidRegion"
      | `InvalidRequest -> "InvalidRequest"
      | `InvalidReservationID_Malformed -> "InvalidReservationID.Malformed"
      | `InvalidReservationID_NotFound -> "InvalidReservationID.NotFound"
      | `InvalidReservedInstancesId -> "InvalidReservedInstancesId"
      | `InvalidReservedInstancesOfferingId ->
          "InvalidReservedInstancesOfferingId"
      | `InvalidResourceType_Unknown -> "InvalidResourceType.Unknown"
      | `InvalidRoute_InvalidState -> "InvalidRoute.InvalidState"
      | `InvalidRoute_Malformed -> "InvalidRoute.Malformed"
      | `InvalidRoute_NotFound -> "InvalidRoute.NotFound"
      | `InvalidRouteTableID_NotFound -> "InvalidRouteTableID.NotFound"
      | `InvalidRouteTableId_Malformed -> "InvalidRouteTableId.Malformed"
      | `InvalidScheduledInstance -> "InvalidScheduledInstance"
      | `InvalidSecurity_RequestHasExpired ->
          "InvalidSecurity.RequestHasExpired"
      | `InvalidSecurityGroupID_NotFound -> "InvalidSecurityGroupID.NotFound"
      | `InvalidSecurityGroupId_Malformed ->
          "InvalidSecurityGroupId.Malformed"
      | `InvalidServiceName -> "InvalidServiceName"
      | `InvalidSnapshot_InUse -> "InvalidSnapshot.InUse"
      | `InvalidSnapshot_NotFound -> "InvalidSnapshot.NotFound"
      | `InvalidSnapshotID_Malformed -> "InvalidSnapshotID.Malformed"
      | `InvalidSpotDatafeed_NotFound -> "InvalidSpotDatafeed.NotFound"
      | `InvalidSpotFleetRequestConfig -> "InvalidSpotFleetRequestConfig"
      | `InvalidSpotFleetRequestId_Malformed ->
          "InvalidSpotFleetRequestId.Malformed"
      | `InvalidSpotFleetRequestId_NotFound ->
          "InvalidSpotFleetRequestId.NotFound"
      | `InvalidSpotInstanceRequestID_Malformed ->
          "InvalidSpotInstanceRequestID.Malformed"
      | `InvalidSpotInstanceRequestID_NotFound ->
          "InvalidSpotInstanceRequestID.NotFound"
      | `InvalidState -> "InvalidState"
      | `InvalidStateTransition -> "InvalidStateTransition"
      | `InvalidSubnet -> "InvalidSubnet"
      | `InvalidSubnet_Conflict -> "InvalidSubnet.Conflict"
      | `InvalidSubnet_Range -> "InvalidSubnet.Range"
      | `InvalidSubnetID_Malformed -> "InvalidSubnetID.Malformed"
      | `InvalidSubnetID_NotFound -> "InvalidSubnetID.NotFound"
      | `InvalidTagKey_Malformed -> "InvalidTagKey.Malformed"
      | `InvalidTargetArn_Unknown -> "InvalidTargetArn.Unknown"
      | `InvalidTenancy -> "InvalidTenancy"
      | `InvalidTime -> "InvalidTime"
      | `InvalidTrafficMirrorFilterNotFound ->
          "InvalidTrafficMirrorFilterNotFound"
      | `InvalidTrafficMirrorFilterRuleNotFound ->
          "InvalidTrafficMirrorFilterRuleNotFound"
      | `InvalidTrafficMirrorSessionNotFound ->
          "InvalidTrafficMirrorSessionNotFound"
      | `InvalidTrafficMirrorTargetNoFound ->
          "InvalidTrafficMirrorTargetNoFound"
      | `InvalidUserID_Malformed -> "InvalidUserID.Malformed"
      | `InvalidVolume_NotFound -> "InvalidVolume.NotFound"
      | `InvalidVolume_ZoneMismatch -> "InvalidVolume.ZoneMismatch"
      | `InvalidVolumeID_Duplicate -> "InvalidVolumeID.Duplicate"
      | `InvalidVolumeID_Malformed -> "InvalidVolumeID.Malformed"
      | `InvalidVolumeID_ZoneMismatch -> "InvalidVolumeID.ZoneMismatch"
      | `InvalidVpcEndpoint_NotFound -> "InvalidVpcEndpoint.NotFound"
      | `InvalidVpcEndpointId_Malformed -> "InvalidVpcEndpointId.Malformed"
      | `InvalidVpcEndpointId_NotFound -> "InvalidVpcEndpointId.NotFound"
      | `InvalidVpcEndpointService_NotFound ->
          "InvalidVpcEndpointService.NotFound"
      | `InvalidVpcEndpointServiceId_NotFound ->
          "InvalidVpcEndpointServiceId.NotFound"
      | `InvalidVpcEndpointType -> "InvalidVpcEndpointType"
      | `InvalidVpcID_Malformed -> "InvalidVpcID.Malformed"
      | `InvalidVpcID_NotFound -> "InvalidVpcID.NotFound"
      | `InvalidVpcPeeringConnectionID_NotFound ->
          "InvalidVpcPeeringConnectionID.NotFound"
      | `InvalidVpcPeeringConnectionId_Malformed ->
          "InvalidVpcPeeringConnectionId.Malformed"
      | `InvalidVpcPeeringConnectionState_DnsHostnamesDisabled ->
          "InvalidVpcPeeringConnectionState.DnsHostnamesDisabled"
      | `InvalidVpcRange -> "InvalidVpcRange"
      | `InvalidVpcState -> "InvalidVpcState"
      | `InvalidVpnConnection_InvalidState ->
          "InvalidVpnConnection.InvalidState"
      | `InvalidVpnConnection_InvalidType ->
          "InvalidVpnConnection.InvalidType"
      | `InvalidVpnConnectionID -> "InvalidVpnConnectionID"
      | `InvalidVpnConnectionID_NotFound -> "InvalidVpnConnectionID.NotFound"
      | `InvalidVpnGatewayAttachment_NotFound ->
          "InvalidVpnGatewayAttachment.NotFound"
      | `InvalidVpnGatewayID_NotFound -> "InvalidVpnGatewayID.NotFound"
      | `InvalidVpnGatewayState -> "InvalidVpnGatewayState"
      | `InvalidZone_NotFound -> "InvalidZone.NotFound"
      | `KeyPairLimitExceeded -> "KeyPairLimitExceeded"
      | `LegacySecurityGroup -> "LegacySecurityGroup"
      | `LimitPriceExceeded -> "LimitPriceExceeded"
      | `LogDestinationNotFoundException -> "LogDestinationNotFoundException"
      | `LogDestinationPermissionIssue -> "LogDestinationPermissionIssue"
      | `MaxConfigLimitExceededException -> "MaxConfigLimitExceededException"
      | `MaxIOPSLimitExceeded -> "MaxIOPSLimitExceeded"
      | `MaxScheduledInstanceCapacityExceeded ->
          "MaxScheduledInstanceCapacityExceeded"
      | `MaxSpotFleetRequestCountExceeded ->
          "MaxSpotFleetRequestCountExceeded"
      | `MaxSpotInstanceCountExceeded -> "MaxSpotInstanceCountExceeded"
      | `MaxTemplateLimitExceeded -> "MaxTemplateLimitExceeded"
      | `MaxTemplateVersionLimitExceeded -> "MaxTemplateVersionLimitExceeded"
      | `MissingInput -> "MissingInput"
      | `NatGatewayLimitExceeded -> "NatGatewayLimitExceeded"
      | `NatGatewayMalformed -> "NatGatewayMalformed"
      | `NatGatewayNotFound -> "NatGatewayNotFound"
      | `NetworkAclEntryAlreadyExists -> "NetworkAclEntryAlreadyExists"
      | `NetworkAclEntryLimitExceeded -> "NetworkAclEntryLimitExceeded"
      | `NetworkAclLimitExceeded -> "NetworkAclLimitExceeded"
      | `NetworkInterfaceLimitExceeded -> "NetworkInterfaceLimitExceeded"
      | `NetworkInterfaceNotFoundException ->
          "NetworkInterfaceNotFoundException"
      | `NetworkInterfaceNotSupportedException ->
          "NetworkInterfaceNotSupportedException"
      | `NetworkLoadBalancerNotFoundException ->
          "NetworkLoadBalancerNotFoundException"
      | `NlbInUseByTrafficMirrorTargetException ->
          "NlbInUseByTrafficMirrorTargetException"
      | `NoSuchVersion -> "NoSuchVersion"
      | `NonEBSInstance -> "NonEBSInstance"
      | `NotExportable -> "NotExportable"
      | `OperationNotPermitted -> "OperationNotPermitted"
      | `OutstandingVpcPeeringConnectionLimitExceeded ->
          "OutstandingVpcPeeringConnectionLimitExceeded"
      | `PendingSnapshotLimitExceeded -> "PendingSnapshotLimitExceeded"
      | `PendingVpcPeeringConnectionLimitExceeded ->
          "PendingVpcPeeringConnectionLimitExceeded"
      | `PlacementGroupLimitExceeded -> "PlacementGroupLimitExceeded"
      | `PrivateIpAddressLimitExceeded -> "PrivateIpAddressLimitExceeded"
      | `RequestResourceCountExceeded -> "RequestResourceCountExceeded"
      | `ReservationCapacityExceeded -> "ReservationCapacityExceeded"
      | `ReservedInstancesCountExceeded -> "ReservedInstancesCountExceeded"
      | `ReservedInstancesLimitExceeded -> "ReservedInstancesLimitExceeded"
      | `ReservedInstancesUnavailable -> "ReservedInstancesUnavailable"
      | `Resource_AlreadyAssigned -> "Resource.AlreadyAssigned"
      | `Resource_AlreadyAssociated -> "Resource.AlreadyAssociated"
      | `ResourceCountExceeded -> "ResourceCountExceeded"
      | `ResourceCountLimitExceeded -> "ResourceCountLimitExceeded"
      | `ResourceLimitExceeded -> "ResourceLimitExceeded"
      | `RouteAlreadyExists -> "RouteAlreadyExists"
      | `RouteLimitExceeded -> "RouteLimitExceeded"
      | `RouteTableLimitExceeded -> "RouteTableLimitExceeded"
      | `RulesPerSecurityGroupLimitExceeded ->
          "RulesPerSecurityGroupLimitExceeded"
      | `ScheduledInstanceLimitExceeded -> "ScheduledInstanceLimitExceeded"
      | `ScheduledInstanceParameterMismatch ->
          "ScheduledInstanceParameterMismatch"
      | `ScheduledInstanceSlotNotOpen -> "ScheduledInstanceSlotNotOpen"
      | `ScheduledInstanceSlotUnavailable ->
          "ScheduledInstanceSlotUnavailable"
      | `SecurityGroupLimitExceeded -> "SecurityGroupLimitExceeded"
      | `SecurityGroupsPerInstanceLimitExceeded ->
          "SecurityGroupsPerInstanceLimitExceeded"
      | `SecurityGroupsPerInterfaceLimitExceeded ->
          "SecurityGroupsPerInterfaceLimitExceeded"
      | `SignatureDoesNotMatch -> "SignatureDoesNotMatch"
      | `SnapshotCopyUnsupported_InterRegion ->
          "SnapshotCopyUnsupported.InterRegion"
      | `SnapshotCreationPerVolumeRateExceeded ->
          "SnapshotCreationPerVolumeRateExceeded"
      | `SnapshotLimitExceeded -> "SnapshotLimitExceeded"
      | `SubnetLimitExceeded -> "SubnetLimitExceeded"
      | `TagLimitExceeded -> "TagLimitExceeded"
      | `TargetCapacityLimitExceededException ->
          "TargetCapacityLimitExceededException"
      | `TrafficMirrorFilterInUse -> "TrafficMirrorFilterInUse"
      | `TrafficMirrorFilterLimitExceeded ->
          "TrafficMirrorFilterLimitExceeded"
      | `TrafficMirrorFilterRuleAlreadyExists ->
          "TrafficMirrorFilterRuleAlreadyExists"
      | `TrafficMirrorFilterRuleLimitExceeded ->
          "TrafficMirrorFilterRuleLimitExceeded"
      | `TrafficMirrorSessionLimitExceeded ->
          "TrafficMirrorSessionLimitExceeded"
      | `TrafficMirrorSessionsPerInterfaceLimitExceeded ->
          "TrafficMirrorSessionsPerInterfaceLimitExceeded"
      | `TrafficMirrorSessionsPerTargetLimitExceeded ->
          "TrafficMirrorSessionsPerTargetLimitExceeded"
      | `TrafficMirrorSourcesPerTargetLimitExceeded ->
          "TrafficMirrorSourcesPerTargetLimitExceeded"
      | `TrafficMirrorTargetInUseException ->
          "TrafficMirrorTargetInUseException"
      | `TrafficMirrorTargetLimitExceeded ->
          "TrafficMirrorTargetLimitExceeded"
      | `UnavailableHostRequirements -> "UnavailableHostRequirements"
      | `UnknownPrincipalType_Unsupported ->
          "UnknownPrincipalType.Unsupported"
      | `UnknownVolumeType -> "UnknownVolumeType"
      | `Unsupported -> "Unsupported"
      | `UnsupportedException -> "UnsupportedException"
      | `UnsupportedHibernationConfiguration ->
          "UnsupportedHibernationConfiguration"
      | `UnsupportedHostConfiguration -> "UnsupportedHostConfiguration"
      | `UnsupportedInstanceTypeOnHost -> "UnsupportedInstanceTypeOnHost"
      | `UnsupportedTenancy -> "UnsupportedTenancy"
      | `UpdateLimitExceeded -> "UpdateLimitExceeded"
      | `VPCIdNotSpecified -> "VPCIdNotSpecified"
      | `VPCResourceNotSpecified -> "VPCResourceNotSpecified"
      | `VolumeIOPSLimit -> "VolumeIOPSLimit"
      | `VolumeInUse -> "VolumeInUse"
      | `VolumeLimitExceeded -> "VolumeLimitExceeded"
      | `VolumeModificationSizeLimitExceeded ->
          "VolumeModificationSizeLimitExceeded"
      | `VolumeTypeNotAvailableInZone -> "VolumeTypeNotAvailableInZone"
      | `VpcCidrConflict -> "VpcCidrConflict"
      | `VpcEndpointLimitExceeded -> "VpcEndpointLimitExceeded"
      | `VpcLimitExceeded -> "VpcLimitExceeded"
      | `VpcPeeringConnectionAlreadyExists ->
          "VpcPeeringConnectionAlreadyExists"
      | `VpcPeeringConnectionsPerVpcLimitExceeded ->
          "VpcPeeringConnectionsPerVpcLimitExceeded"
      | `VpnConnectionLimitExceeded -> "VpnConnectionLimitExceeded"
      | `VpnGatewayAttachmentLimitExceeded ->
          "VpnGatewayAttachmentLimitExceeded"
      | `VpnGatewayLimitExceeded -> "VpnGatewayLimitExceeded"
      | `ZonesMismatched -> "ZonesMismatched"
      | `InsufficientAddressCapacity -> "InsufficientAddressCapacity"
      | `InsufficientCapacity -> "InsufficientCapacity"
      | `InsufficientHostCapacity -> "InsufficientHostCapacity"
      | `InsufficientInstanceCapacity -> "InsufficientInstanceCapacity"
      | `InsufficientReservedInstanceCapacity ->
          "InsufficientReservedInstanceCapacity"
      | `InsufficientVolumeCapacity -> "InsufficientVolumeCapacity"
      | `InternalError -> "InternalError"
      | `InternalFailure -> "InternalFailure"
      | `RequestLimitExceeded -> "RequestLimitExceeded"
      | `ServiceUnavailable -> "ServiceUnavailable"
      | `Unavailable -> "Unavailable"
      | `Unknown_code s -> s
    let to_json ((code, message) : t) : Yojson.Safe.t=
      `Assoc (("code", (`String (code_to_string code))) ::
        (match message with
         | None -> []
         | Some m -> [("message", (`String m))]))
    let of_xml =
      function
      | `Data _ as xml ->
          failwithf "Ec2_error.of_xml: expected element, got data: %s"
            (Awso.Xml.to_string xml) ()
      | `El (((_, name), _), _) as xml ->
          (match name with
           | "Response" ->
               let data =
                 function
                 | `Data s -> s
                 | `El (_, children) ->
                     (List.map children
                        ~f:(function | `Data s -> s | `El _ -> ""))
                       |> (String.concat ~sep:"") in
               let _request_id = data (Awso.Xml.child_exn xml "RequestID") in
               let errors =
                 ((Awso.Xml.child_exn xml "Errors") |> Awso.Xml.all_children)
                   |>
                   (List.map
                      ~f:(fun error ->
                            let code =
                              (Awso.Xml.child_exn error "Code") |> data in
                            let message =
                              (Awso.Xml.child_exn error "Message") |> data in
                            ((string_to_code code), (Some message)))) in
               (match errors with
                | [] ->
                    failwithf
                      "Ec2_error.of_xml: no errors in Ec2 error response" ()
                | error::[] -> error
                | _lst ->
                    failwithf
                      "Ec2_error.of_xml: multiple errors not supported" ())
           | name ->
               failwithf "Ec2_error: expected 'Response' tag got '%s': %s"
                 name (Awso.Xml.to_string xml) ())
  end
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module PerformanceFactorReference =
  struct
    type nonrec t =
      {
      instanceFamily: String_.t option
        [@ocaml.doc
          "The instance family to use as a baseline reference. Ensure that you specify the correct value for the instance family. The instance family is everything before the period (.) in the instance type name. For example, in the instance type c6i.large, the instance family is c6i, not c6. For more information, see Amazon EC2 instance type naming conventions in Amazon EC2 Instance Types. The following instance families are not supported for performance protection: c1 g3 | g3s hpc7g m1 | m2 mac1 | mac2 | mac2-m1ultra | mac2-m2 | mac2-m2pro p3dn | p4d | p5 t1 u-12tb1 | u-18tb1 | u-24tb1 | u-3tb1 | u-6tb1 | u-9tb1 | u7i-12tb | u7in-16tb | u7in-24tb | u7in-32tb If you enable performance protection by specifying a supported instance family, the returned instance types will exclude the above unsupported instance families. If you specify an unsupported instance family as a value for baseline performance, the API returns an empty response for GetInstanceTypesFromInstanceRequirements and an exception for CreateFleet, RequestSpotFleet, ModifyFleet, and ModifySpotFleetRequest."]}
    let make ?instanceFamily = fun () -> { instanceFamily }
    let to_value x =
      structure_to_value
        [("instanceFamily",
           (Option.map x.instanceFamily ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceFamily =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceFamily") in
      make ?instanceFamily ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceFamily = field_map json__ "InstanceFamily" String_.of_json in
      make ?instanceFamily ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specify an instance family to use as the baseline reference for CPU performance. All instance types that match your specified attributes will be compared against the CPU performance of the referenced instance family, regardless of CPU manufacturer or architecture. Currently, only one instance family can be specified in the list."]
module StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module PerformanceFactorReferenceSet =
  struct
    type nonrec t = PerformanceFactorReference.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PerformanceFactorReference.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PerformanceFactorReference.of_xml)
    let of_json j =
      list_of_json ~kind:"PerformanceFactorReferenceSet"
        ~of_json:PerformanceFactorReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleOption =
  struct
    type nonrec t =
      {
      keyword: String_.t option [@ocaml.doc "The Suricata keyword."];
      settings: StringList.t option
        [@ocaml.doc "The settings for the keyword."]}
    let make ?keyword = fun ?settings -> fun () -> { keyword; settings }
    let to_value x =
      structure_to_value
        [("keyword", (Option.map x.keyword ~f:String_.to_value));
        ("settingSet", (Option.map x.settings ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "settingSet") in
      let keyword =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "keyword") in
      make ?settings ?keyword ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings = field_map json__ "Settings" StringList.of_json in
      let keyword = field_map json__ "Keyword" String_.of_json in
      make ?settings ?keyword ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes additional settings for a stateful rule."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module AcceleratorManufacturer =
  struct
    type nonrec t =
      | Amazon_web_services 
      | Amd 
      | Nvidia 
      | Xilinx 
      | Habana 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Amazon_web_services -> "amazon-web-services"
      | Amd -> "amd"
      | Nvidia -> "nvidia"
      | Xilinx -> "xilinx"
      | Habana -> "habana"
      | Non_static_id s -> s
    let of_string =
      function
      | "amazon-web-services" -> Amazon_web_services
      | "amd" -> Amd
      | "nvidia" -> Nvidia
      | "xilinx" -> Xilinx
      | "habana" -> Habana
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AcceleratorManufacturer" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AcceleratorManufacturer" j)
    let to_json = simple_to_json to_value
  end
module AcceleratorName =
  struct
    type nonrec t =
      | A100 
      | Inferentia 
      | K520 
      | K80 
      | M60 
      | Radeon_pro_v520 
      | T4 
      | Vu9p 
      | V100 
      | A10g 
      | H100 
      | T4g 
      | L40s 
      | L4 
      | Gaudi_hl_205 
      | Inferentia2 
      | Trainium 
      | Trainium2 
      | U30 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | A100 -> "a100"
      | Inferentia -> "inferentia"
      | K520 -> "k520"
      | K80 -> "k80"
      | M60 -> "m60"
      | Radeon_pro_v520 -> "radeon-pro-v520"
      | T4 -> "t4"
      | Vu9p -> "vu9p"
      | V100 -> "v100"
      | A10g -> "a10g"
      | H100 -> "h100"
      | T4g -> "t4g"
      | L40s -> "l40s"
      | L4 -> "l4"
      | Gaudi_hl_205 -> "gaudi-hl-205"
      | Inferentia2 -> "inferentia2"
      | Trainium -> "trainium"
      | Trainium2 -> "trainium2"
      | U30 -> "u30"
      | Non_static_id s -> s
    let of_string =
      function
      | "a100" -> A100
      | "inferentia" -> Inferentia
      | "k520" -> K520
      | "k80" -> K80
      | "m60" -> M60
      | "radeon-pro-v520" -> Radeon_pro_v520
      | "t4" -> T4
      | "vu9p" -> Vu9p
      | "v100" -> V100
      | "a10g" -> A10g
      | "h100" -> H100
      | "t4g" -> T4g
      | "l40s" -> L40s
      | "l4" -> L4
      | "gaudi-hl-205" -> Gaudi_hl_205
      | "inferentia2" -> Inferentia2
      | "trainium" -> Trainium
      | "trainium2" -> Trainium2
      | "u30" -> U30
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AcceleratorName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AcceleratorName" j)
    let to_json = simple_to_json to_value
  end
module AcceleratorType =
  struct
    type nonrec t =
      | Gpu 
      | Fpga 
      | Inference 
      | Media 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Gpu -> "gpu"
      | Fpga -> "fpga"
      | Inference -> "inference"
      | Media -> "media"
      | Non_static_id s -> s
    let of_string =
      function
      | "gpu" -> Gpu
      | "fpga" -> Fpga
      | "inference" -> Inference
      | "media" -> Media
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AcceleratorType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AcceleratorType" j)
    let to_json = simple_to_json to_value
  end
module AllowedInstanceType =
  struct
    type nonrec t = string
    let context_ = "AllowedInstanceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\.\\*\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AllowedInstanceType" j
    let to_json = simple_to_json to_value
  end
module CpuPerformanceFactor =
  struct
    type nonrec t =
      {
      references: PerformanceFactorReferenceSet.t option
        [@ocaml.doc
          "Specify an instance family to use as the baseline reference for CPU performance. All instance types that match your specified attributes will be compared against the CPU performance of the referenced instance family, regardless of CPU manufacturer or architecture differences. Currently, only one instance family can be specified in the list."]}
    let make ?references = fun () -> { references }
    let to_value x =
      structure_to_value
        [("referenceSet",
           (Option.map x.references ~f:PerformanceFactorReferenceSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let references =
        (Option.map ~f:PerformanceFactorReferenceSet.of_xml)
          (Xml.child xml_arg0 "referenceSet") in
      make ?references ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let references =
        field_map json__ "References" PerformanceFactorReferenceSet.of_json in
      make ?references ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CPU performance to consider, using an instance family as the baseline reference."]
module CpuManufacturer =
  struct
    type nonrec t =
      | Intel 
      | Amd 
      | Amazon_web_services 
      | Apple 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Intel -> "intel"
      | Amd -> "amd"
      | Amazon_web_services -> "amazon-web-services"
      | Apple -> "apple"
      | Non_static_id s -> s
    let of_string =
      function
      | "intel" -> Intel
      | "amd" -> Amd
      | "amazon-web-services" -> Amazon_web_services
      | "apple" -> Apple
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CpuManufacturer" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CpuManufacturer" j)
    let to_json = simple_to_json to_value
  end
module ExcludedInstanceType =
  struct
    type nonrec t = string
    let context_ = "ExcludedInstanceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\.\\*\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExcludedInstanceType" j
    let to_json = simple_to_json to_value
  end
module InstanceGeneration =
  struct
    type nonrec t =
      | Current 
      | Previous 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Current -> "current"
      | Previous -> "previous"
      | Non_static_id s -> s
    let of_string =
      function
      | "current" -> Current
      | "previous" -> Previous
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceGeneration" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InstanceGeneration" j)
    let to_json = simple_to_json to_value
  end
module LocalStorageType =
  struct
    type nonrec t =
      | Hdd 
      | Ssd 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Hdd -> "hdd" | Ssd -> "ssd" | Non_static_id s -> s
    let of_string =
      function | "hdd" -> Hdd | "ssd" -> Ssd | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration LocalStorageType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LocalStorageType" j)
    let to_json = simple_to_json to_value
  end
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module KmsKeyId =
  struct
    type nonrec t = string
    let context_ = "KmsKeyId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end
module SnapshotId =
  struct
    type nonrec t = string
    let context_ = "SnapshotId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotId" j
    let to_json = simple_to_json to_value
  end
module VolumeType =
  struct
    type nonrec t =
      | Standard 
      | Io1 
      | Io2 
      | Gp2 
      | Sc1 
      | St1 
      | Gp3 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Io1 -> "io1"
      | Io2 -> "io2"
      | Gp2 -> "gp2"
      | Sc1 -> "sc1"
      | St1 -> "st1"
      | Gp3 -> "gp3"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "io1" -> Io1
      | "io2" -> Io2
      | "gp2" -> Gp2
      | "sc1" -> Sc1
      | "st1" -> St1
      | "gp3" -> Gp3
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration VolumeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VolumeType" j)
    let to_json = simple_to_json to_value
  end
module PerformanceFactorReferenceRequest =
  struct
    type nonrec t =
      {
      instanceFamily: String_.t option
        [@ocaml.doc
          "The instance family to use as a baseline reference. Ensure that you specify the correct value for the instance family. The instance family is everything before the period (.) in the instance type name. For example, in the instance type c6i.large, the instance family is c6i, not c6. For more information, see Amazon EC2 instance type naming conventions in Amazon EC2 Instance Types. The following instance families are not supported for performance protection: c1 g3 | g3s hpc7g m1 | m2 mac1 | mac2 | mac2-m1ultra | mac2-m2 | mac2-m2pro p3dn | p4d | p5 t1 u-12tb1 | u-18tb1 | u-24tb1 | u-3tb1 | u-6tb1 | u-9tb1 | u7i-12tb | u7in-16tb | u7in-24tb | u7in-32tb If you enable performance protection by specifying a supported instance family, the returned instance types will exclude the above unsupported instance families. If you specify an unsupported instance family as a value for baseline performance, the API returns an empty response for GetInstanceTypesFromInstanceRequirements and an exception for CreateFleet, RequestSpotFleet, ModifyFleet, and ModifySpotFleetRequest."]}
    let make ?instanceFamily = fun () -> { instanceFamily }
    let to_value x =
      structure_to_value
        [("InstanceFamily",
           (Option.map x.instanceFamily ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceFamily =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InstanceFamily") in
      make ?instanceFamily ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceFamily = field_map json__ "InstanceFamily" String_.of_json in
      make ?instanceFamily ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specify an instance family to use as the baseline reference for CPU performance. All instance types that match your specified attributes will be compared against the CPU performance of the referenced instance family, regardless of CPU manufacturer or architecture. Currently, only one instance family can be specified in the list."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1283) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module RuleOptionList =
  struct
    type nonrec t = RuleOption.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RuleOption.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:RuleOption.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleOptionList" ~of_json:RuleOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module PortRange =
  struct
    type nonrec t =
      {
      from: Integer.t option [@ocaml.doc "The first port in the range."];
      to_: Integer.t option [@ocaml.doc "The last port in the range."]}
    let make ?from = fun ?to_ -> fun () -> { from; to_ }
    let to_value x =
      structure_to_value
        [("from", (Option.map x.from ~f:Integer.to_value));
        ("to", (Option.map x.to_ ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let to_ = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "to") in
      let from = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "from") in
      make ?to_ ?from ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let to_ = field_map json__ "To" Integer.of_json in
      let from = field_map json__ "From" Integer.of_json in
      make ?to_ ?from ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a range of ports."]
module ProtocolInt =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:255) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ProtocolInt" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module EnaSrdUdpSpecificationRequest =
  struct
    type nonrec t =
      {
      enaSrdUdpEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether UDP traffic uses ENA Express for your instance. To ensure that UDP traffic can use ENA Express when you launch an instance, you must also set EnaSrdEnabled in the EnaSrdSpecificationRequest to true."]}
    let make ?enaSrdUdpEnabled = fun () -> { enaSrdUdpEnabled }
    let to_value x =
      structure_to_value
        [("EnaSrdUdpEnabled",
           (Option.map x.enaSrdUdpEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnaSrdUdpEnabled") in
      make ?enaSrdUdpEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpEnabled =
        field_map json__ "EnaSrdUdpEnabled" Boolean.of_json in
      make ?enaSrdUdpEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures ENA Express for UDP network traffic from your launch template."]
module InstanceIpv6Address =
  struct
    type nonrec t =
      {
      ipv6Address: String_.t option [@ocaml.doc "The IPv6 address."];
      isPrimaryIpv6: Boolean.t option
        [@ocaml.doc
          "Determines if an IPv6 address associated with a network interface is the primary IPv6 address. When you enable an IPv6 GUA address to be a primary IPv6, the first IPv6 GUA will be made the primary IPv6 address until the instance is terminated or the network interface is detached. For more information, see RunInstances."]}
    let make ?ipv6Address =
      fun ?isPrimaryIpv6 -> fun () -> { ipv6Address; isPrimaryIpv6 }
    let to_value x =
      structure_to_value
        [("ipv6Address", (Option.map x.ipv6Address ~f:String_.to_value));
        ("isPrimaryIpv6", (Option.map x.isPrimaryIpv6 ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isPrimaryIpv6 =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isPrimaryIpv6") in
      let ipv6Address =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6Address") in
      make ?isPrimaryIpv6 ?ipv6Address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isPrimaryIpv6 = field_map json__ "IsPrimaryIpv6" Boolean.of_json in
      let ipv6Address = field_map json__ "Ipv6Address" String_.of_json in
      make ?isPrimaryIpv6 ?ipv6Address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv6 address."]
module Ipv4PrefixSpecificationRequest =
  struct
    type nonrec t =
      {
      ipv4Prefix: String_.t option
        [@ocaml.doc
          "The IPv4 prefix. For information, see Assigning prefixes to network interfaces in the Amazon EC2 User Guide."]}
    let make ?ipv4Prefix = fun () -> { ipv4Prefix }
    let to_value x =
      structure_to_value
        [("Ipv4Prefix", (Option.map x.ipv4Prefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv4Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Ipv4Prefix") in
      make ?ipv4Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv4Prefix = field_map json__ "Ipv4Prefix" String_.of_json in
      make ?ipv4Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the IPv4 prefix option for a network interface."]
module Ipv6PrefixSpecificationRequest =
  struct
    type nonrec t =
      {
      ipv6Prefix: String_.t option [@ocaml.doc "The IPv6 prefix."]}
    let make ?ipv6Prefix = fun () -> { ipv6Prefix }
    let to_value x =
      structure_to_value
        [("Ipv6Prefix", (Option.map x.ipv6Prefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Ipv6Prefix") in
      make ?ipv6Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Prefix = field_map json__ "Ipv6Prefix" String_.of_json in
      make ?ipv6Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the IPv6 prefix option for a network interface."]
module PrivateIpAddressSpecification =
  struct
    type nonrec t =
      {
      primary: Boolean.t option
        [@ocaml.doc
          "Indicates whether the private IPv4 address is the primary private IPv4 address. Only one IPv4 address can be designated as primary."];
      privateIpAddress: String_.t option
        [@ocaml.doc "The private IPv4 address."]}
    let make ?primary =
      fun ?privateIpAddress -> fun () -> { primary; privateIpAddress }
    let to_value x =
      structure_to_value
        [("primary", (Option.map x.primary ~f:Boolean.to_value));
        ("privateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      let primary =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "primary") in
      make ?privateIpAddress ?primary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      let primary = field_map json__ "Primary" Boolean.of_json in
      make ?privateIpAddress ?primary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a secondary private IPv4 address for a network interface."]
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "The key of the tag. Constraints: Tag keys are case-sensitive and accept a maximum of 127 Unicode characters. May not begin with aws:."];
      value: String_.t option
        [@ocaml.doc
          "The value of the tag. Constraints: Tag values are case-sensitive and accept a maximum of 256 Unicode characters."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a tag."]
module AcceleratorCount =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum number of accelerators. If this parameter is not specified, there is no minimum limit."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum number of accelerators. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Integer.to_value));
        ("max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum number of accelerators (GPUs, FPGAs, or Amazon Web Services Inferentia chips) on an instance."]
module AcceleratorManufacturerSet =
  struct
    type nonrec t = AcceleratorManufacturer.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AcceleratorManufacturer.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AcceleratorManufacturer.of_xml)
    let of_json j =
      list_of_json ~kind:"AcceleratorManufacturerSet"
        ~of_json:AcceleratorManufacturer.of_json j
    let to_json v = composed_to_json to_value v
  end
module AcceleratorNameSet =
  struct
    type nonrec t = AcceleratorName.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AcceleratorName.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AcceleratorName.of_xml)
    let of_json j =
      list_of_json ~kind:"AcceleratorNameSet"
        ~of_json:AcceleratorName.of_json j
    let to_json v = composed_to_json to_value v
  end
module AcceleratorTotalMemoryMiB =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum amount of accelerator memory, in MiB. If this parameter is not specified, there is no minimum limit."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum amount of accelerator memory, in MiB. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Integer.to_value));
        ("max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of total accelerator memory, in MiB."]
module AcceleratorTypeSet =
  struct
    type nonrec t = AcceleratorType.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AcceleratorType.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AcceleratorType.of_xml)
    let of_json j =
      list_of_json ~kind:"AcceleratorTypeSet"
        ~of_json:AcceleratorType.of_json j
    let to_json v = composed_to_json to_value v
  end
module AllowedInstanceTypeSet =
  struct
    type nonrec t = AllowedInstanceType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:400) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AllowedInstanceType.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AllowedInstanceType.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowedInstanceTypeSet"
        ~of_json:AllowedInstanceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module BareMetal =
  struct
    type nonrec t =
      | Included 
      | Required 
      | Excluded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Included -> "included"
      | Required -> "required"
      | Excluded -> "excluded"
      | Non_static_id s -> s
    let of_string =
      function
      | "included" -> Included
      | "required" -> Required
      | "excluded" -> Excluded
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration BareMetal" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BareMetal" j)
    let to_json = simple_to_json to_value
  end
module BaselineEbsBandwidthMbps =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum baseline bandwidth, in Mbps. If this parameter is not specified, there is no minimum limit."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum baseline bandwidth, in Mbps. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Integer.to_value));
        ("max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum baseline bandwidth to Amazon EBS, in Mbps. For more information, see Amazon EBS\226\128\147optimized instances in the Amazon EC2 User Guide."]
module BaselinePerformanceFactors =
  struct
    type nonrec t =
      {
      cpu: CpuPerformanceFactor.t option
        [@ocaml.doc
          "The CPU performance to consider, using an instance family as the baseline reference."]}
    let make ?cpu = fun () -> { cpu }
    let to_value x =
      structure_to_value
        [("cpu", (Option.map x.cpu ~f:CpuPerformanceFactor.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cpu =
        (Option.map ~f:CpuPerformanceFactor.of_xml)
          (Xml.child xml_arg0 "cpu") in
      make ?cpu ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cpu = field_map json__ "Cpu" CpuPerformanceFactor.of_json in
      make ?cpu ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The baseline performance to consider, using an instance family as a baseline reference. The instance family establishes the lowest acceptable level of performance. Amazon EC2 uses this baseline to guide instance type selection, but there is no guarantee that the selected instance types will always exceed the baseline for every application. Currently, this parameter only supports CPU performance as a baseline performance factor. For example, specifying c6i would use the CPU performance of the c6i family as the baseline reference."]
module BurstablePerformance =
  struct
    type nonrec t =
      | Included 
      | Required 
      | Excluded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Included -> "included"
      | Required -> "required"
      | Excluded -> "excluded"
      | Non_static_id s -> s
    let of_string =
      function
      | "included" -> Included
      | "required" -> Required
      | "excluded" -> Excluded
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BurstablePerformance" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BurstablePerformance" j)
    let to_json = simple_to_json to_value
  end
module CpuManufacturerSet =
  struct
    type nonrec t = CpuManufacturer.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CpuManufacturer.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CpuManufacturer.of_xml)
    let of_json j =
      list_of_json ~kind:"CpuManufacturerSet"
        ~of_json:CpuManufacturer.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExcludedInstanceTypeSet =
  struct
    type nonrec t = ExcludedInstanceType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:400) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ExcludedInstanceType.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ExcludedInstanceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ExcludedInstanceTypeSet"
        ~of_json:ExcludedInstanceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceGenerationSet =
  struct
    type nonrec t = InstanceGeneration.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceGeneration.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceGeneration.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceGenerationSet"
        ~of_json:InstanceGeneration.of_json j
    let to_json v = composed_to_json to_value v
  end
module LocalStorage =
  struct
    type nonrec t =
      | Included 
      | Required 
      | Excluded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Included -> "included"
      | Required -> "required"
      | Excluded -> "excluded"
      | Non_static_id s -> s
    let of_string =
      function
      | "included" -> Included
      | "required" -> Required
      | "excluded" -> Excluded
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration LocalStorage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LocalStorage" j)
    let to_json = simple_to_json to_value
  end
module LocalStorageTypeSet =
  struct
    type nonrec t = LocalStorageType.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LocalStorageType.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:LocalStorageType.of_xml)
    let of_json j =
      list_of_json ~kind:"LocalStorageTypeSet"
        ~of_json:LocalStorageType.of_json j
    let to_json v = composed_to_json to_value v
  end
module MemoryGiBPerVCpu =
  struct
    type nonrec t =
      {
      min: Double.t option
        [@ocaml.doc
          "The minimum amount of memory per vCPU, in GiB. If this parameter is not specified, there is no minimum limit."];
      max: Double.t option
        [@ocaml.doc
          "The maximum amount of memory per vCPU, in GiB. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Double.to_value));
        ("max", (Option.map x.max ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Double.of_json in
      let min = field_map json__ "Min" Double.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of memory per vCPU, in GiB."]
module MemoryMiB =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum amount of memory, in MiB. If this parameter is not specified, there is no minimum limit."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum amount of memory, in MiB. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Integer.to_value));
        ("max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The minimum and maximum amount of memory, in MiB."]
module NetworkBandwidthGbps =
  struct
    type nonrec t =
      {
      min: Double.t option
        [@ocaml.doc
          "The minimum amount of network bandwidth, in Gbps. If this parameter is not specified, there is no minimum limit."];
      max: Double.t option
        [@ocaml.doc
          "The maximum amount of network bandwidth, in Gbps. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Double.to_value));
        ("max", (Option.map x.max ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Double.of_json in
      let min = field_map json__ "Min" Double.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of network bandwidth, in gigabits per second (Gbps). Setting the minimum bandwidth does not guarantee that your instance will achieve the minimum bandwidth. Amazon EC2 will identify instance types that support the specified minimum bandwidth, but the actual bandwidth of your instance might go below the specified minimum at times. For more information, see Available instance bandwidth in the Amazon EC2 User Guide."]
module NetworkInterfaceCount =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum number of network interfaces. If this parameter is not specified, there is no minimum limit."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum number of network interfaces. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Integer.to_value));
        ("max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The minimum and maximum number of network interfaces."]
module TotalLocalStorageGB =
  struct
    type nonrec t =
      {
      min: Double.t option
        [@ocaml.doc
          "The minimum amount of total local storage, in GB. If this parameter is not specified, there is no minimum limit."];
      max: Double.t option
        [@ocaml.doc
          "The maximum amount of total local storage, in GB. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Double.to_value));
        ("max", (Option.map x.max ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Double.of_json in
      let min = field_map json__ "Min" Double.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of total local storage, in GB."]
module VCpuCountRange =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum number of vCPUs. If the value is 0, there is no minimum limit."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum number of vCPUs. If this parameter is not specified, there is no maximum limit."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("min", (Option.map x.min ~f:Integer.to_value));
        ("max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The minimum and maximum number of vCPUs."]
module InstanceAttachmentEnaSrdUdpSpecification =
  struct
    type nonrec t =
      {
      enaSrdUdpEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether UDP traffic to and from the instance uses ENA Express. To specify this setting, you must first enable ENA Express."]}
    let make ?enaSrdUdpEnabled = fun () -> { enaSrdUdpEnabled }
    let to_value x =
      structure_to_value
        [("enaSrdUdpEnabled",
           (Option.map x.enaSrdUdpEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "enaSrdUdpEnabled") in
      make ?enaSrdUdpEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpEnabled =
        field_map json__ "EnaSrdUdpEnabled" Boolean.of_json in
      make ?enaSrdUdpEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "ENA Express is compatible with both TCP and UDP transport protocols. When it's enabled, TCP traffic automatically uses it. However, some UDP-based applications are designed to handle network packets that are out of order, without a need for retransmission, such as live video broadcasting or other near-real-time applications. For UDP traffic, you can specify whether to use ENA Express, based on your application environment needs."]
module InstanceNetworkInterfaceAssociation =
  struct
    type nonrec t =
      {
      carrierIp: String_.t option
        [@ocaml.doc
          "The carrier IP address associated with the network interface."];
      customerOwnedIp: String_.t option
        [@ocaml.doc
          "The customer-owned IP address associated with the network interface."];
      ipOwnerId: String_.t option
        [@ocaml.doc "The ID of the owner of the Elastic IP address."];
      publicDnsName: String_.t option [@ocaml.doc "The public DNS name."];
      publicIp: String_.t option
        [@ocaml.doc
          "The public IP address or Elastic IP address bound to the network interface."]}
    let make ?carrierIp =
      fun ?customerOwnedIp ->
        fun ?ipOwnerId ->
          fun ?publicDnsName ->
            fun ?publicIp ->
              fun () ->
                {
                  carrierIp;
                  customerOwnedIp;
                  ipOwnerId;
                  publicDnsName;
                  publicIp
                }
    let to_value x =
      structure_to_value
        [("carrierIp", (Option.map x.carrierIp ~f:String_.to_value));
        ("customerOwnedIp",
          (Option.map x.customerOwnedIp ~f:String_.to_value));
        ("ipOwnerId", (Option.map x.ipOwnerId ~f:String_.to_value));
        ("publicDnsName", (Option.map x.publicDnsName ~f:String_.to_value));
        ("publicIp", (Option.map x.publicIp ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "publicIp") in
      let publicDnsName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "publicDnsName") in
      let ipOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipOwnerId") in
      let customerOwnedIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "customerOwnedIp") in
      let carrierIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "carrierIp") in
      make ?publicIp ?publicDnsName ?ipOwnerId ?customerOwnedIp ?carrierIp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicIp = field_map json__ "PublicIp" String_.of_json in
      let publicDnsName = field_map json__ "PublicDnsName" String_.of_json in
      let ipOwnerId = field_map json__ "IpOwnerId" String_.of_json in
      let customerOwnedIp =
        field_map json__ "CustomerOwnedIp" String_.of_json in
      let carrierIp = field_map json__ "CarrierIp" String_.of_json in
      make ?publicIp ?publicDnsName ?ipOwnerId ?customerOwnedIp ?carrierIp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes association information for an Elastic IP address (IPv4)."]
module EbsBlockDeviceResponse =
  struct
    type nonrec t =
      {
      encrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the volume is encrypted."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the volume is deleted on instance termination."];
      iops: Integer.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS). For gp3, io1, and io2 volumes, this represents the number of IOPS that are provisioned for the volume. For gp2 volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting."];
      throughput: Integer.t option
        [@ocaml.doc "The throughput that the volume supports, in MiB/s."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "Identifier (key ID, key alias, key ARN, or alias ARN) of the customer managed KMS key to use for EBS encryption."];
      snapshotId: SnapshotId.t option [@ocaml.doc "The ID of the snapshot."];
      volumeSize: Integer.t option
        [@ocaml.doc "The size of the volume, in GiBs."];
      volumeType: VolumeType.t option
        [@ocaml.doc
          "The volume type. For more information, see Amazon EBS volume types in the Amazon EBS User Guide."]}
    let make ?encrypted =
      fun ?deleteOnTermination ->
        fun ?iops ->
          fun ?throughput ->
            fun ?kmsKeyId ->
              fun ?snapshotId ->
                fun ?volumeSize ->
                  fun ?volumeType ->
                    fun () ->
                      {
                        encrypted;
                        deleteOnTermination;
                        iops;
                        throughput;
                        kmsKeyId;
                        snapshotId;
                        volumeSize;
                        volumeType
                      }
    let to_value x =
      structure_to_value
        [("encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("iops", (Option.map x.iops ~f:Integer.to_value));
        ("throughput", (Option.map x.throughput ~f:Integer.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("snapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("volumeSize", (Option.map x.volumeSize ~f:Integer.to_value));
        ("volumeType", (Option.map x.volumeType ~f:VolumeType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "volumeType") in
      let volumeSize =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "volumeSize") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "snapshotId") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let throughput =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "throughput") in
      let iops = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "iops") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "encrypted") in
      make ?volumeType ?volumeSize ?snapshotId ?kmsKeyId ?throughput ?iops
        ?deleteOnTermination ?encrypted ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let volumeSize = field_map json__ "VolumeSize" Integer.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let throughput = field_map json__ "Throughput" Integer.of_json in
      let iops = field_map json__ "Iops" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      make ?volumeType ?volumeSize ?snapshotId ?kmsKeyId ?throughput ?iops
        ?deleteOnTermination ?encrypted ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a block device for an EBS volume."]
module PerformanceFactorReferenceSetRequest =
  struct
    type nonrec t = PerformanceFactorReferenceRequest.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PerformanceFactorReferenceRequest.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:PerformanceFactorReferenceRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"PerformanceFactorReferenceSetRequest"
        ~of_json:PerformanceFactorReferenceRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnalysisComponent =
  struct
    type nonrec t =
      {
      id: String_.t option [@ocaml.doc "The ID of the component."];
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the component."];
      name: String_.t option
        [@ocaml.doc "The name of the analysis component."]}
    let make ?id = fun ?arn -> fun ?name -> fun () -> { id; arn; name }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?name ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      let id = field_map json__ "Id" String_.of_json in
      make ?name ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a path component."]
module RuleGroupRuleOptionsPair =
  struct
    type nonrec t =
      {
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the rule group."];
      ruleOptions: RuleOptionList.t option [@ocaml.doc "The rule options."]}
    let make ?ruleGroupArn =
      fun ?ruleOptions -> fun () -> { ruleGroupArn; ruleOptions }
    let to_value x =
      structure_to_value
        [("ruleGroupArn",
           (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("ruleOptionSet",
          (Option.map x.ruleOptions ~f:RuleOptionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleOptions =
        (Option.map ~f:RuleOptionList.of_xml)
          (Xml.child xml_arg0 "ruleOptionSet") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ruleGroupArn") in
      make ?ruleOptions ?ruleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleOptions = field_map json__ "RuleOptions" RuleOptionList.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      make ?ruleOptions ?ruleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the rule options for a stateful rule group."]
module RuleGroupTypePair =
  struct
    type nonrec t =
      {
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the rule group."];
      ruleGroupType: String_.t option
        [@ocaml.doc
          "The rule group type. The possible values are Domain List and Suricata."]}
    let make ?ruleGroupArn =
      fun ?ruleGroupType -> fun () -> { ruleGroupArn; ruleGroupType }
    let to_value x =
      structure_to_value
        [("ruleGroupArn",
           (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("ruleGroupType", (Option.map x.ruleGroupType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleGroupType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ruleGroupType") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ruleGroupArn") in
      make ?ruleGroupType ?ruleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleGroupType = field_map json__ "RuleGroupType" String_.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      make ?ruleGroupType ?ruleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the type of a stateful rule group."]
module Port =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Port" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module IpAddress =
  struct
    type nonrec t = string
    let context_ = "IpAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^([0-9]{1,3}.){3}[0-9]{1,3}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IpAddress" j
    let to_json = simple_to_json to_value
  end
module PortRangeList =
  struct
    type nonrec t = PortRange.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PortRange.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PortRange.of_xml)
    let of_json j =
      list_of_json ~kind:"PortRangeList" ~of_json:PortRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValueStringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ValueStringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Priority =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:(-1)));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Priority" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ProtocolIntList =
  struct
    type nonrec t = ProtocolInt.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ProtocolInt.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ProtocolInt.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolIntList" ~of_json:ProtocolInt.of_json j
    let to_json v = composed_to_json to_value v
  end
module EbsBlockDevice =
  struct
    type nonrec t =
      {
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the EBS volume is deleted on instance termination. For more information, see Preserving Amazon EBS volumes on instance termination in the Amazon EC2 User Guide."];
      iops: Integer.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS). For gp3, io1, and io2 volumes, this represents the number of IOPS that are provisioned for the volume. For gp2 volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. The following are the supported values for each volume type: gp3: 3,000 - 80,000 IOPS io1: 100 - 64,000 IOPS io2: 100 - 256,000 IOPS For io2 volumes, you can achieve up to 256,000 IOPS on instances built on the Nitro System. On other instances, you can achieve performance up to 32,000 IOPS. This parameter is required for io1 and io2 volumes. The default for gp3 volumes is 3,000 IOPS."];
      snapshotId: SnapshotId.t option [@ocaml.doc "The ID of the snapshot."];
      volumeSize: Integer.t option
        [@ocaml.doc
          "The size of the volume, in GiBs. You must specify either a snapshot ID or a volume size. If you specify a snapshot, the default is the snapshot size. You can specify a volume size that is equal to or larger than the snapshot size. The following are the supported sizes for each volume type: gp2: 1 - 16,384 GiB gp3: 1 - 65,536 GiB io1: 4 - 16,384 GiB io2: 4 - 65,536 GiB st1 and sc1: 125 - 16,384 GiB standard: 1 - 1024 GiB"];
      volumeType: VolumeType.t option
        [@ocaml.doc
          "The volume type. For more information, see Amazon EBS volume types in the Amazon EBS User Guide."];
      kmsKeyId: String_.t option
        [@ocaml.doc
          "Identifier (key ID, key alias, key ARN, or alias ARN) of the customer managed KMS key to use for EBS encryption. This parameter is only supported on BlockDeviceMapping objects called by RunInstances, RequestSpotFleet, and RequestSpotInstances."];
      throughput: Integer.t option
        [@ocaml.doc
          "The throughput that the volume supports, in MiB/s. This parameter is valid only for gp3 volumes. Valid Range: Minimum value of 125. Maximum value of 2,000."];
      outpostArn: String_.t option
        [@ocaml.doc
          "The ARN of the Outpost on which the snapshot is stored. This parameter is not supported when using CreateImage."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone where the EBS volume will be created (for example, us-east-1a). Either AvailabilityZone or AvailabilityZoneId can be specified, but not both. If neither is specified, Amazon EC2 automatically selects an Availability Zone within the Region. This parameter is not supported when using CreateFleet, CreateImage, DescribeImages, RequestSpotFleet, RequestSpotInstances, and RunInstances."];
      encrypted: Boolean.t option
        [@ocaml.doc
          "Indicates whether the encryption state of an EBS volume is changed while being restored from a backing snapshot. The effect of setting the encryption state to true depends on the volume origin (new or from a snapshot), starting encryption state, ownership, and whether encryption by default is enabled. For more information, see Amazon EBS encryption in the Amazon EBS User Guide. In no case can you remove encryption from an encrypted volume. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. For more information, see Supported instance types. This parameter is not returned by DescribeImageAttribute. For CreateImage and RegisterImage, whether you can include this parameter, and the allowed values differ depending on the type of block device mapping you are creating. If you are creating a block device mapping for a new (empty) volume, you can include this parameter, and specify either true for an encrypted volume, or false for an unencrypted volume. If you omit this parameter, it defaults to false (unencrypted). If you are creating a block device mapping from an existing encrypted or unencrypted snapshot, you must omit this parameter. If you include this parameter, the request will fail, regardless of the value that you specify. If you are creating a block device mapping from an existing unencrypted volume, you can include this parameter, but you must specify false. If you specify true, the request will fail. In this case, we recommend that you omit the parameter. If you are creating a block device mapping from an existing encrypted volume, you can include this parameter, and specify either true or false. However, if you specify false, the parameter is ignored and the block device mapping is always encrypted. In this case, we recommend that you omit the parameter."];
      volumeInitializationRate: Integer.t option
        [@ocaml.doc
          "Specifies the Amazon EBS Provisioned Rate for Volume Initialization (volume initialization rate), in MiB/s, at which to download the snapshot blocks from Amazon S3 to the volume. This is also known as volume initialization. Specifying a volume initialization rate ensures that the volume is initialized at a predictable and consistent rate after creation. For more information, see Initialize Amazon EBS volumes in the Amazon EC2 User Guide. This parameter is supported only for volumes created from snapshots. Omit this parameter if: You want to create the volume using fast snapshot restore. You must specify a snapshot that is enabled for fast snapshot restore. In this case, the volume is fully initialized at creation. If you specify a snapshot that is enabled for fast snapshot restore and a volume initialization rate, the volume will be initialized at the specified rate instead of fast snapshot restore. You want to create a volume that is initialized at the default rate. This parameter is not supported when using CreateImage and DescribeImages. Valid range: 100 - 300 MiB/s"];
      availabilityZoneId: String_.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the EBS volume will be created (for example, use1-az1). Either AvailabilityZone or AvailabilityZoneId can be specified, but not both. If neither is specified, Amazon EC2 automatically selects an Availability Zone within the Region. This parameter is not supported when using CreateFleet, CreateImage, DescribeImages, RequestSpotFleet, RequestSpotInstances, and RunInstances."];
      ebsCardIndex: Integer.t option
        [@ocaml.doc
          "The index of the EBS card. Some instance types support multiple EBS cards. The default EBS card index is 0."]}
    let make ?deleteOnTermination =
      fun ?iops ->
        fun ?snapshotId ->
          fun ?volumeSize ->
            fun ?volumeType ->
              fun ?kmsKeyId ->
                fun ?throughput ->
                  fun ?outpostArn ->
                    fun ?availabilityZone ->
                      fun ?encrypted ->
                        fun ?volumeInitializationRate ->
                          fun ?availabilityZoneId ->
                            fun ?ebsCardIndex ->
                              fun () ->
                                {
                                  deleteOnTermination;
                                  iops;
                                  snapshotId;
                                  volumeSize;
                                  volumeType;
                                  kmsKeyId;
                                  throughput;
                                  outpostArn;
                                  availabilityZone;
                                  encrypted;
                                  volumeInitializationRate;
                                  availabilityZoneId;
                                  ebsCardIndex
                                }
    let to_value x =
      structure_to_value
        [("deleteOnTermination",
           (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("iops", (Option.map x.iops ~f:Integer.to_value));
        ("snapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("volumeSize", (Option.map x.volumeSize ~f:Integer.to_value));
        ("volumeType", (Option.map x.volumeType ~f:VolumeType.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:String_.to_value));
        ("throughput", (Option.map x.throughput ~f:Integer.to_value));
        ("outpostArn", (Option.map x.outpostArn ~f:String_.to_value));
        ("availabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("VolumeInitializationRate",
          (Option.map x.volumeInitializationRate ~f:Integer.to_value));
        ("AvailabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value));
        ("EbsCardIndex", (Option.map x.ebsCardIndex ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ebsCardIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "EbsCardIndex") in
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneId") in
      let volumeInitializationRate =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "VolumeInitializationRate") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "encrypted") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      let outpostArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "outpostArn") in
      let throughput =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "throughput") in
      let kmsKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "volumeType") in
      let volumeSize =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "volumeSize") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "snapshotId") in
      let iops = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "iops") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      make ?ebsCardIndex ?availabilityZoneId ?volumeInitializationRate
        ?encrypted ?availabilityZone ?outpostArn ?throughput ?kmsKeyId
        ?volumeType ?volumeSize ?snapshotId ?iops ?deleteOnTermination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ebsCardIndex = field_map json__ "EbsCardIndex" Integer.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let volumeInitializationRate =
        field_map json__ "VolumeInitializationRate" Integer.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let outpostArn = field_map json__ "OutpostArn" String_.of_json in
      let throughput = field_map json__ "Throughput" Integer.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" String_.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let volumeSize = field_map json__ "VolumeSize" Integer.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let iops = field_map json__ "Iops" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      make ?ebsCardIndex ?availabilityZoneId ?volumeInitializationRate
        ?encrypted ?availabilityZone ?outpostArn ?throughput ?kmsKeyId
        ?volumeType ?volumeSize ?snapshotId ?iops ?deleteOnTermination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a block device for an EBS volume."]
module ConnectionTrackingSpecificationRequest =
  struct
    type nonrec t =
      {
      tcpEstablishedTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle TCP connections in an established state. Min: 60 seconds. Max: 432000 seconds (5 days). Default: 432000 seconds. Recommended: Less than 432000 seconds."];
      udpStreamTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle UDP flows classified as streams which have seen more than one request-response transaction. Min: 60 seconds. Max: 180 seconds (3 minutes). Default: 180 seconds."];
      udpTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle UDP flows that have seen traffic only in a single direction or a single request-response transaction. Min: 30 seconds. Max: 60 seconds. Default: 30 seconds."]}
    let make ?tcpEstablishedTimeout =
      fun ?udpStreamTimeout ->
        fun ?udpTimeout ->
          fun () -> { tcpEstablishedTimeout; udpStreamTimeout; udpTimeout }
    let to_value x =
      structure_to_value
        [("TcpEstablishedTimeout",
           (Option.map x.tcpEstablishedTimeout ~f:Integer.to_value));
        ("UdpStreamTimeout",
          (Option.map x.udpStreamTimeout ~f:Integer.to_value));
        ("UdpTimeout", (Option.map x.udpTimeout ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let udpTimeout =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "UdpTimeout") in
      let udpStreamTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "UdpStreamTimeout") in
      let tcpEstablishedTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "TcpEstablishedTimeout") in
      make ?udpTimeout ?udpStreamTimeout ?tcpEstablishedTimeout ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let udpTimeout = field_map json__ "UdpTimeout" Integer.of_json in
      let udpStreamTimeout =
        field_map json__ "UdpStreamTimeout" Integer.of_json in
      let tcpEstablishedTimeout =
        field_map json__ "TcpEstablishedTimeout" Integer.of_json in
      make ?udpTimeout ?udpStreamTimeout ?tcpEstablishedTimeout ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A security group connection tracking specification request that enables you to set the idle timeout for connection tracking on an Elastic network interface. For more information, see Connection tracking timeouts in the Amazon EC2 User Guide."]
module EnaSrdSpecificationRequest =
  struct
    type nonrec t =
      {
      enaSrdEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether ENA Express is enabled for the network interface when you launch an instance."];
      enaSrdUdpSpecification: EnaSrdUdpSpecificationRequest.t option
        [@ocaml.doc
          "Contains ENA Express settings for UDP network traffic for the network interface attached to the instance."]}
    let make ?enaSrdEnabled =
      fun ?enaSrdUdpSpecification ->
        fun () -> { enaSrdEnabled; enaSrdUdpSpecification }
    let to_value x =
      structure_to_value
        [("EnaSrdEnabled", (Option.map x.enaSrdEnabled ~f:Boolean.to_value));
        ("EnaSrdUdpSpecification",
          (Option.map x.enaSrdUdpSpecification
             ~f:EnaSrdUdpSpecificationRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpSpecification =
        (Option.map ~f:EnaSrdUdpSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "EnaSrdUdpSpecification") in
      let enaSrdEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EnaSrdEnabled") in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpSpecification =
        field_map json__ "EnaSrdUdpSpecification"
          EnaSrdUdpSpecificationRequest.of_json in
      let enaSrdEnabled = field_map json__ "EnaSrdEnabled" Boolean.of_json in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Launch instances with ENA Express settings configured from your launch template."]
module InstanceIpv6AddressList =
  struct
    type nonrec t = InstanceIpv6Address.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceIpv6Address.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceIpv6Address.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceIpv6AddressList"
        ~of_json:InstanceIpv6Address.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv4PrefixList =
  struct
    type nonrec t = Ipv4PrefixSpecificationRequest.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv4PrefixSpecificationRequest.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Ipv4PrefixSpecificationRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv4PrefixList"
        ~of_json:Ipv4PrefixSpecificationRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv6PrefixList =
  struct
    type nonrec t = Ipv6PrefixSpecificationRequest.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv6PrefixSpecificationRequest.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Ipv6PrefixSpecificationRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv6PrefixList"
        ~of_json:Ipv6PrefixSpecificationRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkInterfaceId =
  struct
    type nonrec t = string
    let context_ = "NetworkInterfaceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NetworkInterfaceId" j
    let to_json = simple_to_json to_value
  end
module PrivateIpAddressSpecificationList =
  struct
    type nonrec t = PrivateIpAddressSpecification.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PrivateIpAddressSpecification.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PrivateIpAddressSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateIpAddressSpecificationList"
        ~of_json:PrivateIpAddressSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityGroupIdStringList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupIdStringList"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceType =
  struct
    type nonrec t =
      | Capacity_reservation 
      | Client_vpn_endpoint 
      | Customer_gateway 
      | Carrier_gateway 
      | Coip_pool 
      | Declarative_policies_report 
      | Dedicated_host 
      | Dhcp_options 
      | Egress_only_internet_gateway 
      | Elastic_ip 
      | Elastic_gpu 
      | Export_image_task 
      | Export_instance_task 
      | Fleet 
      | Fpga_image 
      | Host_reservation 
      | Image 
      | Image_usage_report 
      | Import_image_task 
      | Import_snapshot_task 
      | Instance 
      | Instance_event_window 
      | Internet_gateway 
      | Ipam 
      | Ipam_pool 
      | Ipam_scope 
      | Ipv4pool_ec2 
      | Ipv6pool_ec2 
      | Key_pair 
      | Launch_template 
      | Local_gateway 
      | Local_gateway_route_table 
      | Local_gateway_virtual_interface 
      | Local_gateway_virtual_interface_group 
      | Local_gateway_route_table_vpc_association 
      | Local_gateway_route_table_virtual_interface_group_association 
      | Natgateway 
      | Network_acl 
      | Network_interface 
      | Network_insights_analysis 
      | Network_insights_path 
      | Network_insights_access_scope 
      | Network_insights_access_scope_analysis 
      | Outpost_lag 
      | Placement_group 
      | Prefix_list 
      | Replace_root_volume_task 
      | Reserved_instances 
      | Route_table 
      | Security_group 
      | Security_group_rule 
      | Service_link_virtual_interface 
      | Snapshot 
      | Spot_fleet_request 
      | Spot_instances_request 
      | Subnet 
      | Subnet_cidr_reservation 
      | Traffic_mirror_filter 
      | Traffic_mirror_session 
      | Traffic_mirror_target 
      | Transit_gateway 
      | Transit_gateway_attachment 
      | Transit_gateway_connect_peer 
      | Transit_gateway_multicast_domain 
      | Transit_gateway_policy_table 
      | Transit_gateway_metering_policy 
      | Transit_gateway_route_table 
      | Transit_gateway_route_table_announcement 
      | Volume 
      | Vpc 
      | Vpc_endpoint 
      | Vpc_endpoint_connection 
      | Vpc_endpoint_service 
      | Vpc_endpoint_service_permission 
      | Vpc_peering_connection 
      | Vpn_connection 
      | Vpn_gateway 
      | Vpc_flow_log 
      | Capacity_reservation_fleet 
      | Traffic_mirror_filter_rule 
      | Vpc_endpoint_connection_device_type 
      | Verified_access_instance 
      | Verified_access_group 
      | Verified_access_endpoint 
      | Verified_access_policy 
      | Verified_access_trust_provider 
      | Vpn_connection_device_type 
      | Vpc_block_public_access_exclusion 
      | Vpc_encryption_control 
      | Route_server 
      | Route_server_endpoint 
      | Route_server_peer 
      | Ipam_resource_discovery 
      | Ipam_resource_discovery_association 
      | Instance_connect_endpoint 
      | Verified_access_endpoint_target 
      | Ipam_external_resource_verification_token 
      | Capacity_block 
      | Mac_modification_task 
      | Ipam_prefix_list_resolver 
      | Ipam_policy 
      | Ipam_prefix_list_resolver_target 
      | Secondary_interface 
      | Secondary_network 
      | Secondary_subnet 
      | Capacity_manager_data_export 
      | Vpn_concentrator 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Capacity_reservation -> "capacity-reservation"
      | Client_vpn_endpoint -> "client-vpn-endpoint"
      | Customer_gateway -> "customer-gateway"
      | Carrier_gateway -> "carrier-gateway"
      | Coip_pool -> "coip-pool"
      | Declarative_policies_report -> "declarative-policies-report"
      | Dedicated_host -> "dedicated-host"
      | Dhcp_options -> "dhcp-options"
      | Egress_only_internet_gateway -> "egress-only-internet-gateway"
      | Elastic_ip -> "elastic-ip"
      | Elastic_gpu -> "elastic-gpu"
      | Export_image_task -> "export-image-task"
      | Export_instance_task -> "export-instance-task"
      | Fleet -> "fleet"
      | Fpga_image -> "fpga-image"
      | Host_reservation -> "host-reservation"
      | Image -> "image"
      | Image_usage_report -> "image-usage-report"
      | Import_image_task -> "import-image-task"
      | Import_snapshot_task -> "import-snapshot-task"
      | Instance -> "instance"
      | Instance_event_window -> "instance-event-window"
      | Internet_gateway -> "internet-gateway"
      | Ipam -> "ipam"
      | Ipam_pool -> "ipam-pool"
      | Ipam_scope -> "ipam-scope"
      | Ipv4pool_ec2 -> "ipv4pool-ec2"
      | Ipv6pool_ec2 -> "ipv6pool-ec2"
      | Key_pair -> "key-pair"
      | Launch_template -> "launch-template"
      | Local_gateway -> "local-gateway"
      | Local_gateway_route_table -> "local-gateway-route-table"
      | Local_gateway_virtual_interface -> "local-gateway-virtual-interface"
      | Local_gateway_virtual_interface_group ->
          "local-gateway-virtual-interface-group"
      | Local_gateway_route_table_vpc_association ->
          "local-gateway-route-table-vpc-association"
      | Local_gateway_route_table_virtual_interface_group_association ->
          "local-gateway-route-table-virtual-interface-group-association"
      | Natgateway -> "natgateway"
      | Network_acl -> "network-acl"
      | Network_interface -> "network-interface"
      | Network_insights_analysis -> "network-insights-analysis"
      | Network_insights_path -> "network-insights-path"
      | Network_insights_access_scope -> "network-insights-access-scope"
      | Network_insights_access_scope_analysis ->
          "network-insights-access-scope-analysis"
      | Outpost_lag -> "outpost-lag"
      | Placement_group -> "placement-group"
      | Prefix_list -> "prefix-list"
      | Replace_root_volume_task -> "replace-root-volume-task"
      | Reserved_instances -> "reserved-instances"
      | Route_table -> "route-table"
      | Security_group -> "security-group"
      | Security_group_rule -> "security-group-rule"
      | Service_link_virtual_interface -> "service-link-virtual-interface"
      | Snapshot -> "snapshot"
      | Spot_fleet_request -> "spot-fleet-request"
      | Spot_instances_request -> "spot-instances-request"
      | Subnet -> "subnet"
      | Subnet_cidr_reservation -> "subnet-cidr-reservation"
      | Traffic_mirror_filter -> "traffic-mirror-filter"
      | Traffic_mirror_session -> "traffic-mirror-session"
      | Traffic_mirror_target -> "traffic-mirror-target"
      | Transit_gateway -> "transit-gateway"
      | Transit_gateway_attachment -> "transit-gateway-attachment"
      | Transit_gateway_connect_peer -> "transit-gateway-connect-peer"
      | Transit_gateway_multicast_domain ->
          "transit-gateway-multicast-domain"
      | Transit_gateway_policy_table -> "transit-gateway-policy-table"
      | Transit_gateway_metering_policy -> "transit-gateway-metering-policy"
      | Transit_gateway_route_table -> "transit-gateway-route-table"
      | Transit_gateway_route_table_announcement ->
          "transit-gateway-route-table-announcement"
      | Volume -> "volume"
      | Vpc -> "vpc"
      | Vpc_endpoint -> "vpc-endpoint"
      | Vpc_endpoint_connection -> "vpc-endpoint-connection"
      | Vpc_endpoint_service -> "vpc-endpoint-service"
      | Vpc_endpoint_service_permission -> "vpc-endpoint-service-permission"
      | Vpc_peering_connection -> "vpc-peering-connection"
      | Vpn_connection -> "vpn-connection"
      | Vpn_gateway -> "vpn-gateway"
      | Vpc_flow_log -> "vpc-flow-log"
      | Capacity_reservation_fleet -> "capacity-reservation-fleet"
      | Traffic_mirror_filter_rule -> "traffic-mirror-filter-rule"
      | Vpc_endpoint_connection_device_type ->
          "vpc-endpoint-connection-device-type"
      | Verified_access_instance -> "verified-access-instance"
      | Verified_access_group -> "verified-access-group"
      | Verified_access_endpoint -> "verified-access-endpoint"
      | Verified_access_policy -> "verified-access-policy"
      | Verified_access_trust_provider -> "verified-access-trust-provider"
      | Vpn_connection_device_type -> "vpn-connection-device-type"
      | Vpc_block_public_access_exclusion ->
          "vpc-block-public-access-exclusion"
      | Vpc_encryption_control -> "vpc-encryption-control"
      | Route_server -> "route-server"
      | Route_server_endpoint -> "route-server-endpoint"
      | Route_server_peer -> "route-server-peer"
      | Ipam_resource_discovery -> "ipam-resource-discovery"
      | Ipam_resource_discovery_association ->
          "ipam-resource-discovery-association"
      | Instance_connect_endpoint -> "instance-connect-endpoint"
      | Verified_access_endpoint_target -> "verified-access-endpoint-target"
      | Ipam_external_resource_verification_token ->
          "ipam-external-resource-verification-token"
      | Capacity_block -> "capacity-block"
      | Mac_modification_task -> "mac-modification-task"
      | Ipam_prefix_list_resolver -> "ipam-prefix-list-resolver"
      | Ipam_policy -> "ipam-policy"
      | Ipam_prefix_list_resolver_target ->
          "ipam-prefix-list-resolver-target"
      | Secondary_interface -> "secondary-interface"
      | Secondary_network -> "secondary-network"
      | Secondary_subnet -> "secondary-subnet"
      | Capacity_manager_data_export -> "capacity-manager-data-export"
      | Vpn_concentrator -> "vpn-concentrator"
      | Non_static_id s -> s
    let of_string =
      function
      | "capacity-reservation" -> Capacity_reservation
      | "client-vpn-endpoint" -> Client_vpn_endpoint
      | "customer-gateway" -> Customer_gateway
      | "carrier-gateway" -> Carrier_gateway
      | "coip-pool" -> Coip_pool
      | "declarative-policies-report" -> Declarative_policies_report
      | "dedicated-host" -> Dedicated_host
      | "dhcp-options" -> Dhcp_options
      | "egress-only-internet-gateway" -> Egress_only_internet_gateway
      | "elastic-ip" -> Elastic_ip
      | "elastic-gpu" -> Elastic_gpu
      | "export-image-task" -> Export_image_task
      | "export-instance-task" -> Export_instance_task
      | "fleet" -> Fleet
      | "fpga-image" -> Fpga_image
      | "host-reservation" -> Host_reservation
      | "image" -> Image
      | "image-usage-report" -> Image_usage_report
      | "import-image-task" -> Import_image_task
      | "import-snapshot-task" -> Import_snapshot_task
      | "instance" -> Instance
      | "instance-event-window" -> Instance_event_window
      | "internet-gateway" -> Internet_gateway
      | "ipam" -> Ipam
      | "ipam-pool" -> Ipam_pool
      | "ipam-scope" -> Ipam_scope
      | "ipv4pool-ec2" -> Ipv4pool_ec2
      | "ipv6pool-ec2" -> Ipv6pool_ec2
      | "key-pair" -> Key_pair
      | "launch-template" -> Launch_template
      | "local-gateway" -> Local_gateway
      | "local-gateway-route-table" -> Local_gateway_route_table
      | "local-gateway-virtual-interface" -> Local_gateway_virtual_interface
      | "local-gateway-virtual-interface-group" ->
          Local_gateway_virtual_interface_group
      | "local-gateway-route-table-vpc-association" ->
          Local_gateway_route_table_vpc_association
      | "local-gateway-route-table-virtual-interface-group-association" ->
          Local_gateway_route_table_virtual_interface_group_association
      | "natgateway" -> Natgateway
      | "network-acl" -> Network_acl
      | "network-interface" -> Network_interface
      | "network-insights-analysis" -> Network_insights_analysis
      | "network-insights-path" -> Network_insights_path
      | "network-insights-access-scope" -> Network_insights_access_scope
      | "network-insights-access-scope-analysis" ->
          Network_insights_access_scope_analysis
      | "outpost-lag" -> Outpost_lag
      | "placement-group" -> Placement_group
      | "prefix-list" -> Prefix_list
      | "replace-root-volume-task" -> Replace_root_volume_task
      | "reserved-instances" -> Reserved_instances
      | "route-table" -> Route_table
      | "security-group" -> Security_group
      | "security-group-rule" -> Security_group_rule
      | "service-link-virtual-interface" -> Service_link_virtual_interface
      | "snapshot" -> Snapshot
      | "spot-fleet-request" -> Spot_fleet_request
      | "spot-instances-request" -> Spot_instances_request
      | "subnet" -> Subnet
      | "subnet-cidr-reservation" -> Subnet_cidr_reservation
      | "traffic-mirror-filter" -> Traffic_mirror_filter
      | "traffic-mirror-session" -> Traffic_mirror_session
      | "traffic-mirror-target" -> Traffic_mirror_target
      | "transit-gateway" -> Transit_gateway
      | "transit-gateway-attachment" -> Transit_gateway_attachment
      | "transit-gateway-connect-peer" -> Transit_gateway_connect_peer
      | "transit-gateway-multicast-domain" ->
          Transit_gateway_multicast_domain
      | "transit-gateway-policy-table" -> Transit_gateway_policy_table
      | "transit-gateway-metering-policy" -> Transit_gateway_metering_policy
      | "transit-gateway-route-table" -> Transit_gateway_route_table
      | "transit-gateway-route-table-announcement" ->
          Transit_gateway_route_table_announcement
      | "volume" -> Volume
      | "vpc" -> Vpc
      | "vpc-endpoint" -> Vpc_endpoint
      | "vpc-endpoint-connection" -> Vpc_endpoint_connection
      | "vpc-endpoint-service" -> Vpc_endpoint_service
      | "vpc-endpoint-service-permission" -> Vpc_endpoint_service_permission
      | "vpc-peering-connection" -> Vpc_peering_connection
      | "vpn-connection" -> Vpn_connection
      | "vpn-gateway" -> Vpn_gateway
      | "vpc-flow-log" -> Vpc_flow_log
      | "capacity-reservation-fleet" -> Capacity_reservation_fleet
      | "traffic-mirror-filter-rule" -> Traffic_mirror_filter_rule
      | "vpc-endpoint-connection-device-type" ->
          Vpc_endpoint_connection_device_type
      | "verified-access-instance" -> Verified_access_instance
      | "verified-access-group" -> Verified_access_group
      | "verified-access-endpoint" -> Verified_access_endpoint
      | "verified-access-policy" -> Verified_access_policy
      | "verified-access-trust-provider" -> Verified_access_trust_provider
      | "vpn-connection-device-type" -> Vpn_connection_device_type
      | "vpc-block-public-access-exclusion" ->
          Vpc_block_public_access_exclusion
      | "vpc-encryption-control" -> Vpc_encryption_control
      | "route-server" -> Route_server
      | "route-server-endpoint" -> Route_server_endpoint
      | "route-server-peer" -> Route_server_peer
      | "ipam-resource-discovery" -> Ipam_resource_discovery
      | "ipam-resource-discovery-association" ->
          Ipam_resource_discovery_association
      | "instance-connect-endpoint" -> Instance_connect_endpoint
      | "verified-access-endpoint-target" -> Verified_access_endpoint_target
      | "ipam-external-resource-verification-token" ->
          Ipam_external_resource_verification_token
      | "capacity-block" -> Capacity_block
      | "mac-modification-task" -> Mac_modification_task
      | "ipam-prefix-list-resolver" -> Ipam_prefix_list_resolver
      | "ipam-policy" -> Ipam_policy
      | "ipam-prefix-list-resolver-target" ->
          Ipam_prefix_list_resolver_target
      | "secondary-interface" -> Secondary_interface
      | "secondary-network" -> Secondary_network
      | "secondary-subnet" -> Secondary_subnet
      | "capacity-manager-data-export" -> Capacity_manager_data_export
      | "vpn-concentrator" -> Vpn_concentrator
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailabilityZoneId =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZoneId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AvailabilityZoneId" j
    let to_json = simple_to_json to_value
  end
module InstanceRequirements =
  struct
    type nonrec t =
      {
      vCpuCount: VCpuCountRange.t option
        [@ocaml.doc "The minimum and maximum number of vCPUs."];
      memoryMiB: MemoryMiB.t option
        [@ocaml.doc "The minimum and maximum amount of memory, in MiB."];
      cpuManufacturers: CpuManufacturerSet.t option
        [@ocaml.doc
          "The CPU manufacturers to include. For instance types with Intel CPUs, specify intel. For instance types with AMD CPUs, specify amd. For instance types with Amazon Web Services CPUs, specify amazon-web-services. For instance types with Apple CPUs, specify apple. Don't confuse the CPU manufacturer with the CPU architecture. Instances will be launched with a compatible CPU architecture based on the Amazon Machine Image (AMI) that you specify in your launch template. Default: Any manufacturer"];
      memoryGiBPerVCpu: MemoryGiBPerVCpu.t option
        [@ocaml.doc
          "The minimum and maximum amount of memory per vCPU, in GiB. Default: No minimum or maximum limits"];
      excludedInstanceTypes: ExcludedInstanceTypeSet.t option
        [@ocaml.doc
          "The instance types to exclude. You can use strings with one or more wild cards, represented by an asterisk (*), to exclude an instance type, size, or generation. The following are examples: m5.8xlarge, c5*.*, m5a.*, r*, *3*. For example, if you specify c5*,Amazon EC2 will exclude the entire C5 instance family, which includes all C5a and C5n instance types. If you specify m5a.*, Amazon EC2 will exclude all the M5a instance types, but not the M5n instance types. If you specify ExcludedInstanceTypes, you can't specify AllowedInstanceTypes. Default: No excluded instance types"];
      instanceGenerations: InstanceGenerationSet.t option
        [@ocaml.doc
          "Indicates whether current or previous generation instance types are included. The current generation instance types are recommended for use. Current generation instance types are typically the latest two to three generations in each instance family. For more information, see Instance types in the Amazon EC2 User Guide. For current generation instance types, specify current. For previous generation instance types, specify previous. Default: Current and previous generation instance types"];
      spotMaxPricePercentageOverLowestPrice: Integer.t option
        [@ocaml.doc
          "\\[Price protection\\] The price protection threshold for Spot Instances, as a percentage higher than an identified Spot price. The identified Spot price is the Spot price of the lowest priced current generation C, M, or R instance type with your specified attributes. If no current generation C, M, or R instance type matches your attributes, then the identified Spot price is from the lowest priced current generation instance types, and failing that, from the lowest priced previous generation instance types that match your attributes. When Amazon EC2 selects instance types with your attributes, it will exclude instance types whose Spot price exceeds your specified threshold. The parameter accepts an integer, which Amazon EC2 interprets as a percentage. If you set TargetCapacityUnitType to vcpu or memory-mib, the price protection threshold is applied based on the per-vCPU or per-memory price instead of the per-instance price. This parameter is not supported for GetSpotPlacementScores and GetInstanceTypesFromInstanceRequirements. Only one of SpotMaxPricePercentageOverLowestPrice or MaxSpotPriceAsPercentageOfOptimalOnDemandPrice can be specified. If you don't specify either, Amazon EC2 will automatically apply optimal price protection to consistently select from a wide range of instance types. To indicate no price protection threshold for Spot Instances, meaning you want to consider all instance types that match your attributes, include one of these parameters and specify a high value, such as 999999. Default: 100"];
      onDemandMaxPricePercentageOverLowestPrice: Integer.t option
        [@ocaml.doc
          "\\[Price protection\\] The price protection threshold for On-Demand Instances, as a percentage higher than an identified On-Demand price. The identified On-Demand price is the price of the lowest priced current generation C, M, or R instance type with your specified attributes. When Amazon EC2 selects instance types with your attributes, it will exclude instance types whose price exceeds your specified threshold. The parameter accepts an integer, which Amazon EC2 interprets as a percentage. To turn off price protection, specify a high value, such as 999999. This parameter is not supported for GetSpotPlacementScores and GetInstanceTypesFromInstanceRequirements. If you set TargetCapacityUnitType to vcpu or memory-mib, the price protection threshold is applied based on the per-vCPU or per-memory price instead of the per-instance price. Default: 20"];
      bareMetal: BareMetal.t option
        [@ocaml.doc
          "Indicates whether bare metal instance types must be included, excluded, or required. To include bare metal instance types, specify included. To require only bare metal instance types, specify required. To exclude bare metal instance types, specify excluded. Default: excluded"];
      burstablePerformance: BurstablePerformance.t option
        [@ocaml.doc
          "Indicates whether burstable performance T instance types are included, excluded, or required. For more information, see Burstable performance instances. To include burstable performance instance types, specify included. To require only burstable performance instance types, specify required. To exclude burstable performance instance types, specify excluded. Default: excluded"];
      requireHibernateSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether instance types must support hibernation for On-Demand Instances. This parameter is not supported for GetSpotPlacementScores. Default: false"];
      networkInterfaceCount: NetworkInterfaceCount.t option
        [@ocaml.doc
          "The minimum and maximum number of network interfaces. Default: No minimum or maximum limits"];
      localStorage: LocalStorage.t option
        [@ocaml.doc
          "Indicates whether instance types with instance store volumes are included, excluded, or required. For more information, Amazon EC2 instance store in the Amazon EC2 User Guide. To include instance types with instance store volumes, specify included. To require only instance types with instance store volumes, specify required. To exclude instance types with instance store volumes, specify excluded. Default: included"];
      localStorageTypes: LocalStorageTypeSet.t option
        [@ocaml.doc
          "The type of local storage that is required. For instance types with hard disk drive (HDD) storage, specify hdd. For instance types with solid state drive (SSD) storage, specify ssd. Default: hdd and ssd"];
      totalLocalStorageGB: TotalLocalStorageGB.t option
        [@ocaml.doc
          "The minimum and maximum amount of total local storage, in GB. Default: No minimum or maximum limits"];
      baselineEbsBandwidthMbps: BaselineEbsBandwidthMbps.t option
        [@ocaml.doc
          "The minimum and maximum baseline bandwidth to Amazon EBS, in Mbps. For more information, see Amazon EBS\226\128\147optimized instances in the Amazon EC2 User Guide. Default: No minimum or maximum limits"];
      acceleratorTypes: AcceleratorTypeSet.t option
        [@ocaml.doc
          "The accelerator types that must be on the instance type. For instance types with FPGA accelerators, specify fpga. For instance types with GPU accelerators, specify gpu. For instance types with Inference accelerators, specify inference. For instance types with Media accelerators, specify media. Default: Any accelerator type"];
      acceleratorCount: AcceleratorCount.t option
        [@ocaml.doc
          "The minimum and maximum number of accelerators (GPUs, FPGAs, or Amazon Web Services Inferentia chips) on an instance. To exclude accelerator-enabled instance types, set Max to 0. Default: No minimum or maximum limits"];
      acceleratorManufacturers: AcceleratorManufacturerSet.t option
        [@ocaml.doc
          "Indicates whether instance types must have accelerators by specific manufacturers. For instance types with Amazon Web Services devices, specify amazon-web-services. For instance types with AMD devices, specify amd. For instance types with Habana devices, specify habana. For instance types with NVIDIA devices, specify nvidia. For instance types with Xilinx devices, specify xilinx. Default: Any manufacturer"];
      acceleratorNames: AcceleratorNameSet.t option
        [@ocaml.doc
          "The accelerators that must be on the instance type. For instance types with NVIDIA A10G GPUs, specify a10g. For instance types with NVIDIA A100 GPUs, specify a100. For instance types with NVIDIA H100 GPUs, specify h100. For instance types with Amazon Web Services Inferentia chips, specify inferentia. For instance types with Amazon Web Services Inferentia2 chips, specify inferentia2. For instance types with Habana Gaudi HL-205 GPUs, specify gaudi-hl-205. For instance types with NVIDIA GRID K520 GPUs, specify k520. For instance types with NVIDIA K80 GPUs, specify k80. For instance types with NVIDIA L4 GPUs, specify l4. For instance types with NVIDIA L40S GPUs, specify l40s. For instance types with NVIDIA M60 GPUs, specify m60. For instance types with AMD Radeon Pro V520 GPUs, specify radeon-pro-v520. For instance types with Amazon Web Services Trainium chips, specify trainium. For instance types with Amazon Web Services Trainium2 chips, specify trainium2. For instance types with NVIDIA T4 GPUs, specify t4. For instance types with NVIDIA T4G GPUs, specify t4g. For instance types with Xilinx U30 cards, specify u30. For instance types with Xilinx VU9P FPGAs, specify vu9p. For instance types with NVIDIA V100 GPUs, specify v100. Default: Any accelerator"];
      acceleratorTotalMemoryMiB: AcceleratorTotalMemoryMiB.t option
        [@ocaml.doc
          "The minimum and maximum amount of total accelerator memory, in MiB. Default: No minimum or maximum limits"];
      networkBandwidthGbps: NetworkBandwidthGbps.t option
        [@ocaml.doc
          "The minimum and maximum amount of network bandwidth, in gigabits per second (Gbps). Default: No minimum or maximum limits"];
      allowedInstanceTypes: AllowedInstanceTypeSet.t option
        [@ocaml.doc
          "The instance types to apply your specified attributes against. All other instance types are ignored, even if they match your specified attributes. You can use strings with one or more wild cards, represented by an asterisk (*), to allow an instance type, size, or generation. The following are examples: m5.8xlarge, c5*.*, m5a.*, r*, *3*. For example, if you specify c5*,Amazon EC2 will allow the entire C5 instance family, which includes all C5a and C5n instance types. If you specify m5a.*, Amazon EC2 will allow all the M5a instance types, but not the M5n instance types. If you specify AllowedInstanceTypes, you can't specify ExcludedInstanceTypes. Default: All instance types"];
      maxSpotPriceAsPercentageOfOptimalOnDemandPrice: Integer.t option
        [@ocaml.doc
          "\\[Price protection\\] The price protection threshold for Spot Instances, as a percentage of an identified On-Demand price. The identified On-Demand price is the price of the lowest priced current generation C, M, or R instance type with your specified attributes. If no current generation C, M, or R instance type matches your attributes, then the identified price is from the lowest priced current generation instance types, and failing that, from the lowest priced previous generation instance types that match your attributes. When Amazon EC2 selects instance types with your attributes, it will exclude instance types whose price exceeds your specified threshold. The parameter accepts an integer, which Amazon EC2 interprets as a percentage. If you set TargetCapacityUnitType to vcpu or memory-mib, the price protection threshold is based on the per vCPU or per memory price instead of the per instance price. Only one of SpotMaxPricePercentageOverLowestPrice or MaxSpotPriceAsPercentageOfOptimalOnDemandPrice can be specified. If you don't specify either, Amazon EC2 will automatically apply optimal price protection to consistently select from a wide range of instance types. To indicate no price protection threshold for Spot Instances, meaning you want to consider all instance types that match your attributes, include one of these parameters and specify a high value, such as 999999."];
      baselinePerformanceFactors: BaselinePerformanceFactors.t option
        [@ocaml.doc
          "The baseline performance to consider, using an instance family as a baseline reference. The instance family establishes the lowest acceptable level of performance. Amazon EC2 uses this baseline to guide instance type selection, but there is no guarantee that the selected instance types will always exceed the baseline for every application. Currently, this parameter only supports CPU performance as a baseline performance factor. For more information, see Performance protection in the Amazon EC2 User Guide."];
      requireEncryptionInTransit: Boolean.t option
        [@ocaml.doc
          "Specifies whether instance types must support encrypting in-transit traffic between instances. For more information, including the supported instance types, see Encryption in transit in the Amazon EC2 User Guide. Default: false"]}
    let make ?vCpuCount =
      fun ?memoryMiB ->
        fun ?cpuManufacturers ->
          fun ?memoryGiBPerVCpu ->
            fun ?excludedInstanceTypes ->
              fun ?instanceGenerations ->
                fun ?spotMaxPricePercentageOverLowestPrice ->
                  fun ?onDemandMaxPricePercentageOverLowestPrice ->
                    fun ?bareMetal ->
                      fun ?burstablePerformance ->
                        fun ?requireHibernateSupport ->
                          fun ?networkInterfaceCount ->
                            fun ?localStorage ->
                              fun ?localStorageTypes ->
                                fun ?totalLocalStorageGB ->
                                  fun ?baselineEbsBandwidthMbps ->
                                    fun ?acceleratorTypes ->
                                      fun ?acceleratorCount ->
                                        fun ?acceleratorManufacturers ->
                                          fun ?acceleratorNames ->
                                            fun ?acceleratorTotalMemoryMiB ->
                                              fun ?networkBandwidthGbps ->
                                                fun ?allowedInstanceTypes ->
                                                  fun
                                                    ?maxSpotPriceAsPercentageOfOptimalOnDemandPrice
                                                    ->
                                                    fun
                                                      ?baselinePerformanceFactors
                                                      ->
                                                      fun
                                                        ?requireEncryptionInTransit
                                                        ->
                                                        fun () ->
                                                          {
                                                            vCpuCount;
                                                            memoryMiB;
                                                            cpuManufacturers;
                                                            memoryGiBPerVCpu;
                                                            excludedInstanceTypes;
                                                            instanceGenerations;
                                                            spotMaxPricePercentageOverLowestPrice;
                                                            onDemandMaxPricePercentageOverLowestPrice;
                                                            bareMetal;
                                                            burstablePerformance;
                                                            requireHibernateSupport;
                                                            networkInterfaceCount;
                                                            localStorage;
                                                            localStorageTypes;
                                                            totalLocalStorageGB;
                                                            baselineEbsBandwidthMbps;
                                                            acceleratorTypes;
                                                            acceleratorCount;
                                                            acceleratorManufacturers;
                                                            acceleratorNames;
                                                            acceleratorTotalMemoryMiB;
                                                            networkBandwidthGbps;
                                                            allowedInstanceTypes;
                                                            maxSpotPriceAsPercentageOfOptimalOnDemandPrice;
                                                            baselinePerformanceFactors;
                                                            requireEncryptionInTransit
                                                          }
    let to_value x =
      structure_to_value
        [("vCpuCount", (Option.map x.vCpuCount ~f:VCpuCountRange.to_value));
        ("memoryMiB", (Option.map x.memoryMiB ~f:MemoryMiB.to_value));
        ("cpuManufacturerSet",
          (Option.map x.cpuManufacturers ~f:CpuManufacturerSet.to_value));
        ("memoryGiBPerVCpu",
          (Option.map x.memoryGiBPerVCpu ~f:MemoryGiBPerVCpu.to_value));
        ("excludedInstanceTypeSet",
          (Option.map x.excludedInstanceTypes
             ~f:ExcludedInstanceTypeSet.to_value));
        ("instanceGenerationSet",
          (Option.map x.instanceGenerations ~f:InstanceGenerationSet.to_value));
        ("spotMaxPricePercentageOverLowestPrice",
          (Option.map x.spotMaxPricePercentageOverLowestPrice
             ~f:Integer.to_value));
        ("onDemandMaxPricePercentageOverLowestPrice",
          (Option.map x.onDemandMaxPricePercentageOverLowestPrice
             ~f:Integer.to_value));
        ("bareMetal", (Option.map x.bareMetal ~f:BareMetal.to_value));
        ("burstablePerformance",
          (Option.map x.burstablePerformance ~f:BurstablePerformance.to_value));
        ("requireHibernateSupport",
          (Option.map x.requireHibernateSupport ~f:Boolean.to_value));
        ("networkInterfaceCount",
          (Option.map x.networkInterfaceCount
             ~f:NetworkInterfaceCount.to_value));
        ("localStorage",
          (Option.map x.localStorage ~f:LocalStorage.to_value));
        ("localStorageTypeSet",
          (Option.map x.localStorageTypes ~f:LocalStorageTypeSet.to_value));
        ("totalLocalStorageGB",
          (Option.map x.totalLocalStorageGB ~f:TotalLocalStorageGB.to_value));
        ("baselineEbsBandwidthMbps",
          (Option.map x.baselineEbsBandwidthMbps
             ~f:BaselineEbsBandwidthMbps.to_value));
        ("acceleratorTypeSet",
          (Option.map x.acceleratorTypes ~f:AcceleratorTypeSet.to_value));
        ("acceleratorCount",
          (Option.map x.acceleratorCount ~f:AcceleratorCount.to_value));
        ("acceleratorManufacturerSet",
          (Option.map x.acceleratorManufacturers
             ~f:AcceleratorManufacturerSet.to_value));
        ("acceleratorNameSet",
          (Option.map x.acceleratorNames ~f:AcceleratorNameSet.to_value));
        ("acceleratorTotalMemoryMiB",
          (Option.map x.acceleratorTotalMemoryMiB
             ~f:AcceleratorTotalMemoryMiB.to_value));
        ("networkBandwidthGbps",
          (Option.map x.networkBandwidthGbps ~f:NetworkBandwidthGbps.to_value));
        ("allowedInstanceTypeSet",
          (Option.map x.allowedInstanceTypes
             ~f:AllowedInstanceTypeSet.to_value));
        ("maxSpotPriceAsPercentageOfOptimalOnDemandPrice",
          (Option.map x.maxSpotPriceAsPercentageOfOptimalOnDemandPrice
             ~f:Integer.to_value));
        ("baselinePerformanceFactors",
          (Option.map x.baselinePerformanceFactors
             ~f:BaselinePerformanceFactors.to_value));
        ("requireEncryptionInTransit",
          (Option.map x.requireEncryptionInTransit ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requireEncryptionInTransit =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "requireEncryptionInTransit") in
      let baselinePerformanceFactors =
        (Option.map ~f:BaselinePerformanceFactors.of_xml)
          (Xml.child xml_arg0 "baselinePerformanceFactors") in
      let maxSpotPriceAsPercentageOfOptimalOnDemandPrice =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0
             "maxSpotPriceAsPercentageOfOptimalOnDemandPrice") in
      let allowedInstanceTypes =
        (Option.map ~f:AllowedInstanceTypeSet.of_xml)
          (Xml.child xml_arg0 "allowedInstanceTypeSet") in
      let networkBandwidthGbps =
        (Option.map ~f:NetworkBandwidthGbps.of_xml)
          (Xml.child xml_arg0 "networkBandwidthGbps") in
      let acceleratorTotalMemoryMiB =
        (Option.map ~f:AcceleratorTotalMemoryMiB.of_xml)
          (Xml.child xml_arg0 "acceleratorTotalMemoryMiB") in
      let acceleratorNames =
        (Option.map ~f:AcceleratorNameSet.of_xml)
          (Xml.child xml_arg0 "acceleratorNameSet") in
      let acceleratorManufacturers =
        (Option.map ~f:AcceleratorManufacturerSet.of_xml)
          (Xml.child xml_arg0 "acceleratorManufacturerSet") in
      let acceleratorCount =
        (Option.map ~f:AcceleratorCount.of_xml)
          (Xml.child xml_arg0 "acceleratorCount") in
      let acceleratorTypes =
        (Option.map ~f:AcceleratorTypeSet.of_xml)
          (Xml.child xml_arg0 "acceleratorTypeSet") in
      let baselineEbsBandwidthMbps =
        (Option.map ~f:BaselineEbsBandwidthMbps.of_xml)
          (Xml.child xml_arg0 "baselineEbsBandwidthMbps") in
      let totalLocalStorageGB =
        (Option.map ~f:TotalLocalStorageGB.of_xml)
          (Xml.child xml_arg0 "totalLocalStorageGB") in
      let localStorageTypes =
        (Option.map ~f:LocalStorageTypeSet.of_xml)
          (Xml.child xml_arg0 "localStorageTypeSet") in
      let localStorage =
        (Option.map ~f:LocalStorage.of_xml)
          (Xml.child xml_arg0 "localStorage") in
      let networkInterfaceCount =
        (Option.map ~f:NetworkInterfaceCount.of_xml)
          (Xml.child xml_arg0 "networkInterfaceCount") in
      let requireHibernateSupport =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "requireHibernateSupport") in
      let burstablePerformance =
        (Option.map ~f:BurstablePerformance.of_xml)
          (Xml.child xml_arg0 "burstablePerformance") in
      let bareMetal =
        (Option.map ~f:BareMetal.of_xml) (Xml.child xml_arg0 "bareMetal") in
      let onDemandMaxPricePercentageOverLowestPrice =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "onDemandMaxPricePercentageOverLowestPrice") in
      let spotMaxPricePercentageOverLowestPrice =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "spotMaxPricePercentageOverLowestPrice") in
      let instanceGenerations =
        (Option.map ~f:InstanceGenerationSet.of_xml)
          (Xml.child xml_arg0 "instanceGenerationSet") in
      let excludedInstanceTypes =
        (Option.map ~f:ExcludedInstanceTypeSet.of_xml)
          (Xml.child xml_arg0 "excludedInstanceTypeSet") in
      let memoryGiBPerVCpu =
        (Option.map ~f:MemoryGiBPerVCpu.of_xml)
          (Xml.child xml_arg0 "memoryGiBPerVCpu") in
      let cpuManufacturers =
        (Option.map ~f:CpuManufacturerSet.of_xml)
          (Xml.child xml_arg0 "cpuManufacturerSet") in
      let memoryMiB =
        (Option.map ~f:MemoryMiB.of_xml) (Xml.child xml_arg0 "memoryMiB") in
      let vCpuCount =
        (Option.map ~f:VCpuCountRange.of_xml)
          (Xml.child xml_arg0 "vCpuCount") in
      make ?requireEncryptionInTransit ?baselinePerformanceFactors
        ?maxSpotPriceAsPercentageOfOptimalOnDemandPrice ?allowedInstanceTypes
        ?networkBandwidthGbps ?acceleratorTotalMemoryMiB ?acceleratorNames
        ?acceleratorManufacturers ?acceleratorCount ?acceleratorTypes
        ?baselineEbsBandwidthMbps ?totalLocalStorageGB ?localStorageTypes
        ?localStorage ?networkInterfaceCount ?requireHibernateSupport
        ?burstablePerformance ?bareMetal
        ?onDemandMaxPricePercentageOverLowestPrice
        ?spotMaxPricePercentageOverLowestPrice ?instanceGenerations
        ?excludedInstanceTypes ?memoryGiBPerVCpu ?cpuManufacturers ?memoryMiB
        ?vCpuCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requireEncryptionInTransit =
        field_map json__ "RequireEncryptionInTransit" Boolean.of_json in
      let baselinePerformanceFactors =
        field_map json__ "BaselinePerformanceFactors"
          BaselinePerformanceFactors.of_json in
      let maxSpotPriceAsPercentageOfOptimalOnDemandPrice =
        field_map json__ "MaxSpotPriceAsPercentageOfOptimalOnDemandPrice"
          Integer.of_json in
      let allowedInstanceTypes =
        field_map json__ "AllowedInstanceTypes"
          AllowedInstanceTypeSet.of_json in
      let networkBandwidthGbps =
        field_map json__ "NetworkBandwidthGbps" NetworkBandwidthGbps.of_json in
      let acceleratorTotalMemoryMiB =
        field_map json__ "AcceleratorTotalMemoryMiB"
          AcceleratorTotalMemoryMiB.of_json in
      let acceleratorNames =
        field_map json__ "AcceleratorNames" AcceleratorNameSet.of_json in
      let acceleratorManufacturers =
        field_map json__ "AcceleratorManufacturers"
          AcceleratorManufacturerSet.of_json in
      let acceleratorCount =
        field_map json__ "AcceleratorCount" AcceleratorCount.of_json in
      let acceleratorTypes =
        field_map json__ "AcceleratorTypes" AcceleratorTypeSet.of_json in
      let baselineEbsBandwidthMbps =
        field_map json__ "BaselineEbsBandwidthMbps"
          BaselineEbsBandwidthMbps.of_json in
      let totalLocalStorageGB =
        field_map json__ "TotalLocalStorageGB" TotalLocalStorageGB.of_json in
      let localStorageTypes =
        field_map json__ "LocalStorageTypes" LocalStorageTypeSet.of_json in
      let localStorage = field_map json__ "LocalStorage" LocalStorage.of_json in
      let networkInterfaceCount =
        field_map json__ "NetworkInterfaceCount"
          NetworkInterfaceCount.of_json in
      let requireHibernateSupport =
        field_map json__ "RequireHibernateSupport" Boolean.of_json in
      let burstablePerformance =
        field_map json__ "BurstablePerformance" BurstablePerformance.of_json in
      let bareMetal = field_map json__ "BareMetal" BareMetal.of_json in
      let onDemandMaxPricePercentageOverLowestPrice =
        field_map json__ "OnDemandMaxPricePercentageOverLowestPrice"
          Integer.of_json in
      let spotMaxPricePercentageOverLowestPrice =
        field_map json__ "SpotMaxPricePercentageOverLowestPrice"
          Integer.of_json in
      let instanceGenerations =
        field_map json__ "InstanceGenerations" InstanceGenerationSet.of_json in
      let excludedInstanceTypes =
        field_map json__ "ExcludedInstanceTypes"
          ExcludedInstanceTypeSet.of_json in
      let memoryGiBPerVCpu =
        field_map json__ "MemoryGiBPerVCpu" MemoryGiBPerVCpu.of_json in
      let cpuManufacturers =
        field_map json__ "CpuManufacturers" CpuManufacturerSet.of_json in
      let memoryMiB = field_map json__ "MemoryMiB" MemoryMiB.of_json in
      let vCpuCount = field_map json__ "VCpuCount" VCpuCountRange.of_json in
      make ?requireEncryptionInTransit ?baselinePerformanceFactors
        ?maxSpotPriceAsPercentageOfOptimalOnDemandPrice ?allowedInstanceTypes
        ?networkBandwidthGbps ?acceleratorTotalMemoryMiB ?acceleratorNames
        ?acceleratorManufacturers ?acceleratorCount ?acceleratorTypes
        ?baselineEbsBandwidthMbps ?totalLocalStorageGB ?localStorageTypes
        ?localStorage ?networkInterfaceCount ?requireHibernateSupport
        ?burstablePerformance ?bareMetal
        ?onDemandMaxPricePercentageOverLowestPrice
        ?spotMaxPricePercentageOverLowestPrice ?instanceGenerations
        ?excludedInstanceTypes ?memoryGiBPerVCpu ?cpuManufacturers ?memoryMiB
        ?vCpuCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The attributes for the instance types. When you specify instance attributes, Amazon EC2 will identify instance types with these attributes. You must specify VCpuCount and MemoryMiB. All other attributes are optional. Any unspecified optional attribute is set to its default. When you specify multiple attributes, you get instance types that satisfy all of the specified attributes. If you specify multiple values for an attribute, you get instance types that satisfy any of the specified values. To limit the list of instance types from which Amazon EC2 can identify matching instance types, you can use one of the following parameters, but not both in the same request: AllowedInstanceTypes - The instance types to include in the list. All other instance types are ignored, even if they match your specified attributes. ExcludedInstanceTypes - The instance types to exclude from the list, even if they match your specified attributes. If you specify InstanceRequirements, you can't specify InstanceType. Attribute-based instance type selection is only supported when using Auto Scaling groups, EC2 Fleet, and Spot Fleet to launch instances. If you plan to use the launch template in the launch instance wizard or with the RunInstances API, you can't specify InstanceRequirements. For more information, see Create mixed instances group using attribute-based instance type selection in the Amazon EC2 Auto Scaling User Guide, and also Specify attributes for instance type selection for EC2 Fleet or Spot Fleet and Spot placement score in the Amazon EC2 User Guide."]
module InstanceType =
  struct
    type nonrec t =
      | A1_medium 
      | A1_large 
      | A1_xlarge 
      | A1_2xlarge 
      | A1_4xlarge 
      | A1_metal 
      | C1_medium 
      | C1_xlarge 
      | C3_large 
      | C3_xlarge 
      | C3_2xlarge 
      | C3_4xlarge 
      | C3_8xlarge 
      | C4_large 
      | C4_xlarge 
      | C4_2xlarge 
      | C4_4xlarge 
      | C4_8xlarge 
      | C5_large 
      | C5_xlarge 
      | C5_2xlarge 
      | C5_4xlarge 
      | C5_9xlarge 
      | C5_12xlarge 
      | C5_18xlarge 
      | C5_24xlarge 
      | C5_metal 
      | C5a_large 
      | C5a_xlarge 
      | C5a_2xlarge 
      | C5a_4xlarge 
      | C5a_8xlarge 
      | C5a_12xlarge 
      | C5a_16xlarge 
      | C5a_24xlarge 
      | C5ad_large 
      | C5ad_xlarge 
      | C5ad_2xlarge 
      | C5ad_4xlarge 
      | C5ad_8xlarge 
      | C5ad_12xlarge 
      | C5ad_16xlarge 
      | C5ad_24xlarge 
      | C5d_large 
      | C5d_xlarge 
      | C5d_2xlarge 
      | C5d_4xlarge 
      | C5d_9xlarge 
      | C5d_12xlarge 
      | C5d_18xlarge 
      | C5d_24xlarge 
      | C5d_metal 
      | C5n_large 
      | C5n_xlarge 
      | C5n_2xlarge 
      | C5n_4xlarge 
      | C5n_9xlarge 
      | C5n_18xlarge 
      | C5n_metal 
      | C6g_medium 
      | C6g_large 
      | C6g_xlarge 
      | C6g_2xlarge 
      | C6g_4xlarge 
      | C6g_8xlarge 
      | C6g_12xlarge 
      | C6g_16xlarge 
      | C6g_metal 
      | C6gd_medium 
      | C6gd_large 
      | C6gd_xlarge 
      | C6gd_2xlarge 
      | C6gd_4xlarge 
      | C6gd_8xlarge 
      | C6gd_12xlarge 
      | C6gd_16xlarge 
      | C6gd_metal 
      | C6gn_medium 
      | C6gn_large 
      | C6gn_xlarge 
      | C6gn_2xlarge 
      | C6gn_4xlarge 
      | C6gn_8xlarge 
      | C6gn_12xlarge 
      | C6gn_16xlarge 
      | C6i_large 
      | C6i_xlarge 
      | C6i_2xlarge 
      | C6i_4xlarge 
      | C6i_8xlarge 
      | C6i_12xlarge 
      | C6i_16xlarge 
      | C6i_24xlarge 
      | C6i_32xlarge 
      | C6i_metal 
      | Cc1_4xlarge 
      | Cc2_8xlarge 
      | Cg1_4xlarge 
      | Cr1_8xlarge 
      | D2_xlarge 
      | D2_2xlarge 
      | D2_4xlarge 
      | D2_8xlarge 
      | D3_xlarge 
      | D3_2xlarge 
      | D3_4xlarge 
      | D3_8xlarge 
      | D3en_xlarge 
      | D3en_2xlarge 
      | D3en_4xlarge 
      | D3en_6xlarge 
      | D3en_8xlarge 
      | D3en_12xlarge 
      | Dl1_24xlarge 
      | F1_2xlarge 
      | F1_4xlarge 
      | F1_16xlarge 
      | G2_2xlarge 
      | G2_8xlarge 
      | G3_4xlarge 
      | G3_8xlarge 
      | G3_16xlarge 
      | G3s_xlarge 
      | G4ad_xlarge 
      | G4ad_2xlarge 
      | G4ad_4xlarge 
      | G4ad_8xlarge 
      | G4ad_16xlarge 
      | G4dn_xlarge 
      | G4dn_2xlarge 
      | G4dn_4xlarge 
      | G4dn_8xlarge 
      | G4dn_12xlarge 
      | G4dn_16xlarge 
      | G4dn_metal 
      | G5_xlarge 
      | G5_2xlarge 
      | G5_4xlarge 
      | G5_8xlarge 
      | G5_12xlarge 
      | G5_16xlarge 
      | G5_24xlarge 
      | G5_48xlarge 
      | G5g_xlarge 
      | G5g_2xlarge 
      | G5g_4xlarge 
      | G5g_8xlarge 
      | G5g_16xlarge 
      | G5g_metal 
      | Hi1_4xlarge 
      | Hpc6a_48xlarge 
      | Hs1_8xlarge 
      | H1_2xlarge 
      | H1_4xlarge 
      | H1_8xlarge 
      | H1_16xlarge 
      | I2_xlarge 
      | I2_2xlarge 
      | I2_4xlarge 
      | I2_8xlarge 
      | I3_large 
      | I3_xlarge 
      | I3_2xlarge 
      | I3_4xlarge 
      | I3_8xlarge 
      | I3_16xlarge 
      | I3_metal 
      | I3en_large 
      | I3en_xlarge 
      | I3en_2xlarge 
      | I3en_3xlarge 
      | I3en_6xlarge 
      | I3en_12xlarge 
      | I3en_24xlarge 
      | I3en_metal 
      | Im4gn_large 
      | Im4gn_xlarge 
      | Im4gn_2xlarge 
      | Im4gn_4xlarge 
      | Im4gn_8xlarge 
      | Im4gn_16xlarge 
      | Inf1_xlarge 
      | Inf1_2xlarge 
      | Inf1_6xlarge 
      | Inf1_24xlarge 
      | Is4gen_medium 
      | Is4gen_large 
      | Is4gen_xlarge 
      | Is4gen_2xlarge 
      | Is4gen_4xlarge 
      | Is4gen_8xlarge 
      | M1_small 
      | M1_medium 
      | M1_large 
      | M1_xlarge 
      | M2_xlarge 
      | M2_2xlarge 
      | M2_4xlarge 
      | M3_medium 
      | M3_large 
      | M3_xlarge 
      | M3_2xlarge 
      | M4_large 
      | M4_xlarge 
      | M4_2xlarge 
      | M4_4xlarge 
      | M4_10xlarge 
      | M4_16xlarge 
      | M5_large 
      | M5_xlarge 
      | M5_2xlarge 
      | M5_4xlarge 
      | M5_8xlarge 
      | M5_12xlarge 
      | M5_16xlarge 
      | M5_24xlarge 
      | M5_metal 
      | M5a_large 
      | M5a_xlarge 
      | M5a_2xlarge 
      | M5a_4xlarge 
      | M5a_8xlarge 
      | M5a_12xlarge 
      | M5a_16xlarge 
      | M5a_24xlarge 
      | M5ad_large 
      | M5ad_xlarge 
      | M5ad_2xlarge 
      | M5ad_4xlarge 
      | M5ad_8xlarge 
      | M5ad_12xlarge 
      | M5ad_16xlarge 
      | M5ad_24xlarge 
      | M5d_large 
      | M5d_xlarge 
      | M5d_2xlarge 
      | M5d_4xlarge 
      | M5d_8xlarge 
      | M5d_12xlarge 
      | M5d_16xlarge 
      | M5d_24xlarge 
      | M5d_metal 
      | M5dn_large 
      | M5dn_xlarge 
      | M5dn_2xlarge 
      | M5dn_4xlarge 
      | M5dn_8xlarge 
      | M5dn_12xlarge 
      | M5dn_16xlarge 
      | M5dn_24xlarge 
      | M5dn_metal 
      | M5n_large 
      | M5n_xlarge 
      | M5n_2xlarge 
      | M5n_4xlarge 
      | M5n_8xlarge 
      | M5n_12xlarge 
      | M5n_16xlarge 
      | M5n_24xlarge 
      | M5n_metal 
      | M5zn_large 
      | M5zn_xlarge 
      | M5zn_2xlarge 
      | M5zn_3xlarge 
      | M5zn_6xlarge 
      | M5zn_12xlarge 
      | M5zn_metal 
      | M6a_large 
      | M6a_xlarge 
      | M6a_2xlarge 
      | M6a_4xlarge 
      | M6a_8xlarge 
      | M6a_12xlarge 
      | M6a_16xlarge 
      | M6a_24xlarge 
      | M6a_32xlarge 
      | M6a_48xlarge 
      | M6g_metal 
      | M6g_medium 
      | M6g_large 
      | M6g_xlarge 
      | M6g_2xlarge 
      | M6g_4xlarge 
      | M6g_8xlarge 
      | M6g_12xlarge 
      | M6g_16xlarge 
      | M6gd_metal 
      | M6gd_medium 
      | M6gd_large 
      | M6gd_xlarge 
      | M6gd_2xlarge 
      | M6gd_4xlarge 
      | M6gd_8xlarge 
      | M6gd_12xlarge 
      | M6gd_16xlarge 
      | M6i_large 
      | M6i_xlarge 
      | M6i_2xlarge 
      | M6i_4xlarge 
      | M6i_8xlarge 
      | M6i_12xlarge 
      | M6i_16xlarge 
      | M6i_24xlarge 
      | M6i_32xlarge 
      | M6i_metal 
      | Mac1_metal 
      | P2_xlarge 
      | P2_8xlarge 
      | P2_16xlarge 
      | P3_2xlarge 
      | P3_8xlarge 
      | P3_16xlarge 
      | P3dn_24xlarge 
      | P4d_24xlarge 
      | R3_large 
      | R3_xlarge 
      | R3_2xlarge 
      | R3_4xlarge 
      | R3_8xlarge 
      | R4_large 
      | R4_xlarge 
      | R4_2xlarge 
      | R4_4xlarge 
      | R4_8xlarge 
      | R4_16xlarge 
      | R5_large 
      | R5_xlarge 
      | R5_2xlarge 
      | R5_4xlarge 
      | R5_8xlarge 
      | R5_12xlarge 
      | R5_16xlarge 
      | R5_24xlarge 
      | R5_metal 
      | R5a_large 
      | R5a_xlarge 
      | R5a_2xlarge 
      | R5a_4xlarge 
      | R5a_8xlarge 
      | R5a_12xlarge 
      | R5a_16xlarge 
      | R5a_24xlarge 
      | R5ad_large 
      | R5ad_xlarge 
      | R5ad_2xlarge 
      | R5ad_4xlarge 
      | R5ad_8xlarge 
      | R5ad_12xlarge 
      | R5ad_16xlarge 
      | R5ad_24xlarge 
      | R5b_large 
      | R5b_xlarge 
      | R5b_2xlarge 
      | R5b_4xlarge 
      | R5b_8xlarge 
      | R5b_12xlarge 
      | R5b_16xlarge 
      | R5b_24xlarge 
      | R5b_metal 
      | R5d_large 
      | R5d_xlarge 
      | R5d_2xlarge 
      | R5d_4xlarge 
      | R5d_8xlarge 
      | R5d_12xlarge 
      | R5d_16xlarge 
      | R5d_24xlarge 
      | R5d_metal 
      | R5dn_large 
      | R5dn_xlarge 
      | R5dn_2xlarge 
      | R5dn_4xlarge 
      | R5dn_8xlarge 
      | R5dn_12xlarge 
      | R5dn_16xlarge 
      | R5dn_24xlarge 
      | R5dn_metal 
      | R5n_large 
      | R5n_xlarge 
      | R5n_2xlarge 
      | R5n_4xlarge 
      | R5n_8xlarge 
      | R5n_12xlarge 
      | R5n_16xlarge 
      | R5n_24xlarge 
      | R5n_metal 
      | R6g_medium 
      | R6g_large 
      | R6g_xlarge 
      | R6g_2xlarge 
      | R6g_4xlarge 
      | R6g_8xlarge 
      | R6g_12xlarge 
      | R6g_16xlarge 
      | R6g_metal 
      | R6gd_medium 
      | R6gd_large 
      | R6gd_xlarge 
      | R6gd_2xlarge 
      | R6gd_4xlarge 
      | R6gd_8xlarge 
      | R6gd_12xlarge 
      | R6gd_16xlarge 
      | R6gd_metal 
      | R6i_large 
      | R6i_xlarge 
      | R6i_2xlarge 
      | R6i_4xlarge 
      | R6i_8xlarge 
      | R6i_12xlarge 
      | R6i_16xlarge 
      | R6i_24xlarge 
      | R6i_32xlarge 
      | R6i_metal 
      | T1_micro 
      | T2_nano 
      | T2_micro 
      | T2_small 
      | T2_medium 
      | T2_large 
      | T2_xlarge 
      | T2_2xlarge 
      | T3_nano 
      | T3_micro 
      | T3_small 
      | T3_medium 
      | T3_large 
      | T3_xlarge 
      | T3_2xlarge 
      | T3a_nano 
      | T3a_micro 
      | T3a_small 
      | T3a_medium 
      | T3a_large 
      | T3a_xlarge 
      | T3a_2xlarge 
      | T4g_nano 
      | T4g_micro 
      | T4g_small 
      | T4g_medium 
      | T4g_large 
      | T4g_xlarge 
      | T4g_2xlarge 
      | U_6tb1_56xlarge 
      | U_6tb1_112xlarge 
      | U_9tb1_112xlarge 
      | U_12tb1_112xlarge 
      | U_6tb1_metal 
      | U_9tb1_metal 
      | U_12tb1_metal 
      | U_18tb1_metal 
      | U_24tb1_metal 
      | Vt1_3xlarge 
      | Vt1_6xlarge 
      | Vt1_24xlarge 
      | X1_16xlarge 
      | X1_32xlarge 
      | X1e_xlarge 
      | X1e_2xlarge 
      | X1e_4xlarge 
      | X1e_8xlarge 
      | X1e_16xlarge 
      | X1e_32xlarge 
      | X2iezn_2xlarge 
      | X2iezn_4xlarge 
      | X2iezn_6xlarge 
      | X2iezn_8xlarge 
      | X2iezn_12xlarge 
      | X2iezn_metal 
      | X2gd_medium 
      | X2gd_large 
      | X2gd_xlarge 
      | X2gd_2xlarge 
      | X2gd_4xlarge 
      | X2gd_8xlarge 
      | X2gd_12xlarge 
      | X2gd_16xlarge 
      | X2gd_metal 
      | Z1d_large 
      | Z1d_xlarge 
      | Z1d_2xlarge 
      | Z1d_3xlarge 
      | Z1d_6xlarge 
      | Z1d_12xlarge 
      | Z1d_metal 
      | X2idn_16xlarge 
      | X2idn_24xlarge 
      | X2idn_32xlarge 
      | X2iedn_xlarge 
      | X2iedn_2xlarge 
      | X2iedn_4xlarge 
      | X2iedn_8xlarge 
      | X2iedn_16xlarge 
      | X2iedn_24xlarge 
      | X2iedn_32xlarge 
      | C6a_large 
      | C6a_xlarge 
      | C6a_2xlarge 
      | C6a_4xlarge 
      | C6a_8xlarge 
      | C6a_12xlarge 
      | C6a_16xlarge 
      | C6a_24xlarge 
      | C6a_32xlarge 
      | C6a_48xlarge 
      | C6a_metal 
      | M6a_metal 
      | I4i_large 
      | I4i_xlarge 
      | I4i_2xlarge 
      | I4i_4xlarge 
      | I4i_8xlarge 
      | I4i_16xlarge 
      | I4i_32xlarge 
      | I4i_metal 
      | X2idn_metal 
      | X2iedn_metal 
      | C7g_medium 
      | C7g_large 
      | C7g_xlarge 
      | C7g_2xlarge 
      | C7g_4xlarge 
      | C7g_8xlarge 
      | C7g_12xlarge 
      | C7g_16xlarge 
      | Mac2_metal 
      | C6id_large 
      | C6id_xlarge 
      | C6id_2xlarge 
      | C6id_4xlarge 
      | C6id_8xlarge 
      | C6id_12xlarge 
      | C6id_16xlarge 
      | C6id_24xlarge 
      | C6id_32xlarge 
      | C6id_metal 
      | M6id_large 
      | M6id_xlarge 
      | M6id_2xlarge 
      | M6id_4xlarge 
      | M6id_8xlarge 
      | M6id_12xlarge 
      | M6id_16xlarge 
      | M6id_24xlarge 
      | M6id_32xlarge 
      | M6id_metal 
      | R6id_large 
      | R6id_xlarge 
      | R6id_2xlarge 
      | R6id_4xlarge 
      | R6id_8xlarge 
      | R6id_12xlarge 
      | R6id_16xlarge 
      | R6id_24xlarge 
      | R6id_32xlarge 
      | R6id_metal 
      | R6a_large 
      | R6a_xlarge 
      | R6a_2xlarge 
      | R6a_4xlarge 
      | R6a_8xlarge 
      | R6a_12xlarge 
      | R6a_16xlarge 
      | R6a_24xlarge 
      | R6a_32xlarge 
      | R6a_48xlarge 
      | R6a_metal 
      | P4de_24xlarge 
      | U_3tb1_56xlarge 
      | U_18tb1_112xlarge 
      | U_24tb1_112xlarge 
      | Trn1_2xlarge 
      | Trn1_32xlarge 
      | Hpc6id_32xlarge 
      | C6in_large 
      | C6in_xlarge 
      | C6in_2xlarge 
      | C6in_4xlarge 
      | C6in_8xlarge 
      | C6in_12xlarge 
      | C6in_16xlarge 
      | C6in_24xlarge 
      | C6in_32xlarge 
      | M6in_large 
      | M6in_xlarge 
      | M6in_2xlarge 
      | M6in_4xlarge 
      | M6in_8xlarge 
      | M6in_12xlarge 
      | M6in_16xlarge 
      | M6in_24xlarge 
      | M6in_32xlarge 
      | M6idn_large 
      | M6idn_xlarge 
      | M6idn_2xlarge 
      | M6idn_4xlarge 
      | M6idn_8xlarge 
      | M6idn_12xlarge 
      | M6idn_16xlarge 
      | M6idn_24xlarge 
      | M6idn_32xlarge 
      | R6in_large 
      | R6in_xlarge 
      | R6in_2xlarge 
      | R6in_4xlarge 
      | R6in_8xlarge 
      | R6in_12xlarge 
      | R6in_16xlarge 
      | R6in_24xlarge 
      | R6in_32xlarge 
      | R6idn_large 
      | R6idn_xlarge 
      | R6idn_2xlarge 
      | R6idn_4xlarge 
      | R6idn_8xlarge 
      | R6idn_12xlarge 
      | R6idn_16xlarge 
      | R6idn_24xlarge 
      | R6idn_32xlarge 
      | C7g_metal 
      | M7g_medium 
      | M7g_large 
      | M7g_xlarge 
      | M7g_2xlarge 
      | M7g_4xlarge 
      | M7g_8xlarge 
      | M7g_12xlarge 
      | M7g_16xlarge 
      | M7g_metal 
      | R7g_medium 
      | R7g_large 
      | R7g_xlarge 
      | R7g_2xlarge 
      | R7g_4xlarge 
      | R7g_8xlarge 
      | R7g_12xlarge 
      | R7g_16xlarge 
      | R7g_metal 
      | C6in_metal 
      | M6in_metal 
      | M6idn_metal 
      | R6in_metal 
      | R6idn_metal 
      | Inf2_xlarge 
      | Inf2_8xlarge 
      | Inf2_24xlarge 
      | Inf2_48xlarge 
      | Trn1n_32xlarge 
      | I4g_large 
      | I4g_xlarge 
      | I4g_2xlarge 
      | I4g_4xlarge 
      | I4g_8xlarge 
      | I4g_16xlarge 
      | Hpc7g_4xlarge 
      | Hpc7g_8xlarge 
      | Hpc7g_16xlarge 
      | C7gn_medium 
      | C7gn_large 
      | C7gn_xlarge 
      | C7gn_2xlarge 
      | C7gn_4xlarge 
      | C7gn_8xlarge 
      | C7gn_12xlarge 
      | C7gn_16xlarge 
      | P5_48xlarge 
      | M7i_large 
      | M7i_xlarge 
      | M7i_2xlarge 
      | M7i_4xlarge 
      | M7i_8xlarge 
      | M7i_12xlarge 
      | M7i_16xlarge 
      | M7i_24xlarge 
      | M7i_48xlarge 
      | M7i_flex_large 
      | M7i_flex_xlarge 
      | M7i_flex_2xlarge 
      | M7i_flex_4xlarge 
      | M7i_flex_8xlarge 
      | M7a_medium 
      | M7a_large 
      | M7a_xlarge 
      | M7a_2xlarge 
      | M7a_4xlarge 
      | M7a_8xlarge 
      | M7a_12xlarge 
      | M7a_16xlarge 
      | M7a_24xlarge 
      | M7a_32xlarge 
      | M7a_48xlarge 
      | M7a_metal_48xl 
      | Hpc7a_12xlarge 
      | Hpc7a_24xlarge 
      | Hpc7a_48xlarge 
      | Hpc7a_96xlarge 
      | C7gd_medium 
      | C7gd_large 
      | C7gd_xlarge 
      | C7gd_2xlarge 
      | C7gd_4xlarge 
      | C7gd_8xlarge 
      | C7gd_12xlarge 
      | C7gd_16xlarge 
      | M7gd_medium 
      | M7gd_large 
      | M7gd_xlarge 
      | M7gd_2xlarge 
      | M7gd_4xlarge 
      | M7gd_8xlarge 
      | M7gd_12xlarge 
      | M7gd_16xlarge 
      | R7gd_medium 
      | R7gd_large 
      | R7gd_xlarge 
      | R7gd_2xlarge 
      | R7gd_4xlarge 
      | R7gd_8xlarge 
      | R7gd_12xlarge 
      | R7gd_16xlarge 
      | R7a_medium 
      | R7a_large 
      | R7a_xlarge 
      | R7a_2xlarge 
      | R7a_4xlarge 
      | R7a_8xlarge 
      | R7a_12xlarge 
      | R7a_16xlarge 
      | R7a_24xlarge 
      | R7a_32xlarge 
      | R7a_48xlarge 
      | C7i_large 
      | C7i_xlarge 
      | C7i_2xlarge 
      | C7i_4xlarge 
      | C7i_8xlarge 
      | C7i_12xlarge 
      | C7i_16xlarge 
      | C7i_24xlarge 
      | C7i_48xlarge 
      | Mac2_m2pro_metal 
      | R7iz_large 
      | R7iz_xlarge 
      | R7iz_2xlarge 
      | R7iz_4xlarge 
      | R7iz_8xlarge 
      | R7iz_12xlarge 
      | R7iz_16xlarge 
      | R7iz_32xlarge 
      | C7a_medium 
      | C7a_large 
      | C7a_xlarge 
      | C7a_2xlarge 
      | C7a_4xlarge 
      | C7a_8xlarge 
      | C7a_12xlarge 
      | C7a_16xlarge 
      | C7a_24xlarge 
      | C7a_32xlarge 
      | C7a_48xlarge 
      | C7a_metal_48xl 
      | R7a_metal_48xl 
      | R7i_large 
      | R7i_xlarge 
      | R7i_2xlarge 
      | R7i_4xlarge 
      | R7i_8xlarge 
      | R7i_12xlarge 
      | R7i_16xlarge 
      | R7i_24xlarge 
      | R7i_48xlarge 
      | Dl2q_24xlarge 
      | Mac2_m2_metal 
      | I4i_12xlarge 
      | I4i_24xlarge 
      | C7i_metal_24xl 
      | C7i_metal_48xl 
      | M7i_metal_24xl 
      | M7i_metal_48xl 
      | R7i_metal_24xl 
      | R7i_metal_48xl 
      | R7iz_metal_16xl 
      | R7iz_metal_32xl 
      | C7gd_metal 
      | M7gd_metal 
      | R7gd_metal 
      | G6_xlarge 
      | G6_2xlarge 
      | G6_4xlarge 
      | G6_8xlarge 
      | G6_12xlarge 
      | G6_16xlarge 
      | G6_24xlarge 
      | G6_48xlarge 
      | Gr6_4xlarge 
      | Gr6_8xlarge 
      | C7i_flex_large 
      | C7i_flex_xlarge 
      | C7i_flex_2xlarge 
      | C7i_flex_4xlarge 
      | C7i_flex_8xlarge 
      | U7i_12tb_224xlarge 
      | U7in_16tb_224xlarge 
      | U7in_24tb_224xlarge 
      | U7in_32tb_224xlarge 
      | U7ib_12tb_224xlarge 
      | C7gn_metal 
      | R8g_medium 
      | R8g_large 
      | R8g_xlarge 
      | R8g_2xlarge 
      | R8g_4xlarge 
      | R8g_8xlarge 
      | R8g_12xlarge 
      | R8g_16xlarge 
      | R8g_24xlarge 
      | R8g_48xlarge 
      | R8g_metal_24xl 
      | R8g_metal_48xl 
      | Mac2_m1ultra_metal 
      | G6e_xlarge 
      | G6e_2xlarge 
      | G6e_4xlarge 
      | G6e_8xlarge 
      | G6e_12xlarge 
      | G6e_16xlarge 
      | G6e_24xlarge 
      | G6e_48xlarge 
      | C8g_medium 
      | C8g_large 
      | C8g_xlarge 
      | C8g_2xlarge 
      | C8g_4xlarge 
      | C8g_8xlarge 
      | C8g_12xlarge 
      | C8g_16xlarge 
      | C8g_24xlarge 
      | C8g_48xlarge 
      | C8g_metal_24xl 
      | C8g_metal_48xl 
      | M8g_medium 
      | M8g_large 
      | M8g_xlarge 
      | M8g_2xlarge 
      | M8g_4xlarge 
      | M8g_8xlarge 
      | M8g_12xlarge 
      | M8g_16xlarge 
      | M8g_24xlarge 
      | M8g_48xlarge 
      | M8g_metal_24xl 
      | M8g_metal_48xl 
      | X8g_medium 
      | X8g_large 
      | X8g_xlarge 
      | X8g_2xlarge 
      | X8g_4xlarge 
      | X8g_8xlarge 
      | X8g_12xlarge 
      | X8g_16xlarge 
      | X8g_24xlarge 
      | X8g_48xlarge 
      | X8g_metal_24xl 
      | X8g_metal_48xl 
      | I7ie_large 
      | I7ie_xlarge 
      | I7ie_2xlarge 
      | I7ie_3xlarge 
      | I7ie_6xlarge 
      | I7ie_12xlarge 
      | I7ie_18xlarge 
      | I7ie_24xlarge 
      | I7ie_48xlarge 
      | I8g_large 
      | I8g_xlarge 
      | I8g_2xlarge 
      | I8g_4xlarge 
      | I8g_8xlarge 
      | I8g_12xlarge 
      | I8g_16xlarge 
      | I8g_24xlarge 
      | I8g_metal_24xl 
      | U7i_6tb_112xlarge 
      | U7i_8tb_112xlarge 
      | U7inh_32tb_480xlarge 
      | P5e_48xlarge 
      | P5en_48xlarge 
      | F2_12xlarge 
      | F2_48xlarge 
      | Trn2_48xlarge 
      | C7i_flex_12xlarge 
      | C7i_flex_16xlarge 
      | M7i_flex_12xlarge 
      | M7i_flex_16xlarge 
      | I7ie_metal_24xl 
      | I7ie_metal_48xl 
      | I8g_48xlarge 
      | C8gd_medium 
      | C8gd_large 
      | C8gd_xlarge 
      | C8gd_2xlarge 
      | C8gd_4xlarge 
      | C8gd_8xlarge 
      | C8gd_12xlarge 
      | C8gd_16xlarge 
      | C8gd_24xlarge 
      | C8gd_48xlarge 
      | C8gd_metal_24xl 
      | C8gd_metal_48xl 
      | I7i_large 
      | I7i_xlarge 
      | I7i_2xlarge 
      | I7i_4xlarge 
      | I7i_8xlarge 
      | I7i_12xlarge 
      | I7i_16xlarge 
      | I7i_24xlarge 
      | I7i_48xlarge 
      | I7i_metal_24xl 
      | I7i_metal_48xl 
      | P6_b200_48xlarge 
      | M8gd_medium 
      | M8gd_large 
      | M8gd_xlarge 
      | M8gd_2xlarge 
      | M8gd_4xlarge 
      | M8gd_8xlarge 
      | M8gd_12xlarge 
      | M8gd_16xlarge 
      | M8gd_24xlarge 
      | M8gd_48xlarge 
      | M8gd_metal_24xl 
      | M8gd_metal_48xl 
      | R8gd_medium 
      | R8gd_large 
      | R8gd_xlarge 
      | R8gd_2xlarge 
      | R8gd_4xlarge 
      | R8gd_8xlarge 
      | R8gd_12xlarge 
      | R8gd_16xlarge 
      | R8gd_24xlarge 
      | R8gd_48xlarge 
      | R8gd_metal_24xl 
      | R8gd_metal_48xl 
      | C8gn_medium 
      | C8gn_large 
      | C8gn_xlarge 
      | C8gn_2xlarge 
      | C8gn_4xlarge 
      | C8gn_8xlarge 
      | C8gn_12xlarge 
      | C8gn_16xlarge 
      | C8gn_24xlarge 
      | C8gn_48xlarge 
      | C8gn_metal_24xl 
      | C8gn_metal_48xl 
      | F2_6xlarge 
      | P6e_gb200_36xlarge 
      | G6f_large 
      | G6f_xlarge 
      | G6f_2xlarge 
      | G6f_4xlarge 
      | Gr6f_4xlarge 
      | P5_4xlarge 
      | R8i_large 
      | R8i_xlarge 
      | R8i_2xlarge 
      | R8i_4xlarge 
      | R8i_8xlarge 
      | R8i_12xlarge 
      | R8i_16xlarge 
      | R8i_24xlarge 
      | R8i_32xlarge 
      | R8i_48xlarge 
      | R8i_96xlarge 
      | R8i_metal_48xl 
      | R8i_metal_96xl 
      | R8i_flex_large 
      | R8i_flex_xlarge 
      | R8i_flex_2xlarge 
      | R8i_flex_4xlarge 
      | R8i_flex_8xlarge 
      | R8i_flex_12xlarge 
      | R8i_flex_16xlarge 
      | M8i_large 
      | M8i_xlarge 
      | M8i_2xlarge 
      | M8i_4xlarge 
      | M8i_8xlarge 
      | M8i_12xlarge 
      | M8i_16xlarge 
      | M8i_24xlarge 
      | M8i_32xlarge 
      | M8i_48xlarge 
      | M8i_96xlarge 
      | M8i_metal_48xl 
      | M8i_metal_96xl 
      | M8i_flex_large 
      | M8i_flex_xlarge 
      | M8i_flex_2xlarge 
      | M8i_flex_4xlarge 
      | M8i_flex_8xlarge 
      | M8i_flex_12xlarge 
      | M8i_flex_16xlarge 
      | I8ge_large 
      | I8ge_xlarge 
      | I8ge_2xlarge 
      | I8ge_3xlarge 
      | I8ge_6xlarge 
      | I8ge_12xlarge 
      | I8ge_18xlarge 
      | I8ge_24xlarge 
      | I8ge_48xlarge 
      | I8ge_metal_24xl 
      | I8ge_metal_48xl 
      | Mac_m4_metal 
      | Mac_m4pro_metal 
      | R8gn_medium 
      | R8gn_large 
      | R8gn_xlarge 
      | R8gn_2xlarge 
      | R8gn_4xlarge 
      | R8gn_8xlarge 
      | R8gn_12xlarge 
      | R8gn_16xlarge 
      | R8gn_24xlarge 
      | R8gn_48xlarge 
      | R8gn_metal_24xl 
      | R8gn_metal_48xl 
      | C8i_large 
      | C8i_xlarge 
      | C8i_2xlarge 
      | C8i_4xlarge 
      | C8i_8xlarge 
      | C8i_12xlarge 
      | C8i_16xlarge 
      | C8i_24xlarge 
      | C8i_32xlarge 
      | C8i_48xlarge 
      | C8i_96xlarge 
      | C8i_metal_48xl 
      | C8i_metal_96xl 
      | C8i_flex_large 
      | C8i_flex_xlarge 
      | C8i_flex_2xlarge 
      | C8i_flex_4xlarge 
      | C8i_flex_8xlarge 
      | C8i_flex_12xlarge 
      | C8i_flex_16xlarge 
      | R8gb_medium 
      | R8gb_large 
      | R8gb_xlarge 
      | R8gb_2xlarge 
      | R8gb_4xlarge 
      | R8gb_8xlarge 
      | R8gb_12xlarge 
      | R8gb_16xlarge 
      | R8gb_24xlarge 
      | R8gb_metal_24xl 
      | M8a_medium 
      | M8a_large 
      | M8a_xlarge 
      | M8a_2xlarge 
      | M8a_4xlarge 
      | M8a_8xlarge 
      | M8a_12xlarge 
      | M8a_16xlarge 
      | M8a_24xlarge 
      | M8a_48xlarge 
      | M8a_metal_24xl 
      | M8a_metal_48xl 
      | Trn2_3xlarge 
      | R8a_medium 
      | R8a_large 
      | R8a_xlarge 
      | R8a_2xlarge 
      | R8a_4xlarge 
      | R8a_8xlarge 
      | R8a_12xlarge 
      | R8a_16xlarge 
      | R8a_24xlarge 
      | R8a_48xlarge 
      | R8a_metal_24xl 
      | R8a_metal_48xl 
      | P6_b300_48xlarge 
      | C8a_medium 
      | C8a_large 
      | C8a_xlarge 
      | C8a_2xlarge 
      | C8a_4xlarge 
      | C8a_8xlarge 
      | C8a_12xlarge 
      | C8a_16xlarge 
      | C8a_24xlarge 
      | C8a_48xlarge 
      | C8a_metal_24xl 
      | C8a_metal_48xl 
      | C8gb_12xlarge 
      | C8gb_16xlarge 
      | C8gb_24xlarge 
      | C8gb_2xlarge 
      | C8gb_4xlarge 
      | C8gb_8xlarge 
      | C8gb_large 
      | C8gb_medium 
      | C8gb_metal_24xl 
      | C8gb_xlarge 
      | C8gb_48xlarge 
      | C8gb_metal_48xl 
      | M8gb_12xlarge 
      | M8gb_16xlarge 
      | M8gb_24xlarge 
      | M8gb_2xlarge 
      | M8gb_4xlarge 
      | M8gb_8xlarge 
      | M8gb_large 
      | M8gb_medium 
      | M8gb_xlarge 
      | M8gb_48xlarge 
      | M8gb_metal_24xl 
      | M8gb_metal_48xl 
      | M8gn_12xlarge 
      | M8gn_16xlarge 
      | M8gn_24xlarge 
      | M8gn_2xlarge 
      | M8gn_48xlarge 
      | M8gn_4xlarge 
      | M8gn_8xlarge 
      | M8gn_large 
      | M8gn_medium 
      | M8gn_xlarge 
      | M8gn_metal_24xl 
      | M8gn_metal_48xl 
      | X8aedz_12xlarge 
      | X8aedz_24xlarge 
      | X8aedz_3xlarge 
      | X8aedz_6xlarge 
      | X8aedz_large 
      | X8aedz_metal_12xl 
      | X8aedz_metal_24xl 
      | X8aedz_xlarge 
      | M8azn_medium 
      | M8azn_large 
      | M8azn_xlarge 
      | M8azn_3xlarge 
      | M8azn_6xlarge 
      | M8azn_12xlarge 
      | M8azn_24xlarge 
      | M8azn_metal_12xl 
      | M8azn_metal_24xl 
      | X8i_large 
      | X8i_xlarge 
      | X8i_2xlarge 
      | X8i_4xlarge 
      | X8i_8xlarge 
      | X8i_12xlarge 
      | X8i_16xlarge 
      | X8i_24xlarge 
      | X8i_32xlarge 
      | X8i_48xlarge 
      | X8i_64xlarge 
      | X8i_96xlarge 
      | X8i_metal_48xl 
      | X8i_metal_96xl 
      | Mac_m4max_metal 
      | G7e_2xlarge 
      | G7e_4xlarge 
      | G7e_8xlarge 
      | G7e_12xlarge 
      | G7e_24xlarge 
      | G7e_48xlarge 
      | R8id_large 
      | R8id_xlarge 
      | R8id_2xlarge 
      | R8id_4xlarge 
      | R8id_8xlarge 
      | R8id_12xlarge 
      | R8id_16xlarge 
      | R8id_24xlarge 
      | R8id_32xlarge 
      | R8id_48xlarge 
      | R8id_96xlarge 
      | R8id_metal_48xl 
      | R8id_metal_96xl 
      | C8id_large 
      | C8id_xlarge 
      | C8id_2xlarge 
      | C8id_4xlarge 
      | C8id_8xlarge 
      | C8id_12xlarge 
      | C8id_16xlarge 
      | C8id_24xlarge 
      | C8id_32xlarge 
      | C8id_48xlarge 
      | C8id_96xlarge 
      | C8id_metal_48xl 
      | C8id_metal_96xl 
      | M8id_large 
      | M8id_xlarge 
      | M8id_2xlarge 
      | M8id_4xlarge 
      | M8id_8xlarge 
      | M8id_12xlarge 
      | M8id_16xlarge 
      | M8id_24xlarge 
      | M8id_32xlarge 
      | M8id_48xlarge 
      | M8id_96xlarge 
      | M8id_metal_48xl 
      | M8id_metal_96xl 
      | Hpc8a_96xlarge 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | A1_medium -> "a1.medium"
      | A1_large -> "a1.large"
      | A1_xlarge -> "a1.xlarge"
      | A1_2xlarge -> "a1.2xlarge"
      | A1_4xlarge -> "a1.4xlarge"
      | A1_metal -> "a1.metal"
      | C1_medium -> "c1.medium"
      | C1_xlarge -> "c1.xlarge"
      | C3_large -> "c3.large"
      | C3_xlarge -> "c3.xlarge"
      | C3_2xlarge -> "c3.2xlarge"
      | C3_4xlarge -> "c3.4xlarge"
      | C3_8xlarge -> "c3.8xlarge"
      | C4_large -> "c4.large"
      | C4_xlarge -> "c4.xlarge"
      | C4_2xlarge -> "c4.2xlarge"
      | C4_4xlarge -> "c4.4xlarge"
      | C4_8xlarge -> "c4.8xlarge"
      | C5_large -> "c5.large"
      | C5_xlarge -> "c5.xlarge"
      | C5_2xlarge -> "c5.2xlarge"
      | C5_4xlarge -> "c5.4xlarge"
      | C5_9xlarge -> "c5.9xlarge"
      | C5_12xlarge -> "c5.12xlarge"
      | C5_18xlarge -> "c5.18xlarge"
      | C5_24xlarge -> "c5.24xlarge"
      | C5_metal -> "c5.metal"
      | C5a_large -> "c5a.large"
      | C5a_xlarge -> "c5a.xlarge"
      | C5a_2xlarge -> "c5a.2xlarge"
      | C5a_4xlarge -> "c5a.4xlarge"
      | C5a_8xlarge -> "c5a.8xlarge"
      | C5a_12xlarge -> "c5a.12xlarge"
      | C5a_16xlarge -> "c5a.16xlarge"
      | C5a_24xlarge -> "c5a.24xlarge"
      | C5ad_large -> "c5ad.large"
      | C5ad_xlarge -> "c5ad.xlarge"
      | C5ad_2xlarge -> "c5ad.2xlarge"
      | C5ad_4xlarge -> "c5ad.4xlarge"
      | C5ad_8xlarge -> "c5ad.8xlarge"
      | C5ad_12xlarge -> "c5ad.12xlarge"
      | C5ad_16xlarge -> "c5ad.16xlarge"
      | C5ad_24xlarge -> "c5ad.24xlarge"
      | C5d_large -> "c5d.large"
      | C5d_xlarge -> "c5d.xlarge"
      | C5d_2xlarge -> "c5d.2xlarge"
      | C5d_4xlarge -> "c5d.4xlarge"
      | C5d_9xlarge -> "c5d.9xlarge"
      | C5d_12xlarge -> "c5d.12xlarge"
      | C5d_18xlarge -> "c5d.18xlarge"
      | C5d_24xlarge -> "c5d.24xlarge"
      | C5d_metal -> "c5d.metal"
      | C5n_large -> "c5n.large"
      | C5n_xlarge -> "c5n.xlarge"
      | C5n_2xlarge -> "c5n.2xlarge"
      | C5n_4xlarge -> "c5n.4xlarge"
      | C5n_9xlarge -> "c5n.9xlarge"
      | C5n_18xlarge -> "c5n.18xlarge"
      | C5n_metal -> "c5n.metal"
      | C6g_medium -> "c6g.medium"
      | C6g_large -> "c6g.large"
      | C6g_xlarge -> "c6g.xlarge"
      | C6g_2xlarge -> "c6g.2xlarge"
      | C6g_4xlarge -> "c6g.4xlarge"
      | C6g_8xlarge -> "c6g.8xlarge"
      | C6g_12xlarge -> "c6g.12xlarge"
      | C6g_16xlarge -> "c6g.16xlarge"
      | C6g_metal -> "c6g.metal"
      | C6gd_medium -> "c6gd.medium"
      | C6gd_large -> "c6gd.large"
      | C6gd_xlarge -> "c6gd.xlarge"
      | C6gd_2xlarge -> "c6gd.2xlarge"
      | C6gd_4xlarge -> "c6gd.4xlarge"
      | C6gd_8xlarge -> "c6gd.8xlarge"
      | C6gd_12xlarge -> "c6gd.12xlarge"
      | C6gd_16xlarge -> "c6gd.16xlarge"
      | C6gd_metal -> "c6gd.metal"
      | C6gn_medium -> "c6gn.medium"
      | C6gn_large -> "c6gn.large"
      | C6gn_xlarge -> "c6gn.xlarge"
      | C6gn_2xlarge -> "c6gn.2xlarge"
      | C6gn_4xlarge -> "c6gn.4xlarge"
      | C6gn_8xlarge -> "c6gn.8xlarge"
      | C6gn_12xlarge -> "c6gn.12xlarge"
      | C6gn_16xlarge -> "c6gn.16xlarge"
      | C6i_large -> "c6i.large"
      | C6i_xlarge -> "c6i.xlarge"
      | C6i_2xlarge -> "c6i.2xlarge"
      | C6i_4xlarge -> "c6i.4xlarge"
      | C6i_8xlarge -> "c6i.8xlarge"
      | C6i_12xlarge -> "c6i.12xlarge"
      | C6i_16xlarge -> "c6i.16xlarge"
      | C6i_24xlarge -> "c6i.24xlarge"
      | C6i_32xlarge -> "c6i.32xlarge"
      | C6i_metal -> "c6i.metal"
      | Cc1_4xlarge -> "cc1.4xlarge"
      | Cc2_8xlarge -> "cc2.8xlarge"
      | Cg1_4xlarge -> "cg1.4xlarge"
      | Cr1_8xlarge -> "cr1.8xlarge"
      | D2_xlarge -> "d2.xlarge"
      | D2_2xlarge -> "d2.2xlarge"
      | D2_4xlarge -> "d2.4xlarge"
      | D2_8xlarge -> "d2.8xlarge"
      | D3_xlarge -> "d3.xlarge"
      | D3_2xlarge -> "d3.2xlarge"
      | D3_4xlarge -> "d3.4xlarge"
      | D3_8xlarge -> "d3.8xlarge"
      | D3en_xlarge -> "d3en.xlarge"
      | D3en_2xlarge -> "d3en.2xlarge"
      | D3en_4xlarge -> "d3en.4xlarge"
      | D3en_6xlarge -> "d3en.6xlarge"
      | D3en_8xlarge -> "d3en.8xlarge"
      | D3en_12xlarge -> "d3en.12xlarge"
      | Dl1_24xlarge -> "dl1.24xlarge"
      | F1_2xlarge -> "f1.2xlarge"
      | F1_4xlarge -> "f1.4xlarge"
      | F1_16xlarge -> "f1.16xlarge"
      | G2_2xlarge -> "g2.2xlarge"
      | G2_8xlarge -> "g2.8xlarge"
      | G3_4xlarge -> "g3.4xlarge"
      | G3_8xlarge -> "g3.8xlarge"
      | G3_16xlarge -> "g3.16xlarge"
      | G3s_xlarge -> "g3s.xlarge"
      | G4ad_xlarge -> "g4ad.xlarge"
      | G4ad_2xlarge -> "g4ad.2xlarge"
      | G4ad_4xlarge -> "g4ad.4xlarge"
      | G4ad_8xlarge -> "g4ad.8xlarge"
      | G4ad_16xlarge -> "g4ad.16xlarge"
      | G4dn_xlarge -> "g4dn.xlarge"
      | G4dn_2xlarge -> "g4dn.2xlarge"
      | G4dn_4xlarge -> "g4dn.4xlarge"
      | G4dn_8xlarge -> "g4dn.8xlarge"
      | G4dn_12xlarge -> "g4dn.12xlarge"
      | G4dn_16xlarge -> "g4dn.16xlarge"
      | G4dn_metal -> "g4dn.metal"
      | G5_xlarge -> "g5.xlarge"
      | G5_2xlarge -> "g5.2xlarge"
      | G5_4xlarge -> "g5.4xlarge"
      | G5_8xlarge -> "g5.8xlarge"
      | G5_12xlarge -> "g5.12xlarge"
      | G5_16xlarge -> "g5.16xlarge"
      | G5_24xlarge -> "g5.24xlarge"
      | G5_48xlarge -> "g5.48xlarge"
      | G5g_xlarge -> "g5g.xlarge"
      | G5g_2xlarge -> "g5g.2xlarge"
      | G5g_4xlarge -> "g5g.4xlarge"
      | G5g_8xlarge -> "g5g.8xlarge"
      | G5g_16xlarge -> "g5g.16xlarge"
      | G5g_metal -> "g5g.metal"
      | Hi1_4xlarge -> "hi1.4xlarge"
      | Hpc6a_48xlarge -> "hpc6a.48xlarge"
      | Hs1_8xlarge -> "hs1.8xlarge"
      | H1_2xlarge -> "h1.2xlarge"
      | H1_4xlarge -> "h1.4xlarge"
      | H1_8xlarge -> "h1.8xlarge"
      | H1_16xlarge -> "h1.16xlarge"
      | I2_xlarge -> "i2.xlarge"
      | I2_2xlarge -> "i2.2xlarge"
      | I2_4xlarge -> "i2.4xlarge"
      | I2_8xlarge -> "i2.8xlarge"
      | I3_large -> "i3.large"
      | I3_xlarge -> "i3.xlarge"
      | I3_2xlarge -> "i3.2xlarge"
      | I3_4xlarge -> "i3.4xlarge"
      | I3_8xlarge -> "i3.8xlarge"
      | I3_16xlarge -> "i3.16xlarge"
      | I3_metal -> "i3.metal"
      | I3en_large -> "i3en.large"
      | I3en_xlarge -> "i3en.xlarge"
      | I3en_2xlarge -> "i3en.2xlarge"
      | I3en_3xlarge -> "i3en.3xlarge"
      | I3en_6xlarge -> "i3en.6xlarge"
      | I3en_12xlarge -> "i3en.12xlarge"
      | I3en_24xlarge -> "i3en.24xlarge"
      | I3en_metal -> "i3en.metal"
      | Im4gn_large -> "im4gn.large"
      | Im4gn_xlarge -> "im4gn.xlarge"
      | Im4gn_2xlarge -> "im4gn.2xlarge"
      | Im4gn_4xlarge -> "im4gn.4xlarge"
      | Im4gn_8xlarge -> "im4gn.8xlarge"
      | Im4gn_16xlarge -> "im4gn.16xlarge"
      | Inf1_xlarge -> "inf1.xlarge"
      | Inf1_2xlarge -> "inf1.2xlarge"
      | Inf1_6xlarge -> "inf1.6xlarge"
      | Inf1_24xlarge -> "inf1.24xlarge"
      | Is4gen_medium -> "is4gen.medium"
      | Is4gen_large -> "is4gen.large"
      | Is4gen_xlarge -> "is4gen.xlarge"
      | Is4gen_2xlarge -> "is4gen.2xlarge"
      | Is4gen_4xlarge -> "is4gen.4xlarge"
      | Is4gen_8xlarge -> "is4gen.8xlarge"
      | M1_small -> "m1.small"
      | M1_medium -> "m1.medium"
      | M1_large -> "m1.large"
      | M1_xlarge -> "m1.xlarge"
      | M2_xlarge -> "m2.xlarge"
      | M2_2xlarge -> "m2.2xlarge"
      | M2_4xlarge -> "m2.4xlarge"
      | M3_medium -> "m3.medium"
      | M3_large -> "m3.large"
      | M3_xlarge -> "m3.xlarge"
      | M3_2xlarge -> "m3.2xlarge"
      | M4_large -> "m4.large"
      | M4_xlarge -> "m4.xlarge"
      | M4_2xlarge -> "m4.2xlarge"
      | M4_4xlarge -> "m4.4xlarge"
      | M4_10xlarge -> "m4.10xlarge"
      | M4_16xlarge -> "m4.16xlarge"
      | M5_large -> "m5.large"
      | M5_xlarge -> "m5.xlarge"
      | M5_2xlarge -> "m5.2xlarge"
      | M5_4xlarge -> "m5.4xlarge"
      | M5_8xlarge -> "m5.8xlarge"
      | M5_12xlarge -> "m5.12xlarge"
      | M5_16xlarge -> "m5.16xlarge"
      | M5_24xlarge -> "m5.24xlarge"
      | M5_metal -> "m5.metal"
      | M5a_large -> "m5a.large"
      | M5a_xlarge -> "m5a.xlarge"
      | M5a_2xlarge -> "m5a.2xlarge"
      | M5a_4xlarge -> "m5a.4xlarge"
      | M5a_8xlarge -> "m5a.8xlarge"
      | M5a_12xlarge -> "m5a.12xlarge"
      | M5a_16xlarge -> "m5a.16xlarge"
      | M5a_24xlarge -> "m5a.24xlarge"
      | M5ad_large -> "m5ad.large"
      | M5ad_xlarge -> "m5ad.xlarge"
      | M5ad_2xlarge -> "m5ad.2xlarge"
      | M5ad_4xlarge -> "m5ad.4xlarge"
      | M5ad_8xlarge -> "m5ad.8xlarge"
      | M5ad_12xlarge -> "m5ad.12xlarge"
      | M5ad_16xlarge -> "m5ad.16xlarge"
      | M5ad_24xlarge -> "m5ad.24xlarge"
      | M5d_large -> "m5d.large"
      | M5d_xlarge -> "m5d.xlarge"
      | M5d_2xlarge -> "m5d.2xlarge"
      | M5d_4xlarge -> "m5d.4xlarge"
      | M5d_8xlarge -> "m5d.8xlarge"
      | M5d_12xlarge -> "m5d.12xlarge"
      | M5d_16xlarge -> "m5d.16xlarge"
      | M5d_24xlarge -> "m5d.24xlarge"
      | M5d_metal -> "m5d.metal"
      | M5dn_large -> "m5dn.large"
      | M5dn_xlarge -> "m5dn.xlarge"
      | M5dn_2xlarge -> "m5dn.2xlarge"
      | M5dn_4xlarge -> "m5dn.4xlarge"
      | M5dn_8xlarge -> "m5dn.8xlarge"
      | M5dn_12xlarge -> "m5dn.12xlarge"
      | M5dn_16xlarge -> "m5dn.16xlarge"
      | M5dn_24xlarge -> "m5dn.24xlarge"
      | M5dn_metal -> "m5dn.metal"
      | M5n_large -> "m5n.large"
      | M5n_xlarge -> "m5n.xlarge"
      | M5n_2xlarge -> "m5n.2xlarge"
      | M5n_4xlarge -> "m5n.4xlarge"
      | M5n_8xlarge -> "m5n.8xlarge"
      | M5n_12xlarge -> "m5n.12xlarge"
      | M5n_16xlarge -> "m5n.16xlarge"
      | M5n_24xlarge -> "m5n.24xlarge"
      | M5n_metal -> "m5n.metal"
      | M5zn_large -> "m5zn.large"
      | M5zn_xlarge -> "m5zn.xlarge"
      | M5zn_2xlarge -> "m5zn.2xlarge"
      | M5zn_3xlarge -> "m5zn.3xlarge"
      | M5zn_6xlarge -> "m5zn.6xlarge"
      | M5zn_12xlarge -> "m5zn.12xlarge"
      | M5zn_metal -> "m5zn.metal"
      | M6a_large -> "m6a.large"
      | M6a_xlarge -> "m6a.xlarge"
      | M6a_2xlarge -> "m6a.2xlarge"
      | M6a_4xlarge -> "m6a.4xlarge"
      | M6a_8xlarge -> "m6a.8xlarge"
      | M6a_12xlarge -> "m6a.12xlarge"
      | M6a_16xlarge -> "m6a.16xlarge"
      | M6a_24xlarge -> "m6a.24xlarge"
      | M6a_32xlarge -> "m6a.32xlarge"
      | M6a_48xlarge -> "m6a.48xlarge"
      | M6g_metal -> "m6g.metal"
      | M6g_medium -> "m6g.medium"
      | M6g_large -> "m6g.large"
      | M6g_xlarge -> "m6g.xlarge"
      | M6g_2xlarge -> "m6g.2xlarge"
      | M6g_4xlarge -> "m6g.4xlarge"
      | M6g_8xlarge -> "m6g.8xlarge"
      | M6g_12xlarge -> "m6g.12xlarge"
      | M6g_16xlarge -> "m6g.16xlarge"
      | M6gd_metal -> "m6gd.metal"
      | M6gd_medium -> "m6gd.medium"
      | M6gd_large -> "m6gd.large"
      | M6gd_xlarge -> "m6gd.xlarge"
      | M6gd_2xlarge -> "m6gd.2xlarge"
      | M6gd_4xlarge -> "m6gd.4xlarge"
      | M6gd_8xlarge -> "m6gd.8xlarge"
      | M6gd_12xlarge -> "m6gd.12xlarge"
      | M6gd_16xlarge -> "m6gd.16xlarge"
      | M6i_large -> "m6i.large"
      | M6i_xlarge -> "m6i.xlarge"
      | M6i_2xlarge -> "m6i.2xlarge"
      | M6i_4xlarge -> "m6i.4xlarge"
      | M6i_8xlarge -> "m6i.8xlarge"
      | M6i_12xlarge -> "m6i.12xlarge"
      | M6i_16xlarge -> "m6i.16xlarge"
      | M6i_24xlarge -> "m6i.24xlarge"
      | M6i_32xlarge -> "m6i.32xlarge"
      | M6i_metal -> "m6i.metal"
      | Mac1_metal -> "mac1.metal"
      | P2_xlarge -> "p2.xlarge"
      | P2_8xlarge -> "p2.8xlarge"
      | P2_16xlarge -> "p2.16xlarge"
      | P3_2xlarge -> "p3.2xlarge"
      | P3_8xlarge -> "p3.8xlarge"
      | P3_16xlarge -> "p3.16xlarge"
      | P3dn_24xlarge -> "p3dn.24xlarge"
      | P4d_24xlarge -> "p4d.24xlarge"
      | R3_large -> "r3.large"
      | R3_xlarge -> "r3.xlarge"
      | R3_2xlarge -> "r3.2xlarge"
      | R3_4xlarge -> "r3.4xlarge"
      | R3_8xlarge -> "r3.8xlarge"
      | R4_large -> "r4.large"
      | R4_xlarge -> "r4.xlarge"
      | R4_2xlarge -> "r4.2xlarge"
      | R4_4xlarge -> "r4.4xlarge"
      | R4_8xlarge -> "r4.8xlarge"
      | R4_16xlarge -> "r4.16xlarge"
      | R5_large -> "r5.large"
      | R5_xlarge -> "r5.xlarge"
      | R5_2xlarge -> "r5.2xlarge"
      | R5_4xlarge -> "r5.4xlarge"
      | R5_8xlarge -> "r5.8xlarge"
      | R5_12xlarge -> "r5.12xlarge"
      | R5_16xlarge -> "r5.16xlarge"
      | R5_24xlarge -> "r5.24xlarge"
      | R5_metal -> "r5.metal"
      | R5a_large -> "r5a.large"
      | R5a_xlarge -> "r5a.xlarge"
      | R5a_2xlarge -> "r5a.2xlarge"
      | R5a_4xlarge -> "r5a.4xlarge"
      | R5a_8xlarge -> "r5a.8xlarge"
      | R5a_12xlarge -> "r5a.12xlarge"
      | R5a_16xlarge -> "r5a.16xlarge"
      | R5a_24xlarge -> "r5a.24xlarge"
      | R5ad_large -> "r5ad.large"
      | R5ad_xlarge -> "r5ad.xlarge"
      | R5ad_2xlarge -> "r5ad.2xlarge"
      | R5ad_4xlarge -> "r5ad.4xlarge"
      | R5ad_8xlarge -> "r5ad.8xlarge"
      | R5ad_12xlarge -> "r5ad.12xlarge"
      | R5ad_16xlarge -> "r5ad.16xlarge"
      | R5ad_24xlarge -> "r5ad.24xlarge"
      | R5b_large -> "r5b.large"
      | R5b_xlarge -> "r5b.xlarge"
      | R5b_2xlarge -> "r5b.2xlarge"
      | R5b_4xlarge -> "r5b.4xlarge"
      | R5b_8xlarge -> "r5b.8xlarge"
      | R5b_12xlarge -> "r5b.12xlarge"
      | R5b_16xlarge -> "r5b.16xlarge"
      | R5b_24xlarge -> "r5b.24xlarge"
      | R5b_metal -> "r5b.metal"
      | R5d_large -> "r5d.large"
      | R5d_xlarge -> "r5d.xlarge"
      | R5d_2xlarge -> "r5d.2xlarge"
      | R5d_4xlarge -> "r5d.4xlarge"
      | R5d_8xlarge -> "r5d.8xlarge"
      | R5d_12xlarge -> "r5d.12xlarge"
      | R5d_16xlarge -> "r5d.16xlarge"
      | R5d_24xlarge -> "r5d.24xlarge"
      | R5d_metal -> "r5d.metal"
      | R5dn_large -> "r5dn.large"
      | R5dn_xlarge -> "r5dn.xlarge"
      | R5dn_2xlarge -> "r5dn.2xlarge"
      | R5dn_4xlarge -> "r5dn.4xlarge"
      | R5dn_8xlarge -> "r5dn.8xlarge"
      | R5dn_12xlarge -> "r5dn.12xlarge"
      | R5dn_16xlarge -> "r5dn.16xlarge"
      | R5dn_24xlarge -> "r5dn.24xlarge"
      | R5dn_metal -> "r5dn.metal"
      | R5n_large -> "r5n.large"
      | R5n_xlarge -> "r5n.xlarge"
      | R5n_2xlarge -> "r5n.2xlarge"
      | R5n_4xlarge -> "r5n.4xlarge"
      | R5n_8xlarge -> "r5n.8xlarge"
      | R5n_12xlarge -> "r5n.12xlarge"
      | R5n_16xlarge -> "r5n.16xlarge"
      | R5n_24xlarge -> "r5n.24xlarge"
      | R5n_metal -> "r5n.metal"
      | R6g_medium -> "r6g.medium"
      | R6g_large -> "r6g.large"
      | R6g_xlarge -> "r6g.xlarge"
      | R6g_2xlarge -> "r6g.2xlarge"
      | R6g_4xlarge -> "r6g.4xlarge"
      | R6g_8xlarge -> "r6g.8xlarge"
      | R6g_12xlarge -> "r6g.12xlarge"
      | R6g_16xlarge -> "r6g.16xlarge"
      | R6g_metal -> "r6g.metal"
      | R6gd_medium -> "r6gd.medium"
      | R6gd_large -> "r6gd.large"
      | R6gd_xlarge -> "r6gd.xlarge"
      | R6gd_2xlarge -> "r6gd.2xlarge"
      | R6gd_4xlarge -> "r6gd.4xlarge"
      | R6gd_8xlarge -> "r6gd.8xlarge"
      | R6gd_12xlarge -> "r6gd.12xlarge"
      | R6gd_16xlarge -> "r6gd.16xlarge"
      | R6gd_metal -> "r6gd.metal"
      | R6i_large -> "r6i.large"
      | R6i_xlarge -> "r6i.xlarge"
      | R6i_2xlarge -> "r6i.2xlarge"
      | R6i_4xlarge -> "r6i.4xlarge"
      | R6i_8xlarge -> "r6i.8xlarge"
      | R6i_12xlarge -> "r6i.12xlarge"
      | R6i_16xlarge -> "r6i.16xlarge"
      | R6i_24xlarge -> "r6i.24xlarge"
      | R6i_32xlarge -> "r6i.32xlarge"
      | R6i_metal -> "r6i.metal"
      | T1_micro -> "t1.micro"
      | T2_nano -> "t2.nano"
      | T2_micro -> "t2.micro"
      | T2_small -> "t2.small"
      | T2_medium -> "t2.medium"
      | T2_large -> "t2.large"
      | T2_xlarge -> "t2.xlarge"
      | T2_2xlarge -> "t2.2xlarge"
      | T3_nano -> "t3.nano"
      | T3_micro -> "t3.micro"
      | T3_small -> "t3.small"
      | T3_medium -> "t3.medium"
      | T3_large -> "t3.large"
      | T3_xlarge -> "t3.xlarge"
      | T3_2xlarge -> "t3.2xlarge"
      | T3a_nano -> "t3a.nano"
      | T3a_micro -> "t3a.micro"
      | T3a_small -> "t3a.small"
      | T3a_medium -> "t3a.medium"
      | T3a_large -> "t3a.large"
      | T3a_xlarge -> "t3a.xlarge"
      | T3a_2xlarge -> "t3a.2xlarge"
      | T4g_nano -> "t4g.nano"
      | T4g_micro -> "t4g.micro"
      | T4g_small -> "t4g.small"
      | T4g_medium -> "t4g.medium"
      | T4g_large -> "t4g.large"
      | T4g_xlarge -> "t4g.xlarge"
      | T4g_2xlarge -> "t4g.2xlarge"
      | U_6tb1_56xlarge -> "u-6tb1.56xlarge"
      | U_6tb1_112xlarge -> "u-6tb1.112xlarge"
      | U_9tb1_112xlarge -> "u-9tb1.112xlarge"
      | U_12tb1_112xlarge -> "u-12tb1.112xlarge"
      | U_6tb1_metal -> "u-6tb1.metal"
      | U_9tb1_metal -> "u-9tb1.metal"
      | U_12tb1_metal -> "u-12tb1.metal"
      | U_18tb1_metal -> "u-18tb1.metal"
      | U_24tb1_metal -> "u-24tb1.metal"
      | Vt1_3xlarge -> "vt1.3xlarge"
      | Vt1_6xlarge -> "vt1.6xlarge"
      | Vt1_24xlarge -> "vt1.24xlarge"
      | X1_16xlarge -> "x1.16xlarge"
      | X1_32xlarge -> "x1.32xlarge"
      | X1e_xlarge -> "x1e.xlarge"
      | X1e_2xlarge -> "x1e.2xlarge"
      | X1e_4xlarge -> "x1e.4xlarge"
      | X1e_8xlarge -> "x1e.8xlarge"
      | X1e_16xlarge -> "x1e.16xlarge"
      | X1e_32xlarge -> "x1e.32xlarge"
      | X2iezn_2xlarge -> "x2iezn.2xlarge"
      | X2iezn_4xlarge -> "x2iezn.4xlarge"
      | X2iezn_6xlarge -> "x2iezn.6xlarge"
      | X2iezn_8xlarge -> "x2iezn.8xlarge"
      | X2iezn_12xlarge -> "x2iezn.12xlarge"
      | X2iezn_metal -> "x2iezn.metal"
      | X2gd_medium -> "x2gd.medium"
      | X2gd_large -> "x2gd.large"
      | X2gd_xlarge -> "x2gd.xlarge"
      | X2gd_2xlarge -> "x2gd.2xlarge"
      | X2gd_4xlarge -> "x2gd.4xlarge"
      | X2gd_8xlarge -> "x2gd.8xlarge"
      | X2gd_12xlarge -> "x2gd.12xlarge"
      | X2gd_16xlarge -> "x2gd.16xlarge"
      | X2gd_metal -> "x2gd.metal"
      | Z1d_large -> "z1d.large"
      | Z1d_xlarge -> "z1d.xlarge"
      | Z1d_2xlarge -> "z1d.2xlarge"
      | Z1d_3xlarge -> "z1d.3xlarge"
      | Z1d_6xlarge -> "z1d.6xlarge"
      | Z1d_12xlarge -> "z1d.12xlarge"
      | Z1d_metal -> "z1d.metal"
      | X2idn_16xlarge -> "x2idn.16xlarge"
      | X2idn_24xlarge -> "x2idn.24xlarge"
      | X2idn_32xlarge -> "x2idn.32xlarge"
      | X2iedn_xlarge -> "x2iedn.xlarge"
      | X2iedn_2xlarge -> "x2iedn.2xlarge"
      | X2iedn_4xlarge -> "x2iedn.4xlarge"
      | X2iedn_8xlarge -> "x2iedn.8xlarge"
      | X2iedn_16xlarge -> "x2iedn.16xlarge"
      | X2iedn_24xlarge -> "x2iedn.24xlarge"
      | X2iedn_32xlarge -> "x2iedn.32xlarge"
      | C6a_large -> "c6a.large"
      | C6a_xlarge -> "c6a.xlarge"
      | C6a_2xlarge -> "c6a.2xlarge"
      | C6a_4xlarge -> "c6a.4xlarge"
      | C6a_8xlarge -> "c6a.8xlarge"
      | C6a_12xlarge -> "c6a.12xlarge"
      | C6a_16xlarge -> "c6a.16xlarge"
      | C6a_24xlarge -> "c6a.24xlarge"
      | C6a_32xlarge -> "c6a.32xlarge"
      | C6a_48xlarge -> "c6a.48xlarge"
      | C6a_metal -> "c6a.metal"
      | M6a_metal -> "m6a.metal"
      | I4i_large -> "i4i.large"
      | I4i_xlarge -> "i4i.xlarge"
      | I4i_2xlarge -> "i4i.2xlarge"
      | I4i_4xlarge -> "i4i.4xlarge"
      | I4i_8xlarge -> "i4i.8xlarge"
      | I4i_16xlarge -> "i4i.16xlarge"
      | I4i_32xlarge -> "i4i.32xlarge"
      | I4i_metal -> "i4i.metal"
      | X2idn_metal -> "x2idn.metal"
      | X2iedn_metal -> "x2iedn.metal"
      | C7g_medium -> "c7g.medium"
      | C7g_large -> "c7g.large"
      | C7g_xlarge -> "c7g.xlarge"
      | C7g_2xlarge -> "c7g.2xlarge"
      | C7g_4xlarge -> "c7g.4xlarge"
      | C7g_8xlarge -> "c7g.8xlarge"
      | C7g_12xlarge -> "c7g.12xlarge"
      | C7g_16xlarge -> "c7g.16xlarge"
      | Mac2_metal -> "mac2.metal"
      | C6id_large -> "c6id.large"
      | C6id_xlarge -> "c6id.xlarge"
      | C6id_2xlarge -> "c6id.2xlarge"
      | C6id_4xlarge -> "c6id.4xlarge"
      | C6id_8xlarge -> "c6id.8xlarge"
      | C6id_12xlarge -> "c6id.12xlarge"
      | C6id_16xlarge -> "c6id.16xlarge"
      | C6id_24xlarge -> "c6id.24xlarge"
      | C6id_32xlarge -> "c6id.32xlarge"
      | C6id_metal -> "c6id.metal"
      | M6id_large -> "m6id.large"
      | M6id_xlarge -> "m6id.xlarge"
      | M6id_2xlarge -> "m6id.2xlarge"
      | M6id_4xlarge -> "m6id.4xlarge"
      | M6id_8xlarge -> "m6id.8xlarge"
      | M6id_12xlarge -> "m6id.12xlarge"
      | M6id_16xlarge -> "m6id.16xlarge"
      | M6id_24xlarge -> "m6id.24xlarge"
      | M6id_32xlarge -> "m6id.32xlarge"
      | M6id_metal -> "m6id.metal"
      | R6id_large -> "r6id.large"
      | R6id_xlarge -> "r6id.xlarge"
      | R6id_2xlarge -> "r6id.2xlarge"
      | R6id_4xlarge -> "r6id.4xlarge"
      | R6id_8xlarge -> "r6id.8xlarge"
      | R6id_12xlarge -> "r6id.12xlarge"
      | R6id_16xlarge -> "r6id.16xlarge"
      | R6id_24xlarge -> "r6id.24xlarge"
      | R6id_32xlarge -> "r6id.32xlarge"
      | R6id_metal -> "r6id.metal"
      | R6a_large -> "r6a.large"
      | R6a_xlarge -> "r6a.xlarge"
      | R6a_2xlarge -> "r6a.2xlarge"
      | R6a_4xlarge -> "r6a.4xlarge"
      | R6a_8xlarge -> "r6a.8xlarge"
      | R6a_12xlarge -> "r6a.12xlarge"
      | R6a_16xlarge -> "r6a.16xlarge"
      | R6a_24xlarge -> "r6a.24xlarge"
      | R6a_32xlarge -> "r6a.32xlarge"
      | R6a_48xlarge -> "r6a.48xlarge"
      | R6a_metal -> "r6a.metal"
      | P4de_24xlarge -> "p4de.24xlarge"
      | U_3tb1_56xlarge -> "u-3tb1.56xlarge"
      | U_18tb1_112xlarge -> "u-18tb1.112xlarge"
      | U_24tb1_112xlarge -> "u-24tb1.112xlarge"
      | Trn1_2xlarge -> "trn1.2xlarge"
      | Trn1_32xlarge -> "trn1.32xlarge"
      | Hpc6id_32xlarge -> "hpc6id.32xlarge"
      | C6in_large -> "c6in.large"
      | C6in_xlarge -> "c6in.xlarge"
      | C6in_2xlarge -> "c6in.2xlarge"
      | C6in_4xlarge -> "c6in.4xlarge"
      | C6in_8xlarge -> "c6in.8xlarge"
      | C6in_12xlarge -> "c6in.12xlarge"
      | C6in_16xlarge -> "c6in.16xlarge"
      | C6in_24xlarge -> "c6in.24xlarge"
      | C6in_32xlarge -> "c6in.32xlarge"
      | M6in_large -> "m6in.large"
      | M6in_xlarge -> "m6in.xlarge"
      | M6in_2xlarge -> "m6in.2xlarge"
      | M6in_4xlarge -> "m6in.4xlarge"
      | M6in_8xlarge -> "m6in.8xlarge"
      | M6in_12xlarge -> "m6in.12xlarge"
      | M6in_16xlarge -> "m6in.16xlarge"
      | M6in_24xlarge -> "m6in.24xlarge"
      | M6in_32xlarge -> "m6in.32xlarge"
      | M6idn_large -> "m6idn.large"
      | M6idn_xlarge -> "m6idn.xlarge"
      | M6idn_2xlarge -> "m6idn.2xlarge"
      | M6idn_4xlarge -> "m6idn.4xlarge"
      | M6idn_8xlarge -> "m6idn.8xlarge"
      | M6idn_12xlarge -> "m6idn.12xlarge"
      | M6idn_16xlarge -> "m6idn.16xlarge"
      | M6idn_24xlarge -> "m6idn.24xlarge"
      | M6idn_32xlarge -> "m6idn.32xlarge"
      | R6in_large -> "r6in.large"
      | R6in_xlarge -> "r6in.xlarge"
      | R6in_2xlarge -> "r6in.2xlarge"
      | R6in_4xlarge -> "r6in.4xlarge"
      | R6in_8xlarge -> "r6in.8xlarge"
      | R6in_12xlarge -> "r6in.12xlarge"
      | R6in_16xlarge -> "r6in.16xlarge"
      | R6in_24xlarge -> "r6in.24xlarge"
      | R6in_32xlarge -> "r6in.32xlarge"
      | R6idn_large -> "r6idn.large"
      | R6idn_xlarge -> "r6idn.xlarge"
      | R6idn_2xlarge -> "r6idn.2xlarge"
      | R6idn_4xlarge -> "r6idn.4xlarge"
      | R6idn_8xlarge -> "r6idn.8xlarge"
      | R6idn_12xlarge -> "r6idn.12xlarge"
      | R6idn_16xlarge -> "r6idn.16xlarge"
      | R6idn_24xlarge -> "r6idn.24xlarge"
      | R6idn_32xlarge -> "r6idn.32xlarge"
      | C7g_metal -> "c7g.metal"
      | M7g_medium -> "m7g.medium"
      | M7g_large -> "m7g.large"
      | M7g_xlarge -> "m7g.xlarge"
      | M7g_2xlarge -> "m7g.2xlarge"
      | M7g_4xlarge -> "m7g.4xlarge"
      | M7g_8xlarge -> "m7g.8xlarge"
      | M7g_12xlarge -> "m7g.12xlarge"
      | M7g_16xlarge -> "m7g.16xlarge"
      | M7g_metal -> "m7g.metal"
      | R7g_medium -> "r7g.medium"
      | R7g_large -> "r7g.large"
      | R7g_xlarge -> "r7g.xlarge"
      | R7g_2xlarge -> "r7g.2xlarge"
      | R7g_4xlarge -> "r7g.4xlarge"
      | R7g_8xlarge -> "r7g.8xlarge"
      | R7g_12xlarge -> "r7g.12xlarge"
      | R7g_16xlarge -> "r7g.16xlarge"
      | R7g_metal -> "r7g.metal"
      | C6in_metal -> "c6in.metal"
      | M6in_metal -> "m6in.metal"
      | M6idn_metal -> "m6idn.metal"
      | R6in_metal -> "r6in.metal"
      | R6idn_metal -> "r6idn.metal"
      | Inf2_xlarge -> "inf2.xlarge"
      | Inf2_8xlarge -> "inf2.8xlarge"
      | Inf2_24xlarge -> "inf2.24xlarge"
      | Inf2_48xlarge -> "inf2.48xlarge"
      | Trn1n_32xlarge -> "trn1n.32xlarge"
      | I4g_large -> "i4g.large"
      | I4g_xlarge -> "i4g.xlarge"
      | I4g_2xlarge -> "i4g.2xlarge"
      | I4g_4xlarge -> "i4g.4xlarge"
      | I4g_8xlarge -> "i4g.8xlarge"
      | I4g_16xlarge -> "i4g.16xlarge"
      | Hpc7g_4xlarge -> "hpc7g.4xlarge"
      | Hpc7g_8xlarge -> "hpc7g.8xlarge"
      | Hpc7g_16xlarge -> "hpc7g.16xlarge"
      | C7gn_medium -> "c7gn.medium"
      | C7gn_large -> "c7gn.large"
      | C7gn_xlarge -> "c7gn.xlarge"
      | C7gn_2xlarge -> "c7gn.2xlarge"
      | C7gn_4xlarge -> "c7gn.4xlarge"
      | C7gn_8xlarge -> "c7gn.8xlarge"
      | C7gn_12xlarge -> "c7gn.12xlarge"
      | C7gn_16xlarge -> "c7gn.16xlarge"
      | P5_48xlarge -> "p5.48xlarge"
      | M7i_large -> "m7i.large"
      | M7i_xlarge -> "m7i.xlarge"
      | M7i_2xlarge -> "m7i.2xlarge"
      | M7i_4xlarge -> "m7i.4xlarge"
      | M7i_8xlarge -> "m7i.8xlarge"
      | M7i_12xlarge -> "m7i.12xlarge"
      | M7i_16xlarge -> "m7i.16xlarge"
      | M7i_24xlarge -> "m7i.24xlarge"
      | M7i_48xlarge -> "m7i.48xlarge"
      | M7i_flex_large -> "m7i-flex.large"
      | M7i_flex_xlarge -> "m7i-flex.xlarge"
      | M7i_flex_2xlarge -> "m7i-flex.2xlarge"
      | M7i_flex_4xlarge -> "m7i-flex.4xlarge"
      | M7i_flex_8xlarge -> "m7i-flex.8xlarge"
      | M7a_medium -> "m7a.medium"
      | M7a_large -> "m7a.large"
      | M7a_xlarge -> "m7a.xlarge"
      | M7a_2xlarge -> "m7a.2xlarge"
      | M7a_4xlarge -> "m7a.4xlarge"
      | M7a_8xlarge -> "m7a.8xlarge"
      | M7a_12xlarge -> "m7a.12xlarge"
      | M7a_16xlarge -> "m7a.16xlarge"
      | M7a_24xlarge -> "m7a.24xlarge"
      | M7a_32xlarge -> "m7a.32xlarge"
      | M7a_48xlarge -> "m7a.48xlarge"
      | M7a_metal_48xl -> "m7a.metal-48xl"
      | Hpc7a_12xlarge -> "hpc7a.12xlarge"
      | Hpc7a_24xlarge -> "hpc7a.24xlarge"
      | Hpc7a_48xlarge -> "hpc7a.48xlarge"
      | Hpc7a_96xlarge -> "hpc7a.96xlarge"
      | C7gd_medium -> "c7gd.medium"
      | C7gd_large -> "c7gd.large"
      | C7gd_xlarge -> "c7gd.xlarge"
      | C7gd_2xlarge -> "c7gd.2xlarge"
      | C7gd_4xlarge -> "c7gd.4xlarge"
      | C7gd_8xlarge -> "c7gd.8xlarge"
      | C7gd_12xlarge -> "c7gd.12xlarge"
      | C7gd_16xlarge -> "c7gd.16xlarge"
      | M7gd_medium -> "m7gd.medium"
      | M7gd_large -> "m7gd.large"
      | M7gd_xlarge -> "m7gd.xlarge"
      | M7gd_2xlarge -> "m7gd.2xlarge"
      | M7gd_4xlarge -> "m7gd.4xlarge"
      | M7gd_8xlarge -> "m7gd.8xlarge"
      | M7gd_12xlarge -> "m7gd.12xlarge"
      | M7gd_16xlarge -> "m7gd.16xlarge"
      | R7gd_medium -> "r7gd.medium"
      | R7gd_large -> "r7gd.large"
      | R7gd_xlarge -> "r7gd.xlarge"
      | R7gd_2xlarge -> "r7gd.2xlarge"
      | R7gd_4xlarge -> "r7gd.4xlarge"
      | R7gd_8xlarge -> "r7gd.8xlarge"
      | R7gd_12xlarge -> "r7gd.12xlarge"
      | R7gd_16xlarge -> "r7gd.16xlarge"
      | R7a_medium -> "r7a.medium"
      | R7a_large -> "r7a.large"
      | R7a_xlarge -> "r7a.xlarge"
      | R7a_2xlarge -> "r7a.2xlarge"
      | R7a_4xlarge -> "r7a.4xlarge"
      | R7a_8xlarge -> "r7a.8xlarge"
      | R7a_12xlarge -> "r7a.12xlarge"
      | R7a_16xlarge -> "r7a.16xlarge"
      | R7a_24xlarge -> "r7a.24xlarge"
      | R7a_32xlarge -> "r7a.32xlarge"
      | R7a_48xlarge -> "r7a.48xlarge"
      | C7i_large -> "c7i.large"
      | C7i_xlarge -> "c7i.xlarge"
      | C7i_2xlarge -> "c7i.2xlarge"
      | C7i_4xlarge -> "c7i.4xlarge"
      | C7i_8xlarge -> "c7i.8xlarge"
      | C7i_12xlarge -> "c7i.12xlarge"
      | C7i_16xlarge -> "c7i.16xlarge"
      | C7i_24xlarge -> "c7i.24xlarge"
      | C7i_48xlarge -> "c7i.48xlarge"
      | Mac2_m2pro_metal -> "mac2-m2pro.metal"
      | R7iz_large -> "r7iz.large"
      | R7iz_xlarge -> "r7iz.xlarge"
      | R7iz_2xlarge -> "r7iz.2xlarge"
      | R7iz_4xlarge -> "r7iz.4xlarge"
      | R7iz_8xlarge -> "r7iz.8xlarge"
      | R7iz_12xlarge -> "r7iz.12xlarge"
      | R7iz_16xlarge -> "r7iz.16xlarge"
      | R7iz_32xlarge -> "r7iz.32xlarge"
      | C7a_medium -> "c7a.medium"
      | C7a_large -> "c7a.large"
      | C7a_xlarge -> "c7a.xlarge"
      | C7a_2xlarge -> "c7a.2xlarge"
      | C7a_4xlarge -> "c7a.4xlarge"
      | C7a_8xlarge -> "c7a.8xlarge"
      | C7a_12xlarge -> "c7a.12xlarge"
      | C7a_16xlarge -> "c7a.16xlarge"
      | C7a_24xlarge -> "c7a.24xlarge"
      | C7a_32xlarge -> "c7a.32xlarge"
      | C7a_48xlarge -> "c7a.48xlarge"
      | C7a_metal_48xl -> "c7a.metal-48xl"
      | R7a_metal_48xl -> "r7a.metal-48xl"
      | R7i_large -> "r7i.large"
      | R7i_xlarge -> "r7i.xlarge"
      | R7i_2xlarge -> "r7i.2xlarge"
      | R7i_4xlarge -> "r7i.4xlarge"
      | R7i_8xlarge -> "r7i.8xlarge"
      | R7i_12xlarge -> "r7i.12xlarge"
      | R7i_16xlarge -> "r7i.16xlarge"
      | R7i_24xlarge -> "r7i.24xlarge"
      | R7i_48xlarge -> "r7i.48xlarge"
      | Dl2q_24xlarge -> "dl2q.24xlarge"
      | Mac2_m2_metal -> "mac2-m2.metal"
      | I4i_12xlarge -> "i4i.12xlarge"
      | I4i_24xlarge -> "i4i.24xlarge"
      | C7i_metal_24xl -> "c7i.metal-24xl"
      | C7i_metal_48xl -> "c7i.metal-48xl"
      | M7i_metal_24xl -> "m7i.metal-24xl"
      | M7i_metal_48xl -> "m7i.metal-48xl"
      | R7i_metal_24xl -> "r7i.metal-24xl"
      | R7i_metal_48xl -> "r7i.metal-48xl"
      | R7iz_metal_16xl -> "r7iz.metal-16xl"
      | R7iz_metal_32xl -> "r7iz.metal-32xl"
      | C7gd_metal -> "c7gd.metal"
      | M7gd_metal -> "m7gd.metal"
      | R7gd_metal -> "r7gd.metal"
      | G6_xlarge -> "g6.xlarge"
      | G6_2xlarge -> "g6.2xlarge"
      | G6_4xlarge -> "g6.4xlarge"
      | G6_8xlarge -> "g6.8xlarge"
      | G6_12xlarge -> "g6.12xlarge"
      | G6_16xlarge -> "g6.16xlarge"
      | G6_24xlarge -> "g6.24xlarge"
      | G6_48xlarge -> "g6.48xlarge"
      | Gr6_4xlarge -> "gr6.4xlarge"
      | Gr6_8xlarge -> "gr6.8xlarge"
      | C7i_flex_large -> "c7i-flex.large"
      | C7i_flex_xlarge -> "c7i-flex.xlarge"
      | C7i_flex_2xlarge -> "c7i-flex.2xlarge"
      | C7i_flex_4xlarge -> "c7i-flex.4xlarge"
      | C7i_flex_8xlarge -> "c7i-flex.8xlarge"
      | U7i_12tb_224xlarge -> "u7i-12tb.224xlarge"
      | U7in_16tb_224xlarge -> "u7in-16tb.224xlarge"
      | U7in_24tb_224xlarge -> "u7in-24tb.224xlarge"
      | U7in_32tb_224xlarge -> "u7in-32tb.224xlarge"
      | U7ib_12tb_224xlarge -> "u7ib-12tb.224xlarge"
      | C7gn_metal -> "c7gn.metal"
      | R8g_medium -> "r8g.medium"
      | R8g_large -> "r8g.large"
      | R8g_xlarge -> "r8g.xlarge"
      | R8g_2xlarge -> "r8g.2xlarge"
      | R8g_4xlarge -> "r8g.4xlarge"
      | R8g_8xlarge -> "r8g.8xlarge"
      | R8g_12xlarge -> "r8g.12xlarge"
      | R8g_16xlarge -> "r8g.16xlarge"
      | R8g_24xlarge -> "r8g.24xlarge"
      | R8g_48xlarge -> "r8g.48xlarge"
      | R8g_metal_24xl -> "r8g.metal-24xl"
      | R8g_metal_48xl -> "r8g.metal-48xl"
      | Mac2_m1ultra_metal -> "mac2-m1ultra.metal"
      | G6e_xlarge -> "g6e.xlarge"
      | G6e_2xlarge -> "g6e.2xlarge"
      | G6e_4xlarge -> "g6e.4xlarge"
      | G6e_8xlarge -> "g6e.8xlarge"
      | G6e_12xlarge -> "g6e.12xlarge"
      | G6e_16xlarge -> "g6e.16xlarge"
      | G6e_24xlarge -> "g6e.24xlarge"
      | G6e_48xlarge -> "g6e.48xlarge"
      | C8g_medium -> "c8g.medium"
      | C8g_large -> "c8g.large"
      | C8g_xlarge -> "c8g.xlarge"
      | C8g_2xlarge -> "c8g.2xlarge"
      | C8g_4xlarge -> "c8g.4xlarge"
      | C8g_8xlarge -> "c8g.8xlarge"
      | C8g_12xlarge -> "c8g.12xlarge"
      | C8g_16xlarge -> "c8g.16xlarge"
      | C8g_24xlarge -> "c8g.24xlarge"
      | C8g_48xlarge -> "c8g.48xlarge"
      | C8g_metal_24xl -> "c8g.metal-24xl"
      | C8g_metal_48xl -> "c8g.metal-48xl"
      | M8g_medium -> "m8g.medium"
      | M8g_large -> "m8g.large"
      | M8g_xlarge -> "m8g.xlarge"
      | M8g_2xlarge -> "m8g.2xlarge"
      | M8g_4xlarge -> "m8g.4xlarge"
      | M8g_8xlarge -> "m8g.8xlarge"
      | M8g_12xlarge -> "m8g.12xlarge"
      | M8g_16xlarge -> "m8g.16xlarge"
      | M8g_24xlarge -> "m8g.24xlarge"
      | M8g_48xlarge -> "m8g.48xlarge"
      | M8g_metal_24xl -> "m8g.metal-24xl"
      | M8g_metal_48xl -> "m8g.metal-48xl"
      | X8g_medium -> "x8g.medium"
      | X8g_large -> "x8g.large"
      | X8g_xlarge -> "x8g.xlarge"
      | X8g_2xlarge -> "x8g.2xlarge"
      | X8g_4xlarge -> "x8g.4xlarge"
      | X8g_8xlarge -> "x8g.8xlarge"
      | X8g_12xlarge -> "x8g.12xlarge"
      | X8g_16xlarge -> "x8g.16xlarge"
      | X8g_24xlarge -> "x8g.24xlarge"
      | X8g_48xlarge -> "x8g.48xlarge"
      | X8g_metal_24xl -> "x8g.metal-24xl"
      | X8g_metal_48xl -> "x8g.metal-48xl"
      | I7ie_large -> "i7ie.large"
      | I7ie_xlarge -> "i7ie.xlarge"
      | I7ie_2xlarge -> "i7ie.2xlarge"
      | I7ie_3xlarge -> "i7ie.3xlarge"
      | I7ie_6xlarge -> "i7ie.6xlarge"
      | I7ie_12xlarge -> "i7ie.12xlarge"
      | I7ie_18xlarge -> "i7ie.18xlarge"
      | I7ie_24xlarge -> "i7ie.24xlarge"
      | I7ie_48xlarge -> "i7ie.48xlarge"
      | I8g_large -> "i8g.large"
      | I8g_xlarge -> "i8g.xlarge"
      | I8g_2xlarge -> "i8g.2xlarge"
      | I8g_4xlarge -> "i8g.4xlarge"
      | I8g_8xlarge -> "i8g.8xlarge"
      | I8g_12xlarge -> "i8g.12xlarge"
      | I8g_16xlarge -> "i8g.16xlarge"
      | I8g_24xlarge -> "i8g.24xlarge"
      | I8g_metal_24xl -> "i8g.metal-24xl"
      | U7i_6tb_112xlarge -> "u7i-6tb.112xlarge"
      | U7i_8tb_112xlarge -> "u7i-8tb.112xlarge"
      | U7inh_32tb_480xlarge -> "u7inh-32tb.480xlarge"
      | P5e_48xlarge -> "p5e.48xlarge"
      | P5en_48xlarge -> "p5en.48xlarge"
      | F2_12xlarge -> "f2.12xlarge"
      | F2_48xlarge -> "f2.48xlarge"
      | Trn2_48xlarge -> "trn2.48xlarge"
      | C7i_flex_12xlarge -> "c7i-flex.12xlarge"
      | C7i_flex_16xlarge -> "c7i-flex.16xlarge"
      | M7i_flex_12xlarge -> "m7i-flex.12xlarge"
      | M7i_flex_16xlarge -> "m7i-flex.16xlarge"
      | I7ie_metal_24xl -> "i7ie.metal-24xl"
      | I7ie_metal_48xl -> "i7ie.metal-48xl"
      | I8g_48xlarge -> "i8g.48xlarge"
      | C8gd_medium -> "c8gd.medium"
      | C8gd_large -> "c8gd.large"
      | C8gd_xlarge -> "c8gd.xlarge"
      | C8gd_2xlarge -> "c8gd.2xlarge"
      | C8gd_4xlarge -> "c8gd.4xlarge"
      | C8gd_8xlarge -> "c8gd.8xlarge"
      | C8gd_12xlarge -> "c8gd.12xlarge"
      | C8gd_16xlarge -> "c8gd.16xlarge"
      | C8gd_24xlarge -> "c8gd.24xlarge"
      | C8gd_48xlarge -> "c8gd.48xlarge"
      | C8gd_metal_24xl -> "c8gd.metal-24xl"
      | C8gd_metal_48xl -> "c8gd.metal-48xl"
      | I7i_large -> "i7i.large"
      | I7i_xlarge -> "i7i.xlarge"
      | I7i_2xlarge -> "i7i.2xlarge"
      | I7i_4xlarge -> "i7i.4xlarge"
      | I7i_8xlarge -> "i7i.8xlarge"
      | I7i_12xlarge -> "i7i.12xlarge"
      | I7i_16xlarge -> "i7i.16xlarge"
      | I7i_24xlarge -> "i7i.24xlarge"
      | I7i_48xlarge -> "i7i.48xlarge"
      | I7i_metal_24xl -> "i7i.metal-24xl"
      | I7i_metal_48xl -> "i7i.metal-48xl"
      | P6_b200_48xlarge -> "p6-b200.48xlarge"
      | M8gd_medium -> "m8gd.medium"
      | M8gd_large -> "m8gd.large"
      | M8gd_xlarge -> "m8gd.xlarge"
      | M8gd_2xlarge -> "m8gd.2xlarge"
      | M8gd_4xlarge -> "m8gd.4xlarge"
      | M8gd_8xlarge -> "m8gd.8xlarge"
      | M8gd_12xlarge -> "m8gd.12xlarge"
      | M8gd_16xlarge -> "m8gd.16xlarge"
      | M8gd_24xlarge -> "m8gd.24xlarge"
      | M8gd_48xlarge -> "m8gd.48xlarge"
      | M8gd_metal_24xl -> "m8gd.metal-24xl"
      | M8gd_metal_48xl -> "m8gd.metal-48xl"
      | R8gd_medium -> "r8gd.medium"
      | R8gd_large -> "r8gd.large"
      | R8gd_xlarge -> "r8gd.xlarge"
      | R8gd_2xlarge -> "r8gd.2xlarge"
      | R8gd_4xlarge -> "r8gd.4xlarge"
      | R8gd_8xlarge -> "r8gd.8xlarge"
      | R8gd_12xlarge -> "r8gd.12xlarge"
      | R8gd_16xlarge -> "r8gd.16xlarge"
      | R8gd_24xlarge -> "r8gd.24xlarge"
      | R8gd_48xlarge -> "r8gd.48xlarge"
      | R8gd_metal_24xl -> "r8gd.metal-24xl"
      | R8gd_metal_48xl -> "r8gd.metal-48xl"
      | C8gn_medium -> "c8gn.medium"
      | C8gn_large -> "c8gn.large"
      | C8gn_xlarge -> "c8gn.xlarge"
      | C8gn_2xlarge -> "c8gn.2xlarge"
      | C8gn_4xlarge -> "c8gn.4xlarge"
      | C8gn_8xlarge -> "c8gn.8xlarge"
      | C8gn_12xlarge -> "c8gn.12xlarge"
      | C8gn_16xlarge -> "c8gn.16xlarge"
      | C8gn_24xlarge -> "c8gn.24xlarge"
      | C8gn_48xlarge -> "c8gn.48xlarge"
      | C8gn_metal_24xl -> "c8gn.metal-24xl"
      | C8gn_metal_48xl -> "c8gn.metal-48xl"
      | F2_6xlarge -> "f2.6xlarge"
      | P6e_gb200_36xlarge -> "p6e-gb200.36xlarge"
      | G6f_large -> "g6f.large"
      | G6f_xlarge -> "g6f.xlarge"
      | G6f_2xlarge -> "g6f.2xlarge"
      | G6f_4xlarge -> "g6f.4xlarge"
      | Gr6f_4xlarge -> "gr6f.4xlarge"
      | P5_4xlarge -> "p5.4xlarge"
      | R8i_large -> "r8i.large"
      | R8i_xlarge -> "r8i.xlarge"
      | R8i_2xlarge -> "r8i.2xlarge"
      | R8i_4xlarge -> "r8i.4xlarge"
      | R8i_8xlarge -> "r8i.8xlarge"
      | R8i_12xlarge -> "r8i.12xlarge"
      | R8i_16xlarge -> "r8i.16xlarge"
      | R8i_24xlarge -> "r8i.24xlarge"
      | R8i_32xlarge -> "r8i.32xlarge"
      | R8i_48xlarge -> "r8i.48xlarge"
      | R8i_96xlarge -> "r8i.96xlarge"
      | R8i_metal_48xl -> "r8i.metal-48xl"
      | R8i_metal_96xl -> "r8i.metal-96xl"
      | R8i_flex_large -> "r8i-flex.large"
      | R8i_flex_xlarge -> "r8i-flex.xlarge"
      | R8i_flex_2xlarge -> "r8i-flex.2xlarge"
      | R8i_flex_4xlarge -> "r8i-flex.4xlarge"
      | R8i_flex_8xlarge -> "r8i-flex.8xlarge"
      | R8i_flex_12xlarge -> "r8i-flex.12xlarge"
      | R8i_flex_16xlarge -> "r8i-flex.16xlarge"
      | M8i_large -> "m8i.large"
      | M8i_xlarge -> "m8i.xlarge"
      | M8i_2xlarge -> "m8i.2xlarge"
      | M8i_4xlarge -> "m8i.4xlarge"
      | M8i_8xlarge -> "m8i.8xlarge"
      | M8i_12xlarge -> "m8i.12xlarge"
      | M8i_16xlarge -> "m8i.16xlarge"
      | M8i_24xlarge -> "m8i.24xlarge"
      | M8i_32xlarge -> "m8i.32xlarge"
      | M8i_48xlarge -> "m8i.48xlarge"
      | M8i_96xlarge -> "m8i.96xlarge"
      | M8i_metal_48xl -> "m8i.metal-48xl"
      | M8i_metal_96xl -> "m8i.metal-96xl"
      | M8i_flex_large -> "m8i-flex.large"
      | M8i_flex_xlarge -> "m8i-flex.xlarge"
      | M8i_flex_2xlarge -> "m8i-flex.2xlarge"
      | M8i_flex_4xlarge -> "m8i-flex.4xlarge"
      | M8i_flex_8xlarge -> "m8i-flex.8xlarge"
      | M8i_flex_12xlarge -> "m8i-flex.12xlarge"
      | M8i_flex_16xlarge -> "m8i-flex.16xlarge"
      | I8ge_large -> "i8ge.large"
      | I8ge_xlarge -> "i8ge.xlarge"
      | I8ge_2xlarge -> "i8ge.2xlarge"
      | I8ge_3xlarge -> "i8ge.3xlarge"
      | I8ge_6xlarge -> "i8ge.6xlarge"
      | I8ge_12xlarge -> "i8ge.12xlarge"
      | I8ge_18xlarge -> "i8ge.18xlarge"
      | I8ge_24xlarge -> "i8ge.24xlarge"
      | I8ge_48xlarge -> "i8ge.48xlarge"
      | I8ge_metal_24xl -> "i8ge.metal-24xl"
      | I8ge_metal_48xl -> "i8ge.metal-48xl"
      | Mac_m4_metal -> "mac-m4.metal"
      | Mac_m4pro_metal -> "mac-m4pro.metal"
      | R8gn_medium -> "r8gn.medium"
      | R8gn_large -> "r8gn.large"
      | R8gn_xlarge -> "r8gn.xlarge"
      | R8gn_2xlarge -> "r8gn.2xlarge"
      | R8gn_4xlarge -> "r8gn.4xlarge"
      | R8gn_8xlarge -> "r8gn.8xlarge"
      | R8gn_12xlarge -> "r8gn.12xlarge"
      | R8gn_16xlarge -> "r8gn.16xlarge"
      | R8gn_24xlarge -> "r8gn.24xlarge"
      | R8gn_48xlarge -> "r8gn.48xlarge"
      | R8gn_metal_24xl -> "r8gn.metal-24xl"
      | R8gn_metal_48xl -> "r8gn.metal-48xl"
      | C8i_large -> "c8i.large"
      | C8i_xlarge -> "c8i.xlarge"
      | C8i_2xlarge -> "c8i.2xlarge"
      | C8i_4xlarge -> "c8i.4xlarge"
      | C8i_8xlarge -> "c8i.8xlarge"
      | C8i_12xlarge -> "c8i.12xlarge"
      | C8i_16xlarge -> "c8i.16xlarge"
      | C8i_24xlarge -> "c8i.24xlarge"
      | C8i_32xlarge -> "c8i.32xlarge"
      | C8i_48xlarge -> "c8i.48xlarge"
      | C8i_96xlarge -> "c8i.96xlarge"
      | C8i_metal_48xl -> "c8i.metal-48xl"
      | C8i_metal_96xl -> "c8i.metal-96xl"
      | C8i_flex_large -> "c8i-flex.large"
      | C8i_flex_xlarge -> "c8i-flex.xlarge"
      | C8i_flex_2xlarge -> "c8i-flex.2xlarge"
      | C8i_flex_4xlarge -> "c8i-flex.4xlarge"
      | C8i_flex_8xlarge -> "c8i-flex.8xlarge"
      | C8i_flex_12xlarge -> "c8i-flex.12xlarge"
      | C8i_flex_16xlarge -> "c8i-flex.16xlarge"
      | R8gb_medium -> "r8gb.medium"
      | R8gb_large -> "r8gb.large"
      | R8gb_xlarge -> "r8gb.xlarge"
      | R8gb_2xlarge -> "r8gb.2xlarge"
      | R8gb_4xlarge -> "r8gb.4xlarge"
      | R8gb_8xlarge -> "r8gb.8xlarge"
      | R8gb_12xlarge -> "r8gb.12xlarge"
      | R8gb_16xlarge -> "r8gb.16xlarge"
      | R8gb_24xlarge -> "r8gb.24xlarge"
      | R8gb_metal_24xl -> "r8gb.metal-24xl"
      | M8a_medium -> "m8a.medium"
      | M8a_large -> "m8a.large"
      | M8a_xlarge -> "m8a.xlarge"
      | M8a_2xlarge -> "m8a.2xlarge"
      | M8a_4xlarge -> "m8a.4xlarge"
      | M8a_8xlarge -> "m8a.8xlarge"
      | M8a_12xlarge -> "m8a.12xlarge"
      | M8a_16xlarge -> "m8a.16xlarge"
      | M8a_24xlarge -> "m8a.24xlarge"
      | M8a_48xlarge -> "m8a.48xlarge"
      | M8a_metal_24xl -> "m8a.metal-24xl"
      | M8a_metal_48xl -> "m8a.metal-48xl"
      | Trn2_3xlarge -> "trn2.3xlarge"
      | R8a_medium -> "r8a.medium"
      | R8a_large -> "r8a.large"
      | R8a_xlarge -> "r8a.xlarge"
      | R8a_2xlarge -> "r8a.2xlarge"
      | R8a_4xlarge -> "r8a.4xlarge"
      | R8a_8xlarge -> "r8a.8xlarge"
      | R8a_12xlarge -> "r8a.12xlarge"
      | R8a_16xlarge -> "r8a.16xlarge"
      | R8a_24xlarge -> "r8a.24xlarge"
      | R8a_48xlarge -> "r8a.48xlarge"
      | R8a_metal_24xl -> "r8a.metal-24xl"
      | R8a_metal_48xl -> "r8a.metal-48xl"
      | P6_b300_48xlarge -> "p6-b300.48xlarge"
      | C8a_medium -> "c8a.medium"
      | C8a_large -> "c8a.large"
      | C8a_xlarge -> "c8a.xlarge"
      | C8a_2xlarge -> "c8a.2xlarge"
      | C8a_4xlarge -> "c8a.4xlarge"
      | C8a_8xlarge -> "c8a.8xlarge"
      | C8a_12xlarge -> "c8a.12xlarge"
      | C8a_16xlarge -> "c8a.16xlarge"
      | C8a_24xlarge -> "c8a.24xlarge"
      | C8a_48xlarge -> "c8a.48xlarge"
      | C8a_metal_24xl -> "c8a.metal-24xl"
      | C8a_metal_48xl -> "c8a.metal-48xl"
      | C8gb_12xlarge -> "c8gb.12xlarge"
      | C8gb_16xlarge -> "c8gb.16xlarge"
      | C8gb_24xlarge -> "c8gb.24xlarge"
      | C8gb_2xlarge -> "c8gb.2xlarge"
      | C8gb_4xlarge -> "c8gb.4xlarge"
      | C8gb_8xlarge -> "c8gb.8xlarge"
      | C8gb_large -> "c8gb.large"
      | C8gb_medium -> "c8gb.medium"
      | C8gb_metal_24xl -> "c8gb.metal-24xl"
      | C8gb_xlarge -> "c8gb.xlarge"
      | C8gb_48xlarge -> "c8gb.48xlarge"
      | C8gb_metal_48xl -> "c8gb.metal-48xl"
      | M8gb_12xlarge -> "m8gb.12xlarge"
      | M8gb_16xlarge -> "m8gb.16xlarge"
      | M8gb_24xlarge -> "m8gb.24xlarge"
      | M8gb_2xlarge -> "m8gb.2xlarge"
      | M8gb_4xlarge -> "m8gb.4xlarge"
      | M8gb_8xlarge -> "m8gb.8xlarge"
      | M8gb_large -> "m8gb.large"
      | M8gb_medium -> "m8gb.medium"
      | M8gb_xlarge -> "m8gb.xlarge"
      | M8gb_48xlarge -> "m8gb.48xlarge"
      | M8gb_metal_24xl -> "m8gb.metal-24xl"
      | M8gb_metal_48xl -> "m8gb.metal-48xl"
      | M8gn_12xlarge -> "m8gn.12xlarge"
      | M8gn_16xlarge -> "m8gn.16xlarge"
      | M8gn_24xlarge -> "m8gn.24xlarge"
      | M8gn_2xlarge -> "m8gn.2xlarge"
      | M8gn_48xlarge -> "m8gn.48xlarge"
      | M8gn_4xlarge -> "m8gn.4xlarge"
      | M8gn_8xlarge -> "m8gn.8xlarge"
      | M8gn_large -> "m8gn.large"
      | M8gn_medium -> "m8gn.medium"
      | M8gn_xlarge -> "m8gn.xlarge"
      | M8gn_metal_24xl -> "m8gn.metal-24xl"
      | M8gn_metal_48xl -> "m8gn.metal-48xl"
      | X8aedz_12xlarge -> "x8aedz.12xlarge"
      | X8aedz_24xlarge -> "x8aedz.24xlarge"
      | X8aedz_3xlarge -> "x8aedz.3xlarge"
      | X8aedz_6xlarge -> "x8aedz.6xlarge"
      | X8aedz_large -> "x8aedz.large"
      | X8aedz_metal_12xl -> "x8aedz.metal-12xl"
      | X8aedz_metal_24xl -> "x8aedz.metal-24xl"
      | X8aedz_xlarge -> "x8aedz.xlarge"
      | M8azn_medium -> "m8azn.medium"
      | M8azn_large -> "m8azn.large"
      | M8azn_xlarge -> "m8azn.xlarge"
      | M8azn_3xlarge -> "m8azn.3xlarge"
      | M8azn_6xlarge -> "m8azn.6xlarge"
      | M8azn_12xlarge -> "m8azn.12xlarge"
      | M8azn_24xlarge -> "m8azn.24xlarge"
      | M8azn_metal_12xl -> "m8azn.metal-12xl"
      | M8azn_metal_24xl -> "m8azn.metal-24xl"
      | X8i_large -> "x8i.large"
      | X8i_xlarge -> "x8i.xlarge"
      | X8i_2xlarge -> "x8i.2xlarge"
      | X8i_4xlarge -> "x8i.4xlarge"
      | X8i_8xlarge -> "x8i.8xlarge"
      | X8i_12xlarge -> "x8i.12xlarge"
      | X8i_16xlarge -> "x8i.16xlarge"
      | X8i_24xlarge -> "x8i.24xlarge"
      | X8i_32xlarge -> "x8i.32xlarge"
      | X8i_48xlarge -> "x8i.48xlarge"
      | X8i_64xlarge -> "x8i.64xlarge"
      | X8i_96xlarge -> "x8i.96xlarge"
      | X8i_metal_48xl -> "x8i.metal-48xl"
      | X8i_metal_96xl -> "x8i.metal-96xl"
      | Mac_m4max_metal -> "mac-m4max.metal"
      | G7e_2xlarge -> "g7e.2xlarge"
      | G7e_4xlarge -> "g7e.4xlarge"
      | G7e_8xlarge -> "g7e.8xlarge"
      | G7e_12xlarge -> "g7e.12xlarge"
      | G7e_24xlarge -> "g7e.24xlarge"
      | G7e_48xlarge -> "g7e.48xlarge"
      | R8id_large -> "r8id.large"
      | R8id_xlarge -> "r8id.xlarge"
      | R8id_2xlarge -> "r8id.2xlarge"
      | R8id_4xlarge -> "r8id.4xlarge"
      | R8id_8xlarge -> "r8id.8xlarge"
      | R8id_12xlarge -> "r8id.12xlarge"
      | R8id_16xlarge -> "r8id.16xlarge"
      | R8id_24xlarge -> "r8id.24xlarge"
      | R8id_32xlarge -> "r8id.32xlarge"
      | R8id_48xlarge -> "r8id.48xlarge"
      | R8id_96xlarge -> "r8id.96xlarge"
      | R8id_metal_48xl -> "r8id.metal-48xl"
      | R8id_metal_96xl -> "r8id.metal-96xl"
      | C8id_large -> "c8id.large"
      | C8id_xlarge -> "c8id.xlarge"
      | C8id_2xlarge -> "c8id.2xlarge"
      | C8id_4xlarge -> "c8id.4xlarge"
      | C8id_8xlarge -> "c8id.8xlarge"
      | C8id_12xlarge -> "c8id.12xlarge"
      | C8id_16xlarge -> "c8id.16xlarge"
      | C8id_24xlarge -> "c8id.24xlarge"
      | C8id_32xlarge -> "c8id.32xlarge"
      | C8id_48xlarge -> "c8id.48xlarge"
      | C8id_96xlarge -> "c8id.96xlarge"
      | C8id_metal_48xl -> "c8id.metal-48xl"
      | C8id_metal_96xl -> "c8id.metal-96xl"
      | M8id_large -> "m8id.large"
      | M8id_xlarge -> "m8id.xlarge"
      | M8id_2xlarge -> "m8id.2xlarge"
      | M8id_4xlarge -> "m8id.4xlarge"
      | M8id_8xlarge -> "m8id.8xlarge"
      | M8id_12xlarge -> "m8id.12xlarge"
      | M8id_16xlarge -> "m8id.16xlarge"
      | M8id_24xlarge -> "m8id.24xlarge"
      | M8id_32xlarge -> "m8id.32xlarge"
      | M8id_48xlarge -> "m8id.48xlarge"
      | M8id_96xlarge -> "m8id.96xlarge"
      | M8id_metal_48xl -> "m8id.metal-48xl"
      | M8id_metal_96xl -> "m8id.metal-96xl"
      | Hpc8a_96xlarge -> "hpc8a.96xlarge"
      | Non_static_id s -> s
    let of_string =
      function
      | "a1.medium" -> A1_medium
      | "a1.large" -> A1_large
      | "a1.xlarge" -> A1_xlarge
      | "a1.2xlarge" -> A1_2xlarge
      | "a1.4xlarge" -> A1_4xlarge
      | "a1.metal" -> A1_metal
      | "c1.medium" -> C1_medium
      | "c1.xlarge" -> C1_xlarge
      | "c3.large" -> C3_large
      | "c3.xlarge" -> C3_xlarge
      | "c3.2xlarge" -> C3_2xlarge
      | "c3.4xlarge" -> C3_4xlarge
      | "c3.8xlarge" -> C3_8xlarge
      | "c4.large" -> C4_large
      | "c4.xlarge" -> C4_xlarge
      | "c4.2xlarge" -> C4_2xlarge
      | "c4.4xlarge" -> C4_4xlarge
      | "c4.8xlarge" -> C4_8xlarge
      | "c5.large" -> C5_large
      | "c5.xlarge" -> C5_xlarge
      | "c5.2xlarge" -> C5_2xlarge
      | "c5.4xlarge" -> C5_4xlarge
      | "c5.9xlarge" -> C5_9xlarge
      | "c5.12xlarge" -> C5_12xlarge
      | "c5.18xlarge" -> C5_18xlarge
      | "c5.24xlarge" -> C5_24xlarge
      | "c5.metal" -> C5_metal
      | "c5a.large" -> C5a_large
      | "c5a.xlarge" -> C5a_xlarge
      | "c5a.2xlarge" -> C5a_2xlarge
      | "c5a.4xlarge" -> C5a_4xlarge
      | "c5a.8xlarge" -> C5a_8xlarge
      | "c5a.12xlarge" -> C5a_12xlarge
      | "c5a.16xlarge" -> C5a_16xlarge
      | "c5a.24xlarge" -> C5a_24xlarge
      | "c5ad.large" -> C5ad_large
      | "c5ad.xlarge" -> C5ad_xlarge
      | "c5ad.2xlarge" -> C5ad_2xlarge
      | "c5ad.4xlarge" -> C5ad_4xlarge
      | "c5ad.8xlarge" -> C5ad_8xlarge
      | "c5ad.12xlarge" -> C5ad_12xlarge
      | "c5ad.16xlarge" -> C5ad_16xlarge
      | "c5ad.24xlarge" -> C5ad_24xlarge
      | "c5d.large" -> C5d_large
      | "c5d.xlarge" -> C5d_xlarge
      | "c5d.2xlarge" -> C5d_2xlarge
      | "c5d.4xlarge" -> C5d_4xlarge
      | "c5d.9xlarge" -> C5d_9xlarge
      | "c5d.12xlarge" -> C5d_12xlarge
      | "c5d.18xlarge" -> C5d_18xlarge
      | "c5d.24xlarge" -> C5d_24xlarge
      | "c5d.metal" -> C5d_metal
      | "c5n.large" -> C5n_large
      | "c5n.xlarge" -> C5n_xlarge
      | "c5n.2xlarge" -> C5n_2xlarge
      | "c5n.4xlarge" -> C5n_4xlarge
      | "c5n.9xlarge" -> C5n_9xlarge
      | "c5n.18xlarge" -> C5n_18xlarge
      | "c5n.metal" -> C5n_metal
      | "c6g.medium" -> C6g_medium
      | "c6g.large" -> C6g_large
      | "c6g.xlarge" -> C6g_xlarge
      | "c6g.2xlarge" -> C6g_2xlarge
      | "c6g.4xlarge" -> C6g_4xlarge
      | "c6g.8xlarge" -> C6g_8xlarge
      | "c6g.12xlarge" -> C6g_12xlarge
      | "c6g.16xlarge" -> C6g_16xlarge
      | "c6g.metal" -> C6g_metal
      | "c6gd.medium" -> C6gd_medium
      | "c6gd.large" -> C6gd_large
      | "c6gd.xlarge" -> C6gd_xlarge
      | "c6gd.2xlarge" -> C6gd_2xlarge
      | "c6gd.4xlarge" -> C6gd_4xlarge
      | "c6gd.8xlarge" -> C6gd_8xlarge
      | "c6gd.12xlarge" -> C6gd_12xlarge
      | "c6gd.16xlarge" -> C6gd_16xlarge
      | "c6gd.metal" -> C6gd_metal
      | "c6gn.medium" -> C6gn_medium
      | "c6gn.large" -> C6gn_large
      | "c6gn.xlarge" -> C6gn_xlarge
      | "c6gn.2xlarge" -> C6gn_2xlarge
      | "c6gn.4xlarge" -> C6gn_4xlarge
      | "c6gn.8xlarge" -> C6gn_8xlarge
      | "c6gn.12xlarge" -> C6gn_12xlarge
      | "c6gn.16xlarge" -> C6gn_16xlarge
      | "c6i.large" -> C6i_large
      | "c6i.xlarge" -> C6i_xlarge
      | "c6i.2xlarge" -> C6i_2xlarge
      | "c6i.4xlarge" -> C6i_4xlarge
      | "c6i.8xlarge" -> C6i_8xlarge
      | "c6i.12xlarge" -> C6i_12xlarge
      | "c6i.16xlarge" -> C6i_16xlarge
      | "c6i.24xlarge" -> C6i_24xlarge
      | "c6i.32xlarge" -> C6i_32xlarge
      | "c6i.metal" -> C6i_metal
      | "cc1.4xlarge" -> Cc1_4xlarge
      | "cc2.8xlarge" -> Cc2_8xlarge
      | "cg1.4xlarge" -> Cg1_4xlarge
      | "cr1.8xlarge" -> Cr1_8xlarge
      | "d2.xlarge" -> D2_xlarge
      | "d2.2xlarge" -> D2_2xlarge
      | "d2.4xlarge" -> D2_4xlarge
      | "d2.8xlarge" -> D2_8xlarge
      | "d3.xlarge" -> D3_xlarge
      | "d3.2xlarge" -> D3_2xlarge
      | "d3.4xlarge" -> D3_4xlarge
      | "d3.8xlarge" -> D3_8xlarge
      | "d3en.xlarge" -> D3en_xlarge
      | "d3en.2xlarge" -> D3en_2xlarge
      | "d3en.4xlarge" -> D3en_4xlarge
      | "d3en.6xlarge" -> D3en_6xlarge
      | "d3en.8xlarge" -> D3en_8xlarge
      | "d3en.12xlarge" -> D3en_12xlarge
      | "dl1.24xlarge" -> Dl1_24xlarge
      | "f1.2xlarge" -> F1_2xlarge
      | "f1.4xlarge" -> F1_4xlarge
      | "f1.16xlarge" -> F1_16xlarge
      | "g2.2xlarge" -> G2_2xlarge
      | "g2.8xlarge" -> G2_8xlarge
      | "g3.4xlarge" -> G3_4xlarge
      | "g3.8xlarge" -> G3_8xlarge
      | "g3.16xlarge" -> G3_16xlarge
      | "g3s.xlarge" -> G3s_xlarge
      | "g4ad.xlarge" -> G4ad_xlarge
      | "g4ad.2xlarge" -> G4ad_2xlarge
      | "g4ad.4xlarge" -> G4ad_4xlarge
      | "g4ad.8xlarge" -> G4ad_8xlarge
      | "g4ad.16xlarge" -> G4ad_16xlarge
      | "g4dn.xlarge" -> G4dn_xlarge
      | "g4dn.2xlarge" -> G4dn_2xlarge
      | "g4dn.4xlarge" -> G4dn_4xlarge
      | "g4dn.8xlarge" -> G4dn_8xlarge
      | "g4dn.12xlarge" -> G4dn_12xlarge
      | "g4dn.16xlarge" -> G4dn_16xlarge
      | "g4dn.metal" -> G4dn_metal
      | "g5.xlarge" -> G5_xlarge
      | "g5.2xlarge" -> G5_2xlarge
      | "g5.4xlarge" -> G5_4xlarge
      | "g5.8xlarge" -> G5_8xlarge
      | "g5.12xlarge" -> G5_12xlarge
      | "g5.16xlarge" -> G5_16xlarge
      | "g5.24xlarge" -> G5_24xlarge
      | "g5.48xlarge" -> G5_48xlarge
      | "g5g.xlarge" -> G5g_xlarge
      | "g5g.2xlarge" -> G5g_2xlarge
      | "g5g.4xlarge" -> G5g_4xlarge
      | "g5g.8xlarge" -> G5g_8xlarge
      | "g5g.16xlarge" -> G5g_16xlarge
      | "g5g.metal" -> G5g_metal
      | "hi1.4xlarge" -> Hi1_4xlarge
      | "hpc6a.48xlarge" -> Hpc6a_48xlarge
      | "hs1.8xlarge" -> Hs1_8xlarge
      | "h1.2xlarge" -> H1_2xlarge
      | "h1.4xlarge" -> H1_4xlarge
      | "h1.8xlarge" -> H1_8xlarge
      | "h1.16xlarge" -> H1_16xlarge
      | "i2.xlarge" -> I2_xlarge
      | "i2.2xlarge" -> I2_2xlarge
      | "i2.4xlarge" -> I2_4xlarge
      | "i2.8xlarge" -> I2_8xlarge
      | "i3.large" -> I3_large
      | "i3.xlarge" -> I3_xlarge
      | "i3.2xlarge" -> I3_2xlarge
      | "i3.4xlarge" -> I3_4xlarge
      | "i3.8xlarge" -> I3_8xlarge
      | "i3.16xlarge" -> I3_16xlarge
      | "i3.metal" -> I3_metal
      | "i3en.large" -> I3en_large
      | "i3en.xlarge" -> I3en_xlarge
      | "i3en.2xlarge" -> I3en_2xlarge
      | "i3en.3xlarge" -> I3en_3xlarge
      | "i3en.6xlarge" -> I3en_6xlarge
      | "i3en.12xlarge" -> I3en_12xlarge
      | "i3en.24xlarge" -> I3en_24xlarge
      | "i3en.metal" -> I3en_metal
      | "im4gn.large" -> Im4gn_large
      | "im4gn.xlarge" -> Im4gn_xlarge
      | "im4gn.2xlarge" -> Im4gn_2xlarge
      | "im4gn.4xlarge" -> Im4gn_4xlarge
      | "im4gn.8xlarge" -> Im4gn_8xlarge
      | "im4gn.16xlarge" -> Im4gn_16xlarge
      | "inf1.xlarge" -> Inf1_xlarge
      | "inf1.2xlarge" -> Inf1_2xlarge
      | "inf1.6xlarge" -> Inf1_6xlarge
      | "inf1.24xlarge" -> Inf1_24xlarge
      | "is4gen.medium" -> Is4gen_medium
      | "is4gen.large" -> Is4gen_large
      | "is4gen.xlarge" -> Is4gen_xlarge
      | "is4gen.2xlarge" -> Is4gen_2xlarge
      | "is4gen.4xlarge" -> Is4gen_4xlarge
      | "is4gen.8xlarge" -> Is4gen_8xlarge
      | "m1.small" -> M1_small
      | "m1.medium" -> M1_medium
      | "m1.large" -> M1_large
      | "m1.xlarge" -> M1_xlarge
      | "m2.xlarge" -> M2_xlarge
      | "m2.2xlarge" -> M2_2xlarge
      | "m2.4xlarge" -> M2_4xlarge
      | "m3.medium" -> M3_medium
      | "m3.large" -> M3_large
      | "m3.xlarge" -> M3_xlarge
      | "m3.2xlarge" -> M3_2xlarge
      | "m4.large" -> M4_large
      | "m4.xlarge" -> M4_xlarge
      | "m4.2xlarge" -> M4_2xlarge
      | "m4.4xlarge" -> M4_4xlarge
      | "m4.10xlarge" -> M4_10xlarge
      | "m4.16xlarge" -> M4_16xlarge
      | "m5.large" -> M5_large
      | "m5.xlarge" -> M5_xlarge
      | "m5.2xlarge" -> M5_2xlarge
      | "m5.4xlarge" -> M5_4xlarge
      | "m5.8xlarge" -> M5_8xlarge
      | "m5.12xlarge" -> M5_12xlarge
      | "m5.16xlarge" -> M5_16xlarge
      | "m5.24xlarge" -> M5_24xlarge
      | "m5.metal" -> M5_metal
      | "m5a.large" -> M5a_large
      | "m5a.xlarge" -> M5a_xlarge
      | "m5a.2xlarge" -> M5a_2xlarge
      | "m5a.4xlarge" -> M5a_4xlarge
      | "m5a.8xlarge" -> M5a_8xlarge
      | "m5a.12xlarge" -> M5a_12xlarge
      | "m5a.16xlarge" -> M5a_16xlarge
      | "m5a.24xlarge" -> M5a_24xlarge
      | "m5ad.large" -> M5ad_large
      | "m5ad.xlarge" -> M5ad_xlarge
      | "m5ad.2xlarge" -> M5ad_2xlarge
      | "m5ad.4xlarge" -> M5ad_4xlarge
      | "m5ad.8xlarge" -> M5ad_8xlarge
      | "m5ad.12xlarge" -> M5ad_12xlarge
      | "m5ad.16xlarge" -> M5ad_16xlarge
      | "m5ad.24xlarge" -> M5ad_24xlarge
      | "m5d.large" -> M5d_large
      | "m5d.xlarge" -> M5d_xlarge
      | "m5d.2xlarge" -> M5d_2xlarge
      | "m5d.4xlarge" -> M5d_4xlarge
      | "m5d.8xlarge" -> M5d_8xlarge
      | "m5d.12xlarge" -> M5d_12xlarge
      | "m5d.16xlarge" -> M5d_16xlarge
      | "m5d.24xlarge" -> M5d_24xlarge
      | "m5d.metal" -> M5d_metal
      | "m5dn.large" -> M5dn_large
      | "m5dn.xlarge" -> M5dn_xlarge
      | "m5dn.2xlarge" -> M5dn_2xlarge
      | "m5dn.4xlarge" -> M5dn_4xlarge
      | "m5dn.8xlarge" -> M5dn_8xlarge
      | "m5dn.12xlarge" -> M5dn_12xlarge
      | "m5dn.16xlarge" -> M5dn_16xlarge
      | "m5dn.24xlarge" -> M5dn_24xlarge
      | "m5dn.metal" -> M5dn_metal
      | "m5n.large" -> M5n_large
      | "m5n.xlarge" -> M5n_xlarge
      | "m5n.2xlarge" -> M5n_2xlarge
      | "m5n.4xlarge" -> M5n_4xlarge
      | "m5n.8xlarge" -> M5n_8xlarge
      | "m5n.12xlarge" -> M5n_12xlarge
      | "m5n.16xlarge" -> M5n_16xlarge
      | "m5n.24xlarge" -> M5n_24xlarge
      | "m5n.metal" -> M5n_metal
      | "m5zn.large" -> M5zn_large
      | "m5zn.xlarge" -> M5zn_xlarge
      | "m5zn.2xlarge" -> M5zn_2xlarge
      | "m5zn.3xlarge" -> M5zn_3xlarge
      | "m5zn.6xlarge" -> M5zn_6xlarge
      | "m5zn.12xlarge" -> M5zn_12xlarge
      | "m5zn.metal" -> M5zn_metal
      | "m6a.large" -> M6a_large
      | "m6a.xlarge" -> M6a_xlarge
      | "m6a.2xlarge" -> M6a_2xlarge
      | "m6a.4xlarge" -> M6a_4xlarge
      | "m6a.8xlarge" -> M6a_8xlarge
      | "m6a.12xlarge" -> M6a_12xlarge
      | "m6a.16xlarge" -> M6a_16xlarge
      | "m6a.24xlarge" -> M6a_24xlarge
      | "m6a.32xlarge" -> M6a_32xlarge
      | "m6a.48xlarge" -> M6a_48xlarge
      | "m6g.metal" -> M6g_metal
      | "m6g.medium" -> M6g_medium
      | "m6g.large" -> M6g_large
      | "m6g.xlarge" -> M6g_xlarge
      | "m6g.2xlarge" -> M6g_2xlarge
      | "m6g.4xlarge" -> M6g_4xlarge
      | "m6g.8xlarge" -> M6g_8xlarge
      | "m6g.12xlarge" -> M6g_12xlarge
      | "m6g.16xlarge" -> M6g_16xlarge
      | "m6gd.metal" -> M6gd_metal
      | "m6gd.medium" -> M6gd_medium
      | "m6gd.large" -> M6gd_large
      | "m6gd.xlarge" -> M6gd_xlarge
      | "m6gd.2xlarge" -> M6gd_2xlarge
      | "m6gd.4xlarge" -> M6gd_4xlarge
      | "m6gd.8xlarge" -> M6gd_8xlarge
      | "m6gd.12xlarge" -> M6gd_12xlarge
      | "m6gd.16xlarge" -> M6gd_16xlarge
      | "m6i.large" -> M6i_large
      | "m6i.xlarge" -> M6i_xlarge
      | "m6i.2xlarge" -> M6i_2xlarge
      | "m6i.4xlarge" -> M6i_4xlarge
      | "m6i.8xlarge" -> M6i_8xlarge
      | "m6i.12xlarge" -> M6i_12xlarge
      | "m6i.16xlarge" -> M6i_16xlarge
      | "m6i.24xlarge" -> M6i_24xlarge
      | "m6i.32xlarge" -> M6i_32xlarge
      | "m6i.metal" -> M6i_metal
      | "mac1.metal" -> Mac1_metal
      | "p2.xlarge" -> P2_xlarge
      | "p2.8xlarge" -> P2_8xlarge
      | "p2.16xlarge" -> P2_16xlarge
      | "p3.2xlarge" -> P3_2xlarge
      | "p3.8xlarge" -> P3_8xlarge
      | "p3.16xlarge" -> P3_16xlarge
      | "p3dn.24xlarge" -> P3dn_24xlarge
      | "p4d.24xlarge" -> P4d_24xlarge
      | "r3.large" -> R3_large
      | "r3.xlarge" -> R3_xlarge
      | "r3.2xlarge" -> R3_2xlarge
      | "r3.4xlarge" -> R3_4xlarge
      | "r3.8xlarge" -> R3_8xlarge
      | "r4.large" -> R4_large
      | "r4.xlarge" -> R4_xlarge
      | "r4.2xlarge" -> R4_2xlarge
      | "r4.4xlarge" -> R4_4xlarge
      | "r4.8xlarge" -> R4_8xlarge
      | "r4.16xlarge" -> R4_16xlarge
      | "r5.large" -> R5_large
      | "r5.xlarge" -> R5_xlarge
      | "r5.2xlarge" -> R5_2xlarge
      | "r5.4xlarge" -> R5_4xlarge
      | "r5.8xlarge" -> R5_8xlarge
      | "r5.12xlarge" -> R5_12xlarge
      | "r5.16xlarge" -> R5_16xlarge
      | "r5.24xlarge" -> R5_24xlarge
      | "r5.metal" -> R5_metal
      | "r5a.large" -> R5a_large
      | "r5a.xlarge" -> R5a_xlarge
      | "r5a.2xlarge" -> R5a_2xlarge
      | "r5a.4xlarge" -> R5a_4xlarge
      | "r5a.8xlarge" -> R5a_8xlarge
      | "r5a.12xlarge" -> R5a_12xlarge
      | "r5a.16xlarge" -> R5a_16xlarge
      | "r5a.24xlarge" -> R5a_24xlarge
      | "r5ad.large" -> R5ad_large
      | "r5ad.xlarge" -> R5ad_xlarge
      | "r5ad.2xlarge" -> R5ad_2xlarge
      | "r5ad.4xlarge" -> R5ad_4xlarge
      | "r5ad.8xlarge" -> R5ad_8xlarge
      | "r5ad.12xlarge" -> R5ad_12xlarge
      | "r5ad.16xlarge" -> R5ad_16xlarge
      | "r5ad.24xlarge" -> R5ad_24xlarge
      | "r5b.large" -> R5b_large
      | "r5b.xlarge" -> R5b_xlarge
      | "r5b.2xlarge" -> R5b_2xlarge
      | "r5b.4xlarge" -> R5b_4xlarge
      | "r5b.8xlarge" -> R5b_8xlarge
      | "r5b.12xlarge" -> R5b_12xlarge
      | "r5b.16xlarge" -> R5b_16xlarge
      | "r5b.24xlarge" -> R5b_24xlarge
      | "r5b.metal" -> R5b_metal
      | "r5d.large" -> R5d_large
      | "r5d.xlarge" -> R5d_xlarge
      | "r5d.2xlarge" -> R5d_2xlarge
      | "r5d.4xlarge" -> R5d_4xlarge
      | "r5d.8xlarge" -> R5d_8xlarge
      | "r5d.12xlarge" -> R5d_12xlarge
      | "r5d.16xlarge" -> R5d_16xlarge
      | "r5d.24xlarge" -> R5d_24xlarge
      | "r5d.metal" -> R5d_metal
      | "r5dn.large" -> R5dn_large
      | "r5dn.xlarge" -> R5dn_xlarge
      | "r5dn.2xlarge" -> R5dn_2xlarge
      | "r5dn.4xlarge" -> R5dn_4xlarge
      | "r5dn.8xlarge" -> R5dn_8xlarge
      | "r5dn.12xlarge" -> R5dn_12xlarge
      | "r5dn.16xlarge" -> R5dn_16xlarge
      | "r5dn.24xlarge" -> R5dn_24xlarge
      | "r5dn.metal" -> R5dn_metal
      | "r5n.large" -> R5n_large
      | "r5n.xlarge" -> R5n_xlarge
      | "r5n.2xlarge" -> R5n_2xlarge
      | "r5n.4xlarge" -> R5n_4xlarge
      | "r5n.8xlarge" -> R5n_8xlarge
      | "r5n.12xlarge" -> R5n_12xlarge
      | "r5n.16xlarge" -> R5n_16xlarge
      | "r5n.24xlarge" -> R5n_24xlarge
      | "r5n.metal" -> R5n_metal
      | "r6g.medium" -> R6g_medium
      | "r6g.large" -> R6g_large
      | "r6g.xlarge" -> R6g_xlarge
      | "r6g.2xlarge" -> R6g_2xlarge
      | "r6g.4xlarge" -> R6g_4xlarge
      | "r6g.8xlarge" -> R6g_8xlarge
      | "r6g.12xlarge" -> R6g_12xlarge
      | "r6g.16xlarge" -> R6g_16xlarge
      | "r6g.metal" -> R6g_metal
      | "r6gd.medium" -> R6gd_medium
      | "r6gd.large" -> R6gd_large
      | "r6gd.xlarge" -> R6gd_xlarge
      | "r6gd.2xlarge" -> R6gd_2xlarge
      | "r6gd.4xlarge" -> R6gd_4xlarge
      | "r6gd.8xlarge" -> R6gd_8xlarge
      | "r6gd.12xlarge" -> R6gd_12xlarge
      | "r6gd.16xlarge" -> R6gd_16xlarge
      | "r6gd.metal" -> R6gd_metal
      | "r6i.large" -> R6i_large
      | "r6i.xlarge" -> R6i_xlarge
      | "r6i.2xlarge" -> R6i_2xlarge
      | "r6i.4xlarge" -> R6i_4xlarge
      | "r6i.8xlarge" -> R6i_8xlarge
      | "r6i.12xlarge" -> R6i_12xlarge
      | "r6i.16xlarge" -> R6i_16xlarge
      | "r6i.24xlarge" -> R6i_24xlarge
      | "r6i.32xlarge" -> R6i_32xlarge
      | "r6i.metal" -> R6i_metal
      | "t1.micro" -> T1_micro
      | "t2.nano" -> T2_nano
      | "t2.micro" -> T2_micro
      | "t2.small" -> T2_small
      | "t2.medium" -> T2_medium
      | "t2.large" -> T2_large
      | "t2.xlarge" -> T2_xlarge
      | "t2.2xlarge" -> T2_2xlarge
      | "t3.nano" -> T3_nano
      | "t3.micro" -> T3_micro
      | "t3.small" -> T3_small
      | "t3.medium" -> T3_medium
      | "t3.large" -> T3_large
      | "t3.xlarge" -> T3_xlarge
      | "t3.2xlarge" -> T3_2xlarge
      | "t3a.nano" -> T3a_nano
      | "t3a.micro" -> T3a_micro
      | "t3a.small" -> T3a_small
      | "t3a.medium" -> T3a_medium
      | "t3a.large" -> T3a_large
      | "t3a.xlarge" -> T3a_xlarge
      | "t3a.2xlarge" -> T3a_2xlarge
      | "t4g.nano" -> T4g_nano
      | "t4g.micro" -> T4g_micro
      | "t4g.small" -> T4g_small
      | "t4g.medium" -> T4g_medium
      | "t4g.large" -> T4g_large
      | "t4g.xlarge" -> T4g_xlarge
      | "t4g.2xlarge" -> T4g_2xlarge
      | "u-6tb1.56xlarge" -> U_6tb1_56xlarge
      | "u-6tb1.112xlarge" -> U_6tb1_112xlarge
      | "u-9tb1.112xlarge" -> U_9tb1_112xlarge
      | "u-12tb1.112xlarge" -> U_12tb1_112xlarge
      | "u-6tb1.metal" -> U_6tb1_metal
      | "u-9tb1.metal" -> U_9tb1_metal
      | "u-12tb1.metal" -> U_12tb1_metal
      | "u-18tb1.metal" -> U_18tb1_metal
      | "u-24tb1.metal" -> U_24tb1_metal
      | "vt1.3xlarge" -> Vt1_3xlarge
      | "vt1.6xlarge" -> Vt1_6xlarge
      | "vt1.24xlarge" -> Vt1_24xlarge
      | "x1.16xlarge" -> X1_16xlarge
      | "x1.32xlarge" -> X1_32xlarge
      | "x1e.xlarge" -> X1e_xlarge
      | "x1e.2xlarge" -> X1e_2xlarge
      | "x1e.4xlarge" -> X1e_4xlarge
      | "x1e.8xlarge" -> X1e_8xlarge
      | "x1e.16xlarge" -> X1e_16xlarge
      | "x1e.32xlarge" -> X1e_32xlarge
      | "x2iezn.2xlarge" -> X2iezn_2xlarge
      | "x2iezn.4xlarge" -> X2iezn_4xlarge
      | "x2iezn.6xlarge" -> X2iezn_6xlarge
      | "x2iezn.8xlarge" -> X2iezn_8xlarge
      | "x2iezn.12xlarge" -> X2iezn_12xlarge
      | "x2iezn.metal" -> X2iezn_metal
      | "x2gd.medium" -> X2gd_medium
      | "x2gd.large" -> X2gd_large
      | "x2gd.xlarge" -> X2gd_xlarge
      | "x2gd.2xlarge" -> X2gd_2xlarge
      | "x2gd.4xlarge" -> X2gd_4xlarge
      | "x2gd.8xlarge" -> X2gd_8xlarge
      | "x2gd.12xlarge" -> X2gd_12xlarge
      | "x2gd.16xlarge" -> X2gd_16xlarge
      | "x2gd.metal" -> X2gd_metal
      | "z1d.large" -> Z1d_large
      | "z1d.xlarge" -> Z1d_xlarge
      | "z1d.2xlarge" -> Z1d_2xlarge
      | "z1d.3xlarge" -> Z1d_3xlarge
      | "z1d.6xlarge" -> Z1d_6xlarge
      | "z1d.12xlarge" -> Z1d_12xlarge
      | "z1d.metal" -> Z1d_metal
      | "x2idn.16xlarge" -> X2idn_16xlarge
      | "x2idn.24xlarge" -> X2idn_24xlarge
      | "x2idn.32xlarge" -> X2idn_32xlarge
      | "x2iedn.xlarge" -> X2iedn_xlarge
      | "x2iedn.2xlarge" -> X2iedn_2xlarge
      | "x2iedn.4xlarge" -> X2iedn_4xlarge
      | "x2iedn.8xlarge" -> X2iedn_8xlarge
      | "x2iedn.16xlarge" -> X2iedn_16xlarge
      | "x2iedn.24xlarge" -> X2iedn_24xlarge
      | "x2iedn.32xlarge" -> X2iedn_32xlarge
      | "c6a.large" -> C6a_large
      | "c6a.xlarge" -> C6a_xlarge
      | "c6a.2xlarge" -> C6a_2xlarge
      | "c6a.4xlarge" -> C6a_4xlarge
      | "c6a.8xlarge" -> C6a_8xlarge
      | "c6a.12xlarge" -> C6a_12xlarge
      | "c6a.16xlarge" -> C6a_16xlarge
      | "c6a.24xlarge" -> C6a_24xlarge
      | "c6a.32xlarge" -> C6a_32xlarge
      | "c6a.48xlarge" -> C6a_48xlarge
      | "c6a.metal" -> C6a_metal
      | "m6a.metal" -> M6a_metal
      | "i4i.large" -> I4i_large
      | "i4i.xlarge" -> I4i_xlarge
      | "i4i.2xlarge" -> I4i_2xlarge
      | "i4i.4xlarge" -> I4i_4xlarge
      | "i4i.8xlarge" -> I4i_8xlarge
      | "i4i.16xlarge" -> I4i_16xlarge
      | "i4i.32xlarge" -> I4i_32xlarge
      | "i4i.metal" -> I4i_metal
      | "x2idn.metal" -> X2idn_metal
      | "x2iedn.metal" -> X2iedn_metal
      | "c7g.medium" -> C7g_medium
      | "c7g.large" -> C7g_large
      | "c7g.xlarge" -> C7g_xlarge
      | "c7g.2xlarge" -> C7g_2xlarge
      | "c7g.4xlarge" -> C7g_4xlarge
      | "c7g.8xlarge" -> C7g_8xlarge
      | "c7g.12xlarge" -> C7g_12xlarge
      | "c7g.16xlarge" -> C7g_16xlarge
      | "mac2.metal" -> Mac2_metal
      | "c6id.large" -> C6id_large
      | "c6id.xlarge" -> C6id_xlarge
      | "c6id.2xlarge" -> C6id_2xlarge
      | "c6id.4xlarge" -> C6id_4xlarge
      | "c6id.8xlarge" -> C6id_8xlarge
      | "c6id.12xlarge" -> C6id_12xlarge
      | "c6id.16xlarge" -> C6id_16xlarge
      | "c6id.24xlarge" -> C6id_24xlarge
      | "c6id.32xlarge" -> C6id_32xlarge
      | "c6id.metal" -> C6id_metal
      | "m6id.large" -> M6id_large
      | "m6id.xlarge" -> M6id_xlarge
      | "m6id.2xlarge" -> M6id_2xlarge
      | "m6id.4xlarge" -> M6id_4xlarge
      | "m6id.8xlarge" -> M6id_8xlarge
      | "m6id.12xlarge" -> M6id_12xlarge
      | "m6id.16xlarge" -> M6id_16xlarge
      | "m6id.24xlarge" -> M6id_24xlarge
      | "m6id.32xlarge" -> M6id_32xlarge
      | "m6id.metal" -> M6id_metal
      | "r6id.large" -> R6id_large
      | "r6id.xlarge" -> R6id_xlarge
      | "r6id.2xlarge" -> R6id_2xlarge
      | "r6id.4xlarge" -> R6id_4xlarge
      | "r6id.8xlarge" -> R6id_8xlarge
      | "r6id.12xlarge" -> R6id_12xlarge
      | "r6id.16xlarge" -> R6id_16xlarge
      | "r6id.24xlarge" -> R6id_24xlarge
      | "r6id.32xlarge" -> R6id_32xlarge
      | "r6id.metal" -> R6id_metal
      | "r6a.large" -> R6a_large
      | "r6a.xlarge" -> R6a_xlarge
      | "r6a.2xlarge" -> R6a_2xlarge
      | "r6a.4xlarge" -> R6a_4xlarge
      | "r6a.8xlarge" -> R6a_8xlarge
      | "r6a.12xlarge" -> R6a_12xlarge
      | "r6a.16xlarge" -> R6a_16xlarge
      | "r6a.24xlarge" -> R6a_24xlarge
      | "r6a.32xlarge" -> R6a_32xlarge
      | "r6a.48xlarge" -> R6a_48xlarge
      | "r6a.metal" -> R6a_metal
      | "p4de.24xlarge" -> P4de_24xlarge
      | "u-3tb1.56xlarge" -> U_3tb1_56xlarge
      | "u-18tb1.112xlarge" -> U_18tb1_112xlarge
      | "u-24tb1.112xlarge" -> U_24tb1_112xlarge
      | "trn1.2xlarge" -> Trn1_2xlarge
      | "trn1.32xlarge" -> Trn1_32xlarge
      | "hpc6id.32xlarge" -> Hpc6id_32xlarge
      | "c6in.large" -> C6in_large
      | "c6in.xlarge" -> C6in_xlarge
      | "c6in.2xlarge" -> C6in_2xlarge
      | "c6in.4xlarge" -> C6in_4xlarge
      | "c6in.8xlarge" -> C6in_8xlarge
      | "c6in.12xlarge" -> C6in_12xlarge
      | "c6in.16xlarge" -> C6in_16xlarge
      | "c6in.24xlarge" -> C6in_24xlarge
      | "c6in.32xlarge" -> C6in_32xlarge
      | "m6in.large" -> M6in_large
      | "m6in.xlarge" -> M6in_xlarge
      | "m6in.2xlarge" -> M6in_2xlarge
      | "m6in.4xlarge" -> M6in_4xlarge
      | "m6in.8xlarge" -> M6in_8xlarge
      | "m6in.12xlarge" -> M6in_12xlarge
      | "m6in.16xlarge" -> M6in_16xlarge
      | "m6in.24xlarge" -> M6in_24xlarge
      | "m6in.32xlarge" -> M6in_32xlarge
      | "m6idn.large" -> M6idn_large
      | "m6idn.xlarge" -> M6idn_xlarge
      | "m6idn.2xlarge" -> M6idn_2xlarge
      | "m6idn.4xlarge" -> M6idn_4xlarge
      | "m6idn.8xlarge" -> M6idn_8xlarge
      | "m6idn.12xlarge" -> M6idn_12xlarge
      | "m6idn.16xlarge" -> M6idn_16xlarge
      | "m6idn.24xlarge" -> M6idn_24xlarge
      | "m6idn.32xlarge" -> M6idn_32xlarge
      | "r6in.large" -> R6in_large
      | "r6in.xlarge" -> R6in_xlarge
      | "r6in.2xlarge" -> R6in_2xlarge
      | "r6in.4xlarge" -> R6in_4xlarge
      | "r6in.8xlarge" -> R6in_8xlarge
      | "r6in.12xlarge" -> R6in_12xlarge
      | "r6in.16xlarge" -> R6in_16xlarge
      | "r6in.24xlarge" -> R6in_24xlarge
      | "r6in.32xlarge" -> R6in_32xlarge
      | "r6idn.large" -> R6idn_large
      | "r6idn.xlarge" -> R6idn_xlarge
      | "r6idn.2xlarge" -> R6idn_2xlarge
      | "r6idn.4xlarge" -> R6idn_4xlarge
      | "r6idn.8xlarge" -> R6idn_8xlarge
      | "r6idn.12xlarge" -> R6idn_12xlarge
      | "r6idn.16xlarge" -> R6idn_16xlarge
      | "r6idn.24xlarge" -> R6idn_24xlarge
      | "r6idn.32xlarge" -> R6idn_32xlarge
      | "c7g.metal" -> C7g_metal
      | "m7g.medium" -> M7g_medium
      | "m7g.large" -> M7g_large
      | "m7g.xlarge" -> M7g_xlarge
      | "m7g.2xlarge" -> M7g_2xlarge
      | "m7g.4xlarge" -> M7g_4xlarge
      | "m7g.8xlarge" -> M7g_8xlarge
      | "m7g.12xlarge" -> M7g_12xlarge
      | "m7g.16xlarge" -> M7g_16xlarge
      | "m7g.metal" -> M7g_metal
      | "r7g.medium" -> R7g_medium
      | "r7g.large" -> R7g_large
      | "r7g.xlarge" -> R7g_xlarge
      | "r7g.2xlarge" -> R7g_2xlarge
      | "r7g.4xlarge" -> R7g_4xlarge
      | "r7g.8xlarge" -> R7g_8xlarge
      | "r7g.12xlarge" -> R7g_12xlarge
      | "r7g.16xlarge" -> R7g_16xlarge
      | "r7g.metal" -> R7g_metal
      | "c6in.metal" -> C6in_metal
      | "m6in.metal" -> M6in_metal
      | "m6idn.metal" -> M6idn_metal
      | "r6in.metal" -> R6in_metal
      | "r6idn.metal" -> R6idn_metal
      | "inf2.xlarge" -> Inf2_xlarge
      | "inf2.8xlarge" -> Inf2_8xlarge
      | "inf2.24xlarge" -> Inf2_24xlarge
      | "inf2.48xlarge" -> Inf2_48xlarge
      | "trn1n.32xlarge" -> Trn1n_32xlarge
      | "i4g.large" -> I4g_large
      | "i4g.xlarge" -> I4g_xlarge
      | "i4g.2xlarge" -> I4g_2xlarge
      | "i4g.4xlarge" -> I4g_4xlarge
      | "i4g.8xlarge" -> I4g_8xlarge
      | "i4g.16xlarge" -> I4g_16xlarge
      | "hpc7g.4xlarge" -> Hpc7g_4xlarge
      | "hpc7g.8xlarge" -> Hpc7g_8xlarge
      | "hpc7g.16xlarge" -> Hpc7g_16xlarge
      | "c7gn.medium" -> C7gn_medium
      | "c7gn.large" -> C7gn_large
      | "c7gn.xlarge" -> C7gn_xlarge
      | "c7gn.2xlarge" -> C7gn_2xlarge
      | "c7gn.4xlarge" -> C7gn_4xlarge
      | "c7gn.8xlarge" -> C7gn_8xlarge
      | "c7gn.12xlarge" -> C7gn_12xlarge
      | "c7gn.16xlarge" -> C7gn_16xlarge
      | "p5.48xlarge" -> P5_48xlarge
      | "m7i.large" -> M7i_large
      | "m7i.xlarge" -> M7i_xlarge
      | "m7i.2xlarge" -> M7i_2xlarge
      | "m7i.4xlarge" -> M7i_4xlarge
      | "m7i.8xlarge" -> M7i_8xlarge
      | "m7i.12xlarge" -> M7i_12xlarge
      | "m7i.16xlarge" -> M7i_16xlarge
      | "m7i.24xlarge" -> M7i_24xlarge
      | "m7i.48xlarge" -> M7i_48xlarge
      | "m7i-flex.large" -> M7i_flex_large
      | "m7i-flex.xlarge" -> M7i_flex_xlarge
      | "m7i-flex.2xlarge" -> M7i_flex_2xlarge
      | "m7i-flex.4xlarge" -> M7i_flex_4xlarge
      | "m7i-flex.8xlarge" -> M7i_flex_8xlarge
      | "m7a.medium" -> M7a_medium
      | "m7a.large" -> M7a_large
      | "m7a.xlarge" -> M7a_xlarge
      | "m7a.2xlarge" -> M7a_2xlarge
      | "m7a.4xlarge" -> M7a_4xlarge
      | "m7a.8xlarge" -> M7a_8xlarge
      | "m7a.12xlarge" -> M7a_12xlarge
      | "m7a.16xlarge" -> M7a_16xlarge
      | "m7a.24xlarge" -> M7a_24xlarge
      | "m7a.32xlarge" -> M7a_32xlarge
      | "m7a.48xlarge" -> M7a_48xlarge
      | "m7a.metal-48xl" -> M7a_metal_48xl
      | "hpc7a.12xlarge" -> Hpc7a_12xlarge
      | "hpc7a.24xlarge" -> Hpc7a_24xlarge
      | "hpc7a.48xlarge" -> Hpc7a_48xlarge
      | "hpc7a.96xlarge" -> Hpc7a_96xlarge
      | "c7gd.medium" -> C7gd_medium
      | "c7gd.large" -> C7gd_large
      | "c7gd.xlarge" -> C7gd_xlarge
      | "c7gd.2xlarge" -> C7gd_2xlarge
      | "c7gd.4xlarge" -> C7gd_4xlarge
      | "c7gd.8xlarge" -> C7gd_8xlarge
      | "c7gd.12xlarge" -> C7gd_12xlarge
      | "c7gd.16xlarge" -> C7gd_16xlarge
      | "m7gd.medium" -> M7gd_medium
      | "m7gd.large" -> M7gd_large
      | "m7gd.xlarge" -> M7gd_xlarge
      | "m7gd.2xlarge" -> M7gd_2xlarge
      | "m7gd.4xlarge" -> M7gd_4xlarge
      | "m7gd.8xlarge" -> M7gd_8xlarge
      | "m7gd.12xlarge" -> M7gd_12xlarge
      | "m7gd.16xlarge" -> M7gd_16xlarge
      | "r7gd.medium" -> R7gd_medium
      | "r7gd.large" -> R7gd_large
      | "r7gd.xlarge" -> R7gd_xlarge
      | "r7gd.2xlarge" -> R7gd_2xlarge
      | "r7gd.4xlarge" -> R7gd_4xlarge
      | "r7gd.8xlarge" -> R7gd_8xlarge
      | "r7gd.12xlarge" -> R7gd_12xlarge
      | "r7gd.16xlarge" -> R7gd_16xlarge
      | "r7a.medium" -> R7a_medium
      | "r7a.large" -> R7a_large
      | "r7a.xlarge" -> R7a_xlarge
      | "r7a.2xlarge" -> R7a_2xlarge
      | "r7a.4xlarge" -> R7a_4xlarge
      | "r7a.8xlarge" -> R7a_8xlarge
      | "r7a.12xlarge" -> R7a_12xlarge
      | "r7a.16xlarge" -> R7a_16xlarge
      | "r7a.24xlarge" -> R7a_24xlarge
      | "r7a.32xlarge" -> R7a_32xlarge
      | "r7a.48xlarge" -> R7a_48xlarge
      | "c7i.large" -> C7i_large
      | "c7i.xlarge" -> C7i_xlarge
      | "c7i.2xlarge" -> C7i_2xlarge
      | "c7i.4xlarge" -> C7i_4xlarge
      | "c7i.8xlarge" -> C7i_8xlarge
      | "c7i.12xlarge" -> C7i_12xlarge
      | "c7i.16xlarge" -> C7i_16xlarge
      | "c7i.24xlarge" -> C7i_24xlarge
      | "c7i.48xlarge" -> C7i_48xlarge
      | "mac2-m2pro.metal" -> Mac2_m2pro_metal
      | "r7iz.large" -> R7iz_large
      | "r7iz.xlarge" -> R7iz_xlarge
      | "r7iz.2xlarge" -> R7iz_2xlarge
      | "r7iz.4xlarge" -> R7iz_4xlarge
      | "r7iz.8xlarge" -> R7iz_8xlarge
      | "r7iz.12xlarge" -> R7iz_12xlarge
      | "r7iz.16xlarge" -> R7iz_16xlarge
      | "r7iz.32xlarge" -> R7iz_32xlarge
      | "c7a.medium" -> C7a_medium
      | "c7a.large" -> C7a_large
      | "c7a.xlarge" -> C7a_xlarge
      | "c7a.2xlarge" -> C7a_2xlarge
      | "c7a.4xlarge" -> C7a_4xlarge
      | "c7a.8xlarge" -> C7a_8xlarge
      | "c7a.12xlarge" -> C7a_12xlarge
      | "c7a.16xlarge" -> C7a_16xlarge
      | "c7a.24xlarge" -> C7a_24xlarge
      | "c7a.32xlarge" -> C7a_32xlarge
      | "c7a.48xlarge" -> C7a_48xlarge
      | "c7a.metal-48xl" -> C7a_metal_48xl
      | "r7a.metal-48xl" -> R7a_metal_48xl
      | "r7i.large" -> R7i_large
      | "r7i.xlarge" -> R7i_xlarge
      | "r7i.2xlarge" -> R7i_2xlarge
      | "r7i.4xlarge" -> R7i_4xlarge
      | "r7i.8xlarge" -> R7i_8xlarge
      | "r7i.12xlarge" -> R7i_12xlarge
      | "r7i.16xlarge" -> R7i_16xlarge
      | "r7i.24xlarge" -> R7i_24xlarge
      | "r7i.48xlarge" -> R7i_48xlarge
      | "dl2q.24xlarge" -> Dl2q_24xlarge
      | "mac2-m2.metal" -> Mac2_m2_metal
      | "i4i.12xlarge" -> I4i_12xlarge
      | "i4i.24xlarge" -> I4i_24xlarge
      | "c7i.metal-24xl" -> C7i_metal_24xl
      | "c7i.metal-48xl" -> C7i_metal_48xl
      | "m7i.metal-24xl" -> M7i_metal_24xl
      | "m7i.metal-48xl" -> M7i_metal_48xl
      | "r7i.metal-24xl" -> R7i_metal_24xl
      | "r7i.metal-48xl" -> R7i_metal_48xl
      | "r7iz.metal-16xl" -> R7iz_metal_16xl
      | "r7iz.metal-32xl" -> R7iz_metal_32xl
      | "c7gd.metal" -> C7gd_metal
      | "m7gd.metal" -> M7gd_metal
      | "r7gd.metal" -> R7gd_metal
      | "g6.xlarge" -> G6_xlarge
      | "g6.2xlarge" -> G6_2xlarge
      | "g6.4xlarge" -> G6_4xlarge
      | "g6.8xlarge" -> G6_8xlarge
      | "g6.12xlarge" -> G6_12xlarge
      | "g6.16xlarge" -> G6_16xlarge
      | "g6.24xlarge" -> G6_24xlarge
      | "g6.48xlarge" -> G6_48xlarge
      | "gr6.4xlarge" -> Gr6_4xlarge
      | "gr6.8xlarge" -> Gr6_8xlarge
      | "c7i-flex.large" -> C7i_flex_large
      | "c7i-flex.xlarge" -> C7i_flex_xlarge
      | "c7i-flex.2xlarge" -> C7i_flex_2xlarge
      | "c7i-flex.4xlarge" -> C7i_flex_4xlarge
      | "c7i-flex.8xlarge" -> C7i_flex_8xlarge
      | "u7i-12tb.224xlarge" -> U7i_12tb_224xlarge
      | "u7in-16tb.224xlarge" -> U7in_16tb_224xlarge
      | "u7in-24tb.224xlarge" -> U7in_24tb_224xlarge
      | "u7in-32tb.224xlarge" -> U7in_32tb_224xlarge
      | "u7ib-12tb.224xlarge" -> U7ib_12tb_224xlarge
      | "c7gn.metal" -> C7gn_metal
      | "r8g.medium" -> R8g_medium
      | "r8g.large" -> R8g_large
      | "r8g.xlarge" -> R8g_xlarge
      | "r8g.2xlarge" -> R8g_2xlarge
      | "r8g.4xlarge" -> R8g_4xlarge
      | "r8g.8xlarge" -> R8g_8xlarge
      | "r8g.12xlarge" -> R8g_12xlarge
      | "r8g.16xlarge" -> R8g_16xlarge
      | "r8g.24xlarge" -> R8g_24xlarge
      | "r8g.48xlarge" -> R8g_48xlarge
      | "r8g.metal-24xl" -> R8g_metal_24xl
      | "r8g.metal-48xl" -> R8g_metal_48xl
      | "mac2-m1ultra.metal" -> Mac2_m1ultra_metal
      | "g6e.xlarge" -> G6e_xlarge
      | "g6e.2xlarge" -> G6e_2xlarge
      | "g6e.4xlarge" -> G6e_4xlarge
      | "g6e.8xlarge" -> G6e_8xlarge
      | "g6e.12xlarge" -> G6e_12xlarge
      | "g6e.16xlarge" -> G6e_16xlarge
      | "g6e.24xlarge" -> G6e_24xlarge
      | "g6e.48xlarge" -> G6e_48xlarge
      | "c8g.medium" -> C8g_medium
      | "c8g.large" -> C8g_large
      | "c8g.xlarge" -> C8g_xlarge
      | "c8g.2xlarge" -> C8g_2xlarge
      | "c8g.4xlarge" -> C8g_4xlarge
      | "c8g.8xlarge" -> C8g_8xlarge
      | "c8g.12xlarge" -> C8g_12xlarge
      | "c8g.16xlarge" -> C8g_16xlarge
      | "c8g.24xlarge" -> C8g_24xlarge
      | "c8g.48xlarge" -> C8g_48xlarge
      | "c8g.metal-24xl" -> C8g_metal_24xl
      | "c8g.metal-48xl" -> C8g_metal_48xl
      | "m8g.medium" -> M8g_medium
      | "m8g.large" -> M8g_large
      | "m8g.xlarge" -> M8g_xlarge
      | "m8g.2xlarge" -> M8g_2xlarge
      | "m8g.4xlarge" -> M8g_4xlarge
      | "m8g.8xlarge" -> M8g_8xlarge
      | "m8g.12xlarge" -> M8g_12xlarge
      | "m8g.16xlarge" -> M8g_16xlarge
      | "m8g.24xlarge" -> M8g_24xlarge
      | "m8g.48xlarge" -> M8g_48xlarge
      | "m8g.metal-24xl" -> M8g_metal_24xl
      | "m8g.metal-48xl" -> M8g_metal_48xl
      | "x8g.medium" -> X8g_medium
      | "x8g.large" -> X8g_large
      | "x8g.xlarge" -> X8g_xlarge
      | "x8g.2xlarge" -> X8g_2xlarge
      | "x8g.4xlarge" -> X8g_4xlarge
      | "x8g.8xlarge" -> X8g_8xlarge
      | "x8g.12xlarge" -> X8g_12xlarge
      | "x8g.16xlarge" -> X8g_16xlarge
      | "x8g.24xlarge" -> X8g_24xlarge
      | "x8g.48xlarge" -> X8g_48xlarge
      | "x8g.metal-24xl" -> X8g_metal_24xl
      | "x8g.metal-48xl" -> X8g_metal_48xl
      | "i7ie.large" -> I7ie_large
      | "i7ie.xlarge" -> I7ie_xlarge
      | "i7ie.2xlarge" -> I7ie_2xlarge
      | "i7ie.3xlarge" -> I7ie_3xlarge
      | "i7ie.6xlarge" -> I7ie_6xlarge
      | "i7ie.12xlarge" -> I7ie_12xlarge
      | "i7ie.18xlarge" -> I7ie_18xlarge
      | "i7ie.24xlarge" -> I7ie_24xlarge
      | "i7ie.48xlarge" -> I7ie_48xlarge
      | "i8g.large" -> I8g_large
      | "i8g.xlarge" -> I8g_xlarge
      | "i8g.2xlarge" -> I8g_2xlarge
      | "i8g.4xlarge" -> I8g_4xlarge
      | "i8g.8xlarge" -> I8g_8xlarge
      | "i8g.12xlarge" -> I8g_12xlarge
      | "i8g.16xlarge" -> I8g_16xlarge
      | "i8g.24xlarge" -> I8g_24xlarge
      | "i8g.metal-24xl" -> I8g_metal_24xl
      | "u7i-6tb.112xlarge" -> U7i_6tb_112xlarge
      | "u7i-8tb.112xlarge" -> U7i_8tb_112xlarge
      | "u7inh-32tb.480xlarge" -> U7inh_32tb_480xlarge
      | "p5e.48xlarge" -> P5e_48xlarge
      | "p5en.48xlarge" -> P5en_48xlarge
      | "f2.12xlarge" -> F2_12xlarge
      | "f2.48xlarge" -> F2_48xlarge
      | "trn2.48xlarge" -> Trn2_48xlarge
      | "c7i-flex.12xlarge" -> C7i_flex_12xlarge
      | "c7i-flex.16xlarge" -> C7i_flex_16xlarge
      | "m7i-flex.12xlarge" -> M7i_flex_12xlarge
      | "m7i-flex.16xlarge" -> M7i_flex_16xlarge
      | "i7ie.metal-24xl" -> I7ie_metal_24xl
      | "i7ie.metal-48xl" -> I7ie_metal_48xl
      | "i8g.48xlarge" -> I8g_48xlarge
      | "c8gd.medium" -> C8gd_medium
      | "c8gd.large" -> C8gd_large
      | "c8gd.xlarge" -> C8gd_xlarge
      | "c8gd.2xlarge" -> C8gd_2xlarge
      | "c8gd.4xlarge" -> C8gd_4xlarge
      | "c8gd.8xlarge" -> C8gd_8xlarge
      | "c8gd.12xlarge" -> C8gd_12xlarge
      | "c8gd.16xlarge" -> C8gd_16xlarge
      | "c8gd.24xlarge" -> C8gd_24xlarge
      | "c8gd.48xlarge" -> C8gd_48xlarge
      | "c8gd.metal-24xl" -> C8gd_metal_24xl
      | "c8gd.metal-48xl" -> C8gd_metal_48xl
      | "i7i.large" -> I7i_large
      | "i7i.xlarge" -> I7i_xlarge
      | "i7i.2xlarge" -> I7i_2xlarge
      | "i7i.4xlarge" -> I7i_4xlarge
      | "i7i.8xlarge" -> I7i_8xlarge
      | "i7i.12xlarge" -> I7i_12xlarge
      | "i7i.16xlarge" -> I7i_16xlarge
      | "i7i.24xlarge" -> I7i_24xlarge
      | "i7i.48xlarge" -> I7i_48xlarge
      | "i7i.metal-24xl" -> I7i_metal_24xl
      | "i7i.metal-48xl" -> I7i_metal_48xl
      | "p6-b200.48xlarge" -> P6_b200_48xlarge
      | "m8gd.medium" -> M8gd_medium
      | "m8gd.large" -> M8gd_large
      | "m8gd.xlarge" -> M8gd_xlarge
      | "m8gd.2xlarge" -> M8gd_2xlarge
      | "m8gd.4xlarge" -> M8gd_4xlarge
      | "m8gd.8xlarge" -> M8gd_8xlarge
      | "m8gd.12xlarge" -> M8gd_12xlarge
      | "m8gd.16xlarge" -> M8gd_16xlarge
      | "m8gd.24xlarge" -> M8gd_24xlarge
      | "m8gd.48xlarge" -> M8gd_48xlarge
      | "m8gd.metal-24xl" -> M8gd_metal_24xl
      | "m8gd.metal-48xl" -> M8gd_metal_48xl
      | "r8gd.medium" -> R8gd_medium
      | "r8gd.large" -> R8gd_large
      | "r8gd.xlarge" -> R8gd_xlarge
      | "r8gd.2xlarge" -> R8gd_2xlarge
      | "r8gd.4xlarge" -> R8gd_4xlarge
      | "r8gd.8xlarge" -> R8gd_8xlarge
      | "r8gd.12xlarge" -> R8gd_12xlarge
      | "r8gd.16xlarge" -> R8gd_16xlarge
      | "r8gd.24xlarge" -> R8gd_24xlarge
      | "r8gd.48xlarge" -> R8gd_48xlarge
      | "r8gd.metal-24xl" -> R8gd_metal_24xl
      | "r8gd.metal-48xl" -> R8gd_metal_48xl
      | "c8gn.medium" -> C8gn_medium
      | "c8gn.large" -> C8gn_large
      | "c8gn.xlarge" -> C8gn_xlarge
      | "c8gn.2xlarge" -> C8gn_2xlarge
      | "c8gn.4xlarge" -> C8gn_4xlarge
      | "c8gn.8xlarge" -> C8gn_8xlarge
      | "c8gn.12xlarge" -> C8gn_12xlarge
      | "c8gn.16xlarge" -> C8gn_16xlarge
      | "c8gn.24xlarge" -> C8gn_24xlarge
      | "c8gn.48xlarge" -> C8gn_48xlarge
      | "c8gn.metal-24xl" -> C8gn_metal_24xl
      | "c8gn.metal-48xl" -> C8gn_metal_48xl
      | "f2.6xlarge" -> F2_6xlarge
      | "p6e-gb200.36xlarge" -> P6e_gb200_36xlarge
      | "g6f.large" -> G6f_large
      | "g6f.xlarge" -> G6f_xlarge
      | "g6f.2xlarge" -> G6f_2xlarge
      | "g6f.4xlarge" -> G6f_4xlarge
      | "gr6f.4xlarge" -> Gr6f_4xlarge
      | "p5.4xlarge" -> P5_4xlarge
      | "r8i.large" -> R8i_large
      | "r8i.xlarge" -> R8i_xlarge
      | "r8i.2xlarge" -> R8i_2xlarge
      | "r8i.4xlarge" -> R8i_4xlarge
      | "r8i.8xlarge" -> R8i_8xlarge
      | "r8i.12xlarge" -> R8i_12xlarge
      | "r8i.16xlarge" -> R8i_16xlarge
      | "r8i.24xlarge" -> R8i_24xlarge
      | "r8i.32xlarge" -> R8i_32xlarge
      | "r8i.48xlarge" -> R8i_48xlarge
      | "r8i.96xlarge" -> R8i_96xlarge
      | "r8i.metal-48xl" -> R8i_metal_48xl
      | "r8i.metal-96xl" -> R8i_metal_96xl
      | "r8i-flex.large" -> R8i_flex_large
      | "r8i-flex.xlarge" -> R8i_flex_xlarge
      | "r8i-flex.2xlarge" -> R8i_flex_2xlarge
      | "r8i-flex.4xlarge" -> R8i_flex_4xlarge
      | "r8i-flex.8xlarge" -> R8i_flex_8xlarge
      | "r8i-flex.12xlarge" -> R8i_flex_12xlarge
      | "r8i-flex.16xlarge" -> R8i_flex_16xlarge
      | "m8i.large" -> M8i_large
      | "m8i.xlarge" -> M8i_xlarge
      | "m8i.2xlarge" -> M8i_2xlarge
      | "m8i.4xlarge" -> M8i_4xlarge
      | "m8i.8xlarge" -> M8i_8xlarge
      | "m8i.12xlarge" -> M8i_12xlarge
      | "m8i.16xlarge" -> M8i_16xlarge
      | "m8i.24xlarge" -> M8i_24xlarge
      | "m8i.32xlarge" -> M8i_32xlarge
      | "m8i.48xlarge" -> M8i_48xlarge
      | "m8i.96xlarge" -> M8i_96xlarge
      | "m8i.metal-48xl" -> M8i_metal_48xl
      | "m8i.metal-96xl" -> M8i_metal_96xl
      | "m8i-flex.large" -> M8i_flex_large
      | "m8i-flex.xlarge" -> M8i_flex_xlarge
      | "m8i-flex.2xlarge" -> M8i_flex_2xlarge
      | "m8i-flex.4xlarge" -> M8i_flex_4xlarge
      | "m8i-flex.8xlarge" -> M8i_flex_8xlarge
      | "m8i-flex.12xlarge" -> M8i_flex_12xlarge
      | "m8i-flex.16xlarge" -> M8i_flex_16xlarge
      | "i8ge.large" -> I8ge_large
      | "i8ge.xlarge" -> I8ge_xlarge
      | "i8ge.2xlarge" -> I8ge_2xlarge
      | "i8ge.3xlarge" -> I8ge_3xlarge
      | "i8ge.6xlarge" -> I8ge_6xlarge
      | "i8ge.12xlarge" -> I8ge_12xlarge
      | "i8ge.18xlarge" -> I8ge_18xlarge
      | "i8ge.24xlarge" -> I8ge_24xlarge
      | "i8ge.48xlarge" -> I8ge_48xlarge
      | "i8ge.metal-24xl" -> I8ge_metal_24xl
      | "i8ge.metal-48xl" -> I8ge_metal_48xl
      | "mac-m4.metal" -> Mac_m4_metal
      | "mac-m4pro.metal" -> Mac_m4pro_metal
      | "r8gn.medium" -> R8gn_medium
      | "r8gn.large" -> R8gn_large
      | "r8gn.xlarge" -> R8gn_xlarge
      | "r8gn.2xlarge" -> R8gn_2xlarge
      | "r8gn.4xlarge" -> R8gn_4xlarge
      | "r8gn.8xlarge" -> R8gn_8xlarge
      | "r8gn.12xlarge" -> R8gn_12xlarge
      | "r8gn.16xlarge" -> R8gn_16xlarge
      | "r8gn.24xlarge" -> R8gn_24xlarge
      | "r8gn.48xlarge" -> R8gn_48xlarge
      | "r8gn.metal-24xl" -> R8gn_metal_24xl
      | "r8gn.metal-48xl" -> R8gn_metal_48xl
      | "c8i.large" -> C8i_large
      | "c8i.xlarge" -> C8i_xlarge
      | "c8i.2xlarge" -> C8i_2xlarge
      | "c8i.4xlarge" -> C8i_4xlarge
      | "c8i.8xlarge" -> C8i_8xlarge
      | "c8i.12xlarge" -> C8i_12xlarge
      | "c8i.16xlarge" -> C8i_16xlarge
      | "c8i.24xlarge" -> C8i_24xlarge
      | "c8i.32xlarge" -> C8i_32xlarge
      | "c8i.48xlarge" -> C8i_48xlarge
      | "c8i.96xlarge" -> C8i_96xlarge
      | "c8i.metal-48xl" -> C8i_metal_48xl
      | "c8i.metal-96xl" -> C8i_metal_96xl
      | "c8i-flex.large" -> C8i_flex_large
      | "c8i-flex.xlarge" -> C8i_flex_xlarge
      | "c8i-flex.2xlarge" -> C8i_flex_2xlarge
      | "c8i-flex.4xlarge" -> C8i_flex_4xlarge
      | "c8i-flex.8xlarge" -> C8i_flex_8xlarge
      | "c8i-flex.12xlarge" -> C8i_flex_12xlarge
      | "c8i-flex.16xlarge" -> C8i_flex_16xlarge
      | "r8gb.medium" -> R8gb_medium
      | "r8gb.large" -> R8gb_large
      | "r8gb.xlarge" -> R8gb_xlarge
      | "r8gb.2xlarge" -> R8gb_2xlarge
      | "r8gb.4xlarge" -> R8gb_4xlarge
      | "r8gb.8xlarge" -> R8gb_8xlarge
      | "r8gb.12xlarge" -> R8gb_12xlarge
      | "r8gb.16xlarge" -> R8gb_16xlarge
      | "r8gb.24xlarge" -> R8gb_24xlarge
      | "r8gb.metal-24xl" -> R8gb_metal_24xl
      | "m8a.medium" -> M8a_medium
      | "m8a.large" -> M8a_large
      | "m8a.xlarge" -> M8a_xlarge
      | "m8a.2xlarge" -> M8a_2xlarge
      | "m8a.4xlarge" -> M8a_4xlarge
      | "m8a.8xlarge" -> M8a_8xlarge
      | "m8a.12xlarge" -> M8a_12xlarge
      | "m8a.16xlarge" -> M8a_16xlarge
      | "m8a.24xlarge" -> M8a_24xlarge
      | "m8a.48xlarge" -> M8a_48xlarge
      | "m8a.metal-24xl" -> M8a_metal_24xl
      | "m8a.metal-48xl" -> M8a_metal_48xl
      | "trn2.3xlarge" -> Trn2_3xlarge
      | "r8a.medium" -> R8a_medium
      | "r8a.large" -> R8a_large
      | "r8a.xlarge" -> R8a_xlarge
      | "r8a.2xlarge" -> R8a_2xlarge
      | "r8a.4xlarge" -> R8a_4xlarge
      | "r8a.8xlarge" -> R8a_8xlarge
      | "r8a.12xlarge" -> R8a_12xlarge
      | "r8a.16xlarge" -> R8a_16xlarge
      | "r8a.24xlarge" -> R8a_24xlarge
      | "r8a.48xlarge" -> R8a_48xlarge
      | "r8a.metal-24xl" -> R8a_metal_24xl
      | "r8a.metal-48xl" -> R8a_metal_48xl
      | "p6-b300.48xlarge" -> P6_b300_48xlarge
      | "c8a.medium" -> C8a_medium
      | "c8a.large" -> C8a_large
      | "c8a.xlarge" -> C8a_xlarge
      | "c8a.2xlarge" -> C8a_2xlarge
      | "c8a.4xlarge" -> C8a_4xlarge
      | "c8a.8xlarge" -> C8a_8xlarge
      | "c8a.12xlarge" -> C8a_12xlarge
      | "c8a.16xlarge" -> C8a_16xlarge
      | "c8a.24xlarge" -> C8a_24xlarge
      | "c8a.48xlarge" -> C8a_48xlarge
      | "c8a.metal-24xl" -> C8a_metal_24xl
      | "c8a.metal-48xl" -> C8a_metal_48xl
      | "c8gb.12xlarge" -> C8gb_12xlarge
      | "c8gb.16xlarge" -> C8gb_16xlarge
      | "c8gb.24xlarge" -> C8gb_24xlarge
      | "c8gb.2xlarge" -> C8gb_2xlarge
      | "c8gb.4xlarge" -> C8gb_4xlarge
      | "c8gb.8xlarge" -> C8gb_8xlarge
      | "c8gb.large" -> C8gb_large
      | "c8gb.medium" -> C8gb_medium
      | "c8gb.metal-24xl" -> C8gb_metal_24xl
      | "c8gb.xlarge" -> C8gb_xlarge
      | "c8gb.48xlarge" -> C8gb_48xlarge
      | "c8gb.metal-48xl" -> C8gb_metal_48xl
      | "m8gb.12xlarge" -> M8gb_12xlarge
      | "m8gb.16xlarge" -> M8gb_16xlarge
      | "m8gb.24xlarge" -> M8gb_24xlarge
      | "m8gb.2xlarge" -> M8gb_2xlarge
      | "m8gb.4xlarge" -> M8gb_4xlarge
      | "m8gb.8xlarge" -> M8gb_8xlarge
      | "m8gb.large" -> M8gb_large
      | "m8gb.medium" -> M8gb_medium
      | "m8gb.xlarge" -> M8gb_xlarge
      | "m8gb.48xlarge" -> M8gb_48xlarge
      | "m8gb.metal-24xl" -> M8gb_metal_24xl
      | "m8gb.metal-48xl" -> M8gb_metal_48xl
      | "m8gn.12xlarge" -> M8gn_12xlarge
      | "m8gn.16xlarge" -> M8gn_16xlarge
      | "m8gn.24xlarge" -> M8gn_24xlarge
      | "m8gn.2xlarge" -> M8gn_2xlarge
      | "m8gn.48xlarge" -> M8gn_48xlarge
      | "m8gn.4xlarge" -> M8gn_4xlarge
      | "m8gn.8xlarge" -> M8gn_8xlarge
      | "m8gn.large" -> M8gn_large
      | "m8gn.medium" -> M8gn_medium
      | "m8gn.xlarge" -> M8gn_xlarge
      | "m8gn.metal-24xl" -> M8gn_metal_24xl
      | "m8gn.metal-48xl" -> M8gn_metal_48xl
      | "x8aedz.12xlarge" -> X8aedz_12xlarge
      | "x8aedz.24xlarge" -> X8aedz_24xlarge
      | "x8aedz.3xlarge" -> X8aedz_3xlarge
      | "x8aedz.6xlarge" -> X8aedz_6xlarge
      | "x8aedz.large" -> X8aedz_large
      | "x8aedz.metal-12xl" -> X8aedz_metal_12xl
      | "x8aedz.metal-24xl" -> X8aedz_metal_24xl
      | "x8aedz.xlarge" -> X8aedz_xlarge
      | "m8azn.medium" -> M8azn_medium
      | "m8azn.large" -> M8azn_large
      | "m8azn.xlarge" -> M8azn_xlarge
      | "m8azn.3xlarge" -> M8azn_3xlarge
      | "m8azn.6xlarge" -> M8azn_6xlarge
      | "m8azn.12xlarge" -> M8azn_12xlarge
      | "m8azn.24xlarge" -> M8azn_24xlarge
      | "m8azn.metal-12xl" -> M8azn_metal_12xl
      | "m8azn.metal-24xl" -> M8azn_metal_24xl
      | "x8i.large" -> X8i_large
      | "x8i.xlarge" -> X8i_xlarge
      | "x8i.2xlarge" -> X8i_2xlarge
      | "x8i.4xlarge" -> X8i_4xlarge
      | "x8i.8xlarge" -> X8i_8xlarge
      | "x8i.12xlarge" -> X8i_12xlarge
      | "x8i.16xlarge" -> X8i_16xlarge
      | "x8i.24xlarge" -> X8i_24xlarge
      | "x8i.32xlarge" -> X8i_32xlarge
      | "x8i.48xlarge" -> X8i_48xlarge
      | "x8i.64xlarge" -> X8i_64xlarge
      | "x8i.96xlarge" -> X8i_96xlarge
      | "x8i.metal-48xl" -> X8i_metal_48xl
      | "x8i.metal-96xl" -> X8i_metal_96xl
      | "mac-m4max.metal" -> Mac_m4max_metal
      | "g7e.2xlarge" -> G7e_2xlarge
      | "g7e.4xlarge" -> G7e_4xlarge
      | "g7e.8xlarge" -> G7e_8xlarge
      | "g7e.12xlarge" -> G7e_12xlarge
      | "g7e.24xlarge" -> G7e_24xlarge
      | "g7e.48xlarge" -> G7e_48xlarge
      | "r8id.large" -> R8id_large
      | "r8id.xlarge" -> R8id_xlarge
      | "r8id.2xlarge" -> R8id_2xlarge
      | "r8id.4xlarge" -> R8id_4xlarge
      | "r8id.8xlarge" -> R8id_8xlarge
      | "r8id.12xlarge" -> R8id_12xlarge
      | "r8id.16xlarge" -> R8id_16xlarge
      | "r8id.24xlarge" -> R8id_24xlarge
      | "r8id.32xlarge" -> R8id_32xlarge
      | "r8id.48xlarge" -> R8id_48xlarge
      | "r8id.96xlarge" -> R8id_96xlarge
      | "r8id.metal-48xl" -> R8id_metal_48xl
      | "r8id.metal-96xl" -> R8id_metal_96xl
      | "c8id.large" -> C8id_large
      | "c8id.xlarge" -> C8id_xlarge
      | "c8id.2xlarge" -> C8id_2xlarge
      | "c8id.4xlarge" -> C8id_4xlarge
      | "c8id.8xlarge" -> C8id_8xlarge
      | "c8id.12xlarge" -> C8id_12xlarge
      | "c8id.16xlarge" -> C8id_16xlarge
      | "c8id.24xlarge" -> C8id_24xlarge
      | "c8id.32xlarge" -> C8id_32xlarge
      | "c8id.48xlarge" -> C8id_48xlarge
      | "c8id.96xlarge" -> C8id_96xlarge
      | "c8id.metal-48xl" -> C8id_metal_48xl
      | "c8id.metal-96xl" -> C8id_metal_96xl
      | "m8id.large" -> M8id_large
      | "m8id.xlarge" -> M8id_xlarge
      | "m8id.2xlarge" -> M8id_2xlarge
      | "m8id.4xlarge" -> M8id_4xlarge
      | "m8id.8xlarge" -> M8id_8xlarge
      | "m8id.12xlarge" -> M8id_12xlarge
      | "m8id.16xlarge" -> M8id_16xlarge
      | "m8id.24xlarge" -> M8id_24xlarge
      | "m8id.32xlarge" -> M8id_32xlarge
      | "m8id.48xlarge" -> M8id_48xlarge
      | "m8id.96xlarge" -> M8id_96xlarge
      | "m8id.metal-48xl" -> M8id_metal_48xl
      | "m8id.metal-96xl" -> M8id_metal_96xl
      | "hpc8a.96xlarge" -> Hpc8a_96xlarge
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration InstanceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InstanceType" j)
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module AttachmentStatus =
  struct
    type nonrec t =
      | Attaching 
      | Attached 
      | Detaching 
      | Detached 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Attaching -> "attaching"
      | Attached -> "attached"
      | Detaching -> "detaching"
      | Detached -> "detached"
      | Non_static_id s -> s
    let of_string =
      function
      | "attaching" -> Attaching
      | "attached" -> Attached
      | "detaching" -> Detaching
      | "detached" -> Detached
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AttachmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AttachmentStatus" j)
    let to_json = simple_to_json to_value
  end
module DateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module OperatorResponse =
  struct
    type nonrec t =
      {
      managed: Boolean.t option
        [@ocaml.doc
          "If true, the resource is managed by a service provider."];
      principal: String_.t option
        [@ocaml.doc
          "If managed is true, then the principal is returned. The principal is the service provider that manages the resource."];
      hiddenByDefault: Boolean.t option
        [@ocaml.doc
          "If true, the resource is hidden by default based on the managed resource visibility settings for the account."]}
    let make ?managed =
      fun ?principal ->
        fun ?hiddenByDefault ->
          fun () -> { managed; principal; hiddenByDefault }
    let to_value x =
      structure_to_value
        [("managed", (Option.map x.managed ~f:Boolean.to_value));
        ("principal", (Option.map x.principal ~f:String_.to_value));
        ("hiddenByDefault",
          (Option.map x.hiddenByDefault ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hiddenByDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "hiddenByDefault") in
      let principal =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "principal") in
      let managed =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "managed") in
      make ?hiddenByDefault ?principal ?managed ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hiddenByDefault =
        field_map json__ "HiddenByDefault" Boolean.of_json in
      let principal = field_map json__ "Principal" String_.of_json in
      let managed = field_map json__ "Managed" Boolean.of_json in
      make ?hiddenByDefault ?principal ?managed ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes whether the resource is managed by a service provider and, if so, describes the service provider that manages it."]
module GroupIdentifier =
  struct
    type nonrec t =
      {
      groupId: String_.t option [@ocaml.doc "The ID of the security group."];
      groupName: String_.t option
        [@ocaml.doc "The name of the security group."]}
    let make ?groupId = fun ?groupName -> fun () -> { groupId; groupName }
    let to_value x =
      structure_to_value
        [("groupId", (Option.map x.groupId ~f:String_.to_value));
        ("groupName", (Option.map x.groupName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupName") in
      let groupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupId") in
      make ?groupName ?groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupName = field_map json__ "GroupName" String_.of_json in
      let groupId = field_map json__ "GroupId" String_.of_json in
      make ?groupName ?groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a security group."]
module InstanceIpv4Prefix =
  struct
    type nonrec t =
      {
      ipv4Prefix: String_.t option
        [@ocaml.doc
          "One or more IPv4 prefixes assigned to the network interface."]}
    let make ?ipv4Prefix = fun () -> { ipv4Prefix }
    let to_value x =
      structure_to_value
        [("ipv4Prefix", (Option.map x.ipv4Prefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv4Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv4Prefix") in
      make ?ipv4Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv4Prefix = field_map json__ "Ipv4Prefix" String_.of_json in
      make ?ipv4Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about an IPv4 prefix."]
module InstanceIpv6Prefix =
  struct
    type nonrec t =
      {
      ipv6Prefix: String_.t option
        [@ocaml.doc
          "One or more IPv6 prefixes assigned to the network interface."]}
    let make ?ipv6Prefix = fun () -> { ipv6Prefix }
    let to_value x =
      structure_to_value
        [("ipv6Prefix", (Option.map x.ipv6Prefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6Prefix") in
      make ?ipv6Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Prefix = field_map json__ "Ipv6Prefix" String_.of_json in
      make ?ipv6Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about an IPv6 prefix."]
module InstanceAttachmentEnaSrdSpecification =
  struct
    type nonrec t =
      {
      enaSrdEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether ENA Express is enabled for the network interface."];
      enaSrdUdpSpecification:
        InstanceAttachmentEnaSrdUdpSpecification.t option
        [@ocaml.doc "Configures ENA Express for UDP network traffic."]}
    let make ?enaSrdEnabled =
      fun ?enaSrdUdpSpecification ->
        fun () -> { enaSrdEnabled; enaSrdUdpSpecification }
    let to_value x =
      structure_to_value
        [("enaSrdEnabled", (Option.map x.enaSrdEnabled ~f:Boolean.to_value));
        ("enaSrdUdpSpecification",
          (Option.map x.enaSrdUdpSpecification
             ~f:InstanceAttachmentEnaSrdUdpSpecification.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpSpecification =
        (Option.map ~f:InstanceAttachmentEnaSrdUdpSpecification.of_xml)
          (Xml.child xml_arg0 "enaSrdUdpSpecification") in
      let enaSrdEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enaSrdEnabled") in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpSpecification =
        field_map json__ "EnaSrdUdpSpecification"
          InstanceAttachmentEnaSrdUdpSpecification.of_json in
      let enaSrdEnabled = field_map json__ "EnaSrdEnabled" Boolean.of_json in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "ENA Express uses Amazon Web Services Scalable Reliable Datagram (SRD) technology to increase the maximum bandwidth used per stream and minimize tail latency of network traffic between EC2 instances. With ENA Express, you can communicate between two EC2 instances in the same subnet within the same account, or in different accounts. Both sending and receiving instances must have ENA Express enabled. To improve the reliability of network packet delivery, ENA Express reorders network packets on the receiving end by default. However, some UDP-based applications are designed to handle network packets that are out of order to reduce the overhead for packet delivery at the network layer. When ENA Express is enabled, you can specify whether UDP network traffic uses it."]
module InstancePrivateIpAddress =
  struct
    type nonrec t =
      {
      association: InstanceNetworkInterfaceAssociation.t option
        [@ocaml.doc
          "The association information for an Elastic IP address for the network interface."];
      primary: Boolean.t option
        [@ocaml.doc
          "Indicates whether this IPv4 address is the primary private IP address of the network interface."];
      privateDnsName: String_.t option
        [@ocaml.doc "The private IPv4 DNS name."];
      privateIpAddress: String_.t option
        [@ocaml.doc "The private IPv4 address of the network interface."]}
    let make ?association =
      fun ?primary ->
        fun ?privateDnsName ->
          fun ?privateIpAddress ->
            fun () ->
              { association; primary; privateDnsName; privateIpAddress }
    let to_value x =
      structure_to_value
        [("association",
           (Option.map x.association
              ~f:InstanceNetworkInterfaceAssociation.to_value));
        ("primary", (Option.map x.primary ~f:Boolean.to_value));
        ("privateDnsName", (Option.map x.privateDnsName ~f:String_.to_value));
        ("privateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      let privateDnsName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "privateDnsName") in
      let primary =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "primary") in
      let association =
        (Option.map ~f:InstanceNetworkInterfaceAssociation.of_xml)
          (Xml.child xml_arg0 "association") in
      make ?privateIpAddress ?privateDnsName ?primary ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      let privateDnsName = field_map json__ "PrivateDnsName" String_.of_json in
      let primary = field_map json__ "Primary" Boolean.of_json in
      let association =
        field_map json__ "Association"
          InstanceNetworkInterfaceAssociation.of_json in
      make ?privateIpAddress ?privateDnsName ?primary ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a private IPv4 address."]
module MillisecondDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module InstanceSecondaryInterfacePrivateIpAddress =
  struct
    type nonrec t =
      {
      privateIpAddress: String_.t option
        [@ocaml.doc "The private IPv4 address."]}
    let make ?privateIpAddress = fun () -> { privateIpAddress }
    let to_value x =
      structure_to_value
        [("privateIpAddress",
           (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      make ?privateIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      make ?privateIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a private IPv4 address for a secondary interface."]
module ImageUsageResourceTypeOptionValue =
  struct
    type nonrec t = string
    let context_ = "ImageUsageResourceTypeOptionValue"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ImageUsageResourceTypeOptionValue" j
    let to_json = simple_to_json to_value
  end
module BlockDeviceMappingResponse =
  struct
    type nonrec t =
      {
      deviceName: String_.t option
        [@ocaml.doc "The device name (for example, /dev/sdh or xvdh)."];
      virtualName: String_.t option [@ocaml.doc "The virtual device name."];
      ebs: EbsBlockDeviceResponse.t option
        [@ocaml.doc
          "Parameters used to automatically set up EBS volumes when the instance is launched."];
      noDevice: String_.t option
        [@ocaml.doc
          "Suppresses the specified device included in the block device mapping."]}
    let make ?deviceName =
      fun ?virtualName ->
        fun ?ebs ->
          fun ?noDevice ->
            fun () -> { deviceName; virtualName; ebs; noDevice }
    let to_value x =
      structure_to_value
        [("deviceName", (Option.map x.deviceName ~f:String_.to_value));
        ("virtualName", (Option.map x.virtualName ~f:String_.to_value));
        ("ebs", (Option.map x.ebs ~f:EbsBlockDeviceResponse.to_value));
        ("noDevice", (Option.map x.noDevice ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noDevice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "noDevice") in
      let ebs =
        (Option.map ~f:EbsBlockDeviceResponse.of_xml)
          (Xml.child xml_arg0 "ebs") in
      let virtualName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "virtualName") in
      let deviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "deviceName") in
      make ?noDevice ?ebs ?virtualName ?deviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noDevice = field_map json__ "NoDevice" String_.of_json in
      let ebs = field_map json__ "Ebs" EbsBlockDeviceResponse.of_json in
      let virtualName = field_map json__ "VirtualName" String_.of_json in
      let deviceName = field_map json__ "DeviceName" String_.of_json in
      make ?noDevice ?ebs ?virtualName ?deviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a block device mapping, which defines the EBS volumes and instance store volumes to attach to an instance at launch."]
module PlacementGroupName =
  struct
    type nonrec t = string
    let context_ = "PlacementGroupName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PlacementGroupName" j
    let to_json = simple_to_json to_value
  end
module FleetEbsBlockDeviceRequest =
  struct
    type nonrec t =
      {
      encrypted: Boolean.t option
        [@ocaml.doc
          "Indicates whether the encryption state of an EBS volume is changed while being restored from a backing snapshot. The effect of setting the encryption state to true depends on the volume origin (new or from a snapshot), starting encryption state, ownership, and whether encryption by default is enabled. For more information, see Amazon EBS encryption in the Amazon EBS User Guide. In no case can you remove encryption from an encrypted volume. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. For more information, see Supported instance types. This parameter is not returned by DescribeImageAttribute. For CreateImage and RegisterImage, whether you can include this parameter, and the allowed values differ depending on the type of block device mapping you are creating. If you are creating a block device mapping for a new (empty) volume, you can include this parameter, and specify either true for an encrypted volume, or false for an unencrypted volume. If you omit this parameter, it defaults to false (unencrypted). If you are creating a block device mapping from an existing encrypted or unencrypted snapshot, you must omit this parameter. If you include this parameter, the request will fail, regardless of the value that you specify. If you are creating a block device mapping from an existing unencrypted volume, you can include this parameter, but you must specify false. If you specify true, the request will fail. In this case, we recommend that you omit the parameter. If you are creating a block device mapping from an existing encrypted volume, you can include this parameter, and specify either true or false. However, if you specify false, the parameter is ignored and the block device mapping is always encrypted. In this case, we recommend that you omit the parameter."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the EBS volume is deleted on instance termination. For more information, see Preserve data when an instance is terminated in the Amazon EC2 User Guide."];
      iops: Integer.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS). For gp3, io1, and io2 volumes, this represents the number of IOPS that are provisioned for the volume. For gp2 volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. The following are the supported values for each volume type: gp3: 3,000 - 80,000 IOPS io1: 100 - 64,000 IOPS io2: 100 - 256,000 IOPS For io2 volumes, you can achieve up to 256,000 IOPS on instances built on the Nitro System. On other instances, you can achieve performance up to 32,000 IOPS. This parameter is required for io1 and io2 volumes. The default for gp3 volumes is 3,000 IOPS."];
      throughput: Integer.t option
        [@ocaml.doc
          "The throughput that the volume supports, in MiB/s. This parameter is valid only for gp3 volumes. Valid Range: Minimum value of 125. Maximum value of 2,000."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "Identifier (key ID, key alias, key ARN, or alias ARN) of the customer managed KMS key to use for EBS encryption. This parameter is only supported on BlockDeviceMapping objects called by CreateFleet, RequestSpotInstances, and RunInstances."];
      snapshotId: SnapshotId.t option [@ocaml.doc "The ID of the snapshot."];
      volumeSize: Integer.t option
        [@ocaml.doc
          "The size of the volume, in GiBs. You must specify either a snapshot ID or a volume size. If you specify a snapshot, the default is the snapshot size. You can specify a volume size that is equal to or larger than the snapshot size. The following are the supported sizes for each volume type: gp2: 1 - 16,384 GiB gp3: 1 - 65,536 GiB io1: 4 - 16,384 GiB io2: 4 - 65,536 GiB st1 and sc1: 125 - 16,384 GiB standard: 1 - 1024 GiB"];
      volumeType: VolumeType.t option
        [@ocaml.doc
          "The volume type. For more information, see Amazon EBS volume types in the Amazon EBS User Guide."]}
    let make ?encrypted =
      fun ?deleteOnTermination ->
        fun ?iops ->
          fun ?throughput ->
            fun ?kmsKeyId ->
              fun ?snapshotId ->
                fun ?volumeSize ->
                  fun ?volumeType ->
                    fun () ->
                      {
                        encrypted;
                        deleteOnTermination;
                        iops;
                        throughput;
                        kmsKeyId;
                        snapshotId;
                        volumeSize;
                        volumeType
                      }
    let to_value x =
      structure_to_value
        [("Encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("DeleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("Iops", (Option.map x.iops ~f:Integer.to_value));
        ("Throughput", (Option.map x.throughput ~f:Integer.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("VolumeSize", (Option.map x.volumeSize ~f:Integer.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:VolumeType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "VolumeType") in
      let volumeSize =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "VolumeSize") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let throughput =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Throughput") in
      let iops = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Iops") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeleteOnTermination") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Encrypted") in
      make ?volumeType ?volumeSize ?snapshotId ?kmsKeyId ?throughput ?iops
        ?deleteOnTermination ?encrypted ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let volumeSize = field_map json__ "VolumeSize" Integer.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let throughput = field_map json__ "Throughput" Integer.of_json in
      let iops = field_map json__ "Iops" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      make ?volumeType ?volumeSize ?snapshotId ?kmsKeyId ?throughput ?iops
        ?deleteOnTermination ?encrypted ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a block device for an EBS volume."]
module CpuPerformanceFactorRequest =
  struct
    type nonrec t =
      {
      references: PerformanceFactorReferenceSetRequest.t option
        [@ocaml.doc
          "Specify an instance family to use as the baseline reference for CPU performance. All instance types that match your specified attributes will be compared against the CPU performance of the referenced instance family, regardless of CPU manufacturer or architecture differences. Currently, only one instance family can be specified in the list."]}
    let make ?references = fun () -> { references }
    let to_value x =
      structure_to_value
        [("Reference",
           (Option.map x.references
              ~f:PerformanceFactorReferenceSetRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let references =
        (Option.map ~f:PerformanceFactorReferenceSetRequest.of_xml)
          (Xml.child xml_arg0 "Reference") in
      make ?references ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let references =
        field_map json__ "References"
          PerformanceFactorReferenceSetRequest.of_json in
      make ?references ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The CPU performance to consider, using an instance family as the baseline reference."]
module Protocol =
  struct
    type nonrec t =
      | Tcp 
      | Udp 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Tcp -> "tcp" | Udp -> "udp" | Non_static_id s -> s
    let of_string =
      function | "tcp" -> Tcp | "udp" -> Udp | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Protocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Protocol" j)
    let to_json = simple_to_json to_value
  end
module AnalysisComponentList =
  struct
    type nonrec t = AnalysisComponent.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AnalysisComponent.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AnalysisComponent.of_xml)
    let of_json j =
      list_of_json ~kind:"AnalysisComponentList"
        ~of_json:AnalysisComponent.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleGroupRuleOptionsPairList =
  struct
    type nonrec t = RuleGroupRuleOptionsPair.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RuleGroupRuleOptionsPair.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:RuleGroupRuleOptionsPair.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleGroupRuleOptionsPairList"
        ~of_json:RuleGroupRuleOptionsPair.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleGroupTypePairList =
  struct
    type nonrec t = RuleGroupTypePair.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RuleGroupTypePair.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:RuleGroupTypePair.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleGroupTypePairList"
        ~of_json:RuleGroupTypePair.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnalysisAclRule =
  struct
    type nonrec t =
      {
      cidr: String_.t option
        [@ocaml.doc "The IPv4 address range, in CIDR notation."];
      egress: Boolean.t option
        [@ocaml.doc "Indicates whether the rule is an outbound rule."];
      portRange: PortRange.t option [@ocaml.doc "The range of ports."];
      protocol: String_.t option [@ocaml.doc "The protocol."];
      ruleAction: String_.t option
        [@ocaml.doc
          "Indicates whether to allow or deny traffic that matches the rule."];
      ruleNumber: Integer.t option [@ocaml.doc "The rule number."]}
    let make ?cidr =
      fun ?egress ->
        fun ?portRange ->
          fun ?protocol ->
            fun ?ruleAction ->
              fun ?ruleNumber ->
                fun () ->
                  { cidr; egress; portRange; protocol; ruleAction; ruleNumber
                  }
    let to_value x =
      structure_to_value
        [("cidr", (Option.map x.cidr ~f:String_.to_value));
        ("egress", (Option.map x.egress ~f:Boolean.to_value));
        ("portRange", (Option.map x.portRange ~f:PortRange.to_value));
        ("protocol", (Option.map x.protocol ~f:String_.to_value));
        ("ruleAction", (Option.map x.ruleAction ~f:String_.to_value));
        ("ruleNumber", (Option.map x.ruleNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ruleNumber") in
      let ruleAction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ruleAction") in
      let protocol =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "protocol") in
      let portRange =
        (Option.map ~f:PortRange.of_xml) (Xml.child xml_arg0 "portRange") in
      let egress =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "egress") in
      let cidr = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidr") in
      make ?ruleNumber ?ruleAction ?protocol ?portRange ?egress ?cidr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleNumber = field_map json__ "RuleNumber" Integer.of_json in
      let ruleAction = field_map json__ "RuleAction" String_.of_json in
      let protocol = field_map json__ "Protocol" String_.of_json in
      let portRange = field_map json__ "PortRange" PortRange.of_json in
      let egress = field_map json__ "Egress" Boolean.of_json in
      let cidr = field_map json__ "Cidr" String_.of_json in
      make ?ruleNumber ?ruleAction ?protocol ?portRange ?egress ?cidr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network access control (ACL) rule."]
module AnalysisLoadBalancerListener =
  struct
    type nonrec t =
      {
      loadBalancerPort: Port.t option
        [@ocaml.doc "The port on which the load balancer is listening."];
      instancePort: Port.t option
        [@ocaml.doc
          "\\[Classic Load Balancers\\] The back-end port for the listener."]}
    let make ?loadBalancerPort =
      fun ?instancePort -> fun () -> { loadBalancerPort; instancePort }
    let to_value x =
      structure_to_value
        [("loadBalancerPort",
           (Option.map x.loadBalancerPort ~f:Port.to_value));
        ("instancePort", (Option.map x.instancePort ~f:Port.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instancePort =
        (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "instancePort") in
      let loadBalancerPort =
        (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "loadBalancerPort") in
      make ?instancePort ?loadBalancerPort ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instancePort = field_map json__ "InstancePort" Port.of_json in
      let loadBalancerPort = field_map json__ "LoadBalancerPort" Port.of_json in
      make ?instancePort ?loadBalancerPort ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a load balancer listener."]
module AnalysisLoadBalancerTarget =
  struct
    type nonrec t =
      {
      address: IpAddress.t option [@ocaml.doc "The IP address."];
      availabilityZone: String_.t option
        [@ocaml.doc "The Availability Zone."];
      availabilityZoneId: String_.t option
        [@ocaml.doc "The ID of the Availability Zone."];
      instance: AnalysisComponent.t option
        [@ocaml.doc "Information about the instance."];
      port: Port.t option
        [@ocaml.doc "The port on which the target is listening."]}
    let make ?address =
      fun ?availabilityZone ->
        fun ?availabilityZoneId ->
          fun ?instance ->
            fun ?port ->
              fun () ->
                {
                  address;
                  availabilityZone;
                  availabilityZoneId;
                  instance;
                  port
                }
    let to_value x =
      structure_to_value
        [("address", (Option.map x.address ~f:IpAddress.to_value));
        ("availabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value));
        ("instance", (Option.map x.instance ~f:AnalysisComponent.to_value));
        ("port", (Option.map x.port ~f:Port.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let instance =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "instance") in
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      let address =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "address") in
      make ?port ?instance ?availabilityZoneId ?availabilityZone ?address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let port = field_map json__ "Port" Port.of_json in
      let instance = field_map json__ "Instance" AnalysisComponent.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let address = field_map json__ "Address" IpAddress.of_json in
      make ?port ?instance ?availabilityZoneId ?availabilityZone ?address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a load balancer target."]
module AnalysisRouteTableRoute =
  struct
    type nonrec t =
      {
      destinationCidr: String_.t option
        [@ocaml.doc "The destination IPv4 address, in CIDR notation."];
      destinationPrefixListId: String_.t option
        [@ocaml.doc "The prefix of the Amazon Web Services service."];
      egressOnlyInternetGatewayId: String_.t option
        [@ocaml.doc "The ID of an egress-only internet gateway."];
      gatewayId: String_.t option
        [@ocaml.doc
          "The ID of the gateway, such as an internet gateway or virtual private gateway."];
      instanceId: String_.t option
        [@ocaml.doc "The ID of the instance, such as a NAT instance."];
      natGatewayId: String_.t option [@ocaml.doc "The ID of a NAT gateway."];
      networkInterfaceId: String_.t option
        [@ocaml.doc "The ID of a network interface."];
      origin: String_.t option
        [@ocaml.doc
          "Describes how the route was created. The following are the possible values: CreateRouteTable - The route was automatically created when the route table was created. CreateRoute - The route was manually added to the route table. EnableVgwRoutePropagation - The route was propagated by route propagation."];
      transitGatewayId: String_.t option
        [@ocaml.doc "The ID of a transit gateway."];
      vpcPeeringConnectionId: String_.t option
        [@ocaml.doc "The ID of a VPC peering connection."];
      state: String_.t option
        [@ocaml.doc
          "The state. The following are the possible values: active blackhole"];
      carrierGatewayId: String_.t option
        [@ocaml.doc "The ID of a carrier gateway."];
      coreNetworkArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a core network."];
      localGatewayId: String_.t option
        [@ocaml.doc "The ID of a local gateway."]}
    let make ?destinationCidr =
      fun ?destinationPrefixListId ->
        fun ?egressOnlyInternetGatewayId ->
          fun ?gatewayId ->
            fun ?instanceId ->
              fun ?natGatewayId ->
                fun ?networkInterfaceId ->
                  fun ?origin ->
                    fun ?transitGatewayId ->
                      fun ?vpcPeeringConnectionId ->
                        fun ?state ->
                          fun ?carrierGatewayId ->
                            fun ?coreNetworkArn ->
                              fun ?localGatewayId ->
                                fun () ->
                                  {
                                    destinationCidr;
                                    destinationPrefixListId;
                                    egressOnlyInternetGatewayId;
                                    gatewayId;
                                    instanceId;
                                    natGatewayId;
                                    networkInterfaceId;
                                    origin;
                                    transitGatewayId;
                                    vpcPeeringConnectionId;
                                    state;
                                    carrierGatewayId;
                                    coreNetworkArn;
                                    localGatewayId
                                  }
    let to_value x =
      structure_to_value
        [("destinationCidr",
           (Option.map x.destinationCidr ~f:String_.to_value));
        ("destinationPrefixListId",
          (Option.map x.destinationPrefixListId ~f:String_.to_value));
        ("egressOnlyInternetGatewayId",
          (Option.map x.egressOnlyInternetGatewayId ~f:String_.to_value));
        ("gatewayId", (Option.map x.gatewayId ~f:String_.to_value));
        ("instanceId", (Option.map x.instanceId ~f:String_.to_value));
        ("natGatewayId", (Option.map x.natGatewayId ~f:String_.to_value));
        ("networkInterfaceId",
          (Option.map x.networkInterfaceId ~f:String_.to_value));
        ("origin", (Option.map x.origin ~f:String_.to_value));
        ("transitGatewayId",
          (Option.map x.transitGatewayId ~f:String_.to_value));
        ("vpcPeeringConnectionId",
          (Option.map x.vpcPeeringConnectionId ~f:String_.to_value));
        ("state", (Option.map x.state ~f:String_.to_value));
        ("carrierGatewayId",
          (Option.map x.carrierGatewayId ~f:String_.to_value));
        ("coreNetworkArn",
          (Option.map x.coreNetworkArn ~f:ResourceArn.to_value));
        ("localGatewayId", (Option.map x.localGatewayId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let localGatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "localGatewayId") in
      let coreNetworkArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "coreNetworkArn") in
      let carrierGatewayId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "carrierGatewayId") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "state") in
      let vpcPeeringConnectionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "vpcPeeringConnectionId") in
      let transitGatewayId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "transitGatewayId") in
      let origin =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "origin") in
      let networkInterfaceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "networkInterfaceId") in
      let natGatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "natGatewayId") in
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceId") in
      let gatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "gatewayId") in
      let egressOnlyInternetGatewayId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "egressOnlyInternetGatewayId") in
      let destinationPrefixListId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "destinationPrefixListId") in
      let destinationCidr =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "destinationCidr") in
      make ?localGatewayId ?coreNetworkArn ?carrierGatewayId ?state
        ?vpcPeeringConnectionId ?transitGatewayId ?origin ?networkInterfaceId
        ?natGatewayId ?instanceId ?gatewayId ?egressOnlyInternetGatewayId
        ?destinationPrefixListId ?destinationCidr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let localGatewayId = field_map json__ "LocalGatewayId" String_.of_json in
      let coreNetworkArn =
        field_map json__ "CoreNetworkArn" ResourceArn.of_json in
      let carrierGatewayId =
        field_map json__ "CarrierGatewayId" String_.of_json in
      let state = field_map json__ "State" String_.of_json in
      let vpcPeeringConnectionId =
        field_map json__ "VpcPeeringConnectionId" String_.of_json in
      let transitGatewayId =
        field_map json__ "TransitGatewayId" String_.of_json in
      let origin = field_map json__ "Origin" String_.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" String_.of_json in
      let natGatewayId = field_map json__ "NatGatewayId" String_.of_json in
      let instanceId = field_map json__ "InstanceId" String_.of_json in
      let gatewayId = field_map json__ "GatewayId" String_.of_json in
      let egressOnlyInternetGatewayId =
        field_map json__ "EgressOnlyInternetGatewayId" String_.of_json in
      let destinationPrefixListId =
        field_map json__ "DestinationPrefixListId" String_.of_json in
      let destinationCidr =
        field_map json__ "DestinationCidr" String_.of_json in
      make ?localGatewayId ?coreNetworkArn ?carrierGatewayId ?state
        ?vpcPeeringConnectionId ?transitGatewayId ?origin ?networkInterfaceId
        ?natGatewayId ?instanceId ?gatewayId ?egressOnlyInternetGatewayId
        ?destinationPrefixListId ?destinationCidr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route table route."]
module AnalysisSecurityGroupRule =
  struct
    type nonrec t =
      {
      cidr: String_.t option
        [@ocaml.doc "The IPv4 address range, in CIDR notation."];
      direction: String_.t option
        [@ocaml.doc
          "The direction. The following are the possible values: egress ingress"];
      securityGroupId: String_.t option [@ocaml.doc "The security group ID."];
      portRange: PortRange.t option [@ocaml.doc "The port range."];
      prefixListId: String_.t option [@ocaml.doc "The prefix list ID."];
      protocol: String_.t option [@ocaml.doc "The protocol name."]}
    let make ?cidr =
      fun ?direction ->
        fun ?securityGroupId ->
          fun ?portRange ->
            fun ?prefixListId ->
              fun ?protocol ->
                fun () ->
                  {
                    cidr;
                    direction;
                    securityGroupId;
                    portRange;
                    prefixListId;
                    protocol
                  }
    let to_value x =
      structure_to_value
        [("cidr", (Option.map x.cidr ~f:String_.to_value));
        ("direction", (Option.map x.direction ~f:String_.to_value));
        ("securityGroupId",
          (Option.map x.securityGroupId ~f:String_.to_value));
        ("portRange", (Option.map x.portRange ~f:PortRange.to_value));
        ("prefixListId", (Option.map x.prefixListId ~f:String_.to_value));
        ("protocol", (Option.map x.protocol ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocol =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "protocol") in
      let prefixListId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "prefixListId") in
      let portRange =
        (Option.map ~f:PortRange.of_xml) (Xml.child xml_arg0 "portRange") in
      let securityGroupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "securityGroupId") in
      let direction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "direction") in
      let cidr = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidr") in
      make ?protocol ?prefixListId ?portRange ?securityGroupId ?direction
        ?cidr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocol = field_map json__ "Protocol" String_.of_json in
      let prefixListId = field_map json__ "PrefixListId" String_.of_json in
      let portRange = field_map json__ "PortRange" PortRange.of_json in
      let securityGroupId =
        field_map json__ "SecurityGroupId" String_.of_json in
      let direction = field_map json__ "Direction" String_.of_json in
      let cidr = field_map json__ "Cidr" String_.of_json in
      make ?protocol ?prefixListId ?portRange ?securityGroupId ?direction
        ?cidr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a security group rule."]
module ComponentAccount =
  struct
    type nonrec t = string
    let context_ = "ComponentAccount"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComponentAccount" j
    let to_json = simple_to_json to_value
  end
module ComponentRegion =
  struct
    type nonrec t = string
    let context_ = "ComponentRegion"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z]{2}-[a-z]+-[1-9]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComponentRegion" j
    let to_json = simple_to_json to_value
  end
module FirewallStatefulRule =
  struct
    type nonrec t =
      {
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the stateful rule group."];
      sources: ValueStringList.t option
        [@ocaml.doc "The source IP addresses, in CIDR notation."];
      destinations: ValueStringList.t option
        [@ocaml.doc "The destination IP addresses, in CIDR notation."];
      sourcePorts: PortRangeList.t option [@ocaml.doc "The source ports."];
      destinationPorts: PortRangeList.t option
        [@ocaml.doc "The destination ports."];
      protocol: String_.t option [@ocaml.doc "The protocol."];
      ruleAction: String_.t option
        [@ocaml.doc
          "The rule action. The possible values are pass, drop, and alert."];
      direction: String_.t option
        [@ocaml.doc
          "The direction. The possible values are FORWARD and ANY."]}
    let make ?ruleGroupArn =
      fun ?sources ->
        fun ?destinations ->
          fun ?sourcePorts ->
            fun ?destinationPorts ->
              fun ?protocol ->
                fun ?ruleAction ->
                  fun ?direction ->
                    fun () ->
                      {
                        ruleGroupArn;
                        sources;
                        destinations;
                        sourcePorts;
                        destinationPorts;
                        protocol;
                        ruleAction;
                        direction
                      }
    let to_value x =
      structure_to_value
        [("ruleGroupArn",
           (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("sourceSet", (Option.map x.sources ~f:ValueStringList.to_value));
        ("destinationSet",
          (Option.map x.destinations ~f:ValueStringList.to_value));
        ("sourcePortSet",
          (Option.map x.sourcePorts ~f:PortRangeList.to_value));
        ("destinationPortSet",
          (Option.map x.destinationPorts ~f:PortRangeList.to_value));
        ("protocol", (Option.map x.protocol ~f:String_.to_value));
        ("ruleAction", (Option.map x.ruleAction ~f:String_.to_value));
        ("direction", (Option.map x.direction ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let direction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "direction") in
      let ruleAction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ruleAction") in
      let protocol =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "protocol") in
      let destinationPorts =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "destinationPortSet") in
      let sourcePorts =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "sourcePortSet") in
      let destinations =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "destinationSet") in
      let sources =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "sourceSet") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ruleGroupArn") in
      make ?direction ?ruleAction ?protocol ?destinationPorts ?sourcePorts
        ?destinations ?sources ?ruleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let direction = field_map json__ "Direction" String_.of_json in
      let ruleAction = field_map json__ "RuleAction" String_.of_json in
      let protocol = field_map json__ "Protocol" String_.of_json in
      let destinationPorts =
        field_map json__ "DestinationPorts" PortRangeList.of_json in
      let sourcePorts = field_map json__ "SourcePorts" PortRangeList.of_json in
      let destinations =
        field_map json__ "Destinations" ValueStringList.of_json in
      let sources = field_map json__ "Sources" ValueStringList.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      make ?direction ?ruleAction ?protocol ?destinationPorts ?sourcePorts
        ?destinations ?sources ?ruleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a stateful rule."]
module FirewallStatelessRule =
  struct
    type nonrec t =
      {
      ruleGroupArn: ResourceArn.t option
        [@ocaml.doc "The ARN of the stateless rule group."];
      sources: ValueStringList.t option
        [@ocaml.doc "The source IP addresses, in CIDR notation."];
      destinations: ValueStringList.t option
        [@ocaml.doc "The destination IP addresses, in CIDR notation."];
      sourcePorts: PortRangeList.t option [@ocaml.doc "The source ports."];
      destinationPorts: PortRangeList.t option
        [@ocaml.doc "The destination ports."];
      protocols: ProtocolIntList.t option [@ocaml.doc "The protocols."];
      ruleAction: String_.t option
        [@ocaml.doc
          "The rule action. The possible values are pass, drop, and forward_to_site."];
      priority: Priority.t option [@ocaml.doc "The rule priority."]}
    let make ?ruleGroupArn =
      fun ?sources ->
        fun ?destinations ->
          fun ?sourcePorts ->
            fun ?destinationPorts ->
              fun ?protocols ->
                fun ?ruleAction ->
                  fun ?priority ->
                    fun () ->
                      {
                        ruleGroupArn;
                        sources;
                        destinations;
                        sourcePorts;
                        destinationPorts;
                        protocols;
                        ruleAction;
                        priority
                      }
    let to_value x =
      structure_to_value
        [("ruleGroupArn",
           (Option.map x.ruleGroupArn ~f:ResourceArn.to_value));
        ("sourceSet", (Option.map x.sources ~f:ValueStringList.to_value));
        ("destinationSet",
          (Option.map x.destinations ~f:ValueStringList.to_value));
        ("sourcePortSet",
          (Option.map x.sourcePorts ~f:PortRangeList.to_value));
        ("destinationPortSet",
          (Option.map x.destinationPorts ~f:PortRangeList.to_value));
        ("protocolSet", (Option.map x.protocols ~f:ProtocolIntList.to_value));
        ("ruleAction", (Option.map x.ruleAction ~f:String_.to_value));
        ("priority", (Option.map x.priority ~f:Priority.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "priority") in
      let ruleAction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ruleAction") in
      let protocols =
        (Option.map ~f:ProtocolIntList.of_xml)
          (Xml.child xml_arg0 "protocolSet") in
      let destinationPorts =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "destinationPortSet") in
      let sourcePorts =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "sourcePortSet") in
      let destinations =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "destinationSet") in
      let sources =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "sourceSet") in
      let ruleGroupArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "ruleGroupArn") in
      make ?priority ?ruleAction ?protocols ?destinationPorts ?sourcePorts
        ?destinations ?sources ?ruleGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority = field_map json__ "Priority" Priority.of_json in
      let ruleAction = field_map json__ "RuleAction" String_.of_json in
      let protocols = field_map json__ "Protocols" ProtocolIntList.of_json in
      let destinationPorts =
        field_map json__ "DestinationPorts" PortRangeList.of_json in
      let sourcePorts = field_map json__ "SourcePorts" PortRangeList.of_json in
      let destinations =
        field_map json__ "Destinations" ValueStringList.of_json in
      let sources = field_map json__ "Sources" ValueStringList.of_json in
      let ruleGroupArn = field_map json__ "RuleGroupArn" ResourceArn.of_json in
      make ?priority ?ruleAction ?protocols ?destinationPorts ?sourcePorts
        ?destinations ?sources ?ruleGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a stateless rule."]
module IpAddressList =
  struct
    type nonrec t = IpAddress.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IpAddress.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IpAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"IpAddressList" ~of_json:IpAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayRouteTableRoute =
  struct
    type nonrec t =
      {
      destinationCidr: String_.t option
        [@ocaml.doc "The CIDR block used for destination matches."];
      state: String_.t option [@ocaml.doc "The state of the route."];
      routeOrigin: String_.t option
        [@ocaml.doc
          "The route origin. The following are the possible values: static propagated"];
      prefixListId: String_.t option
        [@ocaml.doc "The ID of the prefix list."];
      attachmentId: String_.t option
        [@ocaml.doc "The ID of the route attachment."];
      resourceId: String_.t option
        [@ocaml.doc "The ID of the resource for the route attachment."];
      resourceType: String_.t option
        [@ocaml.doc "The resource type for the route attachment."]}
    let make ?destinationCidr =
      fun ?state ->
        fun ?routeOrigin ->
          fun ?prefixListId ->
            fun ?attachmentId ->
              fun ?resourceId ->
                fun ?resourceType ->
                  fun () ->
                    {
                      destinationCidr;
                      state;
                      routeOrigin;
                      prefixListId;
                      attachmentId;
                      resourceId;
                      resourceType
                    }
    let to_value x =
      structure_to_value
        [("destinationCidr",
           (Option.map x.destinationCidr ~f:String_.to_value));
        ("state", (Option.map x.state ~f:String_.to_value));
        ("routeOrigin", (Option.map x.routeOrigin ~f:String_.to_value));
        ("prefixListId", (Option.map x.prefixListId ~f:String_.to_value));
        ("attachmentId", (Option.map x.attachmentId ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let attachmentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "attachmentId") in
      let prefixListId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "prefixListId") in
      let routeOrigin =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "routeOrigin") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "state") in
      let destinationCidr =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "destinationCidr") in
      make ?resourceType ?resourceId ?attachmentId ?prefixListId ?routeOrigin
        ?state ?destinationCidr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let attachmentId = field_map json__ "AttachmentId" String_.of_json in
      let prefixListId = field_map json__ "PrefixListId" String_.of_json in
      let routeOrigin = field_map json__ "RouteOrigin" String_.of_json in
      let state = field_map json__ "State" String_.of_json in
      let destinationCidr =
        field_map json__ "DestinationCidr" String_.of_json in
      make ?resourceType ?resourceId ?attachmentId ?prefixListId ?routeOrigin
        ?state ?destinationCidr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route in a transit gateway route table."]
module IKEVersionsListValue =
  struct
    type nonrec t = {
      value: String_.t option [@ocaml.doc "The IKE version."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The internet key exchange (IKE) version permitted for the VPN tunnel."]
module Phase1DHGroupNumbersListValue =
  struct
    type nonrec t =
      {
      value: Integer.t option
        [@ocaml.doc "The Diffie-Hellmann group number."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" Integer.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Diffie-Hellmann group number for phase 1 IKE negotiations."]
module Phase1EncryptionAlgorithmsListValue =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "The value for the encryption algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The encryption algorithm for phase 1 IKE negotiations."]
module Phase1IntegrityAlgorithmsListValue =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "The value for the integrity algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The integrity algorithm for phase 1 IKE negotiations."]
module Phase2DHGroupNumbersListValue =
  struct
    type nonrec t =
      {
      value: Integer.t option
        [@ocaml.doc "The Diffie-Hellmann group number."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" Integer.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Diffie-Hellmann group number for phase 2 IKE negotiations."]
module Phase2EncryptionAlgorithmsListValue =
  struct
    type nonrec t =
      {
      value: String_.t option [@ocaml.doc "The encryption algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The encryption algorithm for phase 2 IKE negotiations."]
module Phase2IntegrityAlgorithmsListValue =
  struct
    type nonrec t =
      {
      value: String_.t option [@ocaml.doc "The integrity algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The integrity algorithm for phase 2 IKE negotiations."]
module CloudWatchLogOptions =
  struct
    type nonrec t =
      {
      logEnabled: Boolean.t option
        [@ocaml.doc
          "Status of VPN tunnel logging feature. Default value is False. Valid values: True | False"];
      logGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch log group to send logs to."];
      logOutputFormat: String_.t option
        [@ocaml.doc
          "Configured log format. Default format is json. Valid values: json | text"];
      bgpLogEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether Border Gateway Protocol (BGP) logging is enabled for the VPN connection. Default value is False. Valid values: True | False"];
      bgpLogGroupArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch log group for BGP logs."];
      bgpLogOutputFormat: String_.t option
        [@ocaml.doc
          "The output format for BGP logs sent to CloudWatch. Default format is json. Valid values: json | text"]}
    let make ?logEnabled =
      fun ?logGroupArn ->
        fun ?logOutputFormat ->
          fun ?bgpLogEnabled ->
            fun ?bgpLogGroupArn ->
              fun ?bgpLogOutputFormat ->
                fun () ->
                  {
                    logEnabled;
                    logGroupArn;
                    logOutputFormat;
                    bgpLogEnabled;
                    bgpLogGroupArn;
                    bgpLogOutputFormat
                  }
    let to_value x =
      structure_to_value
        [("logEnabled", (Option.map x.logEnabled ~f:Boolean.to_value));
        ("logGroupArn", (Option.map x.logGroupArn ~f:String_.to_value));
        ("logOutputFormat",
          (Option.map x.logOutputFormat ~f:String_.to_value));
        ("bgpLogEnabled", (Option.map x.bgpLogEnabled ~f:Boolean.to_value));
        ("bgpLogGroupArn", (Option.map x.bgpLogGroupArn ~f:String_.to_value));
        ("bgpLogOutputFormat",
          (Option.map x.bgpLogOutputFormat ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bgpLogOutputFormat =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "bgpLogOutputFormat") in
      let bgpLogGroupArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "bgpLogGroupArn") in
      let bgpLogEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "bgpLogEnabled") in
      let logOutputFormat =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "logOutputFormat") in
      let logGroupArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "logGroupArn") in
      let logEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "logEnabled") in
      make ?bgpLogOutputFormat ?bgpLogGroupArn ?bgpLogEnabled
        ?logOutputFormat ?logGroupArn ?logEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bgpLogOutputFormat =
        field_map json__ "BgpLogOutputFormat" String_.of_json in
      let bgpLogGroupArn = field_map json__ "BgpLogGroupArn" String_.of_json in
      let bgpLogEnabled = field_map json__ "BgpLogEnabled" Boolean.of_json in
      let logOutputFormat =
        field_map json__ "LogOutputFormat" String_.of_json in
      let logGroupArn = field_map json__ "LogGroupArn" String_.of_json in
      let logEnabled = field_map json__ "LogEnabled" Boolean.of_json in
      make ?bgpLogOutputFormat ?bgpLogGroupArn ?bgpLogEnabled
        ?logOutputFormat ?logGroupArn ?logEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for sending VPN tunnel logs to CloudWatch."]
module BlockDeviceMapping =
  struct
    type nonrec t =
      {
      ebs: EbsBlockDevice.t option
        [@ocaml.doc
          "Parameters used to automatically set up EBS volumes when the instance is launched."];
      noDevice: String_.t option
        [@ocaml.doc
          "To omit the device from the block device mapping, specify an empty string. When this property is specified, the device is removed from the block device mapping regardless of the assigned value."];
      deviceName: String_.t option
        [@ocaml.doc
          "The device name. For available device names, see Device names for volumes."];
      virtualName: String_.t option
        [@ocaml.doc
          "The virtual device name (ephemeralN). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for ephemeral0 and ephemeral1. The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. NVMe instance store volumes are automatically enumerated and assigned a device name. Including them in your block device mapping has no effect. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI."]}
    let make ?ebs =
      fun ?noDevice ->
        fun ?deviceName ->
          fun ?virtualName ->
            fun () -> { ebs; noDevice; deviceName; virtualName }
    let to_value x =
      structure_to_value
        [("ebs", (Option.map x.ebs ~f:EbsBlockDevice.to_value));
        ("noDevice", (Option.map x.noDevice ~f:String_.to_value));
        ("deviceName", (Option.map x.deviceName ~f:String_.to_value));
        ("virtualName", (Option.map x.virtualName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let virtualName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "virtualName") in
      let deviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "deviceName") in
      let noDevice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "noDevice") in
      let ebs =
        (Option.map ~f:EbsBlockDevice.of_xml) (Xml.child xml_arg0 "ebs") in
      make ?virtualName ?deviceName ?noDevice ?ebs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let virtualName = field_map json__ "VirtualName" String_.of_json in
      let deviceName = field_map json__ "DeviceName" String_.of_json in
      let noDevice = field_map json__ "NoDevice" String_.of_json in
      let ebs = field_map json__ "Ebs" EbsBlockDevice.of_json in
      make ?virtualName ?deviceName ?noDevice ?ebs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a block device mapping, which defines the EBS volumes and instance store volumes to attach to an instance at launch."]
module InstanceNetworkInterfaceSpecification =
  struct
    type nonrec t =
      {
      associatePublicIpAddress: Boolean.t option
        [@ocaml.doc
          "Indicates whether to assign a public IPv4 address to an instance you launch in a VPC. The public IP address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is true. Amazon Web Services charges for all public IPv4 addresses, including public IPv4 addresses associated with running instances and Elastic IP addresses. For more information, see the Public IPv4 Address tab on the Amazon VPC pricing page."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "If set to true, the interface is deleted when the instance is terminated. You can specify true only if creating a new network interface when launching an instance."];
      description: String_.t option
        [@ocaml.doc
          "The description of the network interface. Applies only if creating a network interface when launching an instance."];
      deviceIndex: Integer.t option
        [@ocaml.doc
          "The position of the network interface in the attachment order. A primary network interface has a device index of 0. If you specify a network interface when launching an instance, you must specify the device index."];
      groups: SecurityGroupIdStringList.t option
        [@ocaml.doc
          "The IDs of the security groups for the network interface. Applies only if creating a network interface when launching an instance."];
      ipv6AddressCount: Integer.t option
        [@ocaml.doc
          "A number of IPv6 addresses to assign to the network interface. Amazon EC2 chooses the IPv6 addresses from the range of the subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch."];
      ipv6Addresses: InstanceIpv6AddressList.t option
        [@ocaml.doc
          "The IPv6 addresses to assign to the network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch."];
      networkInterfaceId: NetworkInterfaceId.t option
        [@ocaml.doc
          "The ID of the network interface. If you are creating a Spot Fleet, omit this parameter because you can\226\128\153t specify a network interface ID in a launch specification."];
      privateIpAddress: String_.t option
        [@ocaml.doc
          "The private IPv4 address of the network interface. Applies only if creating a network interface when launching an instance. You cannot specify this option if you're launching more than one instance in a RunInstances request."];
      privateIpAddresses: PrivateIpAddressSpecificationList.t option
        [@ocaml.doc
          "The private IPv4 addresses to assign to the network interface. Only one private IPv4 address can be designated as primary. You cannot specify this option if you're launching more than one instance in a RunInstances request."];
      secondaryPrivateIpAddressCount: Integer.t option
        [@ocaml.doc
          "The number of secondary private IPv4 addresses. You can\226\128\153t specify this parameter and also specify a secondary private IP address using the PrivateIpAddress parameter."];
      subnetId: String_.t option
        [@ocaml.doc
          "The ID of the subnet associated with the network interface. Applies only if creating a network interface when launching an instance."];
      associateCarrierIpAddress: Boolean.t option
        [@ocaml.doc
          "Indicates whether to assign a carrier IP address to the network interface. You can only assign a carrier IP address to a network interface that is in a subnet in a Wavelength Zone. For more information about carrier IP addresses, see Carrier IP address in the Amazon Web Services Wavelength Developer Guide."];
      interfaceType: String_.t option
        [@ocaml.doc
          "The type of network interface. If you specify efa-only, do not assign any IP addresses to the network interface. EFA-only network interfaces do not support IP addresses. Valid values: interface | efa | efa-only"];
      networkCardIndex: Integer.t option
        [@ocaml.doc
          "The index of the network card. Some instance types support multiple network cards. The primary network interface must be assigned to network card index 0. The default is network card index 0. If you are using RequestSpotInstances to create Spot Instances, omit this parameter because you can\226\128\153t specify the network card index when using this API. To specify the network card index, use RunInstances."];
      ipv4Prefixes: Ipv4PrefixList.t option
        [@ocaml.doc
          "The IPv4 delegated prefixes to be assigned to the network interface. You cannot use this option if you use the Ipv4PrefixCount option."];
      ipv4PrefixCount: Integer.t option
        [@ocaml.doc
          "The number of IPv4 delegated prefixes to be automatically assigned to the network interface. You cannot use this option if you use the Ipv4Prefix option."];
      ipv6Prefixes: Ipv6PrefixList.t option
        [@ocaml.doc
          "The IPv6 delegated prefixes to be assigned to the network interface. You cannot use this option if you use the Ipv6PrefixCount option."];
      ipv6PrefixCount: Integer.t option
        [@ocaml.doc
          "The number of IPv6 delegated prefixes to be automatically assigned to the network interface. You cannot use this option if you use the Ipv6Prefix option."];
      primaryIpv6: Boolean.t option
        [@ocaml.doc
          "The primary IPv6 address of the network interface. When you enable an IPv6 GUA address to be a primary IPv6, the first IPv6 GUA will be made the primary IPv6 address until the instance is terminated or the network interface is detached. For more information about primary IPv6 addresses, see RunInstances."];
      enaSrdSpecification: EnaSrdSpecificationRequest.t option
        [@ocaml.doc
          "Specifies the ENA Express settings for the network interface that's attached to the instance."];
      connectionTrackingSpecification:
        ConnectionTrackingSpecificationRequest.t option
        [@ocaml.doc
          "A security group connection tracking specification that enables you to set the timeout for connection tracking on an Elastic network interface. For more information, see Connection tracking timeouts in the Amazon EC2 User Guide."];
      enaQueueCount: Integer.t option
        [@ocaml.doc
          "The number of ENA queues to be created with the instance."]}
    let make ?associatePublicIpAddress =
      fun ?deleteOnTermination ->
        fun ?description ->
          fun ?deviceIndex ->
            fun ?groups ->
              fun ?ipv6AddressCount ->
                fun ?ipv6Addresses ->
                  fun ?networkInterfaceId ->
                    fun ?privateIpAddress ->
                      fun ?privateIpAddresses ->
                        fun ?secondaryPrivateIpAddressCount ->
                          fun ?subnetId ->
                            fun ?associateCarrierIpAddress ->
                              fun ?interfaceType ->
                                fun ?networkCardIndex ->
                                  fun ?ipv4Prefixes ->
                                    fun ?ipv4PrefixCount ->
                                      fun ?ipv6Prefixes ->
                                        fun ?ipv6PrefixCount ->
                                          fun ?primaryIpv6 ->
                                            fun ?enaSrdSpecification ->
                                              fun
                                                ?connectionTrackingSpecification
                                                ->
                                                fun ?enaQueueCount ->
                                                  fun () ->
                                                    {
                                                      associatePublicIpAddress;
                                                      deleteOnTermination;
                                                      description;
                                                      deviceIndex;
                                                      groups;
                                                      ipv6AddressCount;
                                                      ipv6Addresses;
                                                      networkInterfaceId;
                                                      privateIpAddress;
                                                      privateIpAddresses;
                                                      secondaryPrivateIpAddressCount;
                                                      subnetId;
                                                      associateCarrierIpAddress;
                                                      interfaceType;
                                                      networkCardIndex;
                                                      ipv4Prefixes;
                                                      ipv4PrefixCount;
                                                      ipv6Prefixes;
                                                      ipv6PrefixCount;
                                                      primaryIpv6;
                                                      enaSrdSpecification;
                                                      connectionTrackingSpecification;
                                                      enaQueueCount
                                                    }
    let to_value x =
      structure_to_value
        [("associatePublicIpAddress",
           (Option.map x.associatePublicIpAddress ~f:Boolean.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("deviceIndex", (Option.map x.deviceIndex ~f:Integer.to_value));
        ("SecurityGroupId",
          (Option.map x.groups ~f:SecurityGroupIdStringList.to_value));
        ("ipv6AddressCount",
          (Option.map x.ipv6AddressCount ~f:Integer.to_value));
        ("ipv6AddressesSet",
          (Option.map x.ipv6Addresses ~f:InstanceIpv6AddressList.to_value));
        ("networkInterfaceId",
          (Option.map x.networkInterfaceId ~f:NetworkInterfaceId.to_value));
        ("privateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value));
        ("privateIpAddressesSet",
          (Option.map x.privateIpAddresses
             ~f:PrivateIpAddressSpecificationList.to_value));
        ("secondaryPrivateIpAddressCount",
          (Option.map x.secondaryPrivateIpAddressCount ~f:Integer.to_value));
        ("subnetId", (Option.map x.subnetId ~f:String_.to_value));
        ("AssociateCarrierIpAddress",
          (Option.map x.associateCarrierIpAddress ~f:Boolean.to_value));
        ("InterfaceType", (Option.map x.interfaceType ~f:String_.to_value));
        ("NetworkCardIndex",
          (Option.map x.networkCardIndex ~f:Integer.to_value));
        ("Ipv4Prefix",
          (Option.map x.ipv4Prefixes ~f:Ipv4PrefixList.to_value));
        ("Ipv4PrefixCount",
          (Option.map x.ipv4PrefixCount ~f:Integer.to_value));
        ("Ipv6Prefix",
          (Option.map x.ipv6Prefixes ~f:Ipv6PrefixList.to_value));
        ("Ipv6PrefixCount",
          (Option.map x.ipv6PrefixCount ~f:Integer.to_value));
        ("PrimaryIpv6", (Option.map x.primaryIpv6 ~f:Boolean.to_value));
        ("EnaSrdSpecification",
          (Option.map x.enaSrdSpecification
             ~f:EnaSrdSpecificationRequest.to_value));
        ("ConnectionTrackingSpecification",
          (Option.map x.connectionTrackingSpecification
             ~f:ConnectionTrackingSpecificationRequest.to_value));
        ("EnaQueueCount", (Option.map x.enaQueueCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaQueueCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "EnaQueueCount") in
      let connectionTrackingSpecification =
        (Option.map ~f:ConnectionTrackingSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "ConnectionTrackingSpecification") in
      let enaSrdSpecification =
        (Option.map ~f:EnaSrdSpecificationRequest.of_xml)
          (Xml.child xml_arg0 "EnaSrdSpecification") in
      let primaryIpv6 =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "PrimaryIpv6") in
      let ipv6PrefixCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Ipv6PrefixCount") in
      let ipv6Prefixes =
        (Option.map ~f:Ipv6PrefixList.of_xml)
          (Xml.child xml_arg0 "Ipv6Prefix") in
      let ipv4PrefixCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Ipv4PrefixCount") in
      let ipv4Prefixes =
        (Option.map ~f:Ipv4PrefixList.of_xml)
          (Xml.child xml_arg0 "Ipv4Prefix") in
      let networkCardIndex =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NetworkCardIndex") in
      let interfaceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InterfaceType") in
      let associateCarrierIpAddress =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AssociateCarrierIpAddress") in
      let subnetId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "subnetId") in
      let secondaryPrivateIpAddressCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "secondaryPrivateIpAddressCount") in
      let privateIpAddresses =
        (Option.map ~f:PrivateIpAddressSpecificationList.of_xml)
          (Xml.child xml_arg0 "privateIpAddressesSet") in
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      let networkInterfaceId =
        (Option.map ~f:NetworkInterfaceId.of_xml)
          (Xml.child xml_arg0 "networkInterfaceId") in
      let ipv6Addresses =
        (Option.map ~f:InstanceIpv6AddressList.of_xml)
          (Xml.child xml_arg0 "ipv6AddressesSet") in
      let ipv6AddressCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "ipv6AddressCount") in
      let groups =
        (Option.map ~f:SecurityGroupIdStringList.of_xml)
          (Xml.child xml_arg0 "SecurityGroupId") in
      let deviceIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "deviceIndex") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let associatePublicIpAddress =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "associatePublicIpAddress") in
      make ?enaQueueCount ?connectionTrackingSpecification
        ?enaSrdSpecification ?primaryIpv6 ?ipv6PrefixCount ?ipv6Prefixes
        ?ipv4PrefixCount ?ipv4Prefixes ?networkCardIndex ?interfaceType
        ?associateCarrierIpAddress ?subnetId ?secondaryPrivateIpAddressCount
        ?privateIpAddresses ?privateIpAddress ?networkInterfaceId
        ?ipv6Addresses ?ipv6AddressCount ?groups ?deviceIndex ?description
        ?deleteOnTermination ?associatePublicIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaQueueCount = field_map json__ "EnaQueueCount" Integer.of_json in
      let connectionTrackingSpecification =
        field_map json__ "ConnectionTrackingSpecification"
          ConnectionTrackingSpecificationRequest.of_json in
      let enaSrdSpecification =
        field_map json__ "EnaSrdSpecification"
          EnaSrdSpecificationRequest.of_json in
      let primaryIpv6 = field_map json__ "PrimaryIpv6" Boolean.of_json in
      let ipv6PrefixCount =
        field_map json__ "Ipv6PrefixCount" Integer.of_json in
      let ipv6Prefixes =
        field_map json__ "Ipv6Prefixes" Ipv6PrefixList.of_json in
      let ipv4PrefixCount =
        field_map json__ "Ipv4PrefixCount" Integer.of_json in
      let ipv4Prefixes =
        field_map json__ "Ipv4Prefixes" Ipv4PrefixList.of_json in
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" Integer.of_json in
      let interfaceType = field_map json__ "InterfaceType" String_.of_json in
      let associateCarrierIpAddress =
        field_map json__ "AssociateCarrierIpAddress" Boolean.of_json in
      let subnetId = field_map json__ "SubnetId" String_.of_json in
      let secondaryPrivateIpAddressCount =
        field_map json__ "SecondaryPrivateIpAddressCount" Integer.of_json in
      let privateIpAddresses =
        field_map json__ "PrivateIpAddresses"
          PrivateIpAddressSpecificationList.of_json in
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let ipv6Addresses =
        field_map json__ "Ipv6Addresses" InstanceIpv6AddressList.of_json in
      let ipv6AddressCount =
        field_map json__ "Ipv6AddressCount" Integer.of_json in
      let groups =
        field_map json__ "Groups" SecurityGroupIdStringList.of_json in
      let deviceIndex = field_map json__ "DeviceIndex" Integer.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let associatePublicIpAddress =
        field_map json__ "AssociatePublicIpAddress" Boolean.of_json in
      make ?enaQueueCount ?connectionTrackingSpecification
        ?enaSrdSpecification ?primaryIpv6 ?ipv6PrefixCount ?ipv6Prefixes
        ?ipv4PrefixCount ?ipv4Prefixes ?networkCardIndex ?interfaceType
        ?associateCarrierIpAddress ?subnetId ?secondaryPrivateIpAddressCount
        ?privateIpAddresses ?privateIpAddress ?networkInterfaceId
        ?ipv6Addresses ?ipv6AddressCount ?groups ?deviceIndex ?description
        ?deleteOnTermination ?associatePublicIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network interface."]
module SpotFleetTagSpecification =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc
          "The type of resource. Currently, the only resource type that is supported is instance. To tag the Spot Fleet request on creation, use the TagSpecifications parameter in SpotFleetRequestConfigData ."];
      tags: TagList.t option [@ocaml.doc "The tags."]}
    let make ?resourceType = fun ?tags -> fun () -> { resourceType; tags }
    let to_value x =
      structure_to_value
        [("resourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("tag", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tag") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      make ?tags ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?tags ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tags for a Spot Fleet resource."]
module Tenancy =
  struct
    type nonrec t =
      | Default 
      | Dedicated 
      | Host 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Dedicated -> "dedicated"
      | Host -> "host"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "dedicated" -> Dedicated
      | "host" -> Host
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Tenancy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Tenancy" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateName =
  struct
    type nonrec t = string
    let context_ = "LaunchTemplateName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z0-9\\(\\)\\.\\-/_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LaunchTemplateName" j
    let to_json = simple_to_json to_value
  end
module LaunchTemplateOverrides =
  struct
    type nonrec t =
      {
      instanceType: InstanceType.t option [@ocaml.doc "The instance type."];
      spotPrice: String_.t option
        [@ocaml.doc
          "The maximum price per unit hour that you are willing to pay for a Spot Instance. We do not recommend using this parameter because it can lead to increased interruptions. If you do not specify this parameter, you will pay the current Spot price. If you specify a maximum price, your instances will be interrupted more frequently than if you do not specify this parameter."];
      subnetId: SubnetId.t option
        [@ocaml.doc "The ID of the subnet in which to launch the instances."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone in which to launch the instances. For example, us-east-2a. Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."];
      weightedCapacity: Double.t option
        [@ocaml.doc
          "The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms of instances, or a performance characteristic such as vCPUs, memory, or I/O. If the target capacity divided by this value is not a whole number, Amazon EC2 rounds the number of instances to the next whole number. If this value is not specified, the default is 1. When specifying weights, the price used in the lowestPrice and priceCapacityOptimized allocation strategies is per unit hour (where the instance price is divided by the specified weight). However, if all the specified weights are above the requested TargetCapacity, resulting in only 1 instance being launched, the price used is per instance hour."];
      priority: Double.t option
        [@ocaml.doc
          "The priority for the launch template override. The highest priority is launched first. If OnDemandAllocationStrategy is set to prioritized, Spot Fleet uses priority to determine which launch template override to use first in fulfilling On-Demand capacity. If the Spot AllocationStrategy is set to capacityOptimizedPrioritized, Spot Fleet uses priority on a best-effort basis to determine which launch template override to use in fulfilling Spot capacity, but optimizes for capacity first. Valid values are whole numbers starting at 0. The lower the number, the higher the priority. If no number is set, the launch template override has the lowest priority. You can set the same priority for different launch template overrides."];
      instanceRequirements: InstanceRequirements.t option
        [@ocaml.doc
          "The instance requirements. When you specify instance requirements, Amazon EC2 will identify instance types with the provided requirements, and then use your On-Demand and Spot allocation strategies to launch instances from these instance types, in the same way as when you specify a list of instance types. If you specify InstanceRequirements, you can't specify InstanceType."];
      availabilityZoneId: AvailabilityZoneId.t option
        [@ocaml.doc
          "The ID of the Availability Zone in which to launch the instances. For example, use2-az1. Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."]}
    let make ?instanceType =
      fun ?spotPrice ->
        fun ?subnetId ->
          fun ?availabilityZone ->
            fun ?weightedCapacity ->
              fun ?priority ->
                fun ?instanceRequirements ->
                  fun ?availabilityZoneId ->
                    fun () ->
                      {
                        instanceType;
                        spotPrice;
                        subnetId;
                        availabilityZone;
                        weightedCapacity;
                        priority;
                        instanceRequirements;
                        availabilityZoneId
                      }
    let to_value x =
      structure_to_value
        [("instanceType",
           (Option.map x.instanceType ~f:InstanceType.to_value));
        ("spotPrice", (Option.map x.spotPrice ~f:String_.to_value));
        ("subnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("availabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value));
        ("weightedCapacity",
          (Option.map x.weightedCapacity ~f:Double.to_value));
        ("priority", (Option.map x.priority ~f:Double.to_value));
        ("instanceRequirements",
          (Option.map x.instanceRequirements ~f:InstanceRequirements.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:AvailabilityZoneId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneId =
        (Option.map ~f:AvailabilityZoneId.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let instanceRequirements =
        (Option.map ~f:InstanceRequirements.of_xml)
          (Xml.child xml_arg0 "instanceRequirements") in
      let priority =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "priority") in
      let weightedCapacity =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "weightedCapacity") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "subnetId") in
      let spotPrice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "spotPrice") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      make ?availabilityZoneId ?instanceRequirements ?priority
        ?weightedCapacity ?availabilityZone ?subnetId ?spotPrice
        ?instanceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" AvailabilityZoneId.of_json in
      let instanceRequirements =
        field_map json__ "InstanceRequirements" InstanceRequirements.of_json in
      let priority = field_map json__ "Priority" Double.of_json in
      let weightedCapacity =
        field_map json__ "WeightedCapacity" Double.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let spotPrice = field_map json__ "SpotPrice" String_.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      make ?availabilityZoneId ?instanceRequirements ?priority
        ?weightedCapacity ?availabilityZone ?subnetId ?spotPrice
        ?instanceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes overrides for a launch template."]
module ClassicLoadBalancer =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the load balancer."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a Classic Load Balancer."]
module TargetGroup =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target group."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Option.map x.arn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" String_.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a load balancer target group."]
module Ipv4PrefixSpecificationResponse =
  struct
    type nonrec t =
      {
      ipv4Prefix: String_.t option
        [@ocaml.doc
          "The IPv4 delegated prefixes assigned to the network interface."]}
    let make ?ipv4Prefix = fun () -> { ipv4Prefix }
    let to_value x =
      structure_to_value
        [("ipv4Prefix", (Option.map x.ipv4Prefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv4Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv4Prefix") in
      make ?ipv4Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv4Prefix = field_map json__ "Ipv4Prefix" String_.of_json in
      make ?ipv4Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the IPv4 delegated prefixes assigned to a network interface."]
module Ipv6PrefixSpecificationResponse =
  struct
    type nonrec t =
      {
      ipv6Prefix: String_.t option
        [@ocaml.doc
          "The IPv6 delegated prefixes assigned to the network interface."]}
    let make ?ipv6Prefix = fun () -> { ipv6Prefix }
    let to_value x =
      structure_to_value
        [("ipv6Prefix", (Option.map x.ipv6Prefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6Prefix") in
      make ?ipv6Prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Prefix = field_map json__ "Ipv6Prefix" String_.of_json in
      make ?ipv6Prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the IPv6 delegated prefixes assigned to a network interface."]
module LaunchTemplateEnaSrdUdpSpecification =
  struct
    type nonrec t =
      {
      enaSrdUdpEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether UDP traffic to and from the instance uses ENA Express. To specify this setting, you must first enable ENA Express."]}
    let make ?enaSrdUdpEnabled = fun () -> { enaSrdUdpEnabled }
    let to_value x =
      structure_to_value
        [("enaSrdUdpEnabled",
           (Option.map x.enaSrdUdpEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "enaSrdUdpEnabled") in
      make ?enaSrdUdpEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpEnabled =
        field_map json__ "EnaSrdUdpEnabled" Boolean.of_json in
      make ?enaSrdUdpEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "ENA Express is compatible with both TCP and UDP transport protocols. When it's enabled, TCP traffic automatically uses it. However, some UDP-based applications are designed to handle network packets that are out of order, without a need for retransmission, such as live video broadcasting or other near-real-time applications. For UDP traffic, you can specify whether to use ENA Express, based on your application environment needs."]
module SecondaryInterfacePrivateIpAddressSpecification =
  struct
    type nonrec t =
      {
      privateIpAddress: String_.t option
        [@ocaml.doc "The private IPv4 address."]}
    let make ?privateIpAddress = fun () -> { privateIpAddress }
    let to_value x =
      structure_to_value
        [("privateIpAddress",
           (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      make ?privateIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      make ?privateIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a private IPv4 address specification for a secondary interface."]
module ElasticGpuId =
  struct
    type nonrec t = string
    let context_ = "ElasticGpuId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ElasticGpuId" j
    let to_json = simple_to_json to_value
  end
module EbsInstanceBlockDevice =
  struct
    type nonrec t =
      {
      attachTime: DateTime.t option
        [@ocaml.doc "The time stamp when the attachment initiated."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the volume is deleted on instance termination."];
      status: AttachmentStatus.t option [@ocaml.doc "The attachment state."];
      volumeId: String_.t option [@ocaml.doc "The ID of the EBS volume."];
      associatedResource: String_.t option
        [@ocaml.doc
          "The ARN of the Amazon Web Services-managed resource to which the volume is attached."];
      volumeOwnerId: String_.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services account that owns the volume. This parameter is returned only for volumes that are attached to Amazon Web Services-managed resources."];
      operator: OperatorResponse.t option
        [@ocaml.doc "The service provider that manages the EBS volume."];
      ebsCardIndex: Integer.t option
        [@ocaml.doc
          "The index of the EBS card. Some instance types support multiple EBS cards. The default EBS card index is 0."]}
    let make ?attachTime =
      fun ?deleteOnTermination ->
        fun ?status ->
          fun ?volumeId ->
            fun ?associatedResource ->
              fun ?volumeOwnerId ->
                fun ?operator ->
                  fun ?ebsCardIndex ->
                    fun () ->
                      {
                        attachTime;
                        deleteOnTermination;
                        status;
                        volumeId;
                        associatedResource;
                        volumeOwnerId;
                        operator;
                        ebsCardIndex
                      }
    let to_value x =
      structure_to_value
        [("attachTime", (Option.map x.attachTime ~f:DateTime.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("status", (Option.map x.status ~f:AttachmentStatus.to_value));
        ("volumeId", (Option.map x.volumeId ~f:String_.to_value));
        ("associatedResource",
          (Option.map x.associatedResource ~f:String_.to_value));
        ("volumeOwnerId", (Option.map x.volumeOwnerId ~f:String_.to_value));
        ("operator", (Option.map x.operator ~f:OperatorResponse.to_value));
        ("ebsCardIndex", (Option.map x.ebsCardIndex ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ebsCardIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ebsCardIndex") in
      let operator =
        (Option.map ~f:OperatorResponse.of_xml)
          (Xml.child xml_arg0 "operator") in
      let volumeOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "volumeOwnerId") in
      let associatedResource =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "associatedResource") in
      let volumeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "volumeId") in
      let status =
        (Option.map ~f:AttachmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let attachTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "attachTime") in
      make ?ebsCardIndex ?operator ?volumeOwnerId ?associatedResource
        ?volumeId ?status ?deleteOnTermination ?attachTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ebsCardIndex = field_map json__ "EbsCardIndex" Integer.of_json in
      let operator = field_map json__ "Operator" OperatorResponse.of_json in
      let volumeOwnerId = field_map json__ "VolumeOwnerId" String_.of_json in
      let associatedResource =
        field_map json__ "AssociatedResource" String_.of_json in
      let volumeId = field_map json__ "VolumeId" String_.of_json in
      let status = field_map json__ "Status" AttachmentStatus.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let attachTime = field_map json__ "AttachTime" DateTime.of_json in
      make ?ebsCardIndex ?operator ?volumeOwnerId ?associatedResource
        ?volumeId ?status ?deleteOnTermination ?attachTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a parameter used to set up an EBS volume in a block device mapping."]
module ConnectionTrackingSpecificationResponse =
  struct
    type nonrec t =
      {
      tcpEstablishedTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle TCP connections in an established state. Min: 60 seconds. Max: 432000 seconds (5 days). Default: 432000 seconds. Recommended: Less than 432000 seconds."];
      udpStreamTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle UDP flows classified as streams which have seen more than one request-response transaction. Min: 60 seconds. Max: 180 seconds (3 minutes). Default: 180 seconds."];
      udpTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle UDP flows that have seen traffic only in a single direction or a single request-response transaction. Min: 30 seconds. Max: 60 seconds. Default: 30 seconds."]}
    let make ?tcpEstablishedTimeout =
      fun ?udpStreamTimeout ->
        fun ?udpTimeout ->
          fun () -> { tcpEstablishedTimeout; udpStreamTimeout; udpTimeout }
    let to_value x =
      structure_to_value
        [("tcpEstablishedTimeout",
           (Option.map x.tcpEstablishedTimeout ~f:Integer.to_value));
        ("udpStreamTimeout",
          (Option.map x.udpStreamTimeout ~f:Integer.to_value));
        ("udpTimeout", (Option.map x.udpTimeout ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let udpTimeout =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "udpTimeout") in
      let udpStreamTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "udpStreamTimeout") in
      let tcpEstablishedTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "tcpEstablishedTimeout") in
      make ?udpTimeout ?udpStreamTimeout ?tcpEstablishedTimeout ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let udpTimeout = field_map json__ "UdpTimeout" Integer.of_json in
      let udpStreamTimeout =
        field_map json__ "UdpStreamTimeout" Integer.of_json in
      let tcpEstablishedTimeout =
        field_map json__ "TcpEstablishedTimeout" Integer.of_json in
      make ?udpTimeout ?udpStreamTimeout ?tcpEstablishedTimeout ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A security group connection tracking specification response that enables you to set the idle timeout for connection tracking on an Elastic network interface. For more information, see Connection tracking timeouts in the Amazon EC2 User Guide."]
module GroupIdentifierList =
  struct
    type nonrec t = GroupIdentifier.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GroupIdentifier.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:GroupIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupIdentifierList"
        ~of_json:GroupIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceIpv4PrefixList =
  struct
    type nonrec t = InstanceIpv4Prefix.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceIpv4Prefix.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceIpv4Prefix.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceIpv4PrefixList"
        ~of_json:InstanceIpv4Prefix.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceIpv6PrefixList =
  struct
    type nonrec t = InstanceIpv6Prefix.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceIpv6Prefix.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceIpv6Prefix.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceIpv6PrefixList"
        ~of_json:InstanceIpv6Prefix.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceNetworkInterfaceAttachment =
  struct
    type nonrec t =
      {
      attachTime: DateTime.t option
        [@ocaml.doc "The time stamp when the attachment initiated."];
      attachmentId: String_.t option
        [@ocaml.doc "The ID of the network interface attachment."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the network interface is deleted when the instance is terminated."];
      deviceIndex: Integer.t option
        [@ocaml.doc
          "The index of the device on the instance for the network interface attachment."];
      status: AttachmentStatus.t option [@ocaml.doc "The attachment state."];
      networkCardIndex: Integer.t option
        [@ocaml.doc "The index of the network card."];
      enaSrdSpecification: InstanceAttachmentEnaSrdSpecification.t option
        [@ocaml.doc
          "Contains the ENA Express settings for the network interface that's attached to the instance."];
      enaQueueCount: Integer.t option
        [@ocaml.doc "The number of ENA queues created with the instance."]}
    let make ?attachTime =
      fun ?attachmentId ->
        fun ?deleteOnTermination ->
          fun ?deviceIndex ->
            fun ?status ->
              fun ?networkCardIndex ->
                fun ?enaSrdSpecification ->
                  fun ?enaQueueCount ->
                    fun () ->
                      {
                        attachTime;
                        attachmentId;
                        deleteOnTermination;
                        deviceIndex;
                        status;
                        networkCardIndex;
                        enaSrdSpecification;
                        enaQueueCount
                      }
    let to_value x =
      structure_to_value
        [("attachTime", (Option.map x.attachTime ~f:DateTime.to_value));
        ("attachmentId", (Option.map x.attachmentId ~f:String_.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("deviceIndex", (Option.map x.deviceIndex ~f:Integer.to_value));
        ("status", (Option.map x.status ~f:AttachmentStatus.to_value));
        ("networkCardIndex",
          (Option.map x.networkCardIndex ~f:Integer.to_value));
        ("enaSrdSpecification",
          (Option.map x.enaSrdSpecification
             ~f:InstanceAttachmentEnaSrdSpecification.to_value));
        ("enaQueueCount", (Option.map x.enaQueueCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaQueueCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "enaQueueCount") in
      let enaSrdSpecification =
        (Option.map ~f:InstanceAttachmentEnaSrdSpecification.of_xml)
          (Xml.child xml_arg0 "enaSrdSpecification") in
      let networkCardIndex =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "networkCardIndex") in
      let status =
        (Option.map ~f:AttachmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let deviceIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "deviceIndex") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let attachmentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "attachmentId") in
      let attachTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "attachTime") in
      make ?enaQueueCount ?enaSrdSpecification ?networkCardIndex ?status
        ?deviceIndex ?deleteOnTermination ?attachmentId ?attachTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaQueueCount = field_map json__ "EnaQueueCount" Integer.of_json in
      let enaSrdSpecification =
        field_map json__ "EnaSrdSpecification"
          InstanceAttachmentEnaSrdSpecification.of_json in
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" Integer.of_json in
      let status = field_map json__ "Status" AttachmentStatus.of_json in
      let deviceIndex = field_map json__ "DeviceIndex" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let attachmentId = field_map json__ "AttachmentId" String_.of_json in
      let attachTime = field_map json__ "AttachTime" DateTime.of_json in
      make ?enaQueueCount ?enaSrdSpecification ?networkCardIndex ?status
        ?deviceIndex ?deleteOnTermination ?attachmentId ?attachTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network interface attachment."]
module InstancePrivateIpAddressList =
  struct
    type nonrec t = InstancePrivateIpAddress.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstancePrivateIpAddress.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstancePrivateIpAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"InstancePrivateIpAddressList"
        ~of_json:InstancePrivateIpAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkInterfaceStatus =
  struct
    type nonrec t =
      | Available 
      | Associated 
      | Attaching 
      | In_use 
      | Detaching 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Associated -> "associated"
      | Attaching -> "attaching"
      | In_use -> "in-use"
      | Detaching -> "detaching"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "associated" -> Associated
      | "attaching" -> Attaching
      | "in-use" -> In_use
      | "detaching" -> Detaching
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NetworkInterfaceStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NetworkInterfaceStatus" j)
    let to_json = simple_to_json to_value
  end
module InstanceSecondaryInterfaceAttachment =
  struct
    type nonrec t =
      {
      attachTime: MillisecondDateTime.t option
        [@ocaml.doc "The timestamp when the attachment was created."];
      attachmentId: String_.t option [@ocaml.doc "The ID of the attachment."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the secondary interface is deleted when the instance is terminated. The only supported value for this field is true."];
      deviceIndex: Integer.t option
        [@ocaml.doc "The device index of the secondary interface."];
      status: AttachmentStatus.t option [@ocaml.doc "The attachment state."];
      networkCardIndex: Integer.t option
        [@ocaml.doc "The index of the network card."]}
    let make ?attachTime =
      fun ?attachmentId ->
        fun ?deleteOnTermination ->
          fun ?deviceIndex ->
            fun ?status ->
              fun ?networkCardIndex ->
                fun () ->
                  {
                    attachTime;
                    attachmentId;
                    deleteOnTermination;
                    deviceIndex;
                    status;
                    networkCardIndex
                  }
    let to_value x =
      structure_to_value
        [("attachTime",
           (Option.map x.attachTime ~f:MillisecondDateTime.to_value));
        ("attachmentId", (Option.map x.attachmentId ~f:String_.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("deviceIndex", (Option.map x.deviceIndex ~f:Integer.to_value));
        ("status", (Option.map x.status ~f:AttachmentStatus.to_value));
        ("networkCardIndex",
          (Option.map x.networkCardIndex ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkCardIndex =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "networkCardIndex") in
      let status =
        (Option.map ~f:AttachmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let deviceIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "deviceIndex") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let attachmentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "attachmentId") in
      let attachTime =
        (Option.map ~f:MillisecondDateTime.of_xml)
          (Xml.child xml_arg0 "attachTime") in
      make ?networkCardIndex ?status ?deviceIndex ?deleteOnTermination
        ?attachmentId ?attachTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" Integer.of_json in
      let status = field_map json__ "Status" AttachmentStatus.of_json in
      let deviceIndex = field_map json__ "DeviceIndex" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let attachmentId = field_map json__ "AttachmentId" String_.of_json in
      let attachTime =
        field_map json__ "AttachTime" MillisecondDateTime.of_json in
      make ?networkCardIndex ?status ?deviceIndex ?deleteOnTermination
        ?attachmentId ?attachTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the attachment of a secondary interface to an instance."]
module InstanceSecondaryInterfacePrivateIpAddressList =
  struct
    type nonrec t = InstanceSecondaryInterfacePrivateIpAddress.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map ~f:InstanceSecondaryInterfacePrivateIpAddress.to_value))
        |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:InstanceSecondaryInterfacePrivateIpAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceSecondaryInterfacePrivateIpAddressList"
        ~of_json:InstanceSecondaryInterfacePrivateIpAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecondaryInterfaceId =
  struct
    type nonrec t = string
    let context_ = "SecondaryInterfaceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecondaryInterfaceId" j
    let to_json = simple_to_json to_value
  end
module SecondaryInterfaceStatus =
  struct
    type nonrec t =
      | Available 
      | In_use 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | In_use -> "in-use"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "in-use" -> In_use
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SecondaryInterfaceStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SecondaryInterfaceStatus" j)
    let to_json = simple_to_json to_value
  end
module SecondaryInterfaceType =
  struct
    type nonrec t =
      | Secondary 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Secondary -> "secondary" | Non_static_id s -> s
    let of_string =
      function | "secondary" -> Secondary | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SecondaryInterfaceType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SecondaryInterfaceType" j)
    let to_json = simple_to_json to_value
  end
module SecondaryNetworkId =
  struct
    type nonrec t = string
    let context_ = "SecondaryNetworkId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecondaryNetworkId" j
    let to_json = simple_to_json to_value
  end
module SecondarySubnetId =
  struct
    type nonrec t = string
    let context_ = "SecondarySubnetId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecondarySubnetId" j
    let to_json = simple_to_json to_value
  end
module ProductCodeValues =
  struct
    type nonrec t =
      | Devpay 
      | Marketplace 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Devpay -> "devpay"
      | Marketplace -> "marketplace"
      | Non_static_id s -> s
    let of_string =
      function
      | "devpay" -> Devpay
      | "marketplace" -> Marketplace
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ProductCodeValues" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProductCodeValues" j)
    let to_json = simple_to_json to_value
  end
module FpgaDeviceMemorySize =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for FpgaDeviceMemorySize" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module GpuDeviceMemorySize =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for GpuDeviceMemorySize" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Workload =
  struct
    type nonrec t = string
    let context_ = "Workload"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Workload" j
    let to_json = simple_to_json to_value
  end
module InferenceDeviceMemorySize =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InferenceDeviceMemorySize"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MediaDeviceMemorySize =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MediaDeviceMemorySize" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NeuronDeviceCoreCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NeuronDeviceCoreCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NeuronDeviceCoreVersion =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NeuronDeviceCoreVersion"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NeuronDeviceMemorySize =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NeuronDeviceMemorySize" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ImageUsageResourceTypeOptionValuesList =
  struct
    type nonrec t = ImageUsageResourceTypeOptionValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ImageUsageResourceTypeOptionValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:ImageUsageResourceTypeOptionValue.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageUsageResourceTypeOptionValuesList"
        ~of_json:ImageUsageResourceTypeOptionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AvailabilityZoneName =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZoneName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AvailabilityZoneName" j
    let to_json = simple_to_json to_value
  end
module BlockDeviceMappingResponseList =
  struct
    type nonrec t = BlockDeviceMappingResponse.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BlockDeviceMappingResponse.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:BlockDeviceMappingResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"BlockDeviceMappingResponseList"
        ~of_json:BlockDeviceMappingResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageId =
  struct
    type nonrec t = string
    let context_ = "ImageId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImageId" j
    let to_json = simple_to_json to_value
  end
module PlacementResponse =
  struct
    type nonrec t =
      {
      groupName: PlacementGroupName.t option
        [@ocaml.doc
          "The name of the placement group that the instance is in."]}
    let make ?groupName = fun () -> { groupName }
    let to_value x =
      structure_to_value
        [("groupName",
           (Option.map x.groupName ~f:PlacementGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupName =
        (Option.map ~f:PlacementGroupName.of_xml)
          (Xml.child xml_arg0 "groupName") in
      make ?groupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupName = field_map json__ "GroupName" PlacementGroupName.of_json in
      make ?groupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the placement of an instance."]
module DiskImageFormat =
  struct
    type nonrec t =
      | VMDK 
      | RAW 
      | VHD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VMDK -> "VMDK"
      | RAW -> "RAW"
      | VHD -> "VHD"
      | Non_static_id s -> s
    let of_string =
      function
      | "VMDK" -> VMDK
      | "RAW" -> RAW
      | "VHD" -> VHD
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DiskImageFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DiskImageFormat" j)
    let to_json = simple_to_json to_value
  end
module ImportManifestUrl =
  struct
    type nonrec t = string
    let context_ = "ImportManifestUrl"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImportManifestUrl" j
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module Ipv6Address =
  struct
    type nonrec t = string
    let context_ = "Ipv6Address"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ipv6Address" j
    let to_json = simple_to_json to_value
  end
module FleetBlockDeviceMappingRequest =
  struct
    type nonrec t =
      {
      deviceName: String_.t option
        [@ocaml.doc "The device name (for example, /dev/sdh or xvdh)."];
      virtualName: String_.t option
        [@ocaml.doc
          "The virtual device name (ephemeralN). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for ephemeral0 and ephemeral1. The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. NVMe instance store volumes are automatically enumerated and assigned a device name. Including them in your block device mapping has no effect. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI."];
      ebs: FleetEbsBlockDeviceRequest.t option
        [@ocaml.doc
          "Parameters used to automatically set up EBS volumes when the instance is launched."];
      noDevice: String_.t option
        [@ocaml.doc
          "To omit the device from the block device mapping, specify an empty string. When this property is specified, the device is removed from the block device mapping regardless of the assigned value."]}
    let make ?deviceName =
      fun ?virtualName ->
        fun ?ebs ->
          fun ?noDevice ->
            fun () -> { deviceName; virtualName; ebs; noDevice }
    let to_value x =
      structure_to_value
        [("DeviceName", (Option.map x.deviceName ~f:String_.to_value));
        ("VirtualName", (Option.map x.virtualName ~f:String_.to_value));
        ("Ebs", (Option.map x.ebs ~f:FleetEbsBlockDeviceRequest.to_value));
        ("NoDevice", (Option.map x.noDevice ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noDevice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NoDevice") in
      let ebs =
        (Option.map ~f:FleetEbsBlockDeviceRequest.of_xml)
          (Xml.child xml_arg0 "Ebs") in
      let virtualName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VirtualName") in
      let deviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DeviceName") in
      make ?noDevice ?ebs ?virtualName ?deviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noDevice = field_map json__ "NoDevice" String_.of_json in
      let ebs = field_map json__ "Ebs" FleetEbsBlockDeviceRequest.of_json in
      let virtualName = field_map json__ "VirtualName" String_.of_json in
      let deviceName = field_map json__ "DeviceName" String_.of_json in
      make ?noDevice ?ebs ?virtualName ?deviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a block device mapping, which defines the EBS volumes and instance store volumes to attach to an instance at launch. To override a block device mapping specified in the launch template: Specify the exact same DeviceName here as specified in the launch template. Only specify the parameters you want to change. Any parameters you don't specify here will keep their original launch template values. To add a new block device mapping: Specify a DeviceName that doesn't exist in the launch template. Specify all desired parameters here."]
module AcceleratorCountRequest =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum number of accelerators. To specify no minimum limit, omit this parameter."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum number of accelerators. To specify no maximum limit, omit this parameter. To exclude accelerator-enabled instance types, set Max to 0."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Integer.to_value));
        ("Max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum number of accelerators (GPUs, FPGAs, or Amazon Web Services Inferentia chips) on an instance. To exclude accelerator-enabled instance types, set Max to 0."]
module AcceleratorTotalMemoryMiBRequest =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum amount of accelerator memory, in MiB. To specify no minimum limit, omit this parameter."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum amount of accelerator memory, in MiB. To specify no maximum limit, omit this parameter."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Integer.to_value));
        ("Max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of total accelerator memory, in MiB."]
module BaselineEbsBandwidthMbpsRequest =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum baseline bandwidth, in Mbps. To specify no minimum limit, omit this parameter."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum baseline bandwidth, in Mbps. To specify no maximum limit, omit this parameter."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Integer.to_value));
        ("Max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum baseline bandwidth to Amazon EBS, in Mbps. For more information, see Amazon EBS\226\128\147optimized instances in the Amazon EC2 User Guide."]
module BaselinePerformanceFactorsRequest =
  struct
    type nonrec t =
      {
      cpu: CpuPerformanceFactorRequest.t option
        [@ocaml.doc
          "The CPU performance to consider, using an instance family as the baseline reference."]}
    let make ?cpu = fun () -> { cpu }
    let to_value x =
      structure_to_value
        [("Cpu", (Option.map x.cpu ~f:CpuPerformanceFactorRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cpu =
        (Option.map ~f:CpuPerformanceFactorRequest.of_xml)
          (Xml.child xml_arg0 "Cpu") in
      make ?cpu ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cpu = field_map json__ "Cpu" CpuPerformanceFactorRequest.of_json in
      make ?cpu ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The baseline performance to consider, using an instance family as a baseline reference. The instance family establishes the lowest acceptable level of performance. Amazon EC2 uses this baseline to guide instance type selection, but there is no guarantee that the selected instance types will always exceed the baseline for every application. Currently, this parameter only supports CPU performance as a baseline performance factor. For example, specifying c6i would use the CPU performance of the c6i family as the baseline reference."]
module MemoryGiBPerVCpuRequest =
  struct
    type nonrec t =
      {
      min: Double.t option
        [@ocaml.doc
          "The minimum amount of memory per vCPU, in GiB. To specify no minimum limit, omit this parameter."];
      max: Double.t option
        [@ocaml.doc
          "The maximum amount of memory per vCPU, in GiB. To specify no maximum limit, omit this parameter."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Double.to_value));
        ("Max", (Option.map x.max ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Double.of_json in
      let min = field_map json__ "Min" Double.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of memory per vCPU, in GiB."]
module MemoryMiBRequest =
  struct
    type nonrec t =
      {
      min: Integer.t
        [@ocaml.doc
          "The minimum amount of memory, in MiB. To specify no minimum limit, specify 0."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum amount of memory, in MiB. To specify no maximum limit, omit this parameter."]}
    let context_ = "MemoryMiBRequest"
    let make ?max = fun ~min -> fun () -> { max; min }
    let to_value x =
      structure_to_value
        [("Min", (Some (Integer.to_value x.min)));
        ("Max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Max") in
      let min =
        Integer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Min") in
      make ?max ~min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map_exn json__ "Min" Integer.of_json in
      make ?max ~min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The minimum and maximum amount of memory, in MiB."]
module NetworkBandwidthGbpsRequest =
  struct
    type nonrec t =
      {
      min: Double.t option
        [@ocaml.doc
          "The minimum amount of network bandwidth, in Gbps. To specify no minimum limit, omit this parameter."];
      max: Double.t option
        [@ocaml.doc
          "The maximum amount of network bandwidth, in Gbps. To specify no maximum limit, omit this parameter."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Double.to_value));
        ("Max", (Option.map x.max ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Double.of_json in
      let min = field_map json__ "Min" Double.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of network bandwidth, in gigabits per second (Gbps). Setting the minimum bandwidth does not guarantee that your instance will achieve the minimum bandwidth. Amazon EC2 will identify instance types that support the specified minimum bandwidth, but the actual bandwidth of your instance might go below the specified minimum at times. For more information, see Available instance bandwidth in the Amazon EC2 User Guide."]
module NetworkInterfaceCountRequest =
  struct
    type nonrec t =
      {
      min: Integer.t option
        [@ocaml.doc
          "The minimum number of network interfaces. To specify no minimum limit, omit this parameter."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum number of network interfaces. To specify no maximum limit, omit this parameter."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Integer.to_value));
        ("Max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map json__ "Min" Integer.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The minimum and maximum number of network interfaces."]
module TotalLocalStorageGBRequest =
  struct
    type nonrec t =
      {
      min: Double.t option
        [@ocaml.doc
          "The minimum amount of total local storage, in GB. To specify no minimum limit, omit this parameter."];
      max: Double.t option
        [@ocaml.doc
          "The maximum amount of total local storage, in GB. To specify no maximum limit, omit this parameter."]}
    let make ?min = fun ?max -> fun () -> { min; max }
    let to_value x =
      structure_to_value
        [("Min", (Option.map x.min ~f:Double.to_value));
        ("Max", (Option.map x.max ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Max") in
      let min = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Min") in
      make ?max ?min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Double.of_json in
      let min = field_map json__ "Min" Double.of_json in make ?max ?min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The minimum and maximum amount of total local storage, in GB."]
module VCpuCountRangeRequest =
  struct
    type nonrec t =
      {
      min: Integer.t
        [@ocaml.doc
          "The minimum number of vCPUs. To specify no minimum limit, specify 0."];
      max: Integer.t option
        [@ocaml.doc
          "The maximum number of vCPUs. To specify no maximum limit, omit this parameter."]}
    let context_ = "VCpuCountRangeRequest"
    let make ?max = fun ~min -> fun () -> { max; min }
    let to_value x =
      structure_to_value
        [("Min", (Some (Integer.to_value x.min)));
        ("Max", (Option.map x.max ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let max = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Max") in
      let min =
        Integer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Min") in
      make ?max ~min ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let max = field_map json__ "Max" Integer.of_json in
      let min = field_map_exn json__ "Min" Integer.of_json in
      make ?max ~min ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The minimum and maximum number of vCPUs."]
module PlacementGroupId =
  struct
    type nonrec t = string
    let context_ = "PlacementGroupId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PlacementGroupId" j
    let to_json = simple_to_json to_value
  end
module ProtocolList =
  struct
    type nonrec t = Protocol.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Protocol.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Protocol.of_xml)
    let of_json j =
      list_of_json ~kind:"ProtocolList" ~of_json:Protocol.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceStatement =
  struct
    type nonrec t =
      {
      resources: ValueStringList.t option [@ocaml.doc "The resources."];
      resourceTypes: ValueStringList.t option
        [@ocaml.doc "The resource types."]}
    let make ?resources =
      fun ?resourceTypes -> fun () -> { resources; resourceTypes }
    let to_value x =
      structure_to_value
        [("resourceSet",
           (Option.map x.resources ~f:ValueStringList.to_value));
        ("resourceTypeSet",
          (Option.map x.resourceTypes ~f:ValueStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTypes =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "resourceTypeSet") in
      let resources =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "resourceSet") in
      make ?resourceTypes ?resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTypes =
        field_map json__ "ResourceTypes" ValueStringList.of_json in
      let resources = field_map json__ "Resources" ValueStringList.of_json in
      make ?resourceTypes ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource statement."]
module AdditionalDetail =
  struct
    type nonrec t =
      {
      additionalDetailType: String_.t option
        [@ocaml.doc "The additional detail code."];
      component: AnalysisComponent.t option
        [@ocaml.doc "The path component."];
      vpcEndpointService: AnalysisComponent.t option
        [@ocaml.doc "The VPC endpoint service."];
      ruleOptions: RuleOptionList.t option [@ocaml.doc "The rule options."];
      ruleGroupTypePairs: RuleGroupTypePairList.t option
        [@ocaml.doc "The rule group type."];
      ruleGroupRuleOptionsPairs: RuleGroupRuleOptionsPairList.t option
        [@ocaml.doc "The rule options."];
      serviceName: String_.t option
        [@ocaml.doc "The name of the VPC endpoint service."];
      loadBalancers: AnalysisComponentList.t option
        [@ocaml.doc "The load balancers."]}
    let make ?additionalDetailType =
      fun ?component ->
        fun ?vpcEndpointService ->
          fun ?ruleOptions ->
            fun ?ruleGroupTypePairs ->
              fun ?ruleGroupRuleOptionsPairs ->
                fun ?serviceName ->
                  fun ?loadBalancers ->
                    fun () ->
                      {
                        additionalDetailType;
                        component;
                        vpcEndpointService;
                        ruleOptions;
                        ruleGroupTypePairs;
                        ruleGroupRuleOptionsPairs;
                        serviceName;
                        loadBalancers
                      }
    let to_value x =
      structure_to_value
        [("additionalDetailType",
           (Option.map x.additionalDetailType ~f:String_.to_value));
        ("component", (Option.map x.component ~f:AnalysisComponent.to_value));
        ("vpcEndpointService",
          (Option.map x.vpcEndpointService ~f:AnalysisComponent.to_value));
        ("ruleOptionSet",
          (Option.map x.ruleOptions ~f:RuleOptionList.to_value));
        ("ruleGroupTypePairSet",
          (Option.map x.ruleGroupTypePairs ~f:RuleGroupTypePairList.to_value));
        ("ruleGroupRuleOptionsPairSet",
          (Option.map x.ruleGroupRuleOptionsPairs
             ~f:RuleGroupRuleOptionsPairList.to_value));
        ("serviceName", (Option.map x.serviceName ~f:String_.to_value));
        ("loadBalancerSet",
          (Option.map x.loadBalancers ~f:AnalysisComponentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loadBalancers =
        (Option.map ~f:AnalysisComponentList.of_xml)
          (Xml.child xml_arg0 "loadBalancerSet") in
      let serviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceName") in
      let ruleGroupRuleOptionsPairs =
        (Option.map ~f:RuleGroupRuleOptionsPairList.of_xml)
          (Xml.child xml_arg0 "ruleGroupRuleOptionsPairSet") in
      let ruleGroupTypePairs =
        (Option.map ~f:RuleGroupTypePairList.of_xml)
          (Xml.child xml_arg0 "ruleGroupTypePairSet") in
      let ruleOptions =
        (Option.map ~f:RuleOptionList.of_xml)
          (Xml.child xml_arg0 "ruleOptionSet") in
      let vpcEndpointService =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "vpcEndpointService") in
      let component =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "component") in
      let additionalDetailType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "additionalDetailType") in
      make ?loadBalancers ?serviceName ?ruleGroupRuleOptionsPairs
        ?ruleGroupTypePairs ?ruleOptions ?vpcEndpointService ?component
        ?additionalDetailType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loadBalancers =
        field_map json__ "LoadBalancers" AnalysisComponentList.of_json in
      let serviceName = field_map json__ "ServiceName" String_.of_json in
      let ruleGroupRuleOptionsPairs =
        field_map json__ "RuleGroupRuleOptionsPairs"
          RuleGroupRuleOptionsPairList.of_json in
      let ruleGroupTypePairs =
        field_map json__ "RuleGroupTypePairs" RuleGroupTypePairList.of_json in
      let ruleOptions = field_map json__ "RuleOptions" RuleOptionList.of_json in
      let vpcEndpointService =
        field_map json__ "VpcEndpointService" AnalysisComponent.of_json in
      let component = field_map json__ "Component" AnalysisComponent.of_json in
      let additionalDetailType =
        field_map json__ "AdditionalDetailType" String_.of_json in
      make ?loadBalancers ?serviceName ?ruleGroupRuleOptionsPairs
        ?ruleGroupTypePairs ?ruleOptions ?vpcEndpointService ?component
        ?additionalDetailType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an additional detail for a path analysis. For more information, see Reachability Analyzer additional detail codes."]
module Explanation =
  struct
    type nonrec t =
      {
      acl: AnalysisComponent.t option [@ocaml.doc "The network ACL."];
      aclRule: AnalysisAclRule.t option [@ocaml.doc "The network ACL rule."];
      address: IpAddress.t option
        [@ocaml.doc "The IPv4 address, in CIDR notation."];
      addresses: IpAddressList.t option
        [@ocaml.doc "The IPv4 addresses, in CIDR notation."];
      attachedTo: AnalysisComponent.t option
        [@ocaml.doc "The resource to which the component is attached."];
      availabilityZones: ValueStringList.t option
        [@ocaml.doc "The Availability Zones."];
      availabilityZoneIds: ValueStringList.t option
        [@ocaml.doc "The IDs of the Availability Zones."];
      cidrs: ValueStringList.t option [@ocaml.doc "The CIDR ranges."];
      component: AnalysisComponent.t option [@ocaml.doc "The component."];
      customerGateway: AnalysisComponent.t option
        [@ocaml.doc "The customer gateway."];
      destination: AnalysisComponent.t option [@ocaml.doc "The destination."];
      destinationVpc: AnalysisComponent.t option
        [@ocaml.doc "The destination VPC."];
      direction: String_.t option
        [@ocaml.doc
          "The direction. The following are the possible values: egress ingress"];
      explanationCode: String_.t option [@ocaml.doc "The explanation code."];
      ingressRouteTable: AnalysisComponent.t option
        [@ocaml.doc "The route table."];
      internetGateway: AnalysisComponent.t option
        [@ocaml.doc "The internet gateway."];
      loadBalancerArn: ResourceArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the load balancer."];
      classicLoadBalancerListener: AnalysisLoadBalancerListener.t option
        [@ocaml.doc "The listener for a Classic Load Balancer."];
      loadBalancerListenerPort: Port.t option
        [@ocaml.doc "The listener port of the load balancer."];
      loadBalancerTarget: AnalysisLoadBalancerTarget.t option
        [@ocaml.doc "The target."];
      loadBalancerTargetGroup: AnalysisComponent.t option
        [@ocaml.doc "The target group."];
      loadBalancerTargetGroups: AnalysisComponentList.t option
        [@ocaml.doc "The target groups."];
      loadBalancerTargetPort: Port.t option [@ocaml.doc "The target port."];
      elasticLoadBalancerListener: AnalysisComponent.t option
        [@ocaml.doc "The load balancer listener."];
      missingComponent: String_.t option
        [@ocaml.doc "The missing component."];
      natGateway: AnalysisComponent.t option [@ocaml.doc "The NAT gateway."];
      networkInterface: AnalysisComponent.t option
        [@ocaml.doc "The network interface."];
      packetField: String_.t option [@ocaml.doc "The packet field."];
      vpcPeeringConnection: AnalysisComponent.t option
        [@ocaml.doc "The VPC peering connection."];
      port: Port.t option [@ocaml.doc "The port."];
      portRanges: PortRangeList.t option [@ocaml.doc "The port ranges."];
      prefixList: AnalysisComponent.t option [@ocaml.doc "The prefix list."];
      protocols: StringList.t option [@ocaml.doc "The protocols."];
      routeTableRoute: AnalysisRouteTableRoute.t option
        [@ocaml.doc "The route table route."];
      routeTable: AnalysisComponent.t option [@ocaml.doc "The route table."];
      securityGroup: AnalysisComponent.t option
        [@ocaml.doc "The security group."];
      securityGroupRule: AnalysisSecurityGroupRule.t option
        [@ocaml.doc "The security group rule."];
      securityGroups: AnalysisComponentList.t option
        [@ocaml.doc "The security groups."];
      sourceVpc: AnalysisComponent.t option [@ocaml.doc "The source VPC."];
      state: String_.t option [@ocaml.doc "The state."];
      subnet: AnalysisComponent.t option [@ocaml.doc "The subnet."];
      subnetRouteTable: AnalysisComponent.t option
        [@ocaml.doc "The route table for the subnet."];
      vpc: AnalysisComponent.t option [@ocaml.doc "The component VPC."];
      vpcEndpoint: AnalysisComponent.t option
        [@ocaml.doc "The VPC endpoint."];
      vpnConnection: AnalysisComponent.t option
        [@ocaml.doc "The VPN connection."];
      vpnGateway: AnalysisComponent.t option [@ocaml.doc "The VPN gateway."];
      transitGateway: AnalysisComponent.t option
        [@ocaml.doc "The transit gateway."];
      transitGatewayRouteTable: AnalysisComponent.t option
        [@ocaml.doc "The transit gateway route table."];
      transitGatewayRouteTableRoute: TransitGatewayRouteTableRoute.t option
        [@ocaml.doc "The transit gateway route table route."];
      transitGatewayAttachment: AnalysisComponent.t option
        [@ocaml.doc "The transit gateway attachment."];
      componentAccount: ComponentAccount.t option
        [@ocaml.doc "The Amazon Web Services account for the component."];
      componentRegion: ComponentRegion.t option
        [@ocaml.doc "The Region for the component."];
      firewallStatelessRule: FirewallStatelessRule.t option
        [@ocaml.doc "The Network Firewall stateless rule."];
      firewallStatefulRule: FirewallStatefulRule.t option
        [@ocaml.doc "The Network Firewall stateful rule."]}
    let make ?acl =
      fun ?aclRule ->
        fun ?address ->
          fun ?addresses ->
            fun ?attachedTo ->
              fun ?availabilityZones ->
                fun ?availabilityZoneIds ->
                  fun ?cidrs ->
                    fun ?component ->
                      fun ?customerGateway ->
                        fun ?destination ->
                          fun ?destinationVpc ->
                            fun ?direction ->
                              fun ?explanationCode ->
                                fun ?ingressRouteTable ->
                                  fun ?internetGateway ->
                                    fun ?loadBalancerArn ->
                                      fun ?classicLoadBalancerListener ->
                                        fun ?loadBalancerListenerPort ->
                                          fun ?loadBalancerTarget ->
                                            fun ?loadBalancerTargetGroup ->
                                              fun ?loadBalancerTargetGroups
                                                ->
                                                fun ?loadBalancerTargetPort
                                                  ->
                                                  fun
                                                    ?elasticLoadBalancerListener
                                                    ->
                                                    fun ?missingComponent ->
                                                      fun ?natGateway ->
                                                        fun ?networkInterface
                                                          ->
                                                          fun ?packetField ->
                                                            fun
                                                              ?vpcPeeringConnection
                                                              ->
                                                              fun ?port ->
                                                                fun
                                                                  ?portRanges
                                                                  ->
                                                                  fun
                                                                    ?prefixList
                                                                    ->
                                                                    fun
                                                                    ?protocols
                                                                    ->
                                                                    fun
                                                                    ?routeTableRoute
                                                                    ->
                                                                    fun
                                                                    ?routeTable
                                                                    ->
                                                                    fun
                                                                    ?securityGroup
                                                                    ->
                                                                    fun
                                                                    ?securityGroupRule
                                                                    ->
                                                                    fun
                                                                    ?securityGroups
                                                                    ->
                                                                    fun
                                                                    ?sourceVpc
                                                                    ->
                                                                    fun
                                                                    ?state ->
                                                                    fun
                                                                    ?subnet
                                                                    ->
                                                                    fun
                                                                    ?subnetRouteTable
                                                                    ->
                                                                    fun ?vpc
                                                                    ->
                                                                    fun
                                                                    ?vpcEndpoint
                                                                    ->
                                                                    fun
                                                                    ?vpnConnection
                                                                    ->
                                                                    fun
                                                                    ?vpnGateway
                                                                    ->
                                                                    fun
                                                                    ?transitGateway
                                                                    ->
                                                                    fun
                                                                    ?transitGatewayRouteTable
                                                                    ->
                                                                    fun
                                                                    ?transitGatewayRouteTableRoute
                                                                    ->
                                                                    fun
                                                                    ?transitGatewayAttachment
                                                                    ->
                                                                    fun
                                                                    ?componentAccount
                                                                    ->
                                                                    fun
                                                                    ?componentRegion
                                                                    ->
                                                                    fun
                                                                    ?firewallStatelessRule
                                                                    ->
                                                                    fun
                                                                    ?firewallStatefulRule
                                                                    ->
                                                                    fun () ->
                                                                    {
                                                                    acl;
                                                                    aclRule;
                                                                    address;
                                                                    addresses;
                                                                    attachedTo;
                                                                    availabilityZones;
                                                                    availabilityZoneIds;
                                                                    cidrs;
                                                                    component;
                                                                    customerGateway;
                                                                    destination;
                                                                    destinationVpc;
                                                                    direction;
                                                                    explanationCode;
                                                                    ingressRouteTable;
                                                                    internetGateway;
                                                                    loadBalancerArn;
                                                                    classicLoadBalancerListener;
                                                                    loadBalancerListenerPort;
                                                                    loadBalancerTarget;
                                                                    loadBalancerTargetGroup;
                                                                    loadBalancerTargetGroups;
                                                                    loadBalancerTargetPort;
                                                                    elasticLoadBalancerListener;
                                                                    missingComponent;
                                                                    natGateway;
                                                                    networkInterface;
                                                                    packetField;
                                                                    vpcPeeringConnection;
                                                                    port;
                                                                    portRanges;
                                                                    prefixList;
                                                                    protocols;
                                                                    routeTableRoute;
                                                                    routeTable;
                                                                    securityGroup;
                                                                    securityGroupRule;
                                                                    securityGroups;
                                                                    sourceVpc;
                                                                    state;
                                                                    subnet;
                                                                    subnetRouteTable;
                                                                    vpc;
                                                                    vpcEndpoint;
                                                                    vpnConnection;
                                                                    vpnGateway;
                                                                    transitGateway;
                                                                    transitGatewayRouteTable;
                                                                    transitGatewayRouteTableRoute;
                                                                    transitGatewayAttachment;
                                                                    componentAccount;
                                                                    componentRegion;
                                                                    firewallStatelessRule;
                                                                    firewallStatefulRule
                                                                    }
    let to_value x =
      structure_to_value
        [("acl", (Option.map x.acl ~f:AnalysisComponent.to_value));
        ("aclRule", (Option.map x.aclRule ~f:AnalysisAclRule.to_value));
        ("address", (Option.map x.address ~f:IpAddress.to_value));
        ("addressSet", (Option.map x.addresses ~f:IpAddressList.to_value));
        ("attachedTo",
          (Option.map x.attachedTo ~f:AnalysisComponent.to_value));
        ("availabilityZoneSet",
          (Option.map x.availabilityZones ~f:ValueStringList.to_value));
        ("availabilityZoneIdSet",
          (Option.map x.availabilityZoneIds ~f:ValueStringList.to_value));
        ("cidrSet", (Option.map x.cidrs ~f:ValueStringList.to_value));
        ("component", (Option.map x.component ~f:AnalysisComponent.to_value));
        ("customerGateway",
          (Option.map x.customerGateway ~f:AnalysisComponent.to_value));
        ("destination",
          (Option.map x.destination ~f:AnalysisComponent.to_value));
        ("destinationVpc",
          (Option.map x.destinationVpc ~f:AnalysisComponent.to_value));
        ("direction", (Option.map x.direction ~f:String_.to_value));
        ("explanationCode",
          (Option.map x.explanationCode ~f:String_.to_value));
        ("ingressRouteTable",
          (Option.map x.ingressRouteTable ~f:AnalysisComponent.to_value));
        ("internetGateway",
          (Option.map x.internetGateway ~f:AnalysisComponent.to_value));
        ("loadBalancerArn",
          (Option.map x.loadBalancerArn ~f:ResourceArn.to_value));
        ("classicLoadBalancerListener",
          (Option.map x.classicLoadBalancerListener
             ~f:AnalysisLoadBalancerListener.to_value));
        ("loadBalancerListenerPort",
          (Option.map x.loadBalancerListenerPort ~f:Port.to_value));
        ("loadBalancerTarget",
          (Option.map x.loadBalancerTarget
             ~f:AnalysisLoadBalancerTarget.to_value));
        ("loadBalancerTargetGroup",
          (Option.map x.loadBalancerTargetGroup ~f:AnalysisComponent.to_value));
        ("loadBalancerTargetGroupSet",
          (Option.map x.loadBalancerTargetGroups
             ~f:AnalysisComponentList.to_value));
        ("loadBalancerTargetPort",
          (Option.map x.loadBalancerTargetPort ~f:Port.to_value));
        ("elasticLoadBalancerListener",
          (Option.map x.elasticLoadBalancerListener
             ~f:AnalysisComponent.to_value));
        ("missingComponent",
          (Option.map x.missingComponent ~f:String_.to_value));
        ("natGateway",
          (Option.map x.natGateway ~f:AnalysisComponent.to_value));
        ("networkInterface",
          (Option.map x.networkInterface ~f:AnalysisComponent.to_value));
        ("packetField", (Option.map x.packetField ~f:String_.to_value));
        ("vpcPeeringConnection",
          (Option.map x.vpcPeeringConnection ~f:AnalysisComponent.to_value));
        ("port", (Option.map x.port ~f:Port.to_value));
        ("portRangeSet", (Option.map x.portRanges ~f:PortRangeList.to_value));
        ("prefixList",
          (Option.map x.prefixList ~f:AnalysisComponent.to_value));
        ("protocolSet", (Option.map x.protocols ~f:StringList.to_value));
        ("routeTableRoute",
          (Option.map x.routeTableRoute ~f:AnalysisRouteTableRoute.to_value));
        ("routeTable",
          (Option.map x.routeTable ~f:AnalysisComponent.to_value));
        ("securityGroup",
          (Option.map x.securityGroup ~f:AnalysisComponent.to_value));
        ("securityGroupRule",
          (Option.map x.securityGroupRule
             ~f:AnalysisSecurityGroupRule.to_value));
        ("securityGroupSet",
          (Option.map x.securityGroups ~f:AnalysisComponentList.to_value));
        ("sourceVpc", (Option.map x.sourceVpc ~f:AnalysisComponent.to_value));
        ("state", (Option.map x.state ~f:String_.to_value));
        ("subnet", (Option.map x.subnet ~f:AnalysisComponent.to_value));
        ("subnetRouteTable",
          (Option.map x.subnetRouteTable ~f:AnalysisComponent.to_value));
        ("vpc", (Option.map x.vpc ~f:AnalysisComponent.to_value));
        ("vpcEndpoint",
          (Option.map x.vpcEndpoint ~f:AnalysisComponent.to_value));
        ("vpnConnection",
          (Option.map x.vpnConnection ~f:AnalysisComponent.to_value));
        ("vpnGateway",
          (Option.map x.vpnGateway ~f:AnalysisComponent.to_value));
        ("transitGateway",
          (Option.map x.transitGateway ~f:AnalysisComponent.to_value));
        ("transitGatewayRouteTable",
          (Option.map x.transitGatewayRouteTable
             ~f:AnalysisComponent.to_value));
        ("transitGatewayRouteTableRoute",
          (Option.map x.transitGatewayRouteTableRoute
             ~f:TransitGatewayRouteTableRoute.to_value));
        ("transitGatewayAttachment",
          (Option.map x.transitGatewayAttachment
             ~f:AnalysisComponent.to_value));
        ("componentAccount",
          (Option.map x.componentAccount ~f:ComponentAccount.to_value));
        ("componentRegion",
          (Option.map x.componentRegion ~f:ComponentRegion.to_value));
        ("firewallStatelessRule",
          (Option.map x.firewallStatelessRule
             ~f:FirewallStatelessRule.to_value));
        ("firewallStatefulRule",
          (Option.map x.firewallStatefulRule ~f:FirewallStatefulRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firewallStatefulRule =
        (Option.map ~f:FirewallStatefulRule.of_xml)
          (Xml.child xml_arg0 "firewallStatefulRule") in
      let firewallStatelessRule =
        (Option.map ~f:FirewallStatelessRule.of_xml)
          (Xml.child xml_arg0 "firewallStatelessRule") in
      let componentRegion =
        (Option.map ~f:ComponentRegion.of_xml)
          (Xml.child xml_arg0 "componentRegion") in
      let componentAccount =
        (Option.map ~f:ComponentAccount.of_xml)
          (Xml.child xml_arg0 "componentAccount") in
      let transitGatewayAttachment =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "transitGatewayAttachment") in
      let transitGatewayRouteTableRoute =
        (Option.map ~f:TransitGatewayRouteTableRoute.of_xml)
          (Xml.child xml_arg0 "transitGatewayRouteTableRoute") in
      let transitGatewayRouteTable =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "transitGatewayRouteTable") in
      let transitGateway =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "transitGateway") in
      let vpnGateway =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "vpnGateway") in
      let vpnConnection =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "vpnConnection") in
      let vpcEndpoint =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "vpcEndpoint") in
      let vpc =
        (Option.map ~f:AnalysisComponent.of_xml) (Xml.child xml_arg0 "vpc") in
      let subnetRouteTable =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "subnetRouteTable") in
      let subnet =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "subnet") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "state") in
      let sourceVpc =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "sourceVpc") in
      let securityGroups =
        (Option.map ~f:AnalysisComponentList.of_xml)
          (Xml.child xml_arg0 "securityGroupSet") in
      let securityGroupRule =
        (Option.map ~f:AnalysisSecurityGroupRule.of_xml)
          (Xml.child xml_arg0 "securityGroupRule") in
      let securityGroup =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "securityGroup") in
      let routeTable =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "routeTable") in
      let routeTableRoute =
        (Option.map ~f:AnalysisRouteTableRoute.of_xml)
          (Xml.child xml_arg0 "routeTableRoute") in
      let protocols =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "protocolSet") in
      let prefixList =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "prefixList") in
      let portRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "portRangeSet") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "port") in
      let vpcPeeringConnection =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "vpcPeeringConnection") in
      let packetField =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "packetField") in
      let networkInterface =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "networkInterface") in
      let natGateway =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "natGateway") in
      let missingComponent =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "missingComponent") in
      let elasticLoadBalancerListener =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "elasticLoadBalancerListener") in
      let loadBalancerTargetPort =
        (Option.map ~f:Port.of_xml)
          (Xml.child xml_arg0 "loadBalancerTargetPort") in
      let loadBalancerTargetGroups =
        (Option.map ~f:AnalysisComponentList.of_xml)
          (Xml.child xml_arg0 "loadBalancerTargetGroupSet") in
      let loadBalancerTargetGroup =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "loadBalancerTargetGroup") in
      let loadBalancerTarget =
        (Option.map ~f:AnalysisLoadBalancerTarget.of_xml)
          (Xml.child xml_arg0 "loadBalancerTarget") in
      let loadBalancerListenerPort =
        (Option.map ~f:Port.of_xml)
          (Xml.child xml_arg0 "loadBalancerListenerPort") in
      let classicLoadBalancerListener =
        (Option.map ~f:AnalysisLoadBalancerListener.of_xml)
          (Xml.child xml_arg0 "classicLoadBalancerListener") in
      let loadBalancerArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "loadBalancerArn") in
      let internetGateway =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "internetGateway") in
      let ingressRouteTable =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "ingressRouteTable") in
      let explanationCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "explanationCode") in
      let direction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "direction") in
      let destinationVpc =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "destinationVpc") in
      let destination =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "destination") in
      let customerGateway =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "customerGateway") in
      let component =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "component") in
      let cidrs =
        (Option.map ~f:ValueStringList.of_xml) (Xml.child xml_arg0 "cidrSet") in
      let availabilityZoneIds =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "availabilityZoneIdSet") in
      let availabilityZones =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "availabilityZoneSet") in
      let attachedTo =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "attachedTo") in
      let addresses =
        (Option.map ~f:IpAddressList.of_xml)
          (Xml.child xml_arg0 "addressSet") in
      let address =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "address") in
      let aclRule =
        (Option.map ~f:AnalysisAclRule.of_xml) (Xml.child xml_arg0 "aclRule") in
      let acl =
        (Option.map ~f:AnalysisComponent.of_xml) (Xml.child xml_arg0 "acl") in
      make ?firewallStatefulRule ?firewallStatelessRule ?componentRegion
        ?componentAccount ?transitGatewayAttachment
        ?transitGatewayRouteTableRoute ?transitGatewayRouteTable
        ?transitGateway ?vpnGateway ?vpnConnection ?vpcEndpoint ?vpc
        ?subnetRouteTable ?subnet ?state ?sourceVpc ?securityGroups
        ?securityGroupRule ?securityGroup ?routeTable ?routeTableRoute
        ?protocols ?prefixList ?portRanges ?port ?vpcPeeringConnection
        ?packetField ?networkInterface ?natGateway ?missingComponent
        ?elasticLoadBalancerListener ?loadBalancerTargetPort
        ?loadBalancerTargetGroups ?loadBalancerTargetGroup
        ?loadBalancerTarget ?loadBalancerListenerPort
        ?classicLoadBalancerListener ?loadBalancerArn ?internetGateway
        ?ingressRouteTable ?explanationCode ?direction ?destinationVpc
        ?destination ?customerGateway ?component ?cidrs ?availabilityZoneIds
        ?availabilityZones ?attachedTo ?addresses ?address ?aclRule ?acl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firewallStatefulRule =
        field_map json__ "FirewallStatefulRule" FirewallStatefulRule.of_json in
      let firewallStatelessRule =
        field_map json__ "FirewallStatelessRule"
          FirewallStatelessRule.of_json in
      let componentRegion =
        field_map json__ "ComponentRegion" ComponentRegion.of_json in
      let componentAccount =
        field_map json__ "ComponentAccount" ComponentAccount.of_json in
      let transitGatewayAttachment =
        field_map json__ "TransitGatewayAttachment" AnalysisComponent.of_json in
      let transitGatewayRouteTableRoute =
        field_map json__ "TransitGatewayRouteTableRoute"
          TransitGatewayRouteTableRoute.of_json in
      let transitGatewayRouteTable =
        field_map json__ "TransitGatewayRouteTable" AnalysisComponent.of_json in
      let transitGateway =
        field_map json__ "TransitGateway" AnalysisComponent.of_json in
      let vpnGateway =
        field_map json__ "VpnGateway" AnalysisComponent.of_json in
      let vpnConnection =
        field_map json__ "VpnConnection" AnalysisComponent.of_json in
      let vpcEndpoint =
        field_map json__ "VpcEndpoint" AnalysisComponent.of_json in
      let vpc = field_map json__ "Vpc" AnalysisComponent.of_json in
      let subnetRouteTable =
        field_map json__ "SubnetRouteTable" AnalysisComponent.of_json in
      let subnet = field_map json__ "Subnet" AnalysisComponent.of_json in
      let state = field_map json__ "State" String_.of_json in
      let sourceVpc = field_map json__ "SourceVpc" AnalysisComponent.of_json in
      let securityGroups =
        field_map json__ "SecurityGroups" AnalysisComponentList.of_json in
      let securityGroupRule =
        field_map json__ "SecurityGroupRule"
          AnalysisSecurityGroupRule.of_json in
      let securityGroup =
        field_map json__ "SecurityGroup" AnalysisComponent.of_json in
      let routeTable =
        field_map json__ "RouteTable" AnalysisComponent.of_json in
      let routeTableRoute =
        field_map json__ "RouteTableRoute" AnalysisRouteTableRoute.of_json in
      let protocols = field_map json__ "Protocols" StringList.of_json in
      let prefixList =
        field_map json__ "PrefixList" AnalysisComponent.of_json in
      let portRanges = field_map json__ "PortRanges" PortRangeList.of_json in
      let port = field_map json__ "Port" Port.of_json in
      let vpcPeeringConnection =
        field_map json__ "VpcPeeringConnection" AnalysisComponent.of_json in
      let packetField = field_map json__ "PacketField" String_.of_json in
      let networkInterface =
        field_map json__ "NetworkInterface" AnalysisComponent.of_json in
      let natGateway =
        field_map json__ "NatGateway" AnalysisComponent.of_json in
      let missingComponent =
        field_map json__ "MissingComponent" String_.of_json in
      let elasticLoadBalancerListener =
        field_map json__ "ElasticLoadBalancerListener"
          AnalysisComponent.of_json in
      let loadBalancerTargetPort =
        field_map json__ "LoadBalancerTargetPort" Port.of_json in
      let loadBalancerTargetGroups =
        field_map json__ "LoadBalancerTargetGroups"
          AnalysisComponentList.of_json in
      let loadBalancerTargetGroup =
        field_map json__ "LoadBalancerTargetGroup" AnalysisComponent.of_json in
      let loadBalancerTarget =
        field_map json__ "LoadBalancerTarget"
          AnalysisLoadBalancerTarget.of_json in
      let loadBalancerListenerPort =
        field_map json__ "LoadBalancerListenerPort" Port.of_json in
      let classicLoadBalancerListener =
        field_map json__ "ClassicLoadBalancerListener"
          AnalysisLoadBalancerListener.of_json in
      let loadBalancerArn =
        field_map json__ "LoadBalancerArn" ResourceArn.of_json in
      let internetGateway =
        field_map json__ "InternetGateway" AnalysisComponent.of_json in
      let ingressRouteTable =
        field_map json__ "IngressRouteTable" AnalysisComponent.of_json in
      let explanationCode =
        field_map json__ "ExplanationCode" String_.of_json in
      let direction = field_map json__ "Direction" String_.of_json in
      let destinationVpc =
        field_map json__ "DestinationVpc" AnalysisComponent.of_json in
      let destination =
        field_map json__ "Destination" AnalysisComponent.of_json in
      let customerGateway =
        field_map json__ "CustomerGateway" AnalysisComponent.of_json in
      let component = field_map json__ "Component" AnalysisComponent.of_json in
      let cidrs = field_map json__ "Cidrs" ValueStringList.of_json in
      let availabilityZoneIds =
        field_map json__ "AvailabilityZoneIds" ValueStringList.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" ValueStringList.of_json in
      let attachedTo =
        field_map json__ "AttachedTo" AnalysisComponent.of_json in
      let addresses = field_map json__ "Addresses" IpAddressList.of_json in
      let address = field_map json__ "Address" IpAddress.of_json in
      let aclRule = field_map json__ "AclRule" AnalysisAclRule.of_json in
      let acl = field_map json__ "Acl" AnalysisComponent.of_json in
      make ?firewallStatefulRule ?firewallStatelessRule ?componentRegion
        ?componentAccount ?transitGatewayAttachment
        ?transitGatewayRouteTableRoute ?transitGatewayRouteTable
        ?transitGateway ?vpnGateway ?vpnConnection ?vpcEndpoint ?vpc
        ?subnetRouteTable ?subnet ?state ?sourceVpc ?securityGroups
        ?securityGroupRule ?securityGroup ?routeTable ?routeTableRoute
        ?protocols ?prefixList ?portRanges ?port ?vpcPeeringConnection
        ?packetField ?networkInterface ?natGateway ?missingComponent
        ?elasticLoadBalancerListener ?loadBalancerTargetPort
        ?loadBalancerTargetGroups ?loadBalancerTargetGroup
        ?loadBalancerTarget ?loadBalancerListenerPort
        ?classicLoadBalancerListener ?loadBalancerArn ?internetGateway
        ?ingressRouteTable ?explanationCode ?direction ?destinationVpc
        ?destination ?customerGateway ?component ?cidrs ?availabilityZoneIds
        ?availabilityZones ?attachedTo ?addresses ?address ?aclRule ?acl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an explanation code for an unreachable path. For more information, see Reachability Analyzer explanation codes."]
module IKEVersionsList =
  struct
    type nonrec t = IKEVersionsListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IKEVersionsListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IKEVersionsListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"IKEVersionsList"
        ~of_json:IKEVersionsListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Phase1DHGroupNumbersList =
  struct
    type nonrec t = Phase1DHGroupNumbersListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phase1DHGroupNumbersListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Phase1DHGroupNumbersListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Phase1DHGroupNumbersList"
        ~of_json:Phase1DHGroupNumbersListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Phase1EncryptionAlgorithmsList =
  struct
    type nonrec t = Phase1EncryptionAlgorithmsListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phase1EncryptionAlgorithmsListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:Phase1EncryptionAlgorithmsListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Phase1EncryptionAlgorithmsList"
        ~of_json:Phase1EncryptionAlgorithmsListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Phase1IntegrityAlgorithmsList =
  struct
    type nonrec t = Phase1IntegrityAlgorithmsListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phase1IntegrityAlgorithmsListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:Phase1IntegrityAlgorithmsListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Phase1IntegrityAlgorithmsList"
        ~of_json:Phase1IntegrityAlgorithmsListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Phase2DHGroupNumbersList =
  struct
    type nonrec t = Phase2DHGroupNumbersListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phase2DHGroupNumbersListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Phase2DHGroupNumbersListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Phase2DHGroupNumbersList"
        ~of_json:Phase2DHGroupNumbersListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Phase2EncryptionAlgorithmsList =
  struct
    type nonrec t = Phase2EncryptionAlgorithmsListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phase2EncryptionAlgorithmsListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:Phase2EncryptionAlgorithmsListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Phase2EncryptionAlgorithmsList"
        ~of_json:Phase2EncryptionAlgorithmsListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Phase2IntegrityAlgorithmsList =
  struct
    type nonrec t = Phase2IntegrityAlgorithmsListValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phase2IntegrityAlgorithmsListValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:Phase2IntegrityAlgorithmsListValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Phase2IntegrityAlgorithmsList"
        ~of_json:Phase2IntegrityAlgorithmsListValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpnTunnelLogOptions =
  struct
    type nonrec t =
      {
      cloudWatchLogOptions: CloudWatchLogOptions.t option
        [@ocaml.doc "Options for sending VPN tunnel logs to CloudWatch."]}
    let make ?cloudWatchLogOptions = fun () -> { cloudWatchLogOptions }
    let to_value x =
      structure_to_value
        [("cloudWatchLogOptions",
           (Option.map x.cloudWatchLogOptions
              ~f:CloudWatchLogOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cloudWatchLogOptions =
        (Option.map ~f:CloudWatchLogOptions.of_xml)
          (Xml.child xml_arg0 "cloudWatchLogOptions") in
      make ?cloudWatchLogOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cloudWatchLogOptions =
        field_map json__ "CloudWatchLogOptions" CloudWatchLogOptions.of_json in
      make ?cloudWatchLogOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for logging VPN tunnel activity."]
module PreSharedKey =
  struct
    type nonrec t = string
    let context_ = "preSharedKey"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"preSharedKey" j
    let to_json = simple_to_json to_value
  end
module VpcCidrBlockStateCode =
  struct
    type nonrec t =
      | Associating 
      | Associated 
      | Disassociating 
      | Disassociated 
      | Failing 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associating -> "associating"
      | Associated -> "associated"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Failing -> "failing"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "associating" -> Associating
      | "associated" -> Associated
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | "failing" -> Failing
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpcCidrBlockStateCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VpcCidrBlockStateCode" j)
    let to_json = simple_to_json to_value
  end
module VpcEncryptionControlExclusionState =
  struct
    type nonrec t =
      | Enabling 
      | Enabled 
      | Disabling 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabling -> "enabling"
      | Enabled -> "enabled"
      | Disabling -> "disabling"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabling" -> Enabling
      | "enabled" -> Enabled
      | "disabling" -> Disabling
      | "disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpcEncryptionControlExclusionState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VpcEncryptionControlExclusionState" j)
    let to_json = simple_to_json to_value
  end
module VolumeStatusName =
  struct
    type nonrec t =
      | Io_enabled 
      | Io_performance 
      | Initialization_state 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Io_enabled -> "io-enabled"
      | Io_performance -> "io-performance"
      | Initialization_state -> "initialization-state"
      | Non_static_id s -> s
    let of_string =
      function
      | "io-enabled" -> Io_enabled
      | "io-performance" -> Io_performance
      | "initialization-state" -> Initialization_state
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration VolumeStatusName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VolumeStatusName" j)
    let to_json = simple_to_json to_value
  end
module VerifiedAccessLogDeliveryStatusCode =
  struct
    type nonrec t =
      | Success 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Success -> "success"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "success" -> Success
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration VerifiedAccessLogDeliveryStatusCode" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"VerifiedAccessLogDeliveryStatusCode" j)
    let to_json = simple_to_json to_value
  end
module VerifiedAccessEndpointPortNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for VerifiedAccessEndpointPortNumber" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module BgpStatus =
  struct
    type nonrec t =
      | Up 
      | Down 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Up -> "up" | Down -> "down" | Non_static_id s -> s
    let of_string =
      function | "up" -> Up | "down" -> Down | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration BgpStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BgpStatus" j)
    let to_json = simple_to_json to_value
  end
module SubnetCidrBlockStateCode =
  struct
    type nonrec t =
      | Associating 
      | Associated 
      | Disassociating 
      | Disassociated 
      | Failing 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associating -> "associating"
      | Associated -> "associated"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Failing -> "failing"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "associating" -> Associating
      | "associated" -> Associated
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | "failing" -> Failing
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SubnetCidrBlockStateCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SubnetCidrBlockStateCode" j)
    let to_json = simple_to_json to_value
  end
module UserIdGroupPair =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc
          "A description for the security group rule that references this user ID group pair. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,\\@\\[\\]+=;\\{\\}!$*"];
      userId: String_.t option
        [@ocaml.doc
          "The ID of an Amazon Web Services account. For a referenced security group in another VPC, the account ID of the referenced security group is returned in the response. If the referenced security group is deleted, this value is not returned."];
      groupName: String_.t option
        [@ocaml.doc
          "\\[Default VPC\\] The name of the security group. For a security group in a nondefault VPC, use the security group ID. For a referenced security group in another VPC, this value is not returned if the referenced security group is deleted."];
      groupId: String_.t option [@ocaml.doc "The ID of the security group."];
      vpcId: String_.t option
        [@ocaml.doc
          "The ID of the VPC for the referenced security group, if applicable."];
      vpcPeeringConnectionId: String_.t option
        [@ocaml.doc "The ID of the VPC peering connection, if applicable."];
      peeringStatus: String_.t option
        [@ocaml.doc "The status of a VPC peering connection, if applicable."]}
    let make ?description =
      fun ?userId ->
        fun ?groupName ->
          fun ?groupId ->
            fun ?vpcId ->
              fun ?vpcPeeringConnectionId ->
                fun ?peeringStatus ->
                  fun () ->
                    {
                      description;
                      userId;
                      groupName;
                      groupId;
                      vpcId;
                      vpcPeeringConnectionId;
                      peeringStatus
                    }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:String_.to_value));
        ("userId", (Option.map x.userId ~f:String_.to_value));
        ("groupName", (Option.map x.groupName ~f:String_.to_value));
        ("groupId", (Option.map x.groupId ~f:String_.to_value));
        ("vpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("vpcPeeringConnectionId",
          (Option.map x.vpcPeeringConnectionId ~f:String_.to_value));
        ("peeringStatus", (Option.map x.peeringStatus ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let peeringStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "peeringStatus") in
      let vpcPeeringConnectionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "vpcPeeringConnectionId") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "vpcId") in
      let groupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupId") in
      let groupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupName") in
      let userId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userId") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      make ?peeringStatus ?vpcPeeringConnectionId ?vpcId ?groupId ?groupName
        ?userId ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let peeringStatus = field_map json__ "PeeringStatus" String_.of_json in
      let vpcPeeringConnectionId =
        field_map json__ "VpcPeeringConnectionId" String_.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let groupId = field_map json__ "GroupId" String_.of_json in
      let groupName = field_map json__ "GroupName" String_.of_json in
      let userId = field_map json__ "UserId" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      make ?peeringStatus ?vpcPeeringConnectionId ?vpcId ?groupId ?groupName
        ?userId ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a security group and Amazon Web Services account ID pair."]
module BlockDeviceMappingList =
  struct
    type nonrec t = BlockDeviceMapping.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BlockDeviceMapping.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:BlockDeviceMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"BlockDeviceMappingList"
        ~of_json:BlockDeviceMapping.of_json j
    let to_json v = composed_to_json to_value v
  end
module IamInstanceProfileSpecification =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the instance profile."];
      name: String_.t option [@ocaml.doc "The name of the instance profile."]}
    let make ?arn = fun ?name -> fun () -> { arn; name }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      make ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in make ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IAM instance profile."]
module InstanceNetworkInterfaceSpecificationList =
  struct
    type nonrec t = InstanceNetworkInterfaceSpecification.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceNetworkInterfaceSpecification.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:InstanceNetworkInterfaceSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceNetworkInterfaceSpecificationList"
        ~of_json:InstanceNetworkInterfaceSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module KeyPairName =
  struct
    type nonrec t = string
    let context_ = "KeyPairName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KeyPairName" j
    let to_json = simple_to_json to_value
  end
module SensitiveUserData =
  struct
    type nonrec t = string
    let context_ = "SensitiveUserData"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveUserData" j
    let to_json = simple_to_json to_value
  end
module SpotFleetMonitoring =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Enables monitoring for the instance. Default: false"]}
    let make ?enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes whether monitoring is enabled."]
module SpotFleetTagSpecificationList =
  struct
    type nonrec t = SpotFleetTagSpecification.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SpotFleetTagSpecification.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SpotFleetTagSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"SpotFleetTagSpecificationList"
        ~of_json:SpotFleetTagSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module SpotPlacement =
  struct
    type nonrec t =
      {
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone. For example, us-east-2a. \\[Spot Fleet only\\] To specify multiple Availability Zones, separate them using commas; for example, \"us-east-2a, us-east-2b\". Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."];
      groupName: PlacementGroupName.t option
        [@ocaml.doc "The name of the placement group."];
      tenancy: Tenancy.t option
        [@ocaml.doc
          "The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of dedicated runs on single-tenant hardware. The host tenancy is not supported for Spot Instances."];
      availabilityZoneId: String_.t option
        [@ocaml.doc
          "The ID of the Availability Zone. For example, use2-az1. \\[Spot Fleet only\\] To specify multiple Availability Zones, separate them using commas; for example, \"use2-az1, use2-bz1\". Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."]}
    let make ?availabilityZone =
      fun ?groupName ->
        fun ?tenancy ->
          fun ?availabilityZoneId ->
            fun () ->
              { availabilityZone; groupName; tenancy; availabilityZoneId }
    let to_value x =
      structure_to_value
        [("availabilityZone",
           (Option.map x.availabilityZone ~f:String_.to_value));
        ("groupName",
          (Option.map x.groupName ~f:PlacementGroupName.to_value));
        ("tenancy", (Option.map x.tenancy ~f:Tenancy.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let tenancy =
        (Option.map ~f:Tenancy.of_xml) (Xml.child xml_arg0 "tenancy") in
      let groupName =
        (Option.map ~f:PlacementGroupName.of_xml)
          (Xml.child xml_arg0 "groupName") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      make ?availabilityZoneId ?tenancy ?groupName ?availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let tenancy = field_map json__ "Tenancy" Tenancy.of_json in
      let groupName = field_map json__ "GroupName" PlacementGroupName.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      make ?availabilityZoneId ?tenancy ?groupName ?availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes Spot Instance placement."]
module FleetLaunchTemplateSpecification =
  struct
    type nonrec t =
      {
      launchTemplateId: String_.t option
        [@ocaml.doc
          "The ID of the launch template. You must specify the LaunchTemplateId or the LaunchTemplateName, but not both."];
      launchTemplateName: LaunchTemplateName.t option
        [@ocaml.doc
          "The name of the launch template. You must specify the LaunchTemplateName or the LaunchTemplateId, but not both."];
      version: String_.t option
        [@ocaml.doc
          "The launch template version number, $Latest, or $Default. You must specify a value, otherwise the request fails. If the value is $Latest, Amazon EC2 uses the latest version of the launch template. If the value is $Default, Amazon EC2 uses the default version of the launch template."]}
    let make ?launchTemplateId =
      fun ?launchTemplateName ->
        fun ?version ->
          fun () -> { launchTemplateId; launchTemplateName; version }
    let to_value x =
      structure_to_value
        [("launchTemplateId",
           (Option.map x.launchTemplateId ~f:String_.to_value));
        ("launchTemplateName",
          (Option.map x.launchTemplateName ~f:LaunchTemplateName.to_value));
        ("version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      let launchTemplateName =
        (Option.map ~f:LaunchTemplateName.of_xml)
          (Xml.child xml_arg0 "launchTemplateName") in
      let launchTemplateId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "launchTemplateId") in
      make ?version ?launchTemplateName ?launchTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let launchTemplateName =
        field_map json__ "LaunchTemplateName" LaunchTemplateName.of_json in
      let launchTemplateId =
        field_map json__ "LaunchTemplateId" String_.of_json in
      make ?version ?launchTemplateName ?launchTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon EC2 launch template that can be used by a Spot Fleet to configure Amazon EC2 instances. You must specify either the ID or name of the launch template in the request, but not both. For information about launch templates, see Launch an instance from a launch template in the Amazon EC2 User Guide."]
module LaunchTemplateOverridesList =
  struct
    type nonrec t = LaunchTemplateOverrides.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LaunchTemplateOverrides.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:LaunchTemplateOverrides.of_xml)
    let of_json j =
      list_of_json ~kind:"LaunchTemplateOverridesList"
        ~of_json:LaunchTemplateOverrides.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClassicLoadBalancers =
  struct
    type nonrec t = ClassicLoadBalancer.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ClassicLoadBalancer.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ClassicLoadBalancer.of_xml)
    let of_json j =
      list_of_json ~kind:"ClassicLoadBalancers"
        ~of_json:ClassicLoadBalancer.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetGroups =
  struct
    type nonrec t = TargetGroup.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TargetGroup.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TargetGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetGroups" ~of_json:TargetGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReplacementStrategy =
  struct
    type nonrec t =
      | Launch 
      | Launch_before_terminate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Launch -> "launch"
      | Launch_before_terminate -> "launch-before-terminate"
      | Non_static_id s -> s
    let of_string =
      function
      | "launch" -> Launch
      | "launch-before-terminate" -> Launch_before_terminate
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ReplacementStrategy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplacementStrategy" j)
    let to_json = simple_to_json to_value
  end
module IpRange =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc
          "A description for the security group rule that references this IPv4 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,\\@\\[\\]+=&;\\{\\}!$*"];
      cidrIp: String_.t option
        [@ocaml.doc
          "The IPv4 address range. You can either specify a CIDR block or a source security group, not both. To specify a single IPv4 address, use the /32 prefix length. Amazon Web Services canonicalizes IPv4 and IPv6 CIDRs. For example, if you specify 100.68.0.18/18 for the CIDR block, Amazon Web Services canonicalizes the CIDR block to 100.68.0.0/18. Any subsequent DescribeSecurityGroups and DescribeSecurityGroupRules calls will return the canonicalized form of the CIDR block. Additionally, if you attempt to add another rule with the non-canonical form of the CIDR (such as 100.68.0.18/18) and there is already a rule for the canonicalized form of the CIDR block (such as 100.68.0.0/18), the API throws an duplicate rule error."]}
    let make ?description = fun ?cidrIp -> fun () -> { description; cidrIp }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:String_.to_value));
        ("cidrIp", (Option.map x.cidrIp ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidrIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidrIp") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      make ?cidrIp ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidrIp = field_map json__ "CidrIp" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      make ?cidrIp ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv4 address range."]
module Ipv6Range =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc
          "A description for the security group rule that references this IPv6 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,\\@\\[\\]+=&;\\{\\}!$*"];
      cidrIpv6: String_.t option
        [@ocaml.doc
          "The IPv6 address range. You can either specify a CIDR block or a source security group, not both. To specify a single IPv6 address, use the /128 prefix length. Amazon Web Services canonicalizes IPv4 and IPv6 CIDRs. For example, if you specify 100.68.0.18/18 for the CIDR block, Amazon Web Services canonicalizes the CIDR block to 100.68.0.0/18. Any subsequent DescribeSecurityGroups and DescribeSecurityGroupRules calls will return the canonicalized form of the CIDR block. Additionally, if you attempt to add another rule with the non-canonical form of the CIDR (such as 100.68.0.18/18) and there is already a rule for the canonicalized form of the CIDR block (such as 100.68.0.0/18), the API throws an duplicate rule error."]}
    let make ?description =
      fun ?cidrIpv6 -> fun () -> { description; cidrIpv6 }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:String_.to_value));
        ("cidrIpv6", (Option.map x.cidrIpv6 ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidrIpv6 =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidrIpv6") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      make ?cidrIpv6 ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidrIpv6 = field_map json__ "CidrIpv6" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      make ?cidrIpv6 ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv6 address range."]
module PrefixListId =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc
          "A description for the security group rule that references this prefix list ID. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,\\@\\[\\]+=;\\{\\}!$*"];
      prefixListId: String_.t option [@ocaml.doc "The ID of the prefix."]}
    let make ?description =
      fun ?prefixListId -> fun () -> { description; prefixListId }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:String_.to_value));
        ("prefixListId", (Option.map x.prefixListId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixListId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "prefixListId") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      make ?prefixListId ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixListId = field_map json__ "PrefixListId" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      make ?prefixListId ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a prefix list ID."]
module RouteTableAssociationStateCode =
  struct
    type nonrec t =
      | Associating 
      | Associated 
      | Disassociating 
      | Disassociated 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associating -> "associating"
      | Associated -> "associated"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "associating" -> Associating
      | "associated" -> Associated
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration RouteTableAssociationStateCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RouteTableAssociationStateCode" j)
    let to_json = simple_to_json to_value
  end
module Scope =
  struct
    type nonrec t =
      | Availability_Zone 
      | Region 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Availability_Zone -> "Availability Zone"
      | Region -> "Region"
      | Non_static_id s -> s
    let of_string =
      function
      | "Availability Zone" -> Availability_Zone
      | "Region" -> Region
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration scope" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"scope" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateEbsBlockDevice =
  struct
    type nonrec t =
      {
      encrypted: Boolean.t option
        [@ocaml.doc "Indicates whether the EBS volume is encrypted."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the EBS volume is deleted on instance termination."];
      iops: Integer.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS) that the volume supports."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "Identifier (key ID, key alias, key ARN, or alias ARN) of the customer managed KMS key to use for EBS encryption."];
      snapshotId: SnapshotId.t option [@ocaml.doc "The ID of the snapshot."];
      volumeSize: Integer.t option
        [@ocaml.doc "The size of the volume, in GiB."];
      volumeType: VolumeType.t option [@ocaml.doc "The volume type."];
      throughput: Integer.t option
        [@ocaml.doc "The throughput that the volume supports, in MiB/s."];
      volumeInitializationRate: Integer.t option
        [@ocaml.doc
          "The Amazon EBS Provisioned Rate for Volume Initialization (volume initialization rate) specified for the volume, in MiB/s. If no volume initialization rate was specified, the value is null."];
      ebsCardIndex: Integer.t option
        [@ocaml.doc
          "The index of the EBS card. Some instance types support multiple EBS cards. The default EBS card index is 0."]}
    let make ?encrypted =
      fun ?deleteOnTermination ->
        fun ?iops ->
          fun ?kmsKeyId ->
            fun ?snapshotId ->
              fun ?volumeSize ->
                fun ?volumeType ->
                  fun ?throughput ->
                    fun ?volumeInitializationRate ->
                      fun ?ebsCardIndex ->
                        fun () ->
                          {
                            encrypted;
                            deleteOnTermination;
                            iops;
                            kmsKeyId;
                            snapshotId;
                            volumeSize;
                            volumeType;
                            throughput;
                            volumeInitializationRate;
                            ebsCardIndex
                          }
    let to_value x =
      structure_to_value
        [("encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("iops", (Option.map x.iops ~f:Integer.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("snapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("volumeSize", (Option.map x.volumeSize ~f:Integer.to_value));
        ("volumeType", (Option.map x.volumeType ~f:VolumeType.to_value));
        ("throughput", (Option.map x.throughput ~f:Integer.to_value));
        ("volumeInitializationRate",
          (Option.map x.volumeInitializationRate ~f:Integer.to_value));
        ("ebsCardIndex", (Option.map x.ebsCardIndex ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ebsCardIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ebsCardIndex") in
      let volumeInitializationRate =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "volumeInitializationRate") in
      let throughput =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "throughput") in
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "volumeType") in
      let volumeSize =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "volumeSize") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "snapshotId") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let iops = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "iops") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "encrypted") in
      make ?ebsCardIndex ?volumeInitializationRate ?throughput ?volumeType
        ?volumeSize ?snapshotId ?kmsKeyId ?iops ?deleteOnTermination
        ?encrypted ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ebsCardIndex = field_map json__ "EbsCardIndex" Integer.of_json in
      let volumeInitializationRate =
        field_map json__ "VolumeInitializationRate" Integer.of_json in
      let throughput = field_map json__ "Throughput" Integer.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let volumeSize = field_map json__ "VolumeSize" Integer.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let iops = field_map json__ "Iops" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      make ?ebsCardIndex ?volumeInitializationRate ?throughput ?volumeType
        ?volumeSize ?snapshotId ?kmsKeyId ?iops ?deleteOnTermination
        ?encrypted ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a block device for an EBS volume."]
module InstanceInterruptionBehavior =
  struct
    type nonrec t =
      | Hibernate 
      | Stop 
      | Terminate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Hibernate -> "hibernate"
      | Stop -> "stop"
      | Terminate -> "terminate"
      | Non_static_id s -> s
    let of_string =
      function
      | "hibernate" -> Hibernate
      | "stop" -> Stop
      | "terminate" -> Terminate
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceInterruptionBehavior"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceInterruptionBehavior" j)
    let to_json = simple_to_json to_value
  end
module SpotInstanceType =
  struct
    type nonrec t =
      | One_time 
      | Persistent 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | One_time -> "one-time"
      | Persistent -> "persistent"
      | Non_static_id s -> s
    let of_string =
      function
      | "one-time" -> One_time
      | "persistent" -> Persistent
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SpotInstanceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SpotInstanceType" j)
    let to_json = simple_to_json to_value
  end
module ConnectionTrackingSpecification =
  struct
    type nonrec t =
      {
      tcpEstablishedTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle TCP connections in an established state. Min: 60 seconds. Max: 432000 seconds (5 days). Default: 432000 seconds. Recommended: Less than 432000 seconds."];
      udpTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle UDP flows that have seen traffic only in a single direction or a single request-response transaction. Min: 30 seconds. Max: 60 seconds. Default: 30 seconds."];
      udpStreamTimeout: Integer.t option
        [@ocaml.doc
          "Timeout (in seconds) for idle UDP flows classified as streams which have seen more than one request-response transaction. Min: 60 seconds. Max: 180 seconds (3 minutes). Default: 180 seconds."]}
    let make ?tcpEstablishedTimeout =
      fun ?udpTimeout ->
        fun ?udpStreamTimeout ->
          fun () -> { tcpEstablishedTimeout; udpTimeout; udpStreamTimeout }
    let to_value x =
      structure_to_value
        [("tcpEstablishedTimeout",
           (Option.map x.tcpEstablishedTimeout ~f:Integer.to_value));
        ("udpTimeout", (Option.map x.udpTimeout ~f:Integer.to_value));
        ("udpStreamTimeout",
          (Option.map x.udpStreamTimeout ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let udpStreamTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "udpStreamTimeout") in
      let udpTimeout =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "udpTimeout") in
      let tcpEstablishedTimeout =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "tcpEstablishedTimeout") in
      make ?udpStreamTimeout ?udpTimeout ?tcpEstablishedTimeout ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let udpStreamTimeout =
        field_map json__ "UdpStreamTimeout" Integer.of_json in
      let udpTimeout = field_map json__ "UdpTimeout" Integer.of_json in
      let tcpEstablishedTimeout =
        field_map json__ "TcpEstablishedTimeout" Integer.of_json in
      make ?udpStreamTimeout ?udpTimeout ?tcpEstablishedTimeout ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A security group connection tracking specification that enables you to set the idle timeout for connection tracking on an Elastic network interface. For more information, see Connection tracking timeouts in the Amazon EC2 User Guide."]
module GroupIdStringList =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupIdStringList" ~of_json:SecurityGroupId.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Ipv4PrefixListResponse =
  struct
    type nonrec t = Ipv4PrefixSpecificationResponse.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv4PrefixSpecificationResponse.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Ipv4PrefixSpecificationResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv4PrefixListResponse"
        ~of_json:Ipv4PrefixSpecificationResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv6PrefixListResponse =
  struct
    type nonrec t = Ipv6PrefixSpecificationResponse.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv6PrefixSpecificationResponse.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Ipv6PrefixSpecificationResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv6PrefixListResponse"
        ~of_json:Ipv6PrefixSpecificationResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module LaunchTemplateEnaSrdSpecification =
  struct
    type nonrec t =
      {
      enaSrdEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether ENA Express is enabled for the network interface."];
      enaSrdUdpSpecification: LaunchTemplateEnaSrdUdpSpecification.t option
        [@ocaml.doc "Configures ENA Express for UDP network traffic."]}
    let make ?enaSrdEnabled =
      fun ?enaSrdUdpSpecification ->
        fun () -> { enaSrdEnabled; enaSrdUdpSpecification }
    let to_value x =
      structure_to_value
        [("enaSrdEnabled", (Option.map x.enaSrdEnabled ~f:Boolean.to_value));
        ("enaSrdUdpSpecification",
          (Option.map x.enaSrdUdpSpecification
             ~f:LaunchTemplateEnaSrdUdpSpecification.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpSpecification =
        (Option.map ~f:LaunchTemplateEnaSrdUdpSpecification.of_xml)
          (Xml.child xml_arg0 "enaSrdUdpSpecification") in
      let enaSrdEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enaSrdEnabled") in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpSpecification =
        field_map json__ "EnaSrdUdpSpecification"
          LaunchTemplateEnaSrdUdpSpecification.of_json in
      let enaSrdEnabled = field_map json__ "EnaSrdEnabled" Boolean.of_json in
      make ?enaSrdUdpSpecification ?enaSrdEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "ENA Express uses Amazon Web Services Scalable Reliable Datagram (SRD) technology to increase the maximum bandwidth used per stream and minimize tail latency of network traffic between EC2 instances. With ENA Express, you can communicate between two EC2 instances in the same subnet within the same account, or in different accounts. Both sending and receiving instances must have ENA Express enabled. To improve the reliability of network packet delivery, ENA Express reorders network packets on the receiving end by default. However, some UDP-based applications are designed to handle network packets that are out of order to reduce the overhead for packet delivery at the network layer. When ENA Express is enabled, you can specify whether UDP network traffic uses it."]
module SecondaryInterfacePrivateIpAddressSpecificationList =
  struct
    type nonrec t = SecondaryInterfacePrivateIpAddressSpecification.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map
            ~f:SecondaryInterfacePrivateIpAddressSpecification.to_value))
        |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:SecondaryInterfacePrivateIpAddressSpecification.of_xml)
    let of_json j =
      list_of_json
        ~kind:"SecondaryInterfacePrivateIpAddressSpecificationList"
        ~of_json:SecondaryInterfacePrivateIpAddressSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module CapacityReservationPreference =
  struct
    type nonrec t =
      | Capacity_reservations_only 
      | Open 
      | None 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Capacity_reservations_only -> "capacity-reservations-only"
      | Open -> "open"
      | None -> "none"
      | Non_static_id s -> s
    let of_string =
      function
      | "capacity-reservations-only" -> Capacity_reservations_only
      | "open" -> Open
      | "none" -> None
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CapacityReservationPreference"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CapacityReservationPreference" j)
    let to_json = simple_to_json to_value
  end
module CapacityReservationTargetResponse =
  struct
    type nonrec t =
      {
      capacityReservationId: String_.t option
        [@ocaml.doc "The ID of the targeted Capacity Reservation."];
      capacityReservationResourceGroupArn: String_.t option
        [@ocaml.doc "The ARN of the targeted Capacity Reservation group."]}
    let make ?capacityReservationId =
      fun ?capacityReservationResourceGroupArn ->
        fun () ->
          { capacityReservationId; capacityReservationResourceGroupArn }
    let to_value x =
      structure_to_value
        [("capacityReservationId",
           (Option.map x.capacityReservationId ~f:String_.to_value));
        ("capacityReservationResourceGroupArn",
          (Option.map x.capacityReservationResourceGroupArn
             ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityReservationResourceGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "capacityReservationResourceGroupArn") in
      let capacityReservationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "capacityReservationId") in
      make ?capacityReservationResourceGroupArn ?capacityReservationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityReservationResourceGroupArn =
        field_map json__ "CapacityReservationResourceGroupArn"
          String_.of_json in
      let capacityReservationId =
        field_map json__ "CapacityReservationId" String_.of_json in
      make ?capacityReservationResourceGroupArn ?capacityReservationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a target Capacity Reservation or Capacity Reservation group."]
module AmdSevSnpSpecification =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AmdSevSnpSpecification" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AmdSevSnpSpecification" j)
    let to_json = simple_to_json to_value
  end
module NestedVirtualizationSpecification =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NestedVirtualizationSpecification"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NestedVirtualizationSpecification" j)
    let to_json = simple_to_json to_value
  end
module ElasticGpuAssociation =
  struct
    type nonrec t =
      {
      elasticGpuId: ElasticGpuId.t option
        [@ocaml.doc "The ID of the Elastic Graphics accelerator."];
      elasticGpuAssociationId: String_.t option
        [@ocaml.doc "The ID of the association."];
      elasticGpuAssociationState: String_.t option
        [@ocaml.doc
          "The state of the association between the instance and the Elastic Graphics accelerator."];
      elasticGpuAssociationTime: String_.t option
        [@ocaml.doc
          "The time the Elastic Graphics accelerator was associated with the instance."]}
    let make ?elasticGpuId =
      fun ?elasticGpuAssociationId ->
        fun ?elasticGpuAssociationState ->
          fun ?elasticGpuAssociationTime ->
            fun () ->
              {
                elasticGpuId;
                elasticGpuAssociationId;
                elasticGpuAssociationState;
                elasticGpuAssociationTime
              }
    let to_value x =
      structure_to_value
        [("elasticGpuId",
           (Option.map x.elasticGpuId ~f:ElasticGpuId.to_value));
        ("elasticGpuAssociationId",
          (Option.map x.elasticGpuAssociationId ~f:String_.to_value));
        ("elasticGpuAssociationState",
          (Option.map x.elasticGpuAssociationState ~f:String_.to_value));
        ("elasticGpuAssociationTime",
          (Option.map x.elasticGpuAssociationTime ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let elasticGpuAssociationTime =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "elasticGpuAssociationTime") in
      let elasticGpuAssociationState =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "elasticGpuAssociationState") in
      let elasticGpuAssociationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "elasticGpuAssociationId") in
      let elasticGpuId =
        (Option.map ~f:ElasticGpuId.of_xml)
          (Xml.child xml_arg0 "elasticGpuId") in
      make ?elasticGpuAssociationTime ?elasticGpuAssociationState
        ?elasticGpuAssociationId ?elasticGpuId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let elasticGpuAssociationTime =
        field_map json__ "ElasticGpuAssociationTime" String_.of_json in
      let elasticGpuAssociationState =
        field_map json__ "ElasticGpuAssociationState" String_.of_json in
      let elasticGpuAssociationId =
        field_map json__ "ElasticGpuAssociationId" String_.of_json in
      let elasticGpuId = field_map json__ "ElasticGpuId" ElasticGpuId.of_json in
      make ?elasticGpuAssociationTime ?elasticGpuAssociationState
        ?elasticGpuAssociationId ?elasticGpuId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Elastic Graphics reached end of life on January 8, 2024. Describes the association between an instance and an Elastic Graphics accelerator."]
module ElasticInferenceAcceleratorAssociation =
  struct
    type nonrec t =
      {
      elasticInferenceAcceleratorArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the elastic inference accelerator."];
      elasticInferenceAcceleratorAssociationId: String_.t option
        [@ocaml.doc "The ID of the association."];
      elasticInferenceAcceleratorAssociationState: String_.t option
        [@ocaml.doc "The state of the elastic inference accelerator."];
      elasticInferenceAcceleratorAssociationTime: DateTime.t option
        [@ocaml.doc
          "The time at which the elastic inference accelerator is associated with an instance."]}
    let make ?elasticInferenceAcceleratorArn =
      fun ?elasticInferenceAcceleratorAssociationId ->
        fun ?elasticInferenceAcceleratorAssociationState ->
          fun ?elasticInferenceAcceleratorAssociationTime ->
            fun () ->
              {
                elasticInferenceAcceleratorArn;
                elasticInferenceAcceleratorAssociationId;
                elasticInferenceAcceleratorAssociationState;
                elasticInferenceAcceleratorAssociationTime
              }
    let to_value x =
      structure_to_value
        [("elasticInferenceAcceleratorArn",
           (Option.map x.elasticInferenceAcceleratorArn ~f:String_.to_value));
        ("elasticInferenceAcceleratorAssociationId",
          (Option.map x.elasticInferenceAcceleratorAssociationId
             ~f:String_.to_value));
        ("elasticInferenceAcceleratorAssociationState",
          (Option.map x.elasticInferenceAcceleratorAssociationState
             ~f:String_.to_value));
        ("elasticInferenceAcceleratorAssociationTime",
          (Option.map x.elasticInferenceAcceleratorAssociationTime
             ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let elasticInferenceAcceleratorAssociationTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "elasticInferenceAcceleratorAssociationTime") in
      let elasticInferenceAcceleratorAssociationState =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "elasticInferenceAcceleratorAssociationState") in
      let elasticInferenceAcceleratorAssociationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "elasticInferenceAcceleratorAssociationId") in
      let elasticInferenceAcceleratorArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "elasticInferenceAcceleratorArn") in
      make ?elasticInferenceAcceleratorAssociationTime
        ?elasticInferenceAcceleratorAssociationState
        ?elasticInferenceAcceleratorAssociationId
        ?elasticInferenceAcceleratorArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let elasticInferenceAcceleratorAssociationTime =
        field_map json__ "ElasticInferenceAcceleratorAssociationTime"
          DateTime.of_json in
      let elasticInferenceAcceleratorAssociationState =
        field_map json__ "ElasticInferenceAcceleratorAssociationState"
          String_.of_json in
      let elasticInferenceAcceleratorAssociationId =
        field_map json__ "ElasticInferenceAcceleratorAssociationId"
          String_.of_json in
      let elasticInferenceAcceleratorArn =
        field_map json__ "ElasticInferenceAcceleratorArn" String_.of_json in
      make ?elasticInferenceAcceleratorAssociationTime
        ?elasticInferenceAcceleratorAssociationState
        ?elasticInferenceAcceleratorAssociationId
        ?elasticInferenceAcceleratorArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Elastic Inference is no longer available. Describes the association between an instance and an elastic inference accelerator."]
module InstanceBlockDeviceMapping =
  struct
    type nonrec t =
      {
      deviceName: String_.t option [@ocaml.doc "The device name."];
      ebs: EbsInstanceBlockDevice.t option
        [@ocaml.doc
          "Parameters used to automatically set up EBS volumes when the instance is launched."]}
    let make ?deviceName = fun ?ebs -> fun () -> { deviceName; ebs }
    let to_value x =
      structure_to_value
        [("deviceName", (Option.map x.deviceName ~f:String_.to_value));
        ("ebs", (Option.map x.ebs ~f:EbsInstanceBlockDevice.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ebs =
        (Option.map ~f:EbsInstanceBlockDevice.of_xml)
          (Xml.child xml_arg0 "ebs") in
      let deviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "deviceName") in
      make ?ebs ?deviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ebs = field_map json__ "Ebs" EbsInstanceBlockDevice.of_json in
      let deviceName = field_map json__ "DeviceName" String_.of_json in
      make ?ebs ?deviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a block device mapping."]
module InstanceAutoRecoveryState =
  struct
    type nonrec t =
      | Disabled 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Default -> "default"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "default" -> Default
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceAutoRecoveryState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceAutoRecoveryState" j)
    let to_json = simple_to_json to_value
  end
module InstanceRebootMigrationState =
  struct
    type nonrec t =
      | Disabled 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Default -> "default"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "default" -> Default
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceRebootMigrationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceRebootMigrationState" j)
    let to_json = simple_to_json to_value
  end
module HttpTokensState =
  struct
    type nonrec t =
      | Optional 
      | Required 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Optional -> "optional"
      | Required -> "required"
      | Non_static_id s -> s
    let of_string =
      function
      | "optional" -> Optional
      | "required" -> Required
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration HttpTokensState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HttpTokensState" j)
    let to_json = simple_to_json to_value
  end
module InstanceMetadataEndpointState =
  struct
    type nonrec t =
      | Disabled 
      | Enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Enabled -> "enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "enabled" -> Enabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceMetadataEndpointState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceMetadataEndpointState" j)
    let to_json = simple_to_json to_value
  end
module InstanceMetadataOptionsState =
  struct
    type nonrec t =
      | Pending 
      | Applied 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Applied -> "applied"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "applied" -> Applied
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceMetadataOptionsState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceMetadataOptionsState" j)
    let to_json = simple_to_json to_value
  end
module InstanceMetadataProtocolState =
  struct
    type nonrec t =
      | Disabled 
      | Enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Enabled -> "enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "enabled" -> Enabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceMetadataProtocolState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceMetadataProtocolState" j)
    let to_json = simple_to_json to_value
  end
module InstanceMetadataTagsState =
  struct
    type nonrec t =
      | Disabled 
      | Enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Enabled -> "enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "enabled" -> Enabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceMetadataTagsState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceMetadataTagsState" j)
    let to_json = simple_to_json to_value
  end
module InstanceNetworkInterface =
  struct
    type nonrec t =
      {
      association: InstanceNetworkInterfaceAssociation.t option
        [@ocaml.doc
          "The association information for an Elastic IPv4 associated with the network interface."];
      attachment: InstanceNetworkInterfaceAttachment.t option
        [@ocaml.doc "The network interface attachment."];
      description: String_.t option [@ocaml.doc "The description."];
      groups: GroupIdentifierList.t option
        [@ocaml.doc "The security groups."];
      ipv6Addresses: InstanceIpv6AddressList.t option
        [@ocaml.doc
          "The IPv6 addresses associated with the network interface."];
      macAddress: String_.t option [@ocaml.doc "The MAC address."];
      networkInterfaceId: String_.t option
        [@ocaml.doc "The ID of the network interface."];
      ownerId: String_.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services account that created the network interface."];
      privateDnsName: String_.t option [@ocaml.doc "The private DNS name."];
      privateIpAddress: String_.t option
        [@ocaml.doc
          "The IPv4 address of the network interface within the subnet."];
      privateIpAddresses: InstancePrivateIpAddressList.t option
        [@ocaml.doc
          "The private IPv4 addresses associated with the network interface."];
      sourceDestCheck: Boolean.t option
        [@ocaml.doc
          "Indicates whether source/destination checking is enabled."];
      status: NetworkInterfaceStatus.t option
        [@ocaml.doc "The status of the network interface."];
      subnetId: String_.t option [@ocaml.doc "The ID of the subnet."];
      vpcId: String_.t option [@ocaml.doc "The ID of the VPC."];
      interfaceType: String_.t option
        [@ocaml.doc
          "The type of network interface. Valid values: interface | efa | efa-only | evs | trunk"];
      ipv4Prefixes: InstanceIpv4PrefixList.t option
        [@ocaml.doc
          "The IPv4 delegated prefixes that are assigned to the network interface."];
      ipv6Prefixes: InstanceIpv6PrefixList.t option
        [@ocaml.doc
          "The IPv6 delegated prefixes that are assigned to the network interface."];
      connectionTrackingConfiguration:
        ConnectionTrackingSpecificationResponse.t option
        [@ocaml.doc
          "A security group connection tracking configuration that enables you to set the timeout for connection tracking on an Elastic network interface. For more information, see Connection tracking timeouts in the Amazon EC2 User Guide."];
      operator: OperatorResponse.t option
        [@ocaml.doc
          "The service provider that manages the network interface."]}
    let make ?association =
      fun ?attachment ->
        fun ?description ->
          fun ?groups ->
            fun ?ipv6Addresses ->
              fun ?macAddress ->
                fun ?networkInterfaceId ->
                  fun ?ownerId ->
                    fun ?privateDnsName ->
                      fun ?privateIpAddress ->
                        fun ?privateIpAddresses ->
                          fun ?sourceDestCheck ->
                            fun ?status ->
                              fun ?subnetId ->
                                fun ?vpcId ->
                                  fun ?interfaceType ->
                                    fun ?ipv4Prefixes ->
                                      fun ?ipv6Prefixes ->
                                        fun ?connectionTrackingConfiguration
                                          ->
                                          fun ?operator ->
                                            fun () ->
                                              {
                                                association;
                                                attachment;
                                                description;
                                                groups;
                                                ipv6Addresses;
                                                macAddress;
                                                networkInterfaceId;
                                                ownerId;
                                                privateDnsName;
                                                privateIpAddress;
                                                privateIpAddresses;
                                                sourceDestCheck;
                                                status;
                                                subnetId;
                                                vpcId;
                                                interfaceType;
                                                ipv4Prefixes;
                                                ipv6Prefixes;
                                                connectionTrackingConfiguration;
                                                operator
                                              }
    let to_value x =
      structure_to_value
        [("association",
           (Option.map x.association
              ~f:InstanceNetworkInterfaceAssociation.to_value));
        ("attachment",
          (Option.map x.attachment
             ~f:InstanceNetworkInterfaceAttachment.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("groupSet", (Option.map x.groups ~f:GroupIdentifierList.to_value));
        ("ipv6AddressesSet",
          (Option.map x.ipv6Addresses ~f:InstanceIpv6AddressList.to_value));
        ("macAddress", (Option.map x.macAddress ~f:String_.to_value));
        ("networkInterfaceId",
          (Option.map x.networkInterfaceId ~f:String_.to_value));
        ("ownerId", (Option.map x.ownerId ~f:String_.to_value));
        ("privateDnsName", (Option.map x.privateDnsName ~f:String_.to_value));
        ("privateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value));
        ("privateIpAddressesSet",
          (Option.map x.privateIpAddresses
             ~f:InstancePrivateIpAddressList.to_value));
        ("sourceDestCheck",
          (Option.map x.sourceDestCheck ~f:Boolean.to_value));
        ("status", (Option.map x.status ~f:NetworkInterfaceStatus.to_value));
        ("subnetId", (Option.map x.subnetId ~f:String_.to_value));
        ("vpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("interfaceType", (Option.map x.interfaceType ~f:String_.to_value));
        ("ipv4PrefixSet",
          (Option.map x.ipv4Prefixes ~f:InstanceIpv4PrefixList.to_value));
        ("ipv6PrefixSet",
          (Option.map x.ipv6Prefixes ~f:InstanceIpv6PrefixList.to_value));
        ("connectionTrackingConfiguration",
          (Option.map x.connectionTrackingConfiguration
             ~f:ConnectionTrackingSpecificationResponse.to_value));
        ("operator", (Option.map x.operator ~f:OperatorResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operator =
        (Option.map ~f:OperatorResponse.of_xml)
          (Xml.child xml_arg0 "operator") in
      let connectionTrackingConfiguration =
        (Option.map ~f:ConnectionTrackingSpecificationResponse.of_xml)
          (Xml.child xml_arg0 "connectionTrackingConfiguration") in
      let ipv6Prefixes =
        (Option.map ~f:InstanceIpv6PrefixList.of_xml)
          (Xml.child xml_arg0 "ipv6PrefixSet") in
      let ipv4Prefixes =
        (Option.map ~f:InstanceIpv4PrefixList.of_xml)
          (Xml.child xml_arg0 "ipv4PrefixSet") in
      let interfaceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "interfaceType") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "vpcId") in
      let subnetId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "subnetId") in
      let status =
        (Option.map ~f:NetworkInterfaceStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let sourceDestCheck =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "sourceDestCheck") in
      let privateIpAddresses =
        (Option.map ~f:InstancePrivateIpAddressList.of_xml)
          (Xml.child xml_arg0 "privateIpAddressesSet") in
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      let privateDnsName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "privateDnsName") in
      let ownerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ownerId") in
      let networkInterfaceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "networkInterfaceId") in
      let macAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "macAddress") in
      let ipv6Addresses =
        (Option.map ~f:InstanceIpv6AddressList.of_xml)
          (Xml.child xml_arg0 "ipv6AddressesSet") in
      let groups =
        (Option.map ~f:GroupIdentifierList.of_xml)
          (Xml.child xml_arg0 "groupSet") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let attachment =
        (Option.map ~f:InstanceNetworkInterfaceAttachment.of_xml)
          (Xml.child xml_arg0 "attachment") in
      let association =
        (Option.map ~f:InstanceNetworkInterfaceAssociation.of_xml)
          (Xml.child xml_arg0 "association") in
      make ?operator ?connectionTrackingConfiguration ?ipv6Prefixes
        ?ipv4Prefixes ?interfaceType ?vpcId ?subnetId ?status
        ?sourceDestCheck ?privateIpAddresses ?privateIpAddress
        ?privateDnsName ?ownerId ?networkInterfaceId ?macAddress
        ?ipv6Addresses ?groups ?description ?attachment ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operator = field_map json__ "Operator" OperatorResponse.of_json in
      let connectionTrackingConfiguration =
        field_map json__ "ConnectionTrackingConfiguration"
          ConnectionTrackingSpecificationResponse.of_json in
      let ipv6Prefixes =
        field_map json__ "Ipv6Prefixes" InstanceIpv6PrefixList.of_json in
      let ipv4Prefixes =
        field_map json__ "Ipv4Prefixes" InstanceIpv4PrefixList.of_json in
      let interfaceType = field_map json__ "InterfaceType" String_.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      let subnetId = field_map json__ "SubnetId" String_.of_json in
      let status = field_map json__ "Status" NetworkInterfaceStatus.of_json in
      let sourceDestCheck =
        field_map json__ "SourceDestCheck" Boolean.of_json in
      let privateIpAddresses =
        field_map json__ "PrivateIpAddresses"
          InstancePrivateIpAddressList.of_json in
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      let privateDnsName = field_map json__ "PrivateDnsName" String_.of_json in
      let ownerId = field_map json__ "OwnerId" String_.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" String_.of_json in
      let macAddress = field_map json__ "MacAddress" String_.of_json in
      let ipv6Addresses =
        field_map json__ "Ipv6Addresses" InstanceIpv6AddressList.of_json in
      let groups = field_map json__ "Groups" GroupIdentifierList.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let attachment =
        field_map json__ "Attachment"
          InstanceNetworkInterfaceAttachment.of_json in
      let association =
        field_map json__ "Association"
          InstanceNetworkInterfaceAssociation.of_json in
      make ?operator ?connectionTrackingConfiguration ?ipv6Prefixes
        ?ipv4Prefixes ?interfaceType ?vpcId ?subnetId ?status
        ?sourceDestCheck ?privateIpAddresses ?privateIpAddress
        ?privateDnsName ?ownerId ?networkInterfaceId ?macAddress
        ?ipv6Addresses ?groups ?description ?attachment ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network interface."]
module InstanceBandwidthWeighting =
  struct
    type nonrec t =
      | Default 
      | Vpc_1 
      | Ebs_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Vpc_1 -> "vpc-1"
      | Ebs_1 -> "ebs-1"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "vpc-1" -> Vpc_1
      | "ebs-1" -> Ebs_1
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceBandwidthWeighting"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceBandwidthWeighting" j)
    let to_json = simple_to_json to_value
  end
module InstanceSecondaryInterface =
  struct
    type nonrec t =
      {
      attachment: InstanceSecondaryInterfaceAttachment.t option
        [@ocaml.doc
          "The attachment information for the secondary interface."];
      macAddress: String_.t option
        [@ocaml.doc "The MAC address of the secondary interface."];
      secondaryInterfaceId: SecondaryInterfaceId.t option
        [@ocaml.doc "The ID of the secondary interface."];
      ownerId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account ID of the owner of the secondary interface."];
      privateIpAddresses:
        InstanceSecondaryInterfacePrivateIpAddressList.t option
        [@ocaml.doc
          "The private IPv4 addresses associated with the secondary interface."];
      sourceDestCheck: Boolean.t option
        [@ocaml.doc
          "Indicates whether source/destination checking is enabled."];
      status: SecondaryInterfaceStatus.t option
        [@ocaml.doc "The status of the secondary interface."];
      secondarySubnetId: SecondarySubnetId.t option
        [@ocaml.doc "The ID of the secondary subnet."];
      secondaryNetworkId: SecondaryNetworkId.t option
        [@ocaml.doc "The ID of the secondary network."];
      interfaceType: SecondaryInterfaceType.t option
        [@ocaml.doc "The type of secondary interface."]}
    let make ?attachment =
      fun ?macAddress ->
        fun ?secondaryInterfaceId ->
          fun ?ownerId ->
            fun ?privateIpAddresses ->
              fun ?sourceDestCheck ->
                fun ?status ->
                  fun ?secondarySubnetId ->
                    fun ?secondaryNetworkId ->
                      fun ?interfaceType ->
                        fun () ->
                          {
                            attachment;
                            macAddress;
                            secondaryInterfaceId;
                            ownerId;
                            privateIpAddresses;
                            sourceDestCheck;
                            status;
                            secondarySubnetId;
                            secondaryNetworkId;
                            interfaceType
                          }
    let to_value x =
      structure_to_value
        [("attachment",
           (Option.map x.attachment
              ~f:InstanceSecondaryInterfaceAttachment.to_value));
        ("macAddress", (Option.map x.macAddress ~f:String_.to_value));
        ("secondaryInterfaceId",
          (Option.map x.secondaryInterfaceId ~f:SecondaryInterfaceId.to_value));
        ("ownerId", (Option.map x.ownerId ~f:String_.to_value));
        ("privateIpAddressSet",
          (Option.map x.privateIpAddresses
             ~f:InstanceSecondaryInterfacePrivateIpAddressList.to_value));
        ("sourceDestCheck",
          (Option.map x.sourceDestCheck ~f:Boolean.to_value));
        ("status",
          (Option.map x.status ~f:SecondaryInterfaceStatus.to_value));
        ("secondarySubnetId",
          (Option.map x.secondarySubnetId ~f:SecondarySubnetId.to_value));
        ("secondaryNetworkId",
          (Option.map x.secondaryNetworkId ~f:SecondaryNetworkId.to_value));
        ("interfaceType",
          (Option.map x.interfaceType ~f:SecondaryInterfaceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let interfaceType =
        (Option.map ~f:SecondaryInterfaceType.of_xml)
          (Xml.child xml_arg0 "interfaceType") in
      let secondaryNetworkId =
        (Option.map ~f:SecondaryNetworkId.of_xml)
          (Xml.child xml_arg0 "secondaryNetworkId") in
      let secondarySubnetId =
        (Option.map ~f:SecondarySubnetId.of_xml)
          (Xml.child xml_arg0 "secondarySubnetId") in
      let status =
        (Option.map ~f:SecondaryInterfaceStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let sourceDestCheck =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "sourceDestCheck") in
      let privateIpAddresses =
        (Option.map ~f:InstanceSecondaryInterfacePrivateIpAddressList.of_xml)
          (Xml.child xml_arg0 "privateIpAddressSet") in
      let ownerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ownerId") in
      let secondaryInterfaceId =
        (Option.map ~f:SecondaryInterfaceId.of_xml)
          (Xml.child xml_arg0 "secondaryInterfaceId") in
      let macAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "macAddress") in
      let attachment =
        (Option.map ~f:InstanceSecondaryInterfaceAttachment.of_xml)
          (Xml.child xml_arg0 "attachment") in
      make ?interfaceType ?secondaryNetworkId ?secondarySubnetId ?status
        ?sourceDestCheck ?privateIpAddresses ?ownerId ?secondaryInterfaceId
        ?macAddress ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let interfaceType =
        field_map json__ "InterfaceType" SecondaryInterfaceType.of_json in
      let secondaryNetworkId =
        field_map json__ "SecondaryNetworkId" SecondaryNetworkId.of_json in
      let secondarySubnetId =
        field_map json__ "SecondarySubnetId" SecondarySubnetId.of_json in
      let status = field_map json__ "Status" SecondaryInterfaceStatus.of_json in
      let sourceDestCheck =
        field_map json__ "SourceDestCheck" Boolean.of_json in
      let privateIpAddresses =
        field_map json__ "PrivateIpAddresses"
          InstanceSecondaryInterfacePrivateIpAddressList.of_json in
      let ownerId = field_map json__ "OwnerId" String_.of_json in
      let secondaryInterfaceId =
        field_map json__ "SecondaryInterfaceId" SecondaryInterfaceId.of_json in
      let macAddress = field_map json__ "MacAddress" String_.of_json in
      let attachment =
        field_map json__ "Attachment"
          InstanceSecondaryInterfaceAttachment.of_json in
      make ?interfaceType ?secondaryNetworkId ?secondarySubnetId ?status
        ?sourceDestCheck ?privateIpAddresses ?ownerId ?secondaryInterfaceId
        ?macAddress ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a secondary interface attached to an instance."]
module InstanceStateName =
  struct
    type nonrec t =
      | Pending 
      | Running 
      | Shutting_down 
      | Terminated 
      | Stopping 
      | Stopped 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Running -> "running"
      | Shutting_down -> "shutting-down"
      | Terminated -> "terminated"
      | Stopping -> "stopping"
      | Stopped -> "stopped"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "running" -> Running
      | "shutting-down" -> Shutting_down
      | "terminated" -> Terminated
      | "stopping" -> Stopping
      | "stopped" -> Stopped
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceStateName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InstanceStateName" j)
    let to_json = simple_to_json to_value
  end
module LicenseConfiguration =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the license configuration."]}
    let make ?licenseConfigurationArn = fun () -> { licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("licenseConfigurationArn",
           (Option.map x.licenseConfigurationArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConfigurationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "licenseConfigurationArn") in
      make ?licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConfigurationArn =
        field_map json__ "LicenseConfigurationArn" String_.of_json in
      make ?licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a license configuration."]
module MonitoringState =
  struct
    type nonrec t =
      | Disabled 
      | Disabling 
      | Enabled 
      | Pending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Disabling -> "disabling"
      | Enabled -> "enabled"
      | Pending -> "pending"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "disabling" -> Disabling
      | "enabled" -> Enabled
      | "pending" -> Pending
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration MonitoringState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MonitoringState" j)
    let to_json = simple_to_json to_value
  end
module HostnameType =
  struct
    type nonrec t =
      | Ip_name 
      | Resource_name 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ip_name -> "ip-name"
      | Resource_name -> "resource-name"
      | Non_static_id s -> s
    let of_string =
      function
      | "ip-name" -> Ip_name
      | "resource-name" -> Resource_name
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration HostnameType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HostnameType" j)
    let to_json = simple_to_json to_value
  end
module ProductCode =
  struct
    type nonrec t =
      {
      productCodeId: String_.t option [@ocaml.doc "The product code."];
      productCodeType: ProductCodeValues.t option
        [@ocaml.doc "The type of product code."]}
    let make ?productCodeId =
      fun ?productCodeType -> fun () -> { productCodeId; productCodeType }
    let to_value x =
      structure_to_value
        [("productCode", (Option.map x.productCodeId ~f:String_.to_value));
        ("type",
          (Option.map x.productCodeType ~f:ProductCodeValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productCodeType =
        (Option.map ~f:ProductCodeValues.of_xml) (Xml.child xml_arg0 "type") in
      let productCodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "productCode") in
      make ?productCodeType ?productCodeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productCodeType =
        field_map json__ "ProductCodeType" ProductCodeValues.of_json in
      let productCodeId = field_map json__ "ProductCodeId" String_.of_json in
      make ?productCodeType ?productCodeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a product code."]
module BaselineBandwidthInMbps =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for BaselineBandwidthInMbps"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module BaselineIops =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for BaselineIops" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module BaselineThroughputInMBps =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module EbsCardIndex =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for EbsCardIndex" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumBandwidthInMbps =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumBandwidthInMbps" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumIops =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumIops" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumThroughputInMBps =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module FpgaDeviceCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for FpgaDeviceCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module FpgaDeviceManufacturerName =
  struct
    type nonrec t = string
    let context_ = "FpgaDeviceManufacturerName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FpgaDeviceManufacturerName" j
    let to_json = simple_to_json to_value
  end
module FpgaDeviceMemoryInfo =
  struct
    type nonrec t =
      {
      sizeInMiB: FpgaDeviceMemorySize.t option
        [@ocaml.doc
          "The size of the memory available to the FPGA accelerator, in MiB."]}
    let make ?sizeInMiB = fun () -> { sizeInMiB }
    let to_value x =
      structure_to_value
        [("sizeInMiB",
           (Option.map x.sizeInMiB ~f:FpgaDeviceMemorySize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInMiB =
        (Option.map ~f:FpgaDeviceMemorySize.of_xml)
          (Xml.child xml_arg0 "sizeInMiB") in
      make ?sizeInMiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInMiB =
        field_map json__ "SizeInMiB" FpgaDeviceMemorySize.of_json in
      make ?sizeInMiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the memory for the FPGA accelerator for the instance type."]
module FpgaDeviceName =
  struct
    type nonrec t = string
    let context_ = "FpgaDeviceName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FpgaDeviceName" j
    let to_json = simple_to_json to_value
  end
module GpuDeviceCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for GpuDeviceCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module GpuDeviceManufacturerName =
  struct
    type nonrec t = string
    let context_ = "GpuDeviceManufacturerName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GpuDeviceManufacturerName" j
    let to_json = simple_to_json to_value
  end
module GpuDeviceMemoryInfo =
  struct
    type nonrec t =
      {
      sizeInMiB: GpuDeviceMemorySize.t option
        [@ocaml.doc
          "The size of the memory available to the GPU accelerator, in MiB."]}
    let make ?sizeInMiB = fun () -> { sizeInMiB }
    let to_value x =
      structure_to_value
        [("sizeInMiB",
           (Option.map x.sizeInMiB ~f:GpuDeviceMemorySize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInMiB =
        (Option.map ~f:GpuDeviceMemorySize.of_xml)
          (Xml.child xml_arg0 "sizeInMiB") in
      make ?sizeInMiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInMiB =
        field_map json__ "SizeInMiB" GpuDeviceMemorySize.of_json in
      make ?sizeInMiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the memory available to the GPU accelerator."]
module GpuDeviceName =
  struct
    type nonrec t = string
    let context_ = "GpuDeviceName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GpuDeviceName" j
    let to_json = simple_to_json to_value
  end
module GpuPartitionSize =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module LogicalGpuCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for LogicalGpuCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module WorkloadsList =
  struct
    type nonrec t = Workload.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Workload.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Workload.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkloadsList" ~of_json:Workload.of_json j
    let to_json v = composed_to_json to_value v
  end
module InferenceDeviceCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InferenceDeviceCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module InferenceDeviceManufacturerName =
  struct
    type nonrec t = string
    let context_ = "InferenceDeviceManufacturerName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InferenceDeviceManufacturerName" j
    let to_json = simple_to_json to_value
  end
module InferenceDeviceMemoryInfo =
  struct
    type nonrec t =
      {
      sizeInMiB: InferenceDeviceMemorySize.t option
        [@ocaml.doc
          "The size of the memory available to the inference accelerator, in MiB."]}
    let make ?sizeInMiB = fun () -> { sizeInMiB }
    let to_value x =
      structure_to_value
        [("sizeInMiB",
           (Option.map x.sizeInMiB ~f:InferenceDeviceMemorySize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInMiB =
        (Option.map ~f:InferenceDeviceMemorySize.of_xml)
          (Xml.child xml_arg0 "sizeInMiB") in
      make ?sizeInMiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInMiB =
        field_map json__ "SizeInMiB" InferenceDeviceMemorySize.of_json in
      make ?sizeInMiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Elastic Inference is no longer available. Describes the memory available to the inference accelerator."]
module InferenceDeviceName =
  struct
    type nonrec t = string
    let context_ = "InferenceDeviceName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InferenceDeviceName" j
    let to_json = simple_to_json to_value
  end
module DiskCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for DiskCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module DiskSize =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module DiskType =
  struct
    type nonrec t =
      | Hdd 
      | Ssd 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Hdd -> "hdd" | Ssd -> "ssd" | Non_static_id s -> s
    let of_string =
      function | "hdd" -> Hdd | "ssd" -> Ssd | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DiskType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DiskType" j)
    let to_json = simple_to_json to_value
  end
module MediaDeviceCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MediaDeviceCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MediaDeviceManufacturerName =
  struct
    type nonrec t = string
    let context_ = "MediaDeviceManufacturerName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MediaDeviceManufacturerName" j
    let to_json = simple_to_json to_value
  end
module MediaDeviceMemoryInfo =
  struct
    type nonrec t =
      {
      sizeInMiB: MediaDeviceMemorySize.t option
        [@ocaml.doc
          "The size of the memory available to each media accelerator, in MiB."]}
    let make ?sizeInMiB = fun () -> { sizeInMiB }
    let to_value x =
      structure_to_value
        [("sizeInMiB",
           (Option.map x.sizeInMiB ~f:MediaDeviceMemorySize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInMiB =
        (Option.map ~f:MediaDeviceMemorySize.of_xml)
          (Xml.child xml_arg0 "sizeInMiB") in
      make ?sizeInMiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInMiB =
        field_map json__ "SizeInMiB" MediaDeviceMemorySize.of_json in
      make ?sizeInMiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the memory available to the media accelerator."]
module MediaDeviceName =
  struct
    type nonrec t = string
    let context_ = "MediaDeviceName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MediaDeviceName" j
    let to_json = simple_to_json to_value
  end
module AdditionalFlexibleNetworkInterfaces =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for AdditionalFlexibleNetworkInterfaces"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module BaselineBandwidthInGbps =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module DefaultEnaQueueCountPerInterface =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for DefaultEnaQueueCountPerInterface" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaxNetworkInterfaces =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxNetworkInterfaces" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumEnaQueueCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumEnaQueueCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumEnaQueueCountPerInterface =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for MaximumEnaQueueCountPerInterface" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NetworkCardIndex =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NetworkCardIndex" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NetworkPerformance =
  struct
    type nonrec t = string
    let context_ = "NetworkPerformance"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NetworkPerformance" j
    let to_json = simple_to_json to_value
  end
module PeakBandwidthInGbps =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module NeuronDeviceCoreInfo =
  struct
    type nonrec t =
      {
      count: NeuronDeviceCoreCount.t option
        [@ocaml.doc
          "The number of cores available to the neuron accelerator."];
      version: NeuronDeviceCoreVersion.t option
        [@ocaml.doc "The version of the neuron accelerator."]}
    let make ?count = fun ?version -> fun () -> { count; version }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:NeuronDeviceCoreCount.to_value));
        ("version",
          (Option.map x.version ~f:NeuronDeviceCoreVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:NeuronDeviceCoreVersion.of_xml)
          (Xml.child xml_arg0 "version") in
      let count =
        (Option.map ~f:NeuronDeviceCoreCount.of_xml)
          (Xml.child xml_arg0 "count") in
      make ?version ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version =
        field_map json__ "Version" NeuronDeviceCoreVersion.of_json in
      let count = field_map json__ "Count" NeuronDeviceCoreCount.of_json in
      make ?version ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the cores available to the neuron accelerator."]
module NeuronDeviceCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NeuronDeviceCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NeuronDeviceMemoryInfo =
  struct
    type nonrec t =
      {
      sizeInMiB: NeuronDeviceMemorySize.t option
        [@ocaml.doc
          "The size of the memory available to the neuron accelerator, in MiB."]}
    let make ?sizeInMiB = fun () -> { sizeInMiB }
    let to_value x =
      structure_to_value
        [("sizeInMiB",
           (Option.map x.sizeInMiB ~f:NeuronDeviceMemorySize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInMiB =
        (Option.map ~f:NeuronDeviceMemorySize.of_xml)
          (Xml.child xml_arg0 "sizeInMiB") in
      make ?sizeInMiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInMiB =
        field_map json__ "SizeInMiB" NeuronDeviceMemorySize.of_json in
      make ?sizeInMiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the memory available to the neuron accelerator."]
module NeuronDeviceName =
  struct
    type nonrec t = string
    let context_ = "NeuronDeviceName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NeuronDeviceName" j
    let to_json = simple_to_json to_value
  end
module StatusName =
  struct
    type nonrec t =
      | Reachability 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Reachability -> "reachability" | Non_static_id s -> s
    let of_string =
      function | "reachability" -> Reachability | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StatusName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatusName" j)
    let to_json = simple_to_json to_value
  end
module StatusType =
  struct
    type nonrec t =
      | Passed 
      | Failed 
      | Insufficient_data 
      | Initializing 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Passed -> "passed"
      | Failed -> "failed"
      | Insufficient_data -> "insufficient-data"
      | Initializing -> "initializing"
      | Non_static_id s -> s
    let of_string =
      function
      | "passed" -> Passed
      | "failed" -> Failed
      | "insufficient-data" -> Insufficient_data
      | "initializing" -> Initializing
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration StatusType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StatusType" j)
    let to_json = simple_to_json to_value
  end
module ImageUsageResourceTypeOption =
  struct
    type nonrec t =
      {
      optionName: String_.t option [@ocaml.doc "The name of the option."];
      optionValues: ImageUsageResourceTypeOptionValuesList.t option
        [@ocaml.doc "The number of launch template versions to check."]}
    let make ?optionName =
      fun ?optionValues -> fun () -> { optionName; optionValues }
    let to_value x =
      structure_to_value
        [("optionName", (Option.map x.optionName ~f:String_.to_value));
        ("optionValueSet",
          (Option.map x.optionValues
             ~f:ImageUsageResourceTypeOptionValuesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optionValues =
        (Option.map ~f:ImageUsageResourceTypeOptionValuesList.of_xml)
          (Xml.child xml_arg0 "optionValueSet") in
      let optionName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "optionName") in
      make ?optionValues ?optionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optionValues =
        field_map json__ "OptionValues"
          ImageUsageResourceTypeOptionValuesList.of_json in
      let optionName = field_map json__ "OptionName" String_.of_json in
      make ?optionValues ?optionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The options that affect the scope of the report."]
module ResourceTypeOptionValue =
  struct
    type nonrec t = string
    let context_ = "ResourceTypeOptionValue"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceTypeOptionValue" j
    let to_json = simple_to_json to_value
  end
module FleetLaunchTemplateOverrides =
  struct
    type nonrec t =
      {
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The instance type. mac1.metal is not supported as a launch template override. If you specify InstanceType, you can't specify InstanceRequirements."];
      maxPrice: String_.t option
        [@ocaml.doc
          "The maximum price per unit hour that you are willing to pay for a Spot Instance. We do not recommend using this parameter because it can lead to increased interruptions. If you do not specify this parameter, you will pay the current Spot price. If you specify a maximum price, your instances will be interrupted more frequently than if you do not specify this parameter. If you specify a maximum price, it must be more than USD $0.001. Specifying a value below USD $0.001 will result in an InvalidParameterValue error message."];
      subnetId: String_.t option
        [@ocaml.doc "The ID of the subnet in which to launch the instances."];
      availabilityZone: AvailabilityZoneName.t option
        [@ocaml.doc
          "The Availability Zone in which to launch the instances. For example, us-east-2a. Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."];
      weightedCapacity: Double.t option
        [@ocaml.doc
          "The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms of instances, or a performance characteristic such as vCPUs, memory, or I/O. If the target capacity divided by this value is not a whole number, Amazon EC2 rounds the number of instances to the next whole number. If this value is not specified, the default is 1. When specifying weights, the price used in the lowest-price and price-capacity-optimized allocation strategies is per unit hour (where the instance price is divided by the specified weight). However, if all the specified weights are above the requested TargetCapacity, resulting in only 1 instance being launched, the price used is per instance hour."];
      priority: Double.t option
        [@ocaml.doc
          "The priority for the launch template override. The highest priority is launched first. If the On-Demand AllocationStrategy is set to prioritized, EC2 Fleet uses priority to determine which launch template override to use first in fulfilling On-Demand capacity. If the Spot AllocationStrategy is set to capacity-optimized-prioritized, EC2 Fleet uses priority on a best-effort basis to determine which launch template override to use in fulfilling Spot capacity, but optimizes for capacity first. Valid values are whole numbers starting at 0. The lower the number, the higher the priority. If no number is set, the override has the lowest priority. You can set the same priority for different launch template overrides."];
      placement: PlacementResponse.t option
        [@ocaml.doc
          "The location where the instance launched, if applicable."];
      instanceRequirements: InstanceRequirements.t option
        [@ocaml.doc
          "The attributes for the instance types. When you specify instance attributes, Amazon EC2 will identify instance types with those attributes. If you specify InstanceRequirements, you can't specify InstanceType."];
      imageId: ImageId.t option
        [@ocaml.doc
          "The ID of the AMI in the format ami-17characters00000. Alternatively, you can specify a Systems Manager parameter, using one of the following formats. The Systems Manager parameter will resolve to an AMI ID on launch. To reference a public parameter: resolve:ssm:public-parameter To reference a parameter stored in the same account: resolve:ssm:parameter-name resolve:ssm:parameter-name:version-number resolve:ssm:parameter-name:label To reference a parameter shared from another Amazon Web Services account: resolve:ssm:parameter-ARN resolve:ssm:parameter-ARN:version-number resolve:ssm:parameter-ARN:label For more information, see Use a Systems Manager parameter instead of an AMI ID in the Amazon EC2 User Guide. This parameter is only available for fleets of type instant. For fleets of type maintain and request, you must specify the AMI ID in the launch template."];
      blockDeviceMappings: BlockDeviceMappingResponseList.t option
        [@ocaml.doc
          "The block device mappings, which define the EBS volumes and instance store volumes to attach to the instance at launch. Supported only for fleets of type instant. For more information, see Block device mappings for volumes on Amazon EC2 instances in the Amazon EC2 User Guide."];
      availabilityZoneId: AvailabilityZoneId.t option
        [@ocaml.doc
          "The ID of the Availability Zone in which to launch the instances. For example, use2-az1. Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."]}
    let make ?instanceType =
      fun ?maxPrice ->
        fun ?subnetId ->
          fun ?availabilityZone ->
            fun ?weightedCapacity ->
              fun ?priority ->
                fun ?placement ->
                  fun ?instanceRequirements ->
                    fun ?imageId ->
                      fun ?blockDeviceMappings ->
                        fun ?availabilityZoneId ->
                          fun () ->
                            {
                              instanceType;
                              maxPrice;
                              subnetId;
                              availabilityZone;
                              weightedCapacity;
                              priority;
                              placement;
                              instanceRequirements;
                              imageId;
                              blockDeviceMappings;
                              availabilityZoneId
                            }
    let to_value x =
      structure_to_value
        [("instanceType",
           (Option.map x.instanceType ~f:InstanceType.to_value));
        ("maxPrice", (Option.map x.maxPrice ~f:String_.to_value));
        ("subnetId", (Option.map x.subnetId ~f:String_.to_value));
        ("availabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZoneName.to_value));
        ("weightedCapacity",
          (Option.map x.weightedCapacity ~f:Double.to_value));
        ("priority", (Option.map x.priority ~f:Double.to_value));
        ("placement", (Option.map x.placement ~f:PlacementResponse.to_value));
        ("instanceRequirements",
          (Option.map x.instanceRequirements ~f:InstanceRequirements.to_value));
        ("imageId", (Option.map x.imageId ~f:ImageId.to_value));
        ("blockDeviceMappingSet",
          (Option.map x.blockDeviceMappings
             ~f:BlockDeviceMappingResponseList.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:AvailabilityZoneId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneId =
        (Option.map ~f:AvailabilityZoneId.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let blockDeviceMappings =
        (Option.map ~f:BlockDeviceMappingResponseList.of_xml)
          (Xml.child xml_arg0 "blockDeviceMappingSet") in
      let imageId =
        (Option.map ~f:ImageId.of_xml) (Xml.child xml_arg0 "imageId") in
      let instanceRequirements =
        (Option.map ~f:InstanceRequirements.of_xml)
          (Xml.child xml_arg0 "instanceRequirements") in
      let placement =
        (Option.map ~f:PlacementResponse.of_xml)
          (Xml.child xml_arg0 "placement") in
      let priority =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "priority") in
      let weightedCapacity =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "weightedCapacity") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZoneName.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      let subnetId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "subnetId") in
      let maxPrice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "maxPrice") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      make ?availabilityZoneId ?blockDeviceMappings ?imageId
        ?instanceRequirements ?placement ?priority ?weightedCapacity
        ?availabilityZone ?subnetId ?maxPrice ?instanceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" AvailabilityZoneId.of_json in
      let blockDeviceMappings =
        field_map json__ "BlockDeviceMappings"
          BlockDeviceMappingResponseList.of_json in
      let imageId = field_map json__ "ImageId" ImageId.of_json in
      let instanceRequirements =
        field_map json__ "InstanceRequirements" InstanceRequirements.of_json in
      let placement = field_map json__ "Placement" PlacementResponse.of_json in
      let priority = field_map json__ "Priority" Double.of_json in
      let weightedCapacity =
        field_map json__ "WeightedCapacity" Double.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZoneName.of_json in
      let subnetId = field_map json__ "SubnetId" String_.of_json in
      let maxPrice = field_map json__ "MaxPrice" String_.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      make ?availabilityZoneId ?blockDeviceMappings ?imageId
        ?instanceRequirements ?placement ?priority ?weightedCapacity
        ?availabilityZone ?subnetId ?maxPrice ?instanceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes overrides for a launch template."]
module InstanceId =
  struct
    type nonrec t = string
    let context_ = "InstanceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InstanceId" j
    let to_json = simple_to_json to_value
  end
module FleetReplacementStrategy =
  struct
    type nonrec t =
      | Launch 
      | Launch_before_terminate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Launch -> "launch"
      | Launch_before_terminate -> "launch-before-terminate"
      | Non_static_id s -> s
    let of_string =
      function
      | "launch" -> Launch
      | "launch-before-terminate" -> Launch_before_terminate
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration FleetReplacementStrategy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"FleetReplacementStrategy" j)
    let to_json = simple_to_json to_value
  end
module AttributeValue =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "The attribute value. The value is case-sensitive."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a value for a resource attribute that is a String."]
module DiskImageDescription =
  struct
    type nonrec t =
      {
      checksum: String_.t option
        [@ocaml.doc "The checksum computed for the disk image."];
      format: DiskImageFormat.t option [@ocaml.doc "The disk image format."];
      importManifestUrl: ImportManifestUrl.t option
        [@ocaml.doc
          "A presigned URL for the import manifest stored in Amazon S3. For information about creating a presigned URL for an Amazon S3 object, read the \"Query String Request Authentication Alternative\" section of the Authenticating REST Requests topic in the Amazon Simple Storage Service Developer Guide. For information about the import manifest referenced by this API action, see VM Import Manifest."];
      size: Long.t option [@ocaml.doc "The size of the disk image, in GiB."]}
    let make ?checksum =
      fun ?format ->
        fun ?importManifestUrl ->
          fun ?size ->
            fun () -> { checksum; format; importManifestUrl; size }
    let to_value x =
      structure_to_value
        [("checksum", (Option.map x.checksum ~f:String_.to_value));
        ("format", (Option.map x.format ~f:DiskImageFormat.to_value));
        ("importManifestUrl",
          (Option.map x.importManifestUrl ~f:ImportManifestUrl.to_value));
        ("size", (Option.map x.size ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let size = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "size") in
      let importManifestUrl =
        (Option.map ~f:ImportManifestUrl.of_xml)
          (Xml.child xml_arg0 "importManifestUrl") in
      let format =
        (Option.map ~f:DiskImageFormat.of_xml) (Xml.child xml_arg0 "format") in
      let checksum =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "checksum") in
      make ?size ?importManifestUrl ?format ?checksum ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let size = field_map json__ "Size" Long.of_json in
      let importManifestUrl =
        field_map json__ "ImportManifestUrl" ImportManifestUrl.of_json in
      let format = field_map json__ "Format" DiskImageFormat.of_json in
      let checksum = field_map json__ "Checksum" String_.of_json in
      make ?size ?importManifestUrl ?format ?checksum ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a disk image."]
module DiskImageVolumeDescription =
  struct
    type nonrec t =
      {
      id: String_.t option [@ocaml.doc "The volume identifier."];
      size: Long.t option [@ocaml.doc "The size of the volume, in GiB."]}
    let make ?id = fun ?size -> fun () -> { id; size }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("size", (Option.map x.size ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let size = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "size") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?size ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let size = field_map json__ "Size" Long.of_json in
      let id = field_map json__ "Id" String_.of_json in make ?size ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a disk image volume."]
module CapacityAllocationMetadataEntry =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The key of the metadata entry."];
      value: String_.t option [@ocaml.doc "The value of the metadata entry."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair that provides additional metadata about a capacity allocation."]
module CloudWatchLogGroupArn =
  struct
    type nonrec t = string
    let context_ = "CloudWatchLogGroupArn"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CloudWatchLogGroupArn" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentResourceType =
  struct
    type nonrec t =
      | Vpc 
      | Vpn 
      | Vpn_concentrator 
      | Direct_connect_gateway 
      | Connect 
      | Peering 
      | Tgw_peering 
      | Network_function 
      | Client_vpn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Vpc -> "vpc"
      | Vpn -> "vpn"
      | Vpn_concentrator -> "vpn-concentrator"
      | Direct_connect_gateway -> "direct-connect-gateway"
      | Connect -> "connect"
      | Peering -> "peering"
      | Tgw_peering -> "tgw-peering"
      | Network_function -> "network-function"
      | Client_vpn -> "client-vpn"
      | Non_static_id s -> s
    let of_string =
      function
      | "vpc" -> Vpc
      | "vpn" -> Vpn
      | "vpn-concentrator" -> Vpn_concentrator
      | "direct-connect-gateway" -> Direct_connect_gateway
      | "connect" -> Connect
      | "peering" -> Peering
      | "tgw-peering" -> Tgw_peering
      | "network-function" -> Network_function
      | "client-vpn" -> Client_vpn
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration TransitGatewayAttachmentResourceType" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"TransitGatewayAttachmentResourceType" j)
    let to_json = simple_to_json to_value
  end
module ScheduledInstancesPrivateIpAddressConfig =
  struct
    type nonrec t =
      {
      primary: Boolean.t option
        [@ocaml.doc
          "Indicates whether this is a primary IPv4 address. Otherwise, this is a secondary IPv4 address."];
      privateIpAddress: String_.t option [@ocaml.doc "The IPv4 address."]}
    let make ?primary =
      fun ?privateIpAddress -> fun () -> { primary; privateIpAddress }
    let to_value x =
      structure_to_value
        [("Primary", (Option.map x.primary ~f:Boolean.to_value));
        ("PrivateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PrivateIpAddress") in
      let primary =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Primary") in
      make ?privateIpAddress ?primary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      let primary = field_map json__ "Primary" Boolean.of_json in
      make ?privateIpAddress ?primary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a private IPv4 address for a Scheduled Instance."]
module ScheduledInstancesIpv6Address =
  struct
    type nonrec t =
      {
      ipv6Address: Ipv6Address.t option [@ocaml.doc "The IPv6 address."]}
    let make ?ipv6Address = fun () -> { ipv6Address }
    let to_value x =
      structure_to_value
        [("Ipv6Address", (Option.map x.ipv6Address ~f:Ipv6Address.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Address =
        (Option.map ~f:Ipv6Address.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      make ?ipv6Address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Address = field_map json__ "Ipv6Address" Ipv6Address.of_json in
      make ?ipv6Address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv6 address."]
module IpamPrefixListResolverRuleConditionOperation =
  struct
    type nonrec t =
      | Equals 
      | Not_equals 
      | Subnet_of 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Equals -> "equals"
      | Not_equals -> "not-equals"
      | Subnet_of -> "subnet-of"
      | Non_static_id s -> s
    let of_string =
      function
      | "equals" -> Equals
      | "not-equals" -> Not_equals
      | "subnet-of" -> Subnet_of
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration IpamPrefixListResolverRuleConditionOperation"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"IpamPrefixListResolverRuleConditionOperation"
           j)
    let to_json = simple_to_json to_value
  end
module RequestIpamResourceTag =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "The key of a tag assigned to the resource. Use this filter to find all resources assigned a tag with a specific key, regardless of the tag value."];
      value: String_.t option [@ocaml.doc "The value for the tag."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A tag on an IPAM resource."]
module FleetBlockDeviceMappingRequestList =
  struct
    type nonrec t = FleetBlockDeviceMappingRequest.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FleetBlockDeviceMappingRequest.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:FleetBlockDeviceMappingRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"FleetBlockDeviceMappingRequestList"
        ~of_json:FleetBlockDeviceMappingRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceRequirementsRequest =
  struct
    type nonrec t =
      {
      vCpuCount: VCpuCountRangeRequest.t
        [@ocaml.doc "The minimum and maximum number of vCPUs."];
      memoryMiB: MemoryMiBRequest.t
        [@ocaml.doc "The minimum and maximum amount of memory, in MiB."];
      cpuManufacturers: CpuManufacturerSet.t option
        [@ocaml.doc
          "The CPU manufacturers to include. For instance types with Intel CPUs, specify intel. For instance types with AMD CPUs, specify amd. For instance types with Amazon Web Services CPUs, specify amazon-web-services. For instance types with Apple CPUs, specify apple. Don't confuse the CPU manufacturer with the CPU architecture. Instances will be launched with a compatible CPU architecture based on the Amazon Machine Image (AMI) that you specify in your launch template. Default: Any manufacturer"];
      memoryGiBPerVCpu: MemoryGiBPerVCpuRequest.t option
        [@ocaml.doc
          "The minimum and maximum amount of memory per vCPU, in GiB. Default: No minimum or maximum limits"];
      excludedInstanceTypes: ExcludedInstanceTypeSet.t option
        [@ocaml.doc
          "The instance types to exclude. You can use strings with one or more wild cards, represented by an asterisk (*), to exclude an instance family, type, size, or generation. The following are examples: m5.8xlarge, c5*.*, m5a.*, r*, *3*. For example, if you specify c5*,Amazon EC2 will exclude the entire C5 instance family, which includes all C5a and C5n instance types. If you specify m5a.*, Amazon EC2 will exclude all the M5a instance types, but not the M5n instance types. If you specify ExcludedInstanceTypes, you can't specify AllowedInstanceTypes. Default: No excluded instance types"];
      instanceGenerations: InstanceGenerationSet.t option
        [@ocaml.doc
          "Indicates whether current or previous generation instance types are included. The current generation instance types are recommended for use. Current generation instance types are typically the latest two to three generations in each instance family. For more information, see Instance types in the Amazon EC2 User Guide. For current generation instance types, specify current. For previous generation instance types, specify previous. Default: Current and previous generation instance types"];
      spotMaxPricePercentageOverLowestPrice: Integer.t option
        [@ocaml.doc
          "\\[Price protection\\] The price protection threshold for Spot Instances, as a percentage higher than an identified Spot price. The identified Spot price is the Spot price of the lowest priced current generation C, M, or R instance type with your specified attributes. If no current generation C, M, or R instance type matches your attributes, then the identified Spot price is from the lowest priced current generation instance types, and failing that, from the lowest priced previous generation instance types that match your attributes. When Amazon EC2 selects instance types with your attributes, it will exclude instance types whose Spot price exceeds your specified threshold. The parameter accepts an integer, which Amazon EC2 interprets as a percentage. If you set TargetCapacityUnitType to vcpu or memory-mib, the price protection threshold is applied based on the per-vCPU or per-memory price instead of the per-instance price. This parameter is not supported for GetSpotPlacementScores and GetInstanceTypesFromInstanceRequirements. Only one of SpotMaxPricePercentageOverLowestPrice or MaxSpotPriceAsPercentageOfOptimalOnDemandPrice can be specified. If you don't specify either, Amazon EC2 will automatically apply optimal price protection to consistently select from a wide range of instance types. To indicate no price protection threshold for Spot Instances, meaning you want to consider all instance types that match your attributes, include one of these parameters and specify a high value, such as 999999. Default: 100"];
      onDemandMaxPricePercentageOverLowestPrice: Integer.t option
        [@ocaml.doc
          "\\[Price protection\\] The price protection threshold for On-Demand Instances, as a percentage higher than an identified On-Demand price. The identified On-Demand price is the price of the lowest priced current generation C, M, or R instance type with your specified attributes. When Amazon EC2 selects instance types with your attributes, it will exclude instance types whose price exceeds your specified threshold. The parameter accepts an integer, which Amazon EC2 interprets as a percentage. To indicate no price protection threshold, specify a high value, such as 999999. This parameter is not supported for GetSpotPlacementScores and GetInstanceTypesFromInstanceRequirements. If you set TargetCapacityUnitType to vcpu or memory-mib, the price protection threshold is applied based on the per-vCPU or per-memory price instead of the per-instance price. Default: 20"];
      bareMetal: BareMetal.t option
        [@ocaml.doc
          "Indicates whether bare metal instance types must be included, excluded, or required. To include bare metal instance types, specify included. To require only bare metal instance types, specify required. To exclude bare metal instance types, specify excluded. Default: excluded"];
      burstablePerformance: BurstablePerformance.t option
        [@ocaml.doc
          "Indicates whether burstable performance T instance types are included, excluded, or required. For more information, see Burstable performance instances. To include burstable performance instance types, specify included. To require only burstable performance instance types, specify required. To exclude burstable performance instance types, specify excluded. Default: excluded"];
      requireHibernateSupport: Boolean.t option
        [@ocaml.doc
          "Indicates whether instance types must support hibernation for On-Demand Instances. This parameter is not supported for GetSpotPlacementScores. Default: false"];
      networkInterfaceCount: NetworkInterfaceCountRequest.t option
        [@ocaml.doc
          "The minimum and maximum number of network interfaces. Default: No minimum or maximum limits"];
      localStorage: LocalStorage.t option
        [@ocaml.doc
          "Indicates whether instance types with instance store volumes are included, excluded, or required. For more information, Amazon EC2 instance store in the Amazon EC2 User Guide. To include instance types with instance store volumes, specify included. To require only instance types with instance store volumes, specify required. To exclude instance types with instance store volumes, specify excluded. Default: included"];
      localStorageTypes: LocalStorageTypeSet.t option
        [@ocaml.doc
          "The type of local storage that is required. For instance types with hard disk drive (HDD) storage, specify hdd. For instance types with solid state drive (SSD) storage, specify ssd. Default: hdd and ssd"];
      totalLocalStorageGB: TotalLocalStorageGBRequest.t option
        [@ocaml.doc
          "The minimum and maximum amount of total local storage, in GB. Default: No minimum or maximum limits"];
      baselineEbsBandwidthMbps: BaselineEbsBandwidthMbpsRequest.t option
        [@ocaml.doc
          "The minimum and maximum baseline bandwidth to Amazon EBS, in Mbps. For more information, see Amazon EBS\226\128\147optimized instances in the Amazon EC2 User Guide. Default: No minimum or maximum limits"];
      acceleratorTypes: AcceleratorTypeSet.t option
        [@ocaml.doc
          "The accelerator types that must be on the instance type. For instance types with FPGA accelerators, specify fpga. For instance types with GPU accelerators, specify gpu. For instance types with Inference accelerators, specify inference. For instance types with Media accelerators, specify media. Default: Any accelerator type"];
      acceleratorCount: AcceleratorCountRequest.t option
        [@ocaml.doc
          "The minimum and maximum number of accelerators (GPUs, FPGAs, or Amazon Web Services Inferentia chips) on an instance. To exclude accelerator-enabled instance types, set Max to 0. Default: No minimum or maximum limits"];
      acceleratorManufacturers: AcceleratorManufacturerSet.t option
        [@ocaml.doc
          "Indicates whether instance types must have accelerators by specific manufacturers. For instance types with Amazon Web Services devices, specify amazon-web-services. For instance types with AMD devices, specify amd. For instance types with Habana devices, specify habana. For instance types with NVIDIA devices, specify nvidia. For instance types with Xilinx devices, specify xilinx. Default: Any manufacturer"];
      acceleratorNames: AcceleratorNameSet.t option
        [@ocaml.doc
          "The accelerators that must be on the instance type. For instance types with NVIDIA A10G GPUs, specify a10g. For instance types with NVIDIA A100 GPUs, specify a100. For instance types with NVIDIA H100 GPUs, specify h100. For instance types with Amazon Web Services Inferentia chips, specify inferentia. For instance types with Amazon Web Services Inferentia2 chips, specify inferentia2. For instance types with Habana Gaudi HL-205 GPUs, specify gaudi-hl-205. For instance types with NVIDIA GRID K520 GPUs, specify k520. For instance types with NVIDIA K80 GPUs, specify k80. For instance types with NVIDIA L4 GPUs, specify l4. For instance types with NVIDIA L40S GPUs, specify l40s. For instance types with NVIDIA M60 GPUs, specify m60. For instance types with AMD Radeon Pro V520 GPUs, specify radeon-pro-v520. For instance types with Amazon Web Services Trainium chips, specify trainium. For instance types with Amazon Web Services Trainium2 chips, specify trainium2. For instance types with NVIDIA T4 GPUs, specify t4. For instance types with NVIDIA T4G GPUs, specify t4g. For instance types with Xilinx U30 cards, specify u30. For instance types with Xilinx VU9P FPGAs, specify vu9p. For instance types with NVIDIA V100 GPUs, specify v100. Default: Any accelerator"];
      acceleratorTotalMemoryMiB: AcceleratorTotalMemoryMiBRequest.t option
        [@ocaml.doc
          "The minimum and maximum amount of total accelerator memory, in MiB. Default: No minimum or maximum limits"];
      networkBandwidthGbps: NetworkBandwidthGbpsRequest.t option
        [@ocaml.doc
          "The minimum and maximum amount of baseline network bandwidth, in gigabits per second (Gbps). For more information, see Amazon EC2 instance network bandwidth in the Amazon EC2 User Guide. Default: No minimum or maximum limits"];
      allowedInstanceTypes: AllowedInstanceTypeSet.t option
        [@ocaml.doc
          "The instance types to apply your specified attributes against. All other instance types are ignored, even if they match your specified attributes. You can use strings with one or more wild cards, represented by an asterisk (*), to allow an instance type, size, or generation. The following are examples: m5.8xlarge, c5*.*, m5a.*, r*, *3*. For example, if you specify c5*,Amazon EC2 will allow the entire C5 instance family, which includes all C5a and C5n instance types. If you specify m5a.*, Amazon EC2 will allow all the M5a instance types, but not the M5n instance types. If you specify AllowedInstanceTypes, you can't specify ExcludedInstanceTypes. Default: All instance types"];
      maxSpotPriceAsPercentageOfOptimalOnDemandPrice: Integer.t option
        [@ocaml.doc
          "\\[Price protection\\] The price protection threshold for Spot Instances, as a percentage of an identified On-Demand price. The identified On-Demand price is the price of the lowest priced current generation C, M, or R instance type with your specified attributes. If no current generation C, M, or R instance type matches your attributes, then the identified price is from the lowest priced current generation instance types, and failing that, from the lowest priced previous generation instance types that match your attributes. When Amazon EC2 selects instance types with your attributes, it will exclude instance types whose price exceeds your specified threshold. The parameter accepts an integer, which Amazon EC2 interprets as a percentage. If you set TargetCapacityUnitType to vcpu or memory-mib, the price protection threshold is based on the per vCPU or per memory price instead of the per instance price. Only one of SpotMaxPricePercentageOverLowestPrice or MaxSpotPriceAsPercentageOfOptimalOnDemandPrice can be specified. If you don't specify either, Amazon EC2 will automatically apply optimal price protection to consistently select from a wide range of instance types. To indicate no price protection threshold for Spot Instances, meaning you want to consider all instance types that match your attributes, include one of these parameters and specify a high value, such as 999999."];
      baselinePerformanceFactors: BaselinePerformanceFactorsRequest.t option
        [@ocaml.doc
          "The baseline performance to consider, using an instance family as a baseline reference. The instance family establishes the lowest acceptable level of performance. Amazon EC2 uses this baseline to guide instance type selection, but there is no guarantee that the selected instance types will always exceed the baseline for every application. Currently, this parameter only supports CPU performance as a baseline performance factor. For more information, see Performance protection in the Amazon EC2 User Guide."];
      requireEncryptionInTransit: Boolean.t option
        [@ocaml.doc
          "Specifies whether instance types must support encrypting in-transit traffic between instances. For more information, including the supported instance types, see Encryption in transit in the Amazon EC2 User Guide. Default: false"]}
    let context_ = "InstanceRequirementsRequest"
    let make ?cpuManufacturers =
      fun ?memoryGiBPerVCpu ->
        fun ?excludedInstanceTypes ->
          fun ?instanceGenerations ->
            fun ?spotMaxPricePercentageOverLowestPrice ->
              fun ?onDemandMaxPricePercentageOverLowestPrice ->
                fun ?bareMetal ->
                  fun ?burstablePerformance ->
                    fun ?requireHibernateSupport ->
                      fun ?networkInterfaceCount ->
                        fun ?localStorage ->
                          fun ?localStorageTypes ->
                            fun ?totalLocalStorageGB ->
                              fun ?baselineEbsBandwidthMbps ->
                                fun ?acceleratorTypes ->
                                  fun ?acceleratorCount ->
                                    fun ?acceleratorManufacturers ->
                                      fun ?acceleratorNames ->
                                        fun ?acceleratorTotalMemoryMiB ->
                                          fun ?networkBandwidthGbps ->
                                            fun ?allowedInstanceTypes ->
                                              fun
                                                ?maxSpotPriceAsPercentageOfOptimalOnDemandPrice
                                                ->
                                                fun
                                                  ?baselinePerformanceFactors
                                                  ->
                                                  fun
                                                    ?requireEncryptionInTransit
                                                    ->
                                                    fun ~vCpuCount ->
                                                      fun ~memoryMiB ->
                                                        fun () ->
                                                          {
                                                            cpuManufacturers;
                                                            memoryGiBPerVCpu;
                                                            excludedInstanceTypes;
                                                            instanceGenerations;
                                                            spotMaxPricePercentageOverLowestPrice;
                                                            onDemandMaxPricePercentageOverLowestPrice;
                                                            bareMetal;
                                                            burstablePerformance;
                                                            requireHibernateSupport;
                                                            networkInterfaceCount;
                                                            localStorage;
                                                            localStorageTypes;
                                                            totalLocalStorageGB;
                                                            baselineEbsBandwidthMbps;
                                                            acceleratorTypes;
                                                            acceleratorCount;
                                                            acceleratorManufacturers;
                                                            acceleratorNames;
                                                            acceleratorTotalMemoryMiB;
                                                            networkBandwidthGbps;
                                                            allowedInstanceTypes;
                                                            maxSpotPriceAsPercentageOfOptimalOnDemandPrice;
                                                            baselinePerformanceFactors;
                                                            requireEncryptionInTransit;
                                                            vCpuCount;
                                                            memoryMiB
                                                          }
    let to_value x =
      structure_to_value
        [("VCpuCount", (Some (VCpuCountRangeRequest.to_value x.vCpuCount)));
        ("MemoryMiB", (Some (MemoryMiBRequest.to_value x.memoryMiB)));
        ("CpuManufacturer",
          (Option.map x.cpuManufacturers ~f:CpuManufacturerSet.to_value));
        ("MemoryGiBPerVCpu",
          (Option.map x.memoryGiBPerVCpu ~f:MemoryGiBPerVCpuRequest.to_value));
        ("ExcludedInstanceType",
          (Option.map x.excludedInstanceTypes
             ~f:ExcludedInstanceTypeSet.to_value));
        ("InstanceGeneration",
          (Option.map x.instanceGenerations ~f:InstanceGenerationSet.to_value));
        ("SpotMaxPricePercentageOverLowestPrice",
          (Option.map x.spotMaxPricePercentageOverLowestPrice
             ~f:Integer.to_value));
        ("OnDemandMaxPricePercentageOverLowestPrice",
          (Option.map x.onDemandMaxPricePercentageOverLowestPrice
             ~f:Integer.to_value));
        ("BareMetal", (Option.map x.bareMetal ~f:BareMetal.to_value));
        ("BurstablePerformance",
          (Option.map x.burstablePerformance ~f:BurstablePerformance.to_value));
        ("RequireHibernateSupport",
          (Option.map x.requireHibernateSupport ~f:Boolean.to_value));
        ("NetworkInterfaceCount",
          (Option.map x.networkInterfaceCount
             ~f:NetworkInterfaceCountRequest.to_value));
        ("LocalStorage",
          (Option.map x.localStorage ~f:LocalStorage.to_value));
        ("LocalStorageType",
          (Option.map x.localStorageTypes ~f:LocalStorageTypeSet.to_value));
        ("TotalLocalStorageGB",
          (Option.map x.totalLocalStorageGB
             ~f:TotalLocalStorageGBRequest.to_value));
        ("BaselineEbsBandwidthMbps",
          (Option.map x.baselineEbsBandwidthMbps
             ~f:BaselineEbsBandwidthMbpsRequest.to_value));
        ("AcceleratorType",
          (Option.map x.acceleratorTypes ~f:AcceleratorTypeSet.to_value));
        ("AcceleratorCount",
          (Option.map x.acceleratorCount ~f:AcceleratorCountRequest.to_value));
        ("AcceleratorManufacturer",
          (Option.map x.acceleratorManufacturers
             ~f:AcceleratorManufacturerSet.to_value));
        ("AcceleratorName",
          (Option.map x.acceleratorNames ~f:AcceleratorNameSet.to_value));
        ("AcceleratorTotalMemoryMiB",
          (Option.map x.acceleratorTotalMemoryMiB
             ~f:AcceleratorTotalMemoryMiBRequest.to_value));
        ("NetworkBandwidthGbps",
          (Option.map x.networkBandwidthGbps
             ~f:NetworkBandwidthGbpsRequest.to_value));
        ("AllowedInstanceType",
          (Option.map x.allowedInstanceTypes
             ~f:AllowedInstanceTypeSet.to_value));
        ("MaxSpotPriceAsPercentageOfOptimalOnDemandPrice",
          (Option.map x.maxSpotPriceAsPercentageOfOptimalOnDemandPrice
             ~f:Integer.to_value));
        ("BaselinePerformanceFactors",
          (Option.map x.baselinePerformanceFactors
             ~f:BaselinePerformanceFactorsRequest.to_value));
        ("RequireEncryptionInTransit",
          (Option.map x.requireEncryptionInTransit ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requireEncryptionInTransit =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RequireEncryptionInTransit") in
      let baselinePerformanceFactors =
        (Option.map ~f:BaselinePerformanceFactorsRequest.of_xml)
          (Xml.child xml_arg0 "BaselinePerformanceFactors") in
      let maxSpotPriceAsPercentageOfOptimalOnDemandPrice =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0
             "MaxSpotPriceAsPercentageOfOptimalOnDemandPrice") in
      let allowedInstanceTypes =
        (Option.map ~f:AllowedInstanceTypeSet.of_xml)
          (Xml.child xml_arg0 "AllowedInstanceType") in
      let networkBandwidthGbps =
        (Option.map ~f:NetworkBandwidthGbpsRequest.of_xml)
          (Xml.child xml_arg0 "NetworkBandwidthGbps") in
      let acceleratorTotalMemoryMiB =
        (Option.map ~f:AcceleratorTotalMemoryMiBRequest.of_xml)
          (Xml.child xml_arg0 "AcceleratorTotalMemoryMiB") in
      let acceleratorNames =
        (Option.map ~f:AcceleratorNameSet.of_xml)
          (Xml.child xml_arg0 "AcceleratorName") in
      let acceleratorManufacturers =
        (Option.map ~f:AcceleratorManufacturerSet.of_xml)
          (Xml.child xml_arg0 "AcceleratorManufacturer") in
      let acceleratorCount =
        (Option.map ~f:AcceleratorCountRequest.of_xml)
          (Xml.child xml_arg0 "AcceleratorCount") in
      let acceleratorTypes =
        (Option.map ~f:AcceleratorTypeSet.of_xml)
          (Xml.child xml_arg0 "AcceleratorType") in
      let baselineEbsBandwidthMbps =
        (Option.map ~f:BaselineEbsBandwidthMbpsRequest.of_xml)
          (Xml.child xml_arg0 "BaselineEbsBandwidthMbps") in
      let totalLocalStorageGB =
        (Option.map ~f:TotalLocalStorageGBRequest.of_xml)
          (Xml.child xml_arg0 "TotalLocalStorageGB") in
      let localStorageTypes =
        (Option.map ~f:LocalStorageTypeSet.of_xml)
          (Xml.child xml_arg0 "LocalStorageType") in
      let localStorage =
        (Option.map ~f:LocalStorage.of_xml)
          (Xml.child xml_arg0 "LocalStorage") in
      let networkInterfaceCount =
        (Option.map ~f:NetworkInterfaceCountRequest.of_xml)
          (Xml.child xml_arg0 "NetworkInterfaceCount") in
      let requireHibernateSupport =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RequireHibernateSupport") in
      let burstablePerformance =
        (Option.map ~f:BurstablePerformance.of_xml)
          (Xml.child xml_arg0 "BurstablePerformance") in
      let bareMetal =
        (Option.map ~f:BareMetal.of_xml) (Xml.child xml_arg0 "BareMetal") in
      let onDemandMaxPricePercentageOverLowestPrice =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "OnDemandMaxPricePercentageOverLowestPrice") in
      let spotMaxPricePercentageOverLowestPrice =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "SpotMaxPricePercentageOverLowestPrice") in
      let instanceGenerations =
        (Option.map ~f:InstanceGenerationSet.of_xml)
          (Xml.child xml_arg0 "InstanceGeneration") in
      let excludedInstanceTypes =
        (Option.map ~f:ExcludedInstanceTypeSet.of_xml)
          (Xml.child xml_arg0 "ExcludedInstanceType") in
      let memoryGiBPerVCpu =
        (Option.map ~f:MemoryGiBPerVCpuRequest.of_xml)
          (Xml.child xml_arg0 "MemoryGiBPerVCpu") in
      let cpuManufacturers =
        (Option.map ~f:CpuManufacturerSet.of_xml)
          (Xml.child xml_arg0 "CpuManufacturer") in
      let memoryMiB =
        MemoryMiBRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MemoryMiB") in
      let vCpuCount =
        VCpuCountRangeRequest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VCpuCount") in
      make ?requireEncryptionInTransit ?baselinePerformanceFactors
        ?maxSpotPriceAsPercentageOfOptimalOnDemandPrice ?allowedInstanceTypes
        ?networkBandwidthGbps ?acceleratorTotalMemoryMiB ?acceleratorNames
        ?acceleratorManufacturers ?acceleratorCount ?acceleratorTypes
        ?baselineEbsBandwidthMbps ?totalLocalStorageGB ?localStorageTypes
        ?localStorage ?networkInterfaceCount ?requireHibernateSupport
        ?burstablePerformance ?bareMetal
        ?onDemandMaxPricePercentageOverLowestPrice
        ?spotMaxPricePercentageOverLowestPrice ?instanceGenerations
        ?excludedInstanceTypes ?memoryGiBPerVCpu ?cpuManufacturers ~memoryMiB
        ~vCpuCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requireEncryptionInTransit =
        field_map json__ "RequireEncryptionInTransit" Boolean.of_json in
      let baselinePerformanceFactors =
        field_map json__ "BaselinePerformanceFactors"
          BaselinePerformanceFactorsRequest.of_json in
      let maxSpotPriceAsPercentageOfOptimalOnDemandPrice =
        field_map json__ "MaxSpotPriceAsPercentageOfOptimalOnDemandPrice"
          Integer.of_json in
      let allowedInstanceTypes =
        field_map json__ "AllowedInstanceTypes"
          AllowedInstanceTypeSet.of_json in
      let networkBandwidthGbps =
        field_map json__ "NetworkBandwidthGbps"
          NetworkBandwidthGbpsRequest.of_json in
      let acceleratorTotalMemoryMiB =
        field_map json__ "AcceleratorTotalMemoryMiB"
          AcceleratorTotalMemoryMiBRequest.of_json in
      let acceleratorNames =
        field_map json__ "AcceleratorNames" AcceleratorNameSet.of_json in
      let acceleratorManufacturers =
        field_map json__ "AcceleratorManufacturers"
          AcceleratorManufacturerSet.of_json in
      let acceleratorCount =
        field_map json__ "AcceleratorCount" AcceleratorCountRequest.of_json in
      let acceleratorTypes =
        field_map json__ "AcceleratorTypes" AcceleratorTypeSet.of_json in
      let baselineEbsBandwidthMbps =
        field_map json__ "BaselineEbsBandwidthMbps"
          BaselineEbsBandwidthMbpsRequest.of_json in
      let totalLocalStorageGB =
        field_map json__ "TotalLocalStorageGB"
          TotalLocalStorageGBRequest.of_json in
      let localStorageTypes =
        field_map json__ "LocalStorageTypes" LocalStorageTypeSet.of_json in
      let localStorage = field_map json__ "LocalStorage" LocalStorage.of_json in
      let networkInterfaceCount =
        field_map json__ "NetworkInterfaceCount"
          NetworkInterfaceCountRequest.of_json in
      let requireHibernateSupport =
        field_map json__ "RequireHibernateSupport" Boolean.of_json in
      let burstablePerformance =
        field_map json__ "BurstablePerformance" BurstablePerformance.of_json in
      let bareMetal = field_map json__ "BareMetal" BareMetal.of_json in
      let onDemandMaxPricePercentageOverLowestPrice =
        field_map json__ "OnDemandMaxPricePercentageOverLowestPrice"
          Integer.of_json in
      let spotMaxPricePercentageOverLowestPrice =
        field_map json__ "SpotMaxPricePercentageOverLowestPrice"
          Integer.of_json in
      let instanceGenerations =
        field_map json__ "InstanceGenerations" InstanceGenerationSet.of_json in
      let excludedInstanceTypes =
        field_map json__ "ExcludedInstanceTypes"
          ExcludedInstanceTypeSet.of_json in
      let memoryGiBPerVCpu =
        field_map json__ "MemoryGiBPerVCpu" MemoryGiBPerVCpuRequest.of_json in
      let cpuManufacturers =
        field_map json__ "CpuManufacturers" CpuManufacturerSet.of_json in
      let memoryMiB =
        field_map_exn json__ "MemoryMiB" MemoryMiBRequest.of_json in
      let vCpuCount =
        field_map_exn json__ "VCpuCount" VCpuCountRangeRequest.of_json in
      make ?requireEncryptionInTransit ?baselinePerformanceFactors
        ?maxSpotPriceAsPercentageOfOptimalOnDemandPrice ?allowedInstanceTypes
        ?networkBandwidthGbps ?acceleratorTotalMemoryMiB ?acceleratorNames
        ?acceleratorManufacturers ?acceleratorCount ?acceleratorTypes
        ?baselineEbsBandwidthMbps ?totalLocalStorageGB ?localStorageTypes
        ?localStorage ?networkInterfaceCount ?requireHibernateSupport
        ?burstablePerformance ?bareMetal
        ?onDemandMaxPricePercentageOverLowestPrice
        ?spotMaxPricePercentageOverLowestPrice ?instanceGenerations
        ?excludedInstanceTypes ?memoryGiBPerVCpu ?cpuManufacturers ~memoryMiB
        ~vCpuCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The attributes for the instance types. When you specify instance attributes, Amazon EC2 will identify instance types with these attributes. You must specify VCpuCount and MemoryMiB. All other attributes are optional. Any unspecified optional attribute is set to its default. When you specify multiple attributes, you get instance types that satisfy all of the specified attributes. If you specify multiple values for an attribute, you get instance types that satisfy any of the specified values. To limit the list of instance types from which Amazon EC2 can identify matching instance types, you can use one of the following parameters, but not both in the same request: AllowedInstanceTypes - The instance types to include in the list. All other instance types are ignored, even if they match your specified attributes. ExcludedInstanceTypes - The instance types to exclude from the list, even if they match your specified attributes. If you specify InstanceRequirements, you can't specify InstanceType. Attribute-based instance type selection is only supported when using Auto Scaling groups, EC2 Fleet, and Spot Fleet to launch instances. If you plan to use the launch template in the launch instance wizard, or with the RunInstances API or AWS::EC2::Instance Amazon Web Services CloudFormation resource, you can't specify InstanceRequirements. For more information, see Specify attributes for instance type selection for EC2 Fleet or Spot Fleet and Spot placement score in the Amazon EC2 User Guide."]
module Placement =
  struct
    type nonrec t =
      {
      availabilityZoneId: AvailabilityZoneId.t option
        [@ocaml.doc
          "The ID of the Availability Zone of the instance. On input, you can specify AvailabilityZone or AvailabilityZoneId, but not both. If you specify neither one, Amazon EC2 automatically selects an Availability Zone for you. This parameter is not supported for CreateFleet."];
      affinity: String_.t option
        [@ocaml.doc
          "The affinity setting for the instance on the Dedicated Host. This parameter is not supported for CreateFleet or ImportInstance."];
      groupName: PlacementGroupName.t option
        [@ocaml.doc
          "The name of the placement group that the instance is in. On input, you can specify GroupId or GroupName, but not both."];
      partitionNumber: Integer.t option
        [@ocaml.doc
          "The number of the partition that the instance is in. Valid only if the placement group strategy is set to partition. This parameter is not supported for CreateFleet."];
      hostId: String_.t option
        [@ocaml.doc
          "The ID of the Dedicated Host on which the instance resides. This parameter is not supported for CreateFleet or ImportInstance."];
      tenancy: Tenancy.t option
        [@ocaml.doc
          "The tenancy of the instance. An instance with a tenancy of dedicated runs on single-tenant hardware. This parameter is not supported for CreateFleet. The host tenancy is not supported for ImportInstance or for T3 instances that are configured for the unlimited CPU credit option."];
      spreadDomain: String_.t option [@ocaml.doc "Reserved for future use."];
      hostResourceGroupArn: String_.t option
        [@ocaml.doc
          "The ARN of the host resource group in which to launch the instances. On input, if you specify this parameter, either omit the Tenancy parameter or set it to host. This parameter is not supported for CreateFleet."];
      groupId: PlacementGroupId.t option
        [@ocaml.doc
          "The ID of the placement group that the instance is in. On input, you can specify GroupId or GroupName, but not both."];
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone of the instance. On input, you can specify AvailabilityZone or AvailabilityZoneId, but not both. If you specify neither one, Amazon EC2 automatically selects an Availability Zone for you. This parameter is not supported for CreateFleet."]}
    let make ?availabilityZoneId =
      fun ?affinity ->
        fun ?groupName ->
          fun ?partitionNumber ->
            fun ?hostId ->
              fun ?tenancy ->
                fun ?spreadDomain ->
                  fun ?hostResourceGroupArn ->
                    fun ?groupId ->
                      fun ?availabilityZone ->
                        fun () ->
                          {
                            availabilityZoneId;
                            affinity;
                            groupName;
                            partitionNumber;
                            hostId;
                            tenancy;
                            spreadDomain;
                            hostResourceGroupArn;
                            groupId;
                            availabilityZone
                          }
    let to_value x =
      structure_to_value
        [("availabilityZoneId",
           (Option.map x.availabilityZoneId ~f:AvailabilityZoneId.to_value));
        ("affinity", (Option.map x.affinity ~f:String_.to_value));
        ("groupName",
          (Option.map x.groupName ~f:PlacementGroupName.to_value));
        ("partitionNumber",
          (Option.map x.partitionNumber ~f:Integer.to_value));
        ("hostId", (Option.map x.hostId ~f:String_.to_value));
        ("tenancy", (Option.map x.tenancy ~f:Tenancy.to_value));
        ("spreadDomain", (Option.map x.spreadDomain ~f:String_.to_value));
        ("hostResourceGroupArn",
          (Option.map x.hostResourceGroupArn ~f:String_.to_value));
        ("groupId", (Option.map x.groupId ~f:PlacementGroupId.to_value));
        ("availabilityZone",
          (Option.map x.availabilityZone ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      let groupId =
        (Option.map ~f:PlacementGroupId.of_xml)
          (Xml.child xml_arg0 "groupId") in
      let hostResourceGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "hostResourceGroupArn") in
      let spreadDomain =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "spreadDomain") in
      let tenancy =
        (Option.map ~f:Tenancy.of_xml) (Xml.child xml_arg0 "tenancy") in
      let hostId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "hostId") in
      let partitionNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "partitionNumber") in
      let groupName =
        (Option.map ~f:PlacementGroupName.of_xml)
          (Xml.child xml_arg0 "groupName") in
      let affinity =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "affinity") in
      let availabilityZoneId =
        (Option.map ~f:AvailabilityZoneId.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      make ?availabilityZone ?groupId ?hostResourceGroupArn ?spreadDomain
        ?tenancy ?hostId ?partitionNumber ?groupName ?affinity
        ?availabilityZoneId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      let groupId = field_map json__ "GroupId" PlacementGroupId.of_json in
      let hostResourceGroupArn =
        field_map json__ "HostResourceGroupArn" String_.of_json in
      let spreadDomain = field_map json__ "SpreadDomain" String_.of_json in
      let tenancy = field_map json__ "Tenancy" Tenancy.of_json in
      let hostId = field_map json__ "HostId" String_.of_json in
      let partitionNumber =
        field_map json__ "PartitionNumber" Integer.of_json in
      let groupName = field_map json__ "GroupName" PlacementGroupName.of_json in
      let affinity = field_map json__ "Affinity" String_.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" AvailabilityZoneId.of_json in
      make ?availabilityZone ?groupId ?hostResourceGroupArn ?spreadDomain
        ?tenancy ?hostId ?partitionNumber ?groupName ?affinity
        ?availabilityZoneId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the placement of an instance."]
module RouteServerRouteInstallationStatus =
  struct
    type nonrec t =
      | Installed 
      | Rejected 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Installed -> "installed"
      | Rejected -> "rejected"
      | Non_static_id s -> s
    let of_string =
      function
      | "installed" -> Installed
      | "rejected" -> Rejected
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration RouteServerRouteInstallationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RouteServerRouteInstallationStatus" j)
    let to_json = simple_to_json to_value
  end
module RouteTableId =
  struct
    type nonrec t = string
    let context_ = "RouteTableId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RouteTableId" j
    let to_json = simple_to_json to_value
  end
module PacketHeaderStatement =
  struct
    type nonrec t =
      {
      sourceAddresses: ValueStringList.t option
        [@ocaml.doc "The source addresses."];
      destinationAddresses: ValueStringList.t option
        [@ocaml.doc "The destination addresses."];
      sourcePorts: ValueStringList.t option [@ocaml.doc "The source ports."];
      destinationPorts: ValueStringList.t option
        [@ocaml.doc "The destination ports."];
      sourcePrefixLists: ValueStringList.t option
        [@ocaml.doc "The source prefix lists."];
      destinationPrefixLists: ValueStringList.t option
        [@ocaml.doc "The destination prefix lists."];
      protocols: ProtocolList.t option [@ocaml.doc "The protocols."]}
    let make ?sourceAddresses =
      fun ?destinationAddresses ->
        fun ?sourcePorts ->
          fun ?destinationPorts ->
            fun ?sourcePrefixLists ->
              fun ?destinationPrefixLists ->
                fun ?protocols ->
                  fun () ->
                    {
                      sourceAddresses;
                      destinationAddresses;
                      sourcePorts;
                      destinationPorts;
                      sourcePrefixLists;
                      destinationPrefixLists;
                      protocols
                    }
    let to_value x =
      structure_to_value
        [("sourceAddressSet",
           (Option.map x.sourceAddresses ~f:ValueStringList.to_value));
        ("destinationAddressSet",
          (Option.map x.destinationAddresses ~f:ValueStringList.to_value));
        ("sourcePortSet",
          (Option.map x.sourcePorts ~f:ValueStringList.to_value));
        ("destinationPortSet",
          (Option.map x.destinationPorts ~f:ValueStringList.to_value));
        ("sourcePrefixListSet",
          (Option.map x.sourcePrefixLists ~f:ValueStringList.to_value));
        ("destinationPrefixListSet",
          (Option.map x.destinationPrefixLists ~f:ValueStringList.to_value));
        ("protocolSet", (Option.map x.protocols ~f:ProtocolList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocols =
        (Option.map ~f:ProtocolList.of_xml)
          (Xml.child xml_arg0 "protocolSet") in
      let destinationPrefixLists =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "destinationPrefixListSet") in
      let sourcePrefixLists =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "sourcePrefixListSet") in
      let destinationPorts =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "destinationPortSet") in
      let sourcePorts =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "sourcePortSet") in
      let destinationAddresses =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "destinationAddressSet") in
      let sourceAddresses =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "sourceAddressSet") in
      make ?protocols ?destinationPrefixLists ?sourcePrefixLists
        ?destinationPorts ?sourcePorts ?destinationAddresses ?sourceAddresses
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocols = field_map json__ "Protocols" ProtocolList.of_json in
      let destinationPrefixLists =
        field_map json__ "DestinationPrefixLists" ValueStringList.of_json in
      let sourcePrefixLists =
        field_map json__ "SourcePrefixLists" ValueStringList.of_json in
      let destinationPorts =
        field_map json__ "DestinationPorts" ValueStringList.of_json in
      let sourcePorts =
        field_map json__ "SourcePorts" ValueStringList.of_json in
      let destinationAddresses =
        field_map json__ "DestinationAddresses" ValueStringList.of_json in
      let sourceAddresses =
        field_map json__ "SourceAddresses" ValueStringList.of_json in
      make ?protocols ?destinationPrefixLists ?sourcePrefixLists
        ?destinationPorts ?sourcePorts ?destinationAddresses ?sourceAddresses
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a packet header statement."]
module ThroughResourcesStatement =
  struct
    type nonrec t =
      {
      resourceStatement: ResourceStatement.t option
        [@ocaml.doc "The resource statement."]}
    let make ?resourceStatement = fun () -> { resourceStatement }
    let to_value x =
      structure_to_value
        [("resourceStatement",
           (Option.map x.resourceStatement ~f:ResourceStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceStatement =
        (Option.map ~f:ResourceStatement.of_xml)
          (Xml.child xml_arg0 "resourceStatement") in
      make ?resourceStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceStatement =
        field_map json__ "ResourceStatement" ResourceStatement.of_json in
      make ?resourceStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a through resource statement."]
module AdditionalDetailList =
  struct
    type nonrec t = AdditionalDetail.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AdditionalDetail.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AdditionalDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalDetailList"
        ~of_json:AdditionalDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module AnalysisPacketHeader =
  struct
    type nonrec t =
      {
      destinationAddresses: IpAddressList.t option
        [@ocaml.doc "The destination addresses."];
      destinationPortRanges: PortRangeList.t option
        [@ocaml.doc "The destination port ranges."];
      protocol: String_.t option [@ocaml.doc "The protocol."];
      sourceAddresses: IpAddressList.t option
        [@ocaml.doc "The source addresses."];
      sourcePortRanges: PortRangeList.t option
        [@ocaml.doc "The source port ranges."]}
    let make ?destinationAddresses =
      fun ?destinationPortRanges ->
        fun ?protocol ->
          fun ?sourceAddresses ->
            fun ?sourcePortRanges ->
              fun () ->
                {
                  destinationAddresses;
                  destinationPortRanges;
                  protocol;
                  sourceAddresses;
                  sourcePortRanges
                }
    let to_value x =
      structure_to_value
        [("destinationAddressSet",
           (Option.map x.destinationAddresses ~f:IpAddressList.to_value));
        ("destinationPortRangeSet",
          (Option.map x.destinationPortRanges ~f:PortRangeList.to_value));
        ("protocol", (Option.map x.protocol ~f:String_.to_value));
        ("sourceAddressSet",
          (Option.map x.sourceAddresses ~f:IpAddressList.to_value));
        ("sourcePortRangeSet",
          (Option.map x.sourcePortRanges ~f:PortRangeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourcePortRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "sourcePortRangeSet") in
      let sourceAddresses =
        (Option.map ~f:IpAddressList.of_xml)
          (Xml.child xml_arg0 "sourceAddressSet") in
      let protocol =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "protocol") in
      let destinationPortRanges =
        (Option.map ~f:PortRangeList.of_xml)
          (Xml.child xml_arg0 "destinationPortRangeSet") in
      let destinationAddresses =
        (Option.map ~f:IpAddressList.of_xml)
          (Xml.child xml_arg0 "destinationAddressSet") in
      make ?sourcePortRanges ?sourceAddresses ?protocol
        ?destinationPortRanges ?destinationAddresses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourcePortRanges =
        field_map json__ "SourcePortRanges" PortRangeList.of_json in
      let sourceAddresses =
        field_map json__ "SourceAddresses" IpAddressList.of_json in
      let protocol = field_map json__ "Protocol" String_.of_json in
      let destinationPortRanges =
        field_map json__ "DestinationPortRanges" PortRangeList.of_json in
      let destinationAddresses =
        field_map json__ "DestinationAddresses" IpAddressList.of_json in
      make ?sourcePortRanges ?sourceAddresses ?protocol
        ?destinationPortRanges ?destinationAddresses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a header. Reflects any changes made by a component as traffic passes through. The fields of an inbound header are null except for the first component of a path."]
module ExplanationList =
  struct
    type nonrec t = Explanation.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Explanation.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Explanation.of_xml)
    let of_json j =
      list_of_json ~kind:"ExplanationList" ~of_json:Explanation.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpamResourceTag =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "The key of a tag assigned to the resource. Use this filter to find all resources assigned a tag with a specific key, regardless of the tag value."];
      value: String_.t option [@ocaml.doc "The value of the tag."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The key/value combination of a tag assigned to the resource. Use the tag key in the filter name and the tag value as the filter value. For example, to find all resources that have a tag with the key Owner and the value TeamA, specify tag:Owner for the filter name and TeamA for the filter value."]
module IpamPoolId =
  struct
    type nonrec t = string
    let context_ = "IpamPoolId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IpamPoolId" j
    let to_json = simple_to_json to_value
  end
module IpamPublicAddressTag =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The tag's key."];
      value: String_.t option [@ocaml.doc "The tag's value."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A tag for a public IP address discovered by IPAM."]
module ConditionValue =
  struct
    type nonrec t = string
    let context_ = "ConditionValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConditionValue" j
    let to_json = simple_to_json to_value
  end
module CapacityManagerTagDimension =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The tag key."];
      value: String_.t option [@ocaml.doc "The tag value."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair representing a tag associated with a capacity resource in Capacity Manager."]
module Metric =
  struct
    type nonrec t =
      | Reservation_total_capacity_hrs_vcpu 
      | Reservation_total_capacity_hrs_inst 
      | Reservation_max_size_vcpu 
      | Reservation_max_size_inst 
      | Reservation_min_size_vcpu 
      | Reservation_min_size_inst 
      | Reservation_unused_total_capacity_hrs_vcpu 
      | Reservation_unused_total_capacity_hrs_inst 
      | Reservation_unused_total_estimated_cost 
      | Reservation_max_unused_size_vcpu 
      | Reservation_max_unused_size_inst 
      | Reservation_min_unused_size_vcpu 
      | Reservation_min_unused_size_inst 
      | Reservation_max_utilization 
      | Reservation_min_utilization 
      | Reservation_avg_utilization_vcpu 
      | Reservation_avg_utilization_inst 
      | Reservation_total_count 
      | Reservation_total_estimated_cost 
      | Reservation_avg_future_size_vcpu 
      | Reservation_avg_future_size_inst 
      | Reservation_min_future_size_vcpu 
      | Reservation_min_future_size_inst 
      | Reservation_max_future_size_vcpu 
      | Reservation_max_future_size_inst 
      | Reservation_avg_committed_size_vcpu 
      | Reservation_avg_committed_size_inst 
      | Reservation_max_committed_size_vcpu 
      | Reservation_max_committed_size_inst 
      | Reservation_min_committed_size_vcpu 
      | Reservation_min_committed_size_inst 
      | Reserved_total_usage_hrs_vcpu 
      | Reserved_total_usage_hrs_inst 
      | Reserved_total_estimated_cost 
      | Unreserved_total_usage_hrs_vcpu 
      | Unreserved_total_usage_hrs_inst 
      | Unreserved_total_estimated_cost 
      | Spot_total_usage_hrs_vcpu 
      | Spot_total_usage_hrs_inst 
      | Spot_total_estimated_cost 
      | Spot_avg_run_time_before_interruption_inst 
      | Spot_max_run_time_before_interruption_inst 
      | Spot_min_run_time_before_interruption_inst 
      | Spot_total_interruptions_inst 
      | Spot_total_interruptions_vcpu 
      | Spot_total_count_inst 
      | Spot_total_count_vcpu 
      | Spot_interruption_rate_inst 
      | Spot_interruption_rate_vcpu 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Reservation_total_capacity_hrs_vcpu ->
          "reservation-total-capacity-hrs-vcpu"
      | Reservation_total_capacity_hrs_inst ->
          "reservation-total-capacity-hrs-inst"
      | Reservation_max_size_vcpu -> "reservation-max-size-vcpu"
      | Reservation_max_size_inst -> "reservation-max-size-inst"
      | Reservation_min_size_vcpu -> "reservation-min-size-vcpu"
      | Reservation_min_size_inst -> "reservation-min-size-inst"
      | Reservation_unused_total_capacity_hrs_vcpu ->
          "reservation-unused-total-capacity-hrs-vcpu"
      | Reservation_unused_total_capacity_hrs_inst ->
          "reservation-unused-total-capacity-hrs-inst"
      | Reservation_unused_total_estimated_cost ->
          "reservation-unused-total-estimated-cost"
      | Reservation_max_unused_size_vcpu ->
          "reservation-max-unused-size-vcpu"
      | Reservation_max_unused_size_inst ->
          "reservation-max-unused-size-inst"
      | Reservation_min_unused_size_vcpu ->
          "reservation-min-unused-size-vcpu"
      | Reservation_min_unused_size_inst ->
          "reservation-min-unused-size-inst"
      | Reservation_max_utilization -> "reservation-max-utilization"
      | Reservation_min_utilization -> "reservation-min-utilization"
      | Reservation_avg_utilization_vcpu ->
          "reservation-avg-utilization-vcpu"
      | Reservation_avg_utilization_inst ->
          "reservation-avg-utilization-inst"
      | Reservation_total_count -> "reservation-total-count"
      | Reservation_total_estimated_cost ->
          "reservation-total-estimated-cost"
      | Reservation_avg_future_size_vcpu ->
          "reservation-avg-future-size-vcpu"
      | Reservation_avg_future_size_inst ->
          "reservation-avg-future-size-inst"
      | Reservation_min_future_size_vcpu ->
          "reservation-min-future-size-vcpu"
      | Reservation_min_future_size_inst ->
          "reservation-min-future-size-inst"
      | Reservation_max_future_size_vcpu ->
          "reservation-max-future-size-vcpu"
      | Reservation_max_future_size_inst ->
          "reservation-max-future-size-inst"
      | Reservation_avg_committed_size_vcpu ->
          "reservation-avg-committed-size-vcpu"
      | Reservation_avg_committed_size_inst ->
          "reservation-avg-committed-size-inst"
      | Reservation_max_committed_size_vcpu ->
          "reservation-max-committed-size-vcpu"
      | Reservation_max_committed_size_inst ->
          "reservation-max-committed-size-inst"
      | Reservation_min_committed_size_vcpu ->
          "reservation-min-committed-size-vcpu"
      | Reservation_min_committed_size_inst ->
          "reservation-min-committed-size-inst"
      | Reserved_total_usage_hrs_vcpu -> "reserved-total-usage-hrs-vcpu"
      | Reserved_total_usage_hrs_inst -> "reserved-total-usage-hrs-inst"
      | Reserved_total_estimated_cost -> "reserved-total-estimated-cost"
      | Unreserved_total_usage_hrs_vcpu -> "unreserved-total-usage-hrs-vcpu"
      | Unreserved_total_usage_hrs_inst -> "unreserved-total-usage-hrs-inst"
      | Unreserved_total_estimated_cost -> "unreserved-total-estimated-cost"
      | Spot_total_usage_hrs_vcpu -> "spot-total-usage-hrs-vcpu"
      | Spot_total_usage_hrs_inst -> "spot-total-usage-hrs-inst"
      | Spot_total_estimated_cost -> "spot-total-estimated-cost"
      | Spot_avg_run_time_before_interruption_inst ->
          "spot-avg-run-time-before-interruption-inst"
      | Spot_max_run_time_before_interruption_inst ->
          "spot-max-run-time-before-interruption-inst"
      | Spot_min_run_time_before_interruption_inst ->
          "spot-min-run-time-before-interruption-inst"
      | Spot_total_interruptions_inst -> "spot-total-interruptions-inst"
      | Spot_total_interruptions_vcpu -> "spot-total-interruptions-vcpu"
      | Spot_total_count_inst -> "spot-total-count-inst"
      | Spot_total_count_vcpu -> "spot-total-count-vcpu"
      | Spot_interruption_rate_inst -> "spot-interruption-rate-inst"
      | Spot_interruption_rate_vcpu -> "spot-interruption-rate-vcpu"
      | Non_static_id s -> s
    let of_string =
      function
      | "reservation-total-capacity-hrs-vcpu" ->
          Reservation_total_capacity_hrs_vcpu
      | "reservation-total-capacity-hrs-inst" ->
          Reservation_total_capacity_hrs_inst
      | "reservation-max-size-vcpu" -> Reservation_max_size_vcpu
      | "reservation-max-size-inst" -> Reservation_max_size_inst
      | "reservation-min-size-vcpu" -> Reservation_min_size_vcpu
      | "reservation-min-size-inst" -> Reservation_min_size_inst
      | "reservation-unused-total-capacity-hrs-vcpu" ->
          Reservation_unused_total_capacity_hrs_vcpu
      | "reservation-unused-total-capacity-hrs-inst" ->
          Reservation_unused_total_capacity_hrs_inst
      | "reservation-unused-total-estimated-cost" ->
          Reservation_unused_total_estimated_cost
      | "reservation-max-unused-size-vcpu" ->
          Reservation_max_unused_size_vcpu
      | "reservation-max-unused-size-inst" ->
          Reservation_max_unused_size_inst
      | "reservation-min-unused-size-vcpu" ->
          Reservation_min_unused_size_vcpu
      | "reservation-min-unused-size-inst" ->
          Reservation_min_unused_size_inst
      | "reservation-max-utilization" -> Reservation_max_utilization
      | "reservation-min-utilization" -> Reservation_min_utilization
      | "reservation-avg-utilization-vcpu" ->
          Reservation_avg_utilization_vcpu
      | "reservation-avg-utilization-inst" ->
          Reservation_avg_utilization_inst
      | "reservation-total-count" -> Reservation_total_count
      | "reservation-total-estimated-cost" ->
          Reservation_total_estimated_cost
      | "reservation-avg-future-size-vcpu" ->
          Reservation_avg_future_size_vcpu
      | "reservation-avg-future-size-inst" ->
          Reservation_avg_future_size_inst
      | "reservation-min-future-size-vcpu" ->
          Reservation_min_future_size_vcpu
      | "reservation-min-future-size-inst" ->
          Reservation_min_future_size_inst
      | "reservation-max-future-size-vcpu" ->
          Reservation_max_future_size_vcpu
      | "reservation-max-future-size-inst" ->
          Reservation_max_future_size_inst
      | "reservation-avg-committed-size-vcpu" ->
          Reservation_avg_committed_size_vcpu
      | "reservation-avg-committed-size-inst" ->
          Reservation_avg_committed_size_inst
      | "reservation-max-committed-size-vcpu" ->
          Reservation_max_committed_size_vcpu
      | "reservation-max-committed-size-inst" ->
          Reservation_max_committed_size_inst
      | "reservation-min-committed-size-vcpu" ->
          Reservation_min_committed_size_vcpu
      | "reservation-min-committed-size-inst" ->
          Reservation_min_committed_size_inst
      | "reserved-total-usage-hrs-vcpu" -> Reserved_total_usage_hrs_vcpu
      | "reserved-total-usage-hrs-inst" -> Reserved_total_usage_hrs_inst
      | "reserved-total-estimated-cost" -> Reserved_total_estimated_cost
      | "unreserved-total-usage-hrs-vcpu" -> Unreserved_total_usage_hrs_vcpu
      | "unreserved-total-usage-hrs-inst" -> Unreserved_total_usage_hrs_inst
      | "unreserved-total-estimated-cost" -> Unreserved_total_estimated_cost
      | "spot-total-usage-hrs-vcpu" -> Spot_total_usage_hrs_vcpu
      | "spot-total-usage-hrs-inst" -> Spot_total_usage_hrs_inst
      | "spot-total-estimated-cost" -> Spot_total_estimated_cost
      | "spot-avg-run-time-before-interruption-inst" ->
          Spot_avg_run_time_before_interruption_inst
      | "spot-max-run-time-before-interruption-inst" ->
          Spot_max_run_time_before_interruption_inst
      | "spot-min-run-time-before-interruption-inst" ->
          Spot_min_run_time_before_interruption_inst
      | "spot-total-interruptions-inst" -> Spot_total_interruptions_inst
      | "spot-total-interruptions-vcpu" -> Spot_total_interruptions_vcpu
      | "spot-total-count-inst" -> Spot_total_count_inst
      | "spot-total-count-vcpu" -> Spot_total_count_vcpu
      | "spot-interruption-rate-inst" -> Spot_interruption_rate_inst
      | "spot-interruption-rate-vcpu" -> Spot_interruption_rate_vcpu
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Metric" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Metric" j)
    let to_json = simple_to_json to_value
  end
module Float_ =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module EnableFastSnapshotRestoreStateError =
  struct
    type nonrec t =
      {
      code: String_.t option [@ocaml.doc "The error code."];
      message: String_.t option [@ocaml.doc "The error message."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an error that occurred when enabling fast snapshot restores."]
module DisableFastSnapshotRestoreStateError =
  struct
    type nonrec t =
      {
      code: String_.t option [@ocaml.doc "The error code."];
      message: String_.t option [@ocaml.doc "The error message."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an error that occurred when disabling fast snapshot restores."]
module TelemetryStatus =
  struct
    type nonrec t =
      | UP 
      | DOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | UP -> "UP" | DOWN -> "DOWN" | Non_static_id s -> s
    let of_string =
      function | "UP" -> UP | "DOWN" -> DOWN | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration TelemetryStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TelemetryStatus" j)
    let to_json = simple_to_json to_value
  end
module TunnelOption =
  struct
    type nonrec t =
      {
      outsideIpAddress: String_.t option
        [@ocaml.doc "The external IP address of the VPN tunnel."];
      tunnelInsideCidr: String_.t option
        [@ocaml.doc "The range of inside IPv4 addresses for the tunnel."];
      tunnelInsideIpv6Cidr: String_.t option
        [@ocaml.doc "The range of inside IPv6 addresses for the tunnel."];
      preSharedKey: PreSharedKey.t option
        [@ocaml.doc
          "The pre-shared key (PSK) to establish initial authentication between the virtual private gateway and the customer gateway."];
      phase1LifetimeSeconds: Integer.t option
        [@ocaml.doc
          "The lifetime for phase 1 of the IKE negotiation, in seconds."];
      phase2LifetimeSeconds: Integer.t option
        [@ocaml.doc
          "The lifetime for phase 2 of the IKE negotiation, in seconds."];
      rekeyMarginTimeSeconds: Integer.t option
        [@ocaml.doc
          "The margin time, in seconds, before the phase 2 lifetime expires, during which the Amazon Web Services side of the VPN connection performs an IKE rekey."];
      rekeyFuzzPercentage: Integer.t option
        [@ocaml.doc
          "The percentage of the rekey window determined by RekeyMarginTimeSeconds during which the rekey time is randomly selected."];
      replayWindowSize: Integer.t option
        [@ocaml.doc "The number of packets in an IKE replay window."];
      dpdTimeoutSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds after which a DPD timeout occurs."];
      dpdTimeoutAction: String_.t option
        [@ocaml.doc "The action to take after a DPD timeout occurs."];
      phase1EncryptionAlgorithms: Phase1EncryptionAlgorithmsList.t option
        [@ocaml.doc
          "The permitted encryption algorithms for the VPN tunnel for phase 1 IKE negotiations."];
      phase2EncryptionAlgorithms: Phase2EncryptionAlgorithmsList.t option
        [@ocaml.doc
          "The permitted encryption algorithms for the VPN tunnel for phase 2 IKE negotiations."];
      phase1IntegrityAlgorithms: Phase1IntegrityAlgorithmsList.t option
        [@ocaml.doc
          "The permitted integrity algorithms for the VPN tunnel for phase 1 IKE negotiations."];
      phase2IntegrityAlgorithms: Phase2IntegrityAlgorithmsList.t option
        [@ocaml.doc
          "The permitted integrity algorithms for the VPN tunnel for phase 2 IKE negotiations."];
      phase1DHGroupNumbers: Phase1DHGroupNumbersList.t option
        [@ocaml.doc
          "The permitted Diffie-Hellman group numbers for the VPN tunnel for phase 1 IKE negotiations."];
      phase2DHGroupNumbers: Phase2DHGroupNumbersList.t option
        [@ocaml.doc
          "The permitted Diffie-Hellman group numbers for the VPN tunnel for phase 2 IKE negotiations."];
      ikeVersions: IKEVersionsList.t option
        [@ocaml.doc
          "The IKE versions that are permitted for the VPN tunnel."];
      startupAction: String_.t option
        [@ocaml.doc
          "The action to take when the establishing the VPN tunnels for a VPN connection."];
      logOptions: VpnTunnelLogOptions.t option
        [@ocaml.doc "Options for logging VPN tunnel activity."];
      enableTunnelLifecycleControl: Boolean.t option
        [@ocaml.doc "Status of tunnel endpoint lifecycle control feature."]}
    let make ?outsideIpAddress =
      fun ?tunnelInsideCidr ->
        fun ?tunnelInsideIpv6Cidr ->
          fun ?preSharedKey ->
            fun ?phase1LifetimeSeconds ->
              fun ?phase2LifetimeSeconds ->
                fun ?rekeyMarginTimeSeconds ->
                  fun ?rekeyFuzzPercentage ->
                    fun ?replayWindowSize ->
                      fun ?dpdTimeoutSeconds ->
                        fun ?dpdTimeoutAction ->
                          fun ?phase1EncryptionAlgorithms ->
                            fun ?phase2EncryptionAlgorithms ->
                              fun ?phase1IntegrityAlgorithms ->
                                fun ?phase2IntegrityAlgorithms ->
                                  fun ?phase1DHGroupNumbers ->
                                    fun ?phase2DHGroupNumbers ->
                                      fun ?ikeVersions ->
                                        fun ?startupAction ->
                                          fun ?logOptions ->
                                            fun ?enableTunnelLifecycleControl
                                              ->
                                              fun () ->
                                                {
                                                  outsideIpAddress;
                                                  tunnelInsideCidr;
                                                  tunnelInsideIpv6Cidr;
                                                  preSharedKey;
                                                  phase1LifetimeSeconds;
                                                  phase2LifetimeSeconds;
                                                  rekeyMarginTimeSeconds;
                                                  rekeyFuzzPercentage;
                                                  replayWindowSize;
                                                  dpdTimeoutSeconds;
                                                  dpdTimeoutAction;
                                                  phase1EncryptionAlgorithms;
                                                  phase2EncryptionAlgorithms;
                                                  phase1IntegrityAlgorithms;
                                                  phase2IntegrityAlgorithms;
                                                  phase1DHGroupNumbers;
                                                  phase2DHGroupNumbers;
                                                  ikeVersions;
                                                  startupAction;
                                                  logOptions;
                                                  enableTunnelLifecycleControl
                                                }
    let to_value x =
      structure_to_value
        [("outsideIpAddress",
           (Option.map x.outsideIpAddress ~f:String_.to_value));
        ("tunnelInsideCidr",
          (Option.map x.tunnelInsideCidr ~f:String_.to_value));
        ("tunnelInsideIpv6Cidr",
          (Option.map x.tunnelInsideIpv6Cidr ~f:String_.to_value));
        ("preSharedKey",
          (Option.map x.preSharedKey ~f:PreSharedKey.to_value));
        ("phase1LifetimeSeconds",
          (Option.map x.phase1LifetimeSeconds ~f:Integer.to_value));
        ("phase2LifetimeSeconds",
          (Option.map x.phase2LifetimeSeconds ~f:Integer.to_value));
        ("rekeyMarginTimeSeconds",
          (Option.map x.rekeyMarginTimeSeconds ~f:Integer.to_value));
        ("rekeyFuzzPercentage",
          (Option.map x.rekeyFuzzPercentage ~f:Integer.to_value));
        ("replayWindowSize",
          (Option.map x.replayWindowSize ~f:Integer.to_value));
        ("dpdTimeoutSeconds",
          (Option.map x.dpdTimeoutSeconds ~f:Integer.to_value));
        ("dpdTimeoutAction",
          (Option.map x.dpdTimeoutAction ~f:String_.to_value));
        ("phase1EncryptionAlgorithmSet",
          (Option.map x.phase1EncryptionAlgorithms
             ~f:Phase1EncryptionAlgorithmsList.to_value));
        ("phase2EncryptionAlgorithmSet",
          (Option.map x.phase2EncryptionAlgorithms
             ~f:Phase2EncryptionAlgorithmsList.to_value));
        ("phase1IntegrityAlgorithmSet",
          (Option.map x.phase1IntegrityAlgorithms
             ~f:Phase1IntegrityAlgorithmsList.to_value));
        ("phase2IntegrityAlgorithmSet",
          (Option.map x.phase2IntegrityAlgorithms
             ~f:Phase2IntegrityAlgorithmsList.to_value));
        ("phase1DHGroupNumberSet",
          (Option.map x.phase1DHGroupNumbers
             ~f:Phase1DHGroupNumbersList.to_value));
        ("phase2DHGroupNumberSet",
          (Option.map x.phase2DHGroupNumbers
             ~f:Phase2DHGroupNumbersList.to_value));
        ("ikeVersionSet",
          (Option.map x.ikeVersions ~f:IKEVersionsList.to_value));
        ("startupAction", (Option.map x.startupAction ~f:String_.to_value));
        ("logOptions",
          (Option.map x.logOptions ~f:VpnTunnelLogOptions.to_value));
        ("enableTunnelLifecycleControl",
          (Option.map x.enableTunnelLifecycleControl ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableTunnelLifecycleControl =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "enableTunnelLifecycleControl") in
      let logOptions =
        (Option.map ~f:VpnTunnelLogOptions.of_xml)
          (Xml.child xml_arg0 "logOptions") in
      let startupAction =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "startupAction") in
      let ikeVersions =
        (Option.map ~f:IKEVersionsList.of_xml)
          (Xml.child xml_arg0 "ikeVersionSet") in
      let phase2DHGroupNumbers =
        (Option.map ~f:Phase2DHGroupNumbersList.of_xml)
          (Xml.child xml_arg0 "phase2DHGroupNumberSet") in
      let phase1DHGroupNumbers =
        (Option.map ~f:Phase1DHGroupNumbersList.of_xml)
          (Xml.child xml_arg0 "phase1DHGroupNumberSet") in
      let phase2IntegrityAlgorithms =
        (Option.map ~f:Phase2IntegrityAlgorithmsList.of_xml)
          (Xml.child xml_arg0 "phase2IntegrityAlgorithmSet") in
      let phase1IntegrityAlgorithms =
        (Option.map ~f:Phase1IntegrityAlgorithmsList.of_xml)
          (Xml.child xml_arg0 "phase1IntegrityAlgorithmSet") in
      let phase2EncryptionAlgorithms =
        (Option.map ~f:Phase2EncryptionAlgorithmsList.of_xml)
          (Xml.child xml_arg0 "phase2EncryptionAlgorithmSet") in
      let phase1EncryptionAlgorithms =
        (Option.map ~f:Phase1EncryptionAlgorithmsList.of_xml)
          (Xml.child xml_arg0 "phase1EncryptionAlgorithmSet") in
      let dpdTimeoutAction =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "dpdTimeoutAction") in
      let dpdTimeoutSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "dpdTimeoutSeconds") in
      let replayWindowSize =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "replayWindowSize") in
      let rekeyFuzzPercentage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "rekeyFuzzPercentage") in
      let rekeyMarginTimeSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "rekeyMarginTimeSeconds") in
      let phase2LifetimeSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "phase2LifetimeSeconds") in
      let phase1LifetimeSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "phase1LifetimeSeconds") in
      let preSharedKey =
        (Option.map ~f:PreSharedKey.of_xml)
          (Xml.child xml_arg0 "preSharedKey") in
      let tunnelInsideIpv6Cidr =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "tunnelInsideIpv6Cidr") in
      let tunnelInsideCidr =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "tunnelInsideCidr") in
      let outsideIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "outsideIpAddress") in
      make ?enableTunnelLifecycleControl ?logOptions ?startupAction
        ?ikeVersions ?phase2DHGroupNumbers ?phase1DHGroupNumbers
        ?phase2IntegrityAlgorithms ?phase1IntegrityAlgorithms
        ?phase2EncryptionAlgorithms ?phase1EncryptionAlgorithms
        ?dpdTimeoutAction ?dpdTimeoutSeconds ?replayWindowSize
        ?rekeyFuzzPercentage ?rekeyMarginTimeSeconds ?phase2LifetimeSeconds
        ?phase1LifetimeSeconds ?preSharedKey ?tunnelInsideIpv6Cidr
        ?tunnelInsideCidr ?outsideIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableTunnelLifecycleControl =
        field_map json__ "EnableTunnelLifecycleControl" Boolean.of_json in
      let logOptions =
        field_map json__ "LogOptions" VpnTunnelLogOptions.of_json in
      let startupAction = field_map json__ "StartupAction" String_.of_json in
      let ikeVersions =
        field_map json__ "IkeVersions" IKEVersionsList.of_json in
      let phase2DHGroupNumbers =
        field_map json__ "Phase2DHGroupNumbers"
          Phase2DHGroupNumbersList.of_json in
      let phase1DHGroupNumbers =
        field_map json__ "Phase1DHGroupNumbers"
          Phase1DHGroupNumbersList.of_json in
      let phase2IntegrityAlgorithms =
        field_map json__ "Phase2IntegrityAlgorithms"
          Phase2IntegrityAlgorithmsList.of_json in
      let phase1IntegrityAlgorithms =
        field_map json__ "Phase1IntegrityAlgorithms"
          Phase1IntegrityAlgorithmsList.of_json in
      let phase2EncryptionAlgorithms =
        field_map json__ "Phase2EncryptionAlgorithms"
          Phase2EncryptionAlgorithmsList.of_json in
      let phase1EncryptionAlgorithms =
        field_map json__ "Phase1EncryptionAlgorithms"
          Phase1EncryptionAlgorithmsList.of_json in
      let dpdTimeoutAction =
        field_map json__ "DpdTimeoutAction" String_.of_json in
      let dpdTimeoutSeconds =
        field_map json__ "DpdTimeoutSeconds" Integer.of_json in
      let replayWindowSize =
        field_map json__ "ReplayWindowSize" Integer.of_json in
      let rekeyFuzzPercentage =
        field_map json__ "RekeyFuzzPercentage" Integer.of_json in
      let rekeyMarginTimeSeconds =
        field_map json__ "RekeyMarginTimeSeconds" Integer.of_json in
      let phase2LifetimeSeconds =
        field_map json__ "Phase2LifetimeSeconds" Integer.of_json in
      let phase1LifetimeSeconds =
        field_map json__ "Phase1LifetimeSeconds" Integer.of_json in
      let preSharedKey = field_map json__ "PreSharedKey" PreSharedKey.of_json in
      let tunnelInsideIpv6Cidr =
        field_map json__ "TunnelInsideIpv6Cidr" String_.of_json in
      let tunnelInsideCidr =
        field_map json__ "TunnelInsideCidr" String_.of_json in
      let outsideIpAddress =
        field_map json__ "OutsideIpAddress" String_.of_json in
      make ?enableTunnelLifecycleControl ?logOptions ?startupAction
        ?ikeVersions ?phase2DHGroupNumbers ?phase1DHGroupNumbers
        ?phase2IntegrityAlgorithms ?phase1IntegrityAlgorithms
        ?phase2EncryptionAlgorithms ?phase1EncryptionAlgorithms
        ?dpdTimeoutAction ?dpdTimeoutSeconds ?replayWindowSize
        ?rekeyFuzzPercentage ?rekeyMarginTimeSeconds ?phase2LifetimeSeconds
        ?phase1LifetimeSeconds ?preSharedKey ?tunnelInsideIpv6Cidr
        ?tunnelInsideCidr ?outsideIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The VPN tunnel options."]
module VpnState =
  struct
    type nonrec t =
      | Pending 
      | Available 
      | Deleting 
      | Deleted 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Available -> "available"
      | Deleting -> "deleting"
      | Deleted -> "deleted"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "available" -> Available
      | "deleting" -> Deleting
      | "deleted" -> Deleted
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration VpnState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VpnState" j)
    let to_json = simple_to_json to_value
  end
module VpnStaticRouteSource =
  struct
    type nonrec t =
      | Static 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Static -> "Static" | Non_static_id s -> s
    let of_string = function | "Static" -> Static | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpnStaticRouteSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VpnStaticRouteSource" j)
    let to_json = simple_to_json to_value
  end
module VpcCidrBlockState =
  struct
    type nonrec t =
      {
      state: VpcCidrBlockStateCode.t option
        [@ocaml.doc "The state of the CIDR block."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A message about the status of the CIDR block, if applicable."]}
    let make ?state =
      fun ?statusMessage -> fun () -> { state; statusMessage }
    let to_value x =
      structure_to_value
        [("state", (Option.map x.state ~f:VpcCidrBlockStateCode.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let state =
        (Option.map ~f:VpcCidrBlockStateCode.of_xml)
          (Xml.child xml_arg0 "state") in
      make ?statusMessage ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let state = field_map json__ "State" VpcCidrBlockStateCode.of_json in
      make ?statusMessage ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the state of a CIDR block."]
module VpcEncryptionControlExclusion =
  struct
    type nonrec t =
      {
      state: VpcEncryptionControlExclusionState.t option
        [@ocaml.doc "The current state of the exclusion configuration."];
      stateMessage: String_.t option
        [@ocaml.doc
          "A message providing additional information about the exclusion state."]}
    let make ?state = fun ?stateMessage -> fun () -> { state; stateMessage }
    let to_value x =
      structure_to_value
        [("state",
           (Option.map x.state ~f:VpcEncryptionControlExclusionState.to_value));
        ("stateMessage", (Option.map x.stateMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "stateMessage") in
      let state =
        (Option.map ~f:VpcEncryptionControlExclusionState.of_xml)
          (Xml.child xml_arg0 "state") in
      make ?stateMessage ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateMessage = field_map json__ "StateMessage" String_.of_json in
      let state =
        field_map json__ "State" VpcEncryptionControlExclusionState.of_json in
      make ?stateMessage ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an exclusion configuration for VPC Encryption Control. For more information, see Enforce VPC encryption in transit in the Amazon VPC User Guide."]
module IpSource =
  struct
    type nonrec t =
      | Amazon 
      | Byoip 
      | None 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Amazon -> "amazon"
      | Byoip -> "byoip"
      | None -> "none"
      | Non_static_id s -> s
    let of_string =
      function
      | "amazon" -> Amazon
      | "byoip" -> Byoip
      | "none" -> None
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration IpSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IpSource" j)
    let to_json = simple_to_json to_value
  end
module Ipv6AddressAttribute =
  struct
    type nonrec t =
      | Public 
      | Private 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Public -> "public"
      | Private -> "private"
      | Non_static_id s -> s
    let of_string =
      function
      | "public" -> Public
      | "private" -> Private
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration Ipv6AddressAttribute" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Ipv6AddressAttribute" j)
    let to_json = simple_to_json to_value
  end
module CidrBlock =
  struct
    type nonrec t =
      {
      cidrBlock: String_.t option [@ocaml.doc "The IPv4 CIDR block."]}
    let make ?cidrBlock = fun () -> { cidrBlock }
    let to_value x =
      structure_to_value
        [("cidrBlock", (Option.map x.cidrBlock ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidrBlock") in
      make ?cidrBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidrBlock = field_map json__ "CidrBlock" String_.of_json in
      make ?cidrBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv4 CIDR block."]
module Ipv6CidrBlock =
  struct
    type nonrec t =
      {
      ipv6CidrBlock: String_.t option [@ocaml.doc "The IPv6 CIDR block."]}
    let make ?ipv6CidrBlock = fun () -> { ipv6CidrBlock }
    let to_value x =
      structure_to_value
        [("ipv6CidrBlock", (Option.map x.ipv6CidrBlock ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6CidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6CidrBlock") in
      make ?ipv6CidrBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6CidrBlock = field_map json__ "Ipv6CidrBlock" String_.of_json in
      make ?ipv6CidrBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv6 CIDR block."]
module ServiceType =
  struct
    type nonrec t =
      | Interface 
      | Gateway 
      | GatewayLoadBalancer 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Interface -> "Interface"
      | Gateway -> "Gateway"
      | GatewayLoadBalancer -> "GatewayLoadBalancer"
      | Non_static_id s -> s
    let of_string =
      function
      | "Interface" -> Interface
      | "Gateway" -> Gateway
      | "GatewayLoadBalancer" -> GatewayLoadBalancer
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ServiceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServiceType" j)
    let to_json = simple_to_json to_value
  end
module VolumeAttachmentState =
  struct
    type nonrec t =
      | Attaching 
      | Attached 
      | Detaching 
      | Detached 
      | Busy 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Attaching -> "attaching"
      | Attached -> "attached"
      | Detaching -> "detaching"
      | Detached -> "detached"
      | Busy -> "busy"
      | Non_static_id s -> s
    let of_string =
      function
      | "attaching" -> Attaching
      | "attached" -> Attached
      | "detaching" -> Detaching
      | "detached" -> Detached
      | "busy" -> Busy
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VolumeAttachmentState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VolumeAttachmentState" j)
    let to_json = simple_to_json to_value
  end
module VolumeStatusDetails =
  struct
    type nonrec t =
      {
      name: VolumeStatusName.t option
        [@ocaml.doc
          "The name of the volume status. io-enabled - Indicates the volume I/O status. For more information, see Amazon EBS volume status checks. io-performance - Indicates the volume performance status. For more information, see Amazon EBS volume status checks. initialization-state - Indicates the status of the volume initialization process. For more information, see Initialize Amazon EBS volumes."];
      status: String_.t option
        [@ocaml.doc "The intended status of the volume status."]}
    let make ?name = fun ?status -> fun () -> { name; status }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:VolumeStatusName.to_value));
        ("status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:VolumeStatusName.of_xml) (Xml.child xml_arg0 "name") in
      make ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let name = field_map json__ "Name" VolumeStatusName.of_json in
      make ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a volume status."]
module DeviceTrustProviderType =
  struct
    type nonrec t =
      | Jamf 
      | Crowdstrike 
      | Jumpcloud 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Jamf -> "jamf"
      | Crowdstrike -> "crowdstrike"
      | Jumpcloud -> "jumpcloud"
      | Non_static_id s -> s
    let of_string =
      function
      | "jamf" -> Jamf
      | "crowdstrike" -> Crowdstrike
      | "jumpcloud" -> Jumpcloud
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DeviceTrustProviderType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DeviceTrustProviderType" j)
    let to_json = simple_to_json to_value
  end
module TrustProviderType =
  struct
    type nonrec t =
      | User 
      | Device 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | User -> "user" | Device -> "device" | Non_static_id s -> s
    let of_string =
      function | "user" -> User | "device" -> Device | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TrustProviderType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TrustProviderType" j)
    let to_json = simple_to_json to_value
  end
module UserTrustProviderType =
  struct
    type nonrec t =
      | Iam_identity_center 
      | Oidc 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Iam_identity_center -> "iam-identity-center"
      | Oidc -> "oidc"
      | Non_static_id s -> s
    let of_string =
      function
      | "iam-identity-center" -> Iam_identity_center
      | "oidc" -> Oidc
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration UserTrustProviderType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"UserTrustProviderType" j)
    let to_json = simple_to_json to_value
  end
module VerifiedAccessLogDeliveryStatus =
  struct
    type nonrec t =
      {
      code: VerifiedAccessLogDeliveryStatusCode.t option
        [@ocaml.doc "The status code."];
      message: String_.t option [@ocaml.doc "The status message."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("code",
           (Option.map x.code ~f:VerifiedAccessLogDeliveryStatusCode.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code =
        (Option.map ~f:VerifiedAccessLogDeliveryStatusCode.of_xml)
          (Xml.child xml_arg0 "code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code =
        field_map json__ "Code" VerifiedAccessLogDeliveryStatusCode.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a log delivery status."]
module VerifiedAccessEndpointPortRange =
  struct
    type nonrec t =
      {
      fromPort: VerifiedAccessEndpointPortNumber.t option
        [@ocaml.doc "The start of the port range."];
      toPort: VerifiedAccessEndpointPortNumber.t option
        [@ocaml.doc "The end of the port range."]}
    let make ?fromPort = fun ?toPort -> fun () -> { fromPort; toPort }
    let to_value x =
      structure_to_value
        [("fromPort",
           (Option.map x.fromPort
              ~f:VerifiedAccessEndpointPortNumber.to_value));
        ("toPort",
          (Option.map x.toPort ~f:VerifiedAccessEndpointPortNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let toPort =
        (Option.map ~f:VerifiedAccessEndpointPortNumber.of_xml)
          (Xml.child xml_arg0 "toPort") in
      let fromPort =
        (Option.map ~f:VerifiedAccessEndpointPortNumber.of_xml)
          (Xml.child xml_arg0 "fromPort") in
      make ?toPort ?fromPort ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let toPort =
        field_map json__ "ToPort" VerifiedAccessEndpointPortNumber.of_json in
      let fromPort =
        field_map json__ "FromPort" VerifiedAccessEndpointPortNumber.of_json in
      make ?toPort ?fromPort ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a port range."]
module EncryptionStateValue =
  struct
    type nonrec t =
      | Enabling 
      | Enabled 
      | Disabling 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabling -> "enabling"
      | Enabled -> "enabled"
      | Disabling -> "disabling"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabling" -> Enabling
      | "enabled" -> Enabled
      | "disabling" -> Disabling
      | "disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration EncryptionStateValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionStateValue" j)
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentBgpConfiguration =
  struct
    type nonrec t =
      {
      transitGatewayAsn: Long.t option
        [@ocaml.doc "The transit gateway Autonomous System Number (ASN)."];
      peerAsn: Long.t option
        [@ocaml.doc "The peer Autonomous System Number (ASN)."];
      transitGatewayAddress: String_.t option
        [@ocaml.doc
          "The interior BGP peer IP address for the transit gateway."];
      peerAddress: String_.t option
        [@ocaml.doc "The interior BGP peer IP address for the appliance."];
      bgpStatus: BgpStatus.t option [@ocaml.doc "The BGP status."]}
    let make ?transitGatewayAsn =
      fun ?peerAsn ->
        fun ?transitGatewayAddress ->
          fun ?peerAddress ->
            fun ?bgpStatus ->
              fun () ->
                {
                  transitGatewayAsn;
                  peerAsn;
                  transitGatewayAddress;
                  peerAddress;
                  bgpStatus
                }
    let to_value x =
      structure_to_value
        [("transitGatewayAsn",
           (Option.map x.transitGatewayAsn ~f:Long.to_value));
        ("peerAsn", (Option.map x.peerAsn ~f:Long.to_value));
        ("transitGatewayAddress",
          (Option.map x.transitGatewayAddress ~f:String_.to_value));
        ("peerAddress", (Option.map x.peerAddress ~f:String_.to_value));
        ("bgpStatus", (Option.map x.bgpStatus ~f:BgpStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bgpStatus =
        (Option.map ~f:BgpStatus.of_xml) (Xml.child xml_arg0 "bgpStatus") in
      let peerAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "peerAddress") in
      let transitGatewayAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "transitGatewayAddress") in
      let peerAsn =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "peerAsn") in
      let transitGatewayAsn =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "transitGatewayAsn") in
      make ?bgpStatus ?peerAddress ?transitGatewayAddress ?peerAsn
        ?transitGatewayAsn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bgpStatus = field_map json__ "BgpStatus" BgpStatus.of_json in
      let peerAddress = field_map json__ "PeerAddress" String_.of_json in
      let transitGatewayAddress =
        field_map json__ "TransitGatewayAddress" String_.of_json in
      let peerAsn = field_map json__ "PeerAsn" Long.of_json in
      let transitGatewayAsn =
        field_map json__ "TransitGatewayAsn" Long.of_json in
      make ?bgpStatus ?peerAddress ?transitGatewayAddress ?peerAsn
        ?transitGatewayAsn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The BGP configuration information."]
module TrafficDirection =
  struct
    type nonrec t =
      | Ingress 
      | Egress 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ingress -> "ingress"
      | Egress -> "egress"
      | Non_static_id s -> s
    let of_string =
      function
      | "ingress" -> Ingress
      | "egress" -> Egress
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration TrafficDirection" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TrafficDirection" j)
    let to_json = simple_to_json to_value
  end
module TrafficMirrorPortRange =
  struct
    type nonrec t =
      {
      fromPort: Integer.t option
        [@ocaml.doc
          "The start of the Traffic Mirror port range. This applies to the TCP and UDP protocols."];
      toPort: Integer.t option
        [@ocaml.doc
          "The end of the Traffic Mirror port range. This applies to the TCP and UDP protocols."]}
    let make ?fromPort = fun ?toPort -> fun () -> { fromPort; toPort }
    let to_value x =
      structure_to_value
        [("fromPort", (Option.map x.fromPort ~f:Integer.to_value));
        ("toPort", (Option.map x.toPort ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let toPort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "toPort") in
      let fromPort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "fromPort") in
      make ?toPort ?fromPort ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let toPort = field_map json__ "ToPort" Integer.of_json in
      let fromPort = field_map json__ "FromPort" Integer.of_json in
      make ?toPort ?fromPort ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the Traffic Mirror port range."]
module TrafficMirrorRuleAction =
  struct
    type nonrec t =
      | Accept 
      | Reject 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Accept -> "accept"
      | Reject -> "reject"
      | Non_static_id s -> s
    let of_string =
      function
      | "accept" -> Accept
      | "reject" -> Reject
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TrafficMirrorRuleAction" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TrafficMirrorRuleAction" j)
    let to_json = simple_to_json to_value
  end
module SubnetCidrAssociationId =
  struct
    type nonrec t = string
    let context_ = "SubnetCidrAssociationId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetCidrAssociationId" j
    let to_json = simple_to_json to_value
  end
module SubnetCidrBlockState =
  struct
    type nonrec t =
      {
      state: SubnetCidrBlockStateCode.t option
        [@ocaml.doc "The state of a CIDR block."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A message about the status of the CIDR block, if applicable."]}
    let make ?state =
      fun ?statusMessage -> fun () -> { state; statusMessage }
    let to_value x =
      structure_to_value
        [("state", (Option.map x.state ~f:SubnetCidrBlockStateCode.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let state =
        (Option.map ~f:SubnetCidrBlockStateCode.of_xml)
          (Xml.child xml_arg0 "state") in
      make ?statusMessage ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let state = field_map json__ "State" SubnetCidrBlockStateCode.of_json in
      make ?statusMessage ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the state of a CIDR block."]
module IpRanges =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j = list_of_json ~kind:"IpRanges" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrefixListIdSet =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"PrefixListIdSet" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserIdGroupPairSet =
  struct
    type nonrec t = UserIdGroupPair.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UserIdGroupPair.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:UserIdGroupPair.of_xml)
    let of_json j =
      list_of_json ~kind:"UserIdGroupPairSet"
        ~of_json:UserIdGroupPair.of_json j
    let to_json v = composed_to_json to_value v
  end
module SpotFleetLaunchSpecification =
  struct
    type nonrec t =
      {
      addressingType: String_.t option [@ocaml.doc "Deprecated."];
      blockDeviceMappings: BlockDeviceMappingList.t option
        [@ocaml.doc
          "One or more block devices that are mapped to the Spot Instances. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status."];
      ebsOptimized: Boolean.t option
        [@ocaml.doc
          "Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: false"];
      iamInstanceProfile: IamInstanceProfileSpecification.t option
        [@ocaml.doc "The IAM instance profile."];
      imageId: ImageId.t option [@ocaml.doc "The ID of the AMI."];
      instanceType: InstanceType.t option [@ocaml.doc "The instance type."];
      kernelId: String_.t option [@ocaml.doc "The ID of the kernel."];
      keyName: KeyPairName.t option [@ocaml.doc "The name of the key pair."];
      monitoring: SpotFleetMonitoring.t option
        [@ocaml.doc "Enable or disable monitoring for the instances."];
      networkInterfaces: InstanceNetworkInterfaceSpecificationList.t option
        [@ocaml.doc
          "The network interfaces. SpotFleetLaunchSpecification does not support Elastic Fabric Adapter (EFA). You must use LaunchTemplateConfig instead."];
      placement: SpotPlacement.t option
        [@ocaml.doc "The placement information."];
      ramdiskId: String_.t option
        [@ocaml.doc
          "The ID of the RAM disk. Some kernels require additional drivers at launch. Check the kernel requirements for information about whether you need to specify a RAM disk. To find kernel requirements, refer to the Amazon Web Services Resource Center and search for the kernel ID."];
      spotPrice: String_.t option
        [@ocaml.doc
          "The maximum price per unit hour that you are willing to pay for a Spot Instance. We do not recommend using this parameter because it can lead to increased interruptions. If you do not specify this parameter, you will pay the current Spot price. If you specify a maximum price, your instances will be interrupted more frequently than if you do not specify this parameter."];
      subnetId: SubnetId.t option
        [@ocaml.doc
          "The IDs of the subnets in which to launch the instances. To specify multiple subnets, separate them using commas; for example, \"subnet-1234abcdeexample1, subnet-0987cdef6example2\". If you specify a network interface, you must specify any subnets as part of the network interface instead of using this parameter."];
      userData: SensitiveUserData.t option
        [@ocaml.doc
          "The base64-encoded user data that instances use when starting up. User data is limited to 16 KB."];
      weightedCapacity: Double.t option
        [@ocaml.doc
          "The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms of instances, or a performance characteristic such as vCPUs, memory, or I/O. If the target capacity divided by this value is not a whole number, Amazon EC2 rounds the number of instances to the next whole number. If this value is not specified, the default is 1. When specifying weights, the price used in the lowestPrice and priceCapacityOptimized allocation strategies is per unit hour (where the instance price is divided by the specified weight). However, if all the specified weights are above the requested TargetCapacity, resulting in only 1 instance being launched, the price used is per instance hour."];
      tagSpecifications: SpotFleetTagSpecificationList.t option
        [@ocaml.doc "The tags to apply during creation."];
      instanceRequirements: InstanceRequirements.t option
        [@ocaml.doc
          "The attributes for the instance types. When you specify instance attributes, Amazon EC2 will identify instance types with those attributes. If you specify InstanceRequirements, you can't specify InstanceType."];
      securityGroups: GroupIdentifierList.t option
        [@ocaml.doc
          "The security groups. If you specify a network interface, you must specify any security groups as part of the network interface instead of using this parameter."]}
    let make ?addressingType =
      fun ?blockDeviceMappings ->
        fun ?ebsOptimized ->
          fun ?iamInstanceProfile ->
            fun ?imageId ->
              fun ?instanceType ->
                fun ?kernelId ->
                  fun ?keyName ->
                    fun ?monitoring ->
                      fun ?networkInterfaces ->
                        fun ?placement ->
                          fun ?ramdiskId ->
                            fun ?spotPrice ->
                              fun ?subnetId ->
                                fun ?userData ->
                                  fun ?weightedCapacity ->
                                    fun ?tagSpecifications ->
                                      fun ?instanceRequirements ->
                                        fun ?securityGroups ->
                                          fun () ->
                                            {
                                              addressingType;
                                              blockDeviceMappings;
                                              ebsOptimized;
                                              iamInstanceProfile;
                                              imageId;
                                              instanceType;
                                              kernelId;
                                              keyName;
                                              monitoring;
                                              networkInterfaces;
                                              placement;
                                              ramdiskId;
                                              spotPrice;
                                              subnetId;
                                              userData;
                                              weightedCapacity;
                                              tagSpecifications;
                                              instanceRequirements;
                                              securityGroups
                                            }
    let to_value x =
      structure_to_value
        [("addressingType",
           (Option.map x.addressingType ~f:String_.to_value));
        ("blockDeviceMapping",
          (Option.map x.blockDeviceMappings
             ~f:BlockDeviceMappingList.to_value));
        ("ebsOptimized", (Option.map x.ebsOptimized ~f:Boolean.to_value));
        ("iamInstanceProfile",
          (Option.map x.iamInstanceProfile
             ~f:IamInstanceProfileSpecification.to_value));
        ("imageId", (Option.map x.imageId ~f:ImageId.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("kernelId", (Option.map x.kernelId ~f:String_.to_value));
        ("keyName", (Option.map x.keyName ~f:KeyPairName.to_value));
        ("monitoring",
          (Option.map x.monitoring ~f:SpotFleetMonitoring.to_value));
        ("networkInterfaceSet",
          (Option.map x.networkInterfaces
             ~f:InstanceNetworkInterfaceSpecificationList.to_value));
        ("placement", (Option.map x.placement ~f:SpotPlacement.to_value));
        ("ramdiskId", (Option.map x.ramdiskId ~f:String_.to_value));
        ("spotPrice", (Option.map x.spotPrice ~f:String_.to_value));
        ("subnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("userData", (Option.map x.userData ~f:SensitiveUserData.to_value));
        ("weightedCapacity",
          (Option.map x.weightedCapacity ~f:Double.to_value));
        ("tagSpecificationSet",
          (Option.map x.tagSpecifications
             ~f:SpotFleetTagSpecificationList.to_value));
        ("instanceRequirements",
          (Option.map x.instanceRequirements ~f:InstanceRequirements.to_value));
        ("groupSet",
          (Option.map x.securityGroups ~f:GroupIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroups =
        (Option.map ~f:GroupIdentifierList.of_xml)
          (Xml.child xml_arg0 "groupSet") in
      let instanceRequirements =
        (Option.map ~f:InstanceRequirements.of_xml)
          (Xml.child xml_arg0 "instanceRequirements") in
      let tagSpecifications =
        (Option.map ~f:SpotFleetTagSpecificationList.of_xml)
          (Xml.child xml_arg0 "tagSpecificationSet") in
      let weightedCapacity =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "weightedCapacity") in
      let userData =
        (Option.map ~f:SensitiveUserData.of_xml)
          (Xml.child xml_arg0 "userData") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "subnetId") in
      let spotPrice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "spotPrice") in
      let ramdiskId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ramdiskId") in
      let placement =
        (Option.map ~f:SpotPlacement.of_xml) (Xml.child xml_arg0 "placement") in
      let networkInterfaces =
        (Option.map ~f:InstanceNetworkInterfaceSpecificationList.of_xml)
          (Xml.child xml_arg0 "networkInterfaceSet") in
      let monitoring =
        (Option.map ~f:SpotFleetMonitoring.of_xml)
          (Xml.child xml_arg0 "monitoring") in
      let keyName =
        (Option.map ~f:KeyPairName.of_xml) (Xml.child xml_arg0 "keyName") in
      let kernelId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "kernelId") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let imageId =
        (Option.map ~f:ImageId.of_xml) (Xml.child xml_arg0 "imageId") in
      let iamInstanceProfile =
        (Option.map ~f:IamInstanceProfileSpecification.of_xml)
          (Xml.child xml_arg0 "iamInstanceProfile") in
      let ebsOptimized =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ebsOptimized") in
      let blockDeviceMappings =
        (Option.map ~f:BlockDeviceMappingList.of_xml)
          (Xml.child xml_arg0 "blockDeviceMapping") in
      let addressingType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "addressingType") in
      make ?securityGroups ?instanceRequirements ?tagSpecifications
        ?weightedCapacity ?userData ?subnetId ?spotPrice ?ramdiskId
        ?placement ?networkInterfaces ?monitoring ?keyName ?kernelId
        ?instanceType ?imageId ?iamInstanceProfile ?ebsOptimized
        ?blockDeviceMappings ?addressingType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroups =
        field_map json__ "SecurityGroups" GroupIdentifierList.of_json in
      let instanceRequirements =
        field_map json__ "InstanceRequirements" InstanceRequirements.of_json in
      let tagSpecifications =
        field_map json__ "TagSpecifications"
          SpotFleetTagSpecificationList.of_json in
      let weightedCapacity =
        field_map json__ "WeightedCapacity" Double.of_json in
      let userData = field_map json__ "UserData" SensitiveUserData.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let spotPrice = field_map json__ "SpotPrice" String_.of_json in
      let ramdiskId = field_map json__ "RamdiskId" String_.of_json in
      let placement = field_map json__ "Placement" SpotPlacement.of_json in
      let networkInterfaces =
        field_map json__ "NetworkInterfaces"
          InstanceNetworkInterfaceSpecificationList.of_json in
      let monitoring =
        field_map json__ "Monitoring" SpotFleetMonitoring.of_json in
      let keyName = field_map json__ "KeyName" KeyPairName.of_json in
      let kernelId = field_map json__ "KernelId" String_.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      let imageId = field_map json__ "ImageId" ImageId.of_json in
      let iamInstanceProfile =
        field_map json__ "IamInstanceProfile"
          IamInstanceProfileSpecification.of_json in
      let ebsOptimized = field_map json__ "EbsOptimized" Boolean.of_json in
      let blockDeviceMappings =
        field_map json__ "BlockDeviceMappings" BlockDeviceMappingList.of_json in
      let addressingType = field_map json__ "AddressingType" String_.of_json in
      make ?securityGroups ?instanceRequirements ?tagSpecifications
        ?weightedCapacity ?userData ?subnetId ?spotPrice ?ramdiskId
        ?placement ?networkInterfaces ?monitoring ?keyName ?kernelId
        ?instanceType ?imageId ?iamInstanceProfile ?ebsOptimized
        ?blockDeviceMappings ?addressingType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the launch specification for one or more Spot Instances. If you include On-Demand capacity in your fleet request or want to specify an EFA network device, you can't use SpotFleetLaunchSpecification; you must use LaunchTemplateConfig."]
module LaunchTemplateConfig =
  struct
    type nonrec t =
      {
      launchTemplateSpecification: FleetLaunchTemplateSpecification.t option
        [@ocaml.doc
          "The launch template to use. Make sure that the launch template does not contain the NetworkInterfaceId parameter because you can't specify a network interface ID in a Spot Fleet."];
      overrides: LaunchTemplateOverridesList.t option
        [@ocaml.doc
          "Any parameters that you specify override the same parameters in the launch template."]}
    let make ?launchTemplateSpecification =
      fun ?overrides -> fun () -> { launchTemplateSpecification; overrides }
    let to_value x =
      structure_to_value
        [("launchTemplateSpecification",
           (Option.map x.launchTemplateSpecification
              ~f:FleetLaunchTemplateSpecification.to_value));
        ("overrides",
          (Option.map x.overrides ~f:LaunchTemplateOverridesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overrides =
        (Option.map ~f:LaunchTemplateOverridesList.of_xml)
          (Xml.child xml_arg0 "overrides") in
      let launchTemplateSpecification =
        (Option.map ~f:FleetLaunchTemplateSpecification.of_xml)
          (Xml.child xml_arg0 "launchTemplateSpecification") in
      make ?overrides ?launchTemplateSpecification ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overrides =
        field_map json__ "Overrides" LaunchTemplateOverridesList.of_json in
      let launchTemplateSpecification =
        field_map json__ "LaunchTemplateSpecification"
          FleetLaunchTemplateSpecification.of_json in
      make ?overrides ?launchTemplateSpecification ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a launch template and overrides."]
module ClassicLoadBalancersConfig =
  struct
    type nonrec t =
      {
      classicLoadBalancers: ClassicLoadBalancers.t option
        [@ocaml.doc "One or more Classic Load Balancers."]}
    let make ?classicLoadBalancers = fun () -> { classicLoadBalancers }
    let to_value x =
      structure_to_value
        [("classicLoadBalancers",
           (Option.map x.classicLoadBalancers
              ~f:ClassicLoadBalancers.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let classicLoadBalancers =
        (Option.map ~f:ClassicLoadBalancers.of_xml)
          (Xml.child xml_arg0 "classicLoadBalancers") in
      make ?classicLoadBalancers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let classicLoadBalancers =
        field_map json__ "ClassicLoadBalancers" ClassicLoadBalancers.of_json in
      make ?classicLoadBalancers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the Classic Load Balancers to attach to a Spot Fleet. Spot Fleet registers the running Spot Instances with these Classic Load Balancers."]
module TargetGroupsConfig =
  struct
    type nonrec t =
      {
      targetGroups: TargetGroups.t option
        [@ocaml.doc "One or more target groups."]}
    let make ?targetGroups = fun () -> { targetGroups }
    let to_value x =
      structure_to_value
        [("targetGroups",
           (Option.map x.targetGroups ~f:TargetGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetGroups =
        (Option.map ~f:TargetGroups.of_xml)
          (Xml.child xml_arg0 "targetGroups") in
      make ?targetGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetGroups = field_map json__ "TargetGroups" TargetGroups.of_json in
      make ?targetGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the target groups to attach to a Spot Fleet. Spot Fleet registers the running Spot Instances with these target groups."]
module SpotCapacityRebalance =
  struct
    type nonrec t =
      {
      replacementStrategy: ReplacementStrategy.t option
        [@ocaml.doc
          "The replacement strategy to use. Only available for fleets of type maintain. launch - Spot Fleet launches a new replacement Spot Instance when a rebalance notification is emitted for an existing Spot Instance in the fleet. Spot Fleet does not terminate the instances that receive a rebalance notification. You can terminate the old instances, or you can leave them running. You are charged for all instances while they are running. launch-before-terminate - Spot Fleet launches a new replacement Spot Instance when a rebalance notification is emitted for an existing Spot Instance in the fleet, and then, after a delay that you specify (in TerminationDelay), terminates the instances that received a rebalance notification."];
      terminationDelay: Integer.t option
        [@ocaml.doc
          "The amount of time (in seconds) that Amazon EC2 waits before terminating the old Spot Instance after launching a new replacement Spot Instance. Required when ReplacementStrategy is set to launch-before-terminate. Not valid when ReplacementStrategy is set to launch. Valid values: Minimum value of 120 seconds. Maximum value of 7200 seconds."]}
    let make ?replacementStrategy =
      fun ?terminationDelay ->
        fun () -> { replacementStrategy; terminationDelay }
    let to_value x =
      structure_to_value
        [("replacementStrategy",
           (Option.map x.replacementStrategy ~f:ReplacementStrategy.to_value));
        ("terminationDelay",
          (Option.map x.terminationDelay ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let terminationDelay =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "terminationDelay") in
      let replacementStrategy =
        (Option.map ~f:ReplacementStrategy.of_xml)
          (Xml.child xml_arg0 "replacementStrategy") in
      make ?terminationDelay ?replacementStrategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let terminationDelay =
        field_map json__ "TerminationDelay" Integer.of_json in
      let replacementStrategy =
        field_map json__ "ReplacementStrategy" ReplacementStrategy.of_json in
      make ?terminationDelay ?replacementStrategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Spot Instance replacement strategy to use when Amazon EC2 emits a signal that your Spot Instance is at an elevated risk of being interrupted. For more information, see Capacity rebalancing in the Amazon EC2 User Guide."]
module TagSpecification =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource to tag on creation."];
      tags: TagList.t option
        [@ocaml.doc "The tags to apply to the resource."]}
    let make ?resourceType = fun ?tags -> fun () -> { resourceType; tags }
    let to_value x =
      structure_to_value
        [("resourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("Tag", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tag") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      make ?tags ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?tags ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The tags to apply to a resource when the resource is being created. When you specify a tag, you must specify the resource type to tag, otherwise the request will fail. The Valid Values lists all the resource types that can be tagged. However, the action you're using might not support tagging all of these resource types. If you try to tag a resource type that is unsupported for the action you're using, you'll get an error."]
module IpRangeList =
  struct
    type nonrec t = IpRange.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IpRange.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IpRange.of_xml)
    let of_json j =
      list_of_json ~kind:"IpRangeList" ~of_json:IpRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv6RangeList =
  struct
    type nonrec t = Ipv6Range.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv6Range.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Ipv6Range.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv6RangeList" ~of_json:Ipv6Range.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrefixListIdList =
  struct
    type nonrec t = PrefixListId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PrefixListId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PrefixListId.of_xml)
    let of_json j =
      list_of_json ~kind:"PrefixListIdList" ~of_json:PrefixListId.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserIdGroupPairList =
  struct
    type nonrec t = UserIdGroupPair.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UserIdGroupPair.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:UserIdGroupPair.of_xml)
    let of_json j =
      list_of_json ~kind:"UserIdGroupPairList"
        ~of_json:UserIdGroupPair.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecondarySubnetCidrAssociationId =
  struct
    type nonrec t = string
    let context_ = "SecondarySubnetCidrAssociationId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecondarySubnetCidrAssociationId" j
    let to_json = simple_to_json to_value
  end
module SecondarySubnetCidrBlockAssociationState =
  struct
    type nonrec t =
      | Associating 
      | Associated 
      | Association_failed 
      | Disassociating 
      | Disassociated 
      | Disassociation_failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associating -> "associating"
      | Associated -> "associated"
      | Association_failed -> "association-failed"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Disassociation_failed -> "disassociation-failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "associating" -> Associating
      | "associated" -> Associated
      | "association-failed" -> Association_failed
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | "disassociation-failed" -> Disassociation_failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration SecondarySubnetCidrBlockAssociationState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SecondarySubnetCidrBlockAssociationState" j)
    let to_json = simple_to_json to_value
  end
module SecondaryNetworkCidrAssociationId =
  struct
    type nonrec t = string
    let context_ = "SecondaryNetworkCidrAssociationId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"SecondaryNetworkCidrAssociationId" j
    let to_json = simple_to_json to_value
  end
module SecondaryNetworkCidrBlockAssociationState =
  struct
    type nonrec t =
      | Associating 
      | Associated 
      | Association_failed 
      | Disassociating 
      | Disassociated 
      | Disassociation_failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associating -> "associating"
      | Associated -> "associated"
      | Association_failed -> "association-failed"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Disassociation_failed -> "disassociation-failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "associating" -> Associating
      | "associated" -> Associated
      | "association-failed" -> Association_failed
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | "disassociation-failed" -> Disassociation_failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration SecondaryNetworkCidrBlockAssociationState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SecondaryNetworkCidrBlockAssociationState" j)
    let to_json = simple_to_json to_value
  end
module CarrierGatewayId =
  struct
    type nonrec t = string
    let context_ = "CarrierGatewayId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CarrierGatewayId" j
    let to_json = simple_to_json to_value
  end
module CoreNetworkArn =
  struct
    type nonrec t = string
    let context_ = "CoreNetworkArn"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CoreNetworkArn" j
    let to_json = simple_to_json to_value
  end
module OdbNetworkArn =
  struct
    type nonrec t = string
    let context_ = "OdbNetworkArn"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OdbNetworkArn" j
    let to_json = simple_to_json to_value
  end
module RouteOrigin =
  struct
    type nonrec t =
      | CreateRouteTable 
      | CreateRoute 
      | EnableVgwRoutePropagation 
      | Advertisement 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CreateRouteTable -> "CreateRouteTable"
      | CreateRoute -> "CreateRoute"
      | EnableVgwRoutePropagation -> "EnableVgwRoutePropagation"
      | Advertisement -> "Advertisement"
      | Non_static_id s -> s
    let of_string =
      function
      | "CreateRouteTable" -> CreateRouteTable
      | "CreateRoute" -> CreateRoute
      | "EnableVgwRoutePropagation" -> EnableVgwRoutePropagation
      | "Advertisement" -> Advertisement
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RouteOrigin" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteOrigin" j)
    let to_json = simple_to_json to_value
  end
module RouteState =
  struct
    type nonrec t =
      | Active 
      | Blackhole 
      | Filtered 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "active"
      | Blackhole -> "blackhole"
      | Filtered -> "filtered"
      | Non_static_id s -> s
    let of_string =
      function
      | "active" -> Active
      | "blackhole" -> Blackhole
      | "filtered" -> Filtered
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RouteState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RouteState" j)
    let to_json = simple_to_json to_value
  end
module RouteTableAssociationState =
  struct
    type nonrec t =
      {
      state: RouteTableAssociationStateCode.t option
        [@ocaml.doc "The state of the association."];
      statusMessage: String_.t option
        [@ocaml.doc "The status message, if applicable."]}
    let make ?state =
      fun ?statusMessage -> fun () -> { state; statusMessage }
    let to_value x =
      structure_to_value
        [("state",
           (Option.map x.state ~f:RouteTableAssociationStateCode.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let state =
        (Option.map ~f:RouteTableAssociationStateCode.of_xml)
          (Xml.child xml_arg0 "state") in
      make ?statusMessage ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let state =
        field_map json__ "State" RouteTableAssociationStateCode.of_json in
      make ?statusMessage ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the state of an association between a route table and a subnet or gateway."]
module RecurringChargeFrequency =
  struct
    type nonrec t =
      | Hourly 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Hourly -> "Hourly" | Non_static_id s -> s
    let of_string = function | "Hourly" -> Hourly | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration RecurringChargeFrequency" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RecurringChargeFrequency" j)
    let to_json = simple_to_json to_value
  end
module ReservedInstancesConfiguration =
  struct
    type nonrec t =
      {
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone for the modified Reserved Instances."];
      instanceCount: Integer.t option
        [@ocaml.doc
          "The number of modified Reserved Instances. This is a required field for a request."];
      instanceType: InstanceType.t option
        [@ocaml.doc "The instance type for the modified Reserved Instances."];
      platform: String_.t option
        [@ocaml.doc
          "The network platform of the modified Reserved Instances."];
      scope: Scope.t option
        [@ocaml.doc
          "Whether the Reserved Instance is applied to instances in a Region or instances in a specific Availability Zone."];
      availabilityZoneId: String_.t option
        [@ocaml.doc "The ID of the Availability Zone."]}
    let make ?availabilityZone =
      fun ?instanceCount ->
        fun ?instanceType ->
          fun ?platform ->
            fun ?scope ->
              fun ?availabilityZoneId ->
                fun () ->
                  {
                    availabilityZone;
                    instanceCount;
                    instanceType;
                    platform;
                    scope;
                    availabilityZoneId
                  }
    let to_value x =
      structure_to_value
        [("availabilityZone",
           (Option.map x.availabilityZone ~f:String_.to_value));
        ("instanceCount", (Option.map x.instanceCount ~f:Integer.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("platform", (Option.map x.platform ~f:String_.to_value));
        ("scope", (Option.map x.scope ~f:Scope.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let scope = (Option.map ~f:Scope.of_xml) (Xml.child xml_arg0 "scope") in
      let platform =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "platform") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let instanceCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "instanceCount") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      make ?availabilityZoneId ?scope ?platform ?instanceType ?instanceCount
        ?availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let scope = field_map json__ "Scope" Scope.of_json in
      let platform = field_map json__ "Platform" String_.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      let instanceCount = field_map json__ "InstanceCount" Integer.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      make ?availabilityZoneId ?scope ?platform ?instanceType ?instanceCount
        ?availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the configuration settings for the modified Reserved Instances."]
module ListingState =
  struct
    type nonrec t =
      | Available 
      | Sold 
      | Cancelled 
      | Pending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Available -> "available"
      | Sold -> "sold"
      | Cancelled -> "cancelled"
      | Pending -> "pending"
      | Non_static_id s -> s
    let of_string =
      function
      | "available" -> Available
      | "sold" -> Sold
      | "cancelled" -> Cancelled
      | "pending" -> Pending
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ListingState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ListingState" j)
    let to_json = simple_to_json to_value
  end
module CurrencyCodeValues =
  struct
    type nonrec t =
      | USD 
      | Non_static_id of string 
    let make i = i
    let to_string = function | USD -> "USD" | Non_static_id s -> s
    let of_string = function | "USD" -> USD | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CurrencyCodeValues" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CurrencyCodeValues" j)
    let to_json = simple_to_json to_value
  end
module AttachmentEnaSrdUdpSpecification =
  struct
    type nonrec t =
      {
      enaSrdUdpEnabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether UDP traffic to and from the instance uses ENA Express. To specify this setting, you must first enable ENA Express."]}
    let make ?enaSrdUdpEnabled = fun () -> { enaSrdUdpEnabled }
    let to_value x =
      structure_to_value
        [("enaSrdUdpEnabled",
           (Option.map x.enaSrdUdpEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaSrdUdpEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "enaSrdUdpEnabled") in
      make ?enaSrdUdpEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaSrdUdpEnabled =
        field_map json__ "EnaSrdUdpEnabled" Boolean.of_json in
      make ?enaSrdUdpEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "ENA Express is compatible with both TCP and UDP transport protocols. When it's enabled, TCP traffic automatically uses it. However, some UDP-based applications are designed to handle network packets that are out of order, without a need for retransmission, such as live video broadcasting or other near-real-time applications. For UDP traffic, you can specify whether to use ENA Express, based on your application environment needs."]
module NetworkInterfaceAssociation =
  struct
    type nonrec t =
      {
      allocationId: String_.t option [@ocaml.doc "The allocation ID."];
      associationId: String_.t option [@ocaml.doc "The association ID."];
      ipOwnerId: String_.t option
        [@ocaml.doc "The ID of the Elastic IP address owner."];
      publicDnsName: String_.t option [@ocaml.doc "The public DNS name."];
      publicIp: String_.t option
        [@ocaml.doc
          "The address of the Elastic IP address bound to the network interface."];
      customerOwnedIp: String_.t option
        [@ocaml.doc
          "The customer-owned IP address associated with the network interface."];
      carrierIp: String_.t option
        [@ocaml.doc
          "The carrier IP address associated with the network interface. This option is only available when the network interface is in a subnet which is associated with a Wavelength Zone."]}
    let make ?allocationId =
      fun ?associationId ->
        fun ?ipOwnerId ->
          fun ?publicDnsName ->
            fun ?publicIp ->
              fun ?customerOwnedIp ->
                fun ?carrierIp ->
                  fun () ->
                    {
                      allocationId;
                      associationId;
                      ipOwnerId;
                      publicDnsName;
                      publicIp;
                      customerOwnedIp;
                      carrierIp
                    }
    let to_value x =
      structure_to_value
        [("allocationId", (Option.map x.allocationId ~f:String_.to_value));
        ("associationId", (Option.map x.associationId ~f:String_.to_value));
        ("ipOwnerId", (Option.map x.ipOwnerId ~f:String_.to_value));
        ("publicDnsName", (Option.map x.publicDnsName ~f:String_.to_value));
        ("publicIp", (Option.map x.publicIp ~f:String_.to_value));
        ("customerOwnedIp",
          (Option.map x.customerOwnedIp ~f:String_.to_value));
        ("carrierIp", (Option.map x.carrierIp ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let carrierIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "carrierIp") in
      let customerOwnedIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "customerOwnedIp") in
      let publicIp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "publicIp") in
      let publicDnsName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "publicDnsName") in
      let ipOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipOwnerId") in
      let associationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "associationId") in
      let allocationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "allocationId") in
      make ?carrierIp ?customerOwnedIp ?publicIp ?publicDnsName ?ipOwnerId
        ?associationId ?allocationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let carrierIp = field_map json__ "CarrierIp" String_.of_json in
      let customerOwnedIp =
        field_map json__ "CustomerOwnedIp" String_.of_json in
      let publicIp = field_map json__ "PublicIp" String_.of_json in
      let publicDnsName = field_map json__ "PublicDnsName" String_.of_json in
      let ipOwnerId = field_map json__ "IpOwnerId" String_.of_json in
      let associationId = field_map json__ "AssociationId" String_.of_json in
      let allocationId = field_map json__ "AllocationId" String_.of_json in
      make ?carrierIp ?customerOwnedIp ?publicIp ?publicDnsName ?ipOwnerId
        ?associationId ?allocationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes association information for an Elastic IP address (IPv4 only), or a Carrier IP address (for a network interface which resides in a subnet in a Wavelength Zone)."]
module IcmpTypeCode =
  struct
    type nonrec t =
      {
      code: Integer.t option
        [@ocaml.doc
          "The ICMP code. A value of -1 means all codes for the specified ICMP type."];
      type_: Integer.t option
        [@ocaml.doc "The ICMP type. A value of -1 means all types."]}
    let make ?code = fun ?type_ -> fun () -> { code; type_ }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:Integer.to_value));
        ("type", (Option.map x.type_ ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "type") in
      let code = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "code") in
      make ?type_ ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Integer.of_json in
      let code = field_map json__ "Code" Integer.of_json in
      make ?type_ ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the ICMP type and code."]
module RuleAction =
  struct
    type nonrec t =
      | Allow 
      | Deny 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Allow -> "allow" | Deny -> "deny" | Non_static_id s -> s
    let of_string =
      function | "allow" -> Allow | "deny" -> Deny | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RuleAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleAction" j)
    let to_json = simple_to_json to_value
  end
module NatGatewayAddressStatus =
  struct
    type nonrec t =
      | Assigning 
      | Unassigning 
      | Associating 
      | Disassociating 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Assigning -> "assigning"
      | Unassigning -> "unassigning"
      | Associating -> "associating"
      | Disassociating -> "disassociating"
      | Succeeded -> "succeeded"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "assigning" -> Assigning
      | "unassigning" -> Unassigning
      | "associating" -> Associating
      | "disassociating" -> Disassociating
      | "succeeded" -> Succeeded
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NatGatewayAddressStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NatGatewayAddressStatus" j)
    let to_json = simple_to_json to_value
  end
module NatGatewayApplianceModifyState =
  struct
    type nonrec t =
      | Modifying 
      | Completed 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Modifying -> "modifying"
      | Completed -> "completed"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "modifying" -> Modifying
      | "completed" -> Completed
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NatGatewayApplianceModifyState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NatGatewayApplianceModifyState" j)
    let to_json = simple_to_json to_value
  end
module NatGatewayApplianceState =
  struct
    type nonrec t =
      | Attaching 
      | Attached 
      | Detaching 
      | Detached 
      | Attach_failed 
      | Detach_failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Attaching -> "attaching"
      | Attached -> "attached"
      | Detaching -> "detaching"
      | Detached -> "detached"
      | Attach_failed -> "attach-failed"
      | Detach_failed -> "detach-failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "attaching" -> Attaching
      | "attached" -> Attached
      | "detaching" -> Detaching
      | "detached" -> Detached
      | "attach-failed" -> Attach_failed
      | "detach-failed" -> Detach_failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NatGatewayApplianceState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NatGatewayApplianceState" j)
    let to_json = simple_to_json to_value
  end
module NatGatewayApplianceType =
  struct
    type nonrec t =
      | Network_firewall_proxy 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Network_firewall_proxy -> "network-firewall-proxy"
      | Non_static_id s -> s
    let of_string =
      function
      | "network-firewall-proxy" -> Network_firewall_proxy
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NatGatewayApplianceType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NatGatewayApplianceType" j)
    let to_json = simple_to_json to_value
  end
module ElasticGpuSpecificationResponse =
  struct
    type nonrec t =
      {
      type_: String_.t option
        [@ocaml.doc
          "Deprecated. Amazon Elastic Graphics reached end of life on January 8, 2024."]}
    let make ?type_ = fun () -> { type_ }
    let to_value x =
      structure_to_value [("type", (Option.map x.type_ ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" String_.of_json in make ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deprecated. Amazon Elastic Graphics reached end of life on January 8, 2024."]
module LaunchTemplateBlockDeviceMapping =
  struct
    type nonrec t =
      {
      deviceName: String_.t option [@ocaml.doc "The device name."];
      virtualName: String_.t option
        [@ocaml.doc "The virtual device name (ephemeralN)."];
      ebs: LaunchTemplateEbsBlockDevice.t option
        [@ocaml.doc "Information about the block device for an EBS volume."];
      noDevice: String_.t option
        [@ocaml.doc
          "To omit the device from the block device mapping, specify an empty string."]}
    let make ?deviceName =
      fun ?virtualName ->
        fun ?ebs ->
          fun ?noDevice ->
            fun () -> { deviceName; virtualName; ebs; noDevice }
    let to_value x =
      structure_to_value
        [("deviceName", (Option.map x.deviceName ~f:String_.to_value));
        ("virtualName", (Option.map x.virtualName ~f:String_.to_value));
        ("ebs", (Option.map x.ebs ~f:LaunchTemplateEbsBlockDevice.to_value));
        ("noDevice", (Option.map x.noDevice ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let noDevice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "noDevice") in
      let ebs =
        (Option.map ~f:LaunchTemplateEbsBlockDevice.of_xml)
          (Xml.child xml_arg0 "ebs") in
      let virtualName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "virtualName") in
      let deviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "deviceName") in
      make ?noDevice ?ebs ?virtualName ?deviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let noDevice = field_map json__ "NoDevice" String_.of_json in
      let ebs = field_map json__ "Ebs" LaunchTemplateEbsBlockDevice.of_json in
      let virtualName = field_map json__ "VirtualName" String_.of_json in
      let deviceName = field_map json__ "DeviceName" String_.of_json in
      make ?noDevice ?ebs ?virtualName ?deviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a block device mapping."]
module LaunchTemplateElasticInferenceAcceleratorResponse =
  struct
    type nonrec t =
      {
      type_: String_.t option
        [@ocaml.doc
          "The type of elastic inference accelerator. The possible values are eia1.medium, eia1.large, and eia1.xlarge."];
      count: Integer.t option
        [@ocaml.doc
          "The number of elastic inference accelerators to attach to the instance."]}
    let make ?type_ = fun ?count -> fun () -> { type_; count }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:String_.to_value));
        ("count", (Option.map x.count ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "count") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      make ?count ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "Count" Integer.of_json in
      let type_ = field_map json__ "Type" String_.of_json in
      make ?count ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Elastic Inference is no longer available. Describes an elastic inference accelerator."]
module LaunchTemplateAutoRecoveryState =
  struct
    type nonrec t =
      | Default 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration LaunchTemplateAutoRecoveryState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LaunchTemplateAutoRecoveryState" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateSpotMarketOptions =
  struct
    type nonrec t =
      {
      maxPrice: String_.t option
        [@ocaml.doc
          "The maximum hourly price you're willing to pay for a Spot Instance. We do not recommend using this parameter because it can lead to increased interruptions. If you do not specify this parameter, you will pay the current Spot price. If you do specify this parameter, it must be more than USD $0.001. Specifying a value below USD $0.001 will result in an InvalidParameterValue error message when the launch template is used to launch an instance."];
      spotInstanceType: SpotInstanceType.t option
        [@ocaml.doc "The Spot Instance request type."];
      blockDurationMinutes: Integer.t option
        [@ocaml.doc
          "The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360)."];
      validUntil: DateTime.t option
        [@ocaml.doc
          "The end date of the request. For a one-time request, the request remains active until all instances launch, the request is canceled, or this date is reached. If the request is persistent, it remains active until it is canceled or this date and time is reached."];
      instanceInterruptionBehavior: InstanceInterruptionBehavior.t option
        [@ocaml.doc "The behavior when a Spot Instance is interrupted."]}
    let make ?maxPrice =
      fun ?spotInstanceType ->
        fun ?blockDurationMinutes ->
          fun ?validUntil ->
            fun ?instanceInterruptionBehavior ->
              fun () ->
                {
                  maxPrice;
                  spotInstanceType;
                  blockDurationMinutes;
                  validUntil;
                  instanceInterruptionBehavior
                }
    let to_value x =
      structure_to_value
        [("maxPrice", (Option.map x.maxPrice ~f:String_.to_value));
        ("spotInstanceType",
          (Option.map x.spotInstanceType ~f:SpotInstanceType.to_value));
        ("blockDurationMinutes",
          (Option.map x.blockDurationMinutes ~f:Integer.to_value));
        ("validUntil", (Option.map x.validUntil ~f:DateTime.to_value));
        ("instanceInterruptionBehavior",
          (Option.map x.instanceInterruptionBehavior
             ~f:InstanceInterruptionBehavior.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceInterruptionBehavior =
        (Option.map ~f:InstanceInterruptionBehavior.of_xml)
          (Xml.child xml_arg0 "instanceInterruptionBehavior") in
      let validUntil =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "validUntil") in
      let blockDurationMinutes =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "blockDurationMinutes") in
      let spotInstanceType =
        (Option.map ~f:SpotInstanceType.of_xml)
          (Xml.child xml_arg0 "spotInstanceType") in
      let maxPrice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "maxPrice") in
      make ?instanceInterruptionBehavior ?validUntil ?blockDurationMinutes
        ?spotInstanceType ?maxPrice ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceInterruptionBehavior =
        field_map json__ "InstanceInterruptionBehavior"
          InstanceInterruptionBehavior.of_json in
      let validUntil = field_map json__ "ValidUntil" DateTime.of_json in
      let blockDurationMinutes =
        field_map json__ "BlockDurationMinutes" Integer.of_json in
      let spotInstanceType =
        field_map json__ "SpotInstanceType" SpotInstanceType.of_json in
      let maxPrice = field_map json__ "MaxPrice" String_.of_json in
      make ?instanceInterruptionBehavior ?validUntil ?blockDurationMinutes
        ?spotInstanceType ?maxPrice ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The options for Spot Instances."]
module MarketType =
  struct
    type nonrec t =
      | Spot 
      | Capacity_block 
      | Interruptible_capacity_reservation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Spot -> "spot"
      | Capacity_block -> "capacity-block"
      | Interruptible_capacity_reservation ->
          "interruptible-capacity-reservation"
      | Non_static_id s -> s
    let of_string =
      function
      | "spot" -> Spot
      | "capacity-block" -> Capacity_block
      | "interruptible-capacity-reservation" ->
          Interruptible_capacity_reservation
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration MarketType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MarketType" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateHttpTokensState =
  struct
    type nonrec t =
      | Optional 
      | Required 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Optional -> "optional"
      | Required -> "required"
      | Non_static_id s -> s
    let of_string =
      function
      | "optional" -> Optional
      | "required" -> Required
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration LaunchTemplateHttpTokensState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LaunchTemplateHttpTokensState" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateInstanceMetadataEndpointState =
  struct
    type nonrec t =
      | Disabled 
      | Enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Enabled -> "enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "enabled" -> Enabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration LaunchTemplateInstanceMetadataEndpointState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"LaunchTemplateInstanceMetadataEndpointState" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateInstanceMetadataOptionsState =
  struct
    type nonrec t =
      | Pending 
      | Applied 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Applied -> "applied"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "applied" -> Applied
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration LaunchTemplateInstanceMetadataOptionsState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"LaunchTemplateInstanceMetadataOptionsState" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateInstanceMetadataProtocolIpv6 =
  struct
    type nonrec t =
      | Disabled 
      | Enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Enabled -> "enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "enabled" -> Enabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration LaunchTemplateInstanceMetadataProtocolIpv6"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"LaunchTemplateInstanceMetadataProtocolIpv6" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateInstanceMetadataTagsState =
  struct
    type nonrec t =
      | Disabled 
      | Enabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "disabled"
      | Enabled -> "enabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "disabled" -> Disabled
      | "enabled" -> Enabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration LaunchTemplateInstanceMetadataTagsState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"LaunchTemplateInstanceMetadataTagsState" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateInstanceNetworkInterfaceSpecification =
  struct
    type nonrec t =
      {
      associateCarrierIpAddress: Boolean.t option
        [@ocaml.doc
          "Indicates whether to associate a Carrier IP address with eth0 for a new network interface. Use this option when you launch an instance in a Wavelength Zone and want to associate a Carrier IP address with the network interface. For more information about Carrier IP addresses, see Carrier IP address in the Wavelength Developer Guide."];
      associatePublicIpAddress: Boolean.t option
        [@ocaml.doc
          "Indicates whether to associate a public IPv4 address with eth0 for a new network interface. Amazon Web Services charges for all public IPv4 addresses, including public IPv4 addresses associated with running instances and Elastic IP addresses. For more information, see the Public IPv4 Address tab on the Amazon VPC pricing page."];
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the network interface is deleted when the instance is terminated."];
      description: String_.t option
        [@ocaml.doc "A description for the network interface."];
      deviceIndex: Integer.t option
        [@ocaml.doc "The device index for the network interface attachment."];
      groups: GroupIdStringList.t option
        [@ocaml.doc "The IDs of one or more security groups."];
      interfaceType: String_.t option
        [@ocaml.doc "The type of network interface."];
      ipv6AddressCount: Integer.t option
        [@ocaml.doc
          "The number of IPv6 addresses for the network interface."];
      ipv6Addresses: InstanceIpv6AddressList.t option
        [@ocaml.doc "The IPv6 addresses for the network interface."];
      networkInterfaceId: NetworkInterfaceId.t option
        [@ocaml.doc "The ID of the network interface."];
      privateIpAddress: String_.t option
        [@ocaml.doc
          "The primary private IPv4 address of the network interface."];
      privateIpAddresses: PrivateIpAddressSpecificationList.t option
        [@ocaml.doc "One or more private IPv4 addresses."];
      secondaryPrivateIpAddressCount: Integer.t option
        [@ocaml.doc
          "The number of secondary private IPv4 addresses for the network interface."];
      subnetId: SubnetId.t option
        [@ocaml.doc "The ID of the subnet for the network interface."];
      networkCardIndex: Integer.t option
        [@ocaml.doc "The index of the network card."];
      ipv4Prefixes: Ipv4PrefixListResponse.t option
        [@ocaml.doc
          "One or more IPv4 prefixes assigned to the network interface."];
      ipv4PrefixCount: Integer.t option
        [@ocaml.doc
          "The number of IPv4 prefixes that Amazon Web Services automatically assigned to the network interface."];
      ipv6Prefixes: Ipv6PrefixListResponse.t option
        [@ocaml.doc
          "One or more IPv6 prefixes assigned to the network interface."];
      ipv6PrefixCount: Integer.t option
        [@ocaml.doc
          "The number of IPv6 prefixes that Amazon Web Services automatically assigned to the network interface."];
      primaryIpv6: Boolean.t option
        [@ocaml.doc
          "The primary IPv6 address of the network interface. When you enable an IPv6 GUA address to be a primary IPv6, the first IPv6 GUA will be made the primary IPv6 address until the instance is terminated or the network interface is detached. For more information about primary IPv6 addresses, see RunInstances."];
      enaSrdSpecification: LaunchTemplateEnaSrdSpecification.t option
        [@ocaml.doc
          "Contains the ENA Express settings for instances launched from your launch template."];
      connectionTrackingSpecification:
        ConnectionTrackingSpecification.t option
        [@ocaml.doc
          "A security group connection tracking specification that enables you to set the timeout for connection tracking on an Elastic network interface. For more information, see Idle connection tracking timeout in the Amazon EC2 User Guide."];
      enaQueueCount: Integer.t option
        [@ocaml.doc "The number of ENA queues created with the instance."]}
    let make ?associateCarrierIpAddress =
      fun ?associatePublicIpAddress ->
        fun ?deleteOnTermination ->
          fun ?description ->
            fun ?deviceIndex ->
              fun ?groups ->
                fun ?interfaceType ->
                  fun ?ipv6AddressCount ->
                    fun ?ipv6Addresses ->
                      fun ?networkInterfaceId ->
                        fun ?privateIpAddress ->
                          fun ?privateIpAddresses ->
                            fun ?secondaryPrivateIpAddressCount ->
                              fun ?subnetId ->
                                fun ?networkCardIndex ->
                                  fun ?ipv4Prefixes ->
                                    fun ?ipv4PrefixCount ->
                                      fun ?ipv6Prefixes ->
                                        fun ?ipv6PrefixCount ->
                                          fun ?primaryIpv6 ->
                                            fun ?enaSrdSpecification ->
                                              fun
                                                ?connectionTrackingSpecification
                                                ->
                                                fun ?enaQueueCount ->
                                                  fun () ->
                                                    {
                                                      associateCarrierIpAddress;
                                                      associatePublicIpAddress;
                                                      deleteOnTermination;
                                                      description;
                                                      deviceIndex;
                                                      groups;
                                                      interfaceType;
                                                      ipv6AddressCount;
                                                      ipv6Addresses;
                                                      networkInterfaceId;
                                                      privateIpAddress;
                                                      privateIpAddresses;
                                                      secondaryPrivateIpAddressCount;
                                                      subnetId;
                                                      networkCardIndex;
                                                      ipv4Prefixes;
                                                      ipv4PrefixCount;
                                                      ipv6Prefixes;
                                                      ipv6PrefixCount;
                                                      primaryIpv6;
                                                      enaSrdSpecification;
                                                      connectionTrackingSpecification;
                                                      enaQueueCount
                                                    }
    let to_value x =
      structure_to_value
        [("associateCarrierIpAddress",
           (Option.map x.associateCarrierIpAddress ~f:Boolean.to_value));
        ("associatePublicIpAddress",
          (Option.map x.associatePublicIpAddress ~f:Boolean.to_value));
        ("deleteOnTermination",
          (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("deviceIndex", (Option.map x.deviceIndex ~f:Integer.to_value));
        ("groupSet", (Option.map x.groups ~f:GroupIdStringList.to_value));
        ("interfaceType", (Option.map x.interfaceType ~f:String_.to_value));
        ("ipv6AddressCount",
          (Option.map x.ipv6AddressCount ~f:Integer.to_value));
        ("ipv6AddressesSet",
          (Option.map x.ipv6Addresses ~f:InstanceIpv6AddressList.to_value));
        ("networkInterfaceId",
          (Option.map x.networkInterfaceId ~f:NetworkInterfaceId.to_value));
        ("privateIpAddress",
          (Option.map x.privateIpAddress ~f:String_.to_value));
        ("privateIpAddressesSet",
          (Option.map x.privateIpAddresses
             ~f:PrivateIpAddressSpecificationList.to_value));
        ("secondaryPrivateIpAddressCount",
          (Option.map x.secondaryPrivateIpAddressCount ~f:Integer.to_value));
        ("subnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("networkCardIndex",
          (Option.map x.networkCardIndex ~f:Integer.to_value));
        ("ipv4PrefixSet",
          (Option.map x.ipv4Prefixes ~f:Ipv4PrefixListResponse.to_value));
        ("ipv4PrefixCount",
          (Option.map x.ipv4PrefixCount ~f:Integer.to_value));
        ("ipv6PrefixSet",
          (Option.map x.ipv6Prefixes ~f:Ipv6PrefixListResponse.to_value));
        ("ipv6PrefixCount",
          (Option.map x.ipv6PrefixCount ~f:Integer.to_value));
        ("primaryIpv6", (Option.map x.primaryIpv6 ~f:Boolean.to_value));
        ("enaSrdSpecification",
          (Option.map x.enaSrdSpecification
             ~f:LaunchTemplateEnaSrdSpecification.to_value));
        ("connectionTrackingSpecification",
          (Option.map x.connectionTrackingSpecification
             ~f:ConnectionTrackingSpecification.to_value));
        ("enaQueueCount", (Option.map x.enaQueueCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enaQueueCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "enaQueueCount") in
      let connectionTrackingSpecification =
        (Option.map ~f:ConnectionTrackingSpecification.of_xml)
          (Xml.child xml_arg0 "connectionTrackingSpecification") in
      let enaSrdSpecification =
        (Option.map ~f:LaunchTemplateEnaSrdSpecification.of_xml)
          (Xml.child xml_arg0 "enaSrdSpecification") in
      let primaryIpv6 =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "primaryIpv6") in
      let ipv6PrefixCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ipv6PrefixCount") in
      let ipv6Prefixes =
        (Option.map ~f:Ipv6PrefixListResponse.of_xml)
          (Xml.child xml_arg0 "ipv6PrefixSet") in
      let ipv4PrefixCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ipv4PrefixCount") in
      let ipv4Prefixes =
        (Option.map ~f:Ipv4PrefixListResponse.of_xml)
          (Xml.child xml_arg0 "ipv4PrefixSet") in
      let networkCardIndex =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "networkCardIndex") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "subnetId") in
      let secondaryPrivateIpAddressCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "secondaryPrivateIpAddressCount") in
      let privateIpAddresses =
        (Option.map ~f:PrivateIpAddressSpecificationList.of_xml)
          (Xml.child xml_arg0 "privateIpAddressesSet") in
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      let networkInterfaceId =
        (Option.map ~f:NetworkInterfaceId.of_xml)
          (Xml.child xml_arg0 "networkInterfaceId") in
      let ipv6Addresses =
        (Option.map ~f:InstanceIpv6AddressList.of_xml)
          (Xml.child xml_arg0 "ipv6AddressesSet") in
      let ipv6AddressCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "ipv6AddressCount") in
      let interfaceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "interfaceType") in
      let groups =
        (Option.map ~f:GroupIdStringList.of_xml)
          (Xml.child xml_arg0 "groupSet") in
      let deviceIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "deviceIndex") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      let associatePublicIpAddress =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "associatePublicIpAddress") in
      let associateCarrierIpAddress =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "associateCarrierIpAddress") in
      make ?enaQueueCount ?connectionTrackingSpecification
        ?enaSrdSpecification ?primaryIpv6 ?ipv6PrefixCount ?ipv6Prefixes
        ?ipv4PrefixCount ?ipv4Prefixes ?networkCardIndex ?subnetId
        ?secondaryPrivateIpAddressCount ?privateIpAddresses ?privateIpAddress
        ?networkInterfaceId ?ipv6Addresses ?ipv6AddressCount ?interfaceType
        ?groups ?deviceIndex ?description ?deleteOnTermination
        ?associatePublicIpAddress ?associateCarrierIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enaQueueCount = field_map json__ "EnaQueueCount" Integer.of_json in
      let connectionTrackingSpecification =
        field_map json__ "ConnectionTrackingSpecification"
          ConnectionTrackingSpecification.of_json in
      let enaSrdSpecification =
        field_map json__ "EnaSrdSpecification"
          LaunchTemplateEnaSrdSpecification.of_json in
      let primaryIpv6 = field_map json__ "PrimaryIpv6" Boolean.of_json in
      let ipv6PrefixCount =
        field_map json__ "Ipv6PrefixCount" Integer.of_json in
      let ipv6Prefixes =
        field_map json__ "Ipv6Prefixes" Ipv6PrefixListResponse.of_json in
      let ipv4PrefixCount =
        field_map json__ "Ipv4PrefixCount" Integer.of_json in
      let ipv4Prefixes =
        field_map json__ "Ipv4Prefixes" Ipv4PrefixListResponse.of_json in
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" Integer.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let secondaryPrivateIpAddressCount =
        field_map json__ "SecondaryPrivateIpAddressCount" Integer.of_json in
      let privateIpAddresses =
        field_map json__ "PrivateIpAddresses"
          PrivateIpAddressSpecificationList.of_json in
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let ipv6Addresses =
        field_map json__ "Ipv6Addresses" InstanceIpv6AddressList.of_json in
      let ipv6AddressCount =
        field_map json__ "Ipv6AddressCount" Integer.of_json in
      let interfaceType = field_map json__ "InterfaceType" String_.of_json in
      let groups = field_map json__ "Groups" GroupIdStringList.of_json in
      let deviceIndex = field_map json__ "DeviceIndex" Integer.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      let associatePublicIpAddress =
        field_map json__ "AssociatePublicIpAddress" Boolean.of_json in
      let associateCarrierIpAddress =
        field_map json__ "AssociateCarrierIpAddress" Boolean.of_json in
      make ?enaQueueCount ?connectionTrackingSpecification
        ?enaSrdSpecification ?primaryIpv6 ?ipv6PrefixCount ?ipv6Prefixes
        ?ipv4PrefixCount ?ipv4Prefixes ?networkCardIndex ?subnetId
        ?secondaryPrivateIpAddressCount ?privateIpAddresses ?privateIpAddress
        ?networkInterfaceId ?ipv6Addresses ?ipv6AddressCount ?interfaceType
        ?groups ?deviceIndex ?description ?deleteOnTermination
        ?associatePublicIpAddress ?associateCarrierIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a network interface."]
module LaunchTemplateInstanceSecondaryInterfaceSpecification =
  struct
    type nonrec t =
      {
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the secondary interface is deleted when the instance is terminated. The only supported value for this field is true."];
      deviceIndex: Integer.t option
        [@ocaml.doc
          "The device index for the secondary interface attachment."];
      privateIpAddresses:
        SecondaryInterfacePrivateIpAddressSpecificationList.t option
        [@ocaml.doc
          "The private IPv4 addresses to assign to the secondary interface. If you specify privateIpAddresses you cannot specify privateIpAddressCount"];
      privateIpAddressCount: Integer.t option
        [@ocaml.doc
          "The number of private IPv4 addresses to assign to the secondary interface. If you specify privateIpAddressCount you cannot specify privateIpAddresses"];
      secondarySubnetId: SecondarySubnetId.t option
        [@ocaml.doc "The ID of the secondary subnet."];
      interfaceType: SecondaryInterfaceType.t option
        [@ocaml.doc "The type of secondary interface."];
      networkCardIndex: Integer.t option
        [@ocaml.doc "The index of the network card."]}
    let make ?deleteOnTermination =
      fun ?deviceIndex ->
        fun ?privateIpAddresses ->
          fun ?privateIpAddressCount ->
            fun ?secondarySubnetId ->
              fun ?interfaceType ->
                fun ?networkCardIndex ->
                  fun () ->
                    {
                      deleteOnTermination;
                      deviceIndex;
                      privateIpAddresses;
                      privateIpAddressCount;
                      secondarySubnetId;
                      interfaceType;
                      networkCardIndex
                    }
    let to_value x =
      structure_to_value
        [("deleteOnTermination",
           (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("deviceIndex", (Option.map x.deviceIndex ~f:Integer.to_value));
        ("privateIpAddressesSet",
          (Option.map x.privateIpAddresses
             ~f:SecondaryInterfacePrivateIpAddressSpecificationList.to_value));
        ("privateIpAddressCount",
          (Option.map x.privateIpAddressCount ~f:Integer.to_value));
        ("secondarySubnetId",
          (Option.map x.secondarySubnetId ~f:SecondarySubnetId.to_value));
        ("interfaceType",
          (Option.map x.interfaceType ~f:SecondaryInterfaceType.to_value));
        ("networkCardIndex",
          (Option.map x.networkCardIndex ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkCardIndex =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "networkCardIndex") in
      let interfaceType =
        (Option.map ~f:SecondaryInterfaceType.of_xml)
          (Xml.child xml_arg0 "interfaceType") in
      let secondarySubnetId =
        (Option.map ~f:SecondarySubnetId.of_xml)
          (Xml.child xml_arg0 "secondarySubnetId") in
      let privateIpAddressCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "privateIpAddressCount") in
      let privateIpAddresses =
        (Option.map
           ~f:SecondaryInterfacePrivateIpAddressSpecificationList.of_xml)
          (Xml.child xml_arg0 "privateIpAddressesSet") in
      let deviceIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "deviceIndex") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      make ?networkCardIndex ?interfaceType ?secondarySubnetId
        ?privateIpAddressCount ?privateIpAddresses ?deviceIndex
        ?deleteOnTermination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" Integer.of_json in
      let interfaceType =
        field_map json__ "InterfaceType" SecondaryInterfaceType.of_json in
      let secondarySubnetId =
        field_map json__ "SecondarySubnetId" SecondarySubnetId.of_json in
      let privateIpAddressCount =
        field_map json__ "PrivateIpAddressCount" Integer.of_json in
      let privateIpAddresses =
        field_map json__ "PrivateIpAddresses"
          SecondaryInterfacePrivateIpAddressSpecificationList.of_json in
      let deviceIndex = field_map json__ "DeviceIndex" Integer.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      make ?networkCardIndex ?interfaceType ?secondarySubnetId
        ?privateIpAddressCount ?privateIpAddresses ?deviceIndex
        ?deleteOnTermination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a secondary interface specification in a launch template."]
module LaunchTemplateLicenseConfiguration =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the license configuration."]}
    let make ?licenseConfigurationArn = fun () -> { licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("licenseConfigurationArn",
           (Option.map x.licenseConfigurationArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConfigurationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "licenseConfigurationArn") in
      make ?licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConfigurationArn =
        field_map json__ "LicenseConfigurationArn" String_.of_json in
      make ?licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a license configuration."]
module LaunchTemplateTagSpecification =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource to tag."];
      tags: TagList.t option [@ocaml.doc "The tags for the resource."]}
    let make ?resourceType = fun ?tags -> fun () -> { resourceType; tags }
    let to_value x =
      structure_to_value
        [("resourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("tagSet", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tagSet") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      make ?tags ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?tags ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tags specification for the launch template."]
module ArchitectureValues =
  struct
    type nonrec t =
      | I386 
      | X86_64 
      | Arm64 
      | X86_64_mac 
      | Arm64_mac 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | I386 -> "i386"
      | X86_64 -> "x86_64"
      | Arm64 -> "arm64"
      | X86_64_mac -> "x86_64_mac"
      | Arm64_mac -> "arm64_mac"
      | Non_static_id s -> s
    let of_string =
      function
      | "i386" -> I386
      | "x86_64" -> X86_64
      | "arm64" -> Arm64
      | "x86_64_mac" -> X86_64_mac
      | "arm64_mac" -> Arm64_mac
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ArchitectureValues" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ArchitectureValues" j)
    let to_json = simple_to_json to_value
  end
module BootModeValues =
  struct
    type nonrec t =
      | Legacy_bios 
      | Uefi 
      | Uefi_preferred 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Legacy_bios -> "legacy-bios"
      | Uefi -> "uefi"
      | Uefi_preferred -> "uefi-preferred"
      | Non_static_id s -> s
    let of_string =
      function
      | "legacy-bios" -> Legacy_bios
      | "uefi" -> Uefi
      | "uefi-preferred" -> Uefi_preferred
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration BootModeValues" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BootModeValues" j)
    let to_json = simple_to_json to_value
  end
module CapacityReservationSpecificationResponse =
  struct
    type nonrec t =
      {
      capacityReservationPreference: CapacityReservationPreference.t option
        [@ocaml.doc
          "Describes the instance's Capacity Reservation preferences. Possible preferences include: open - The instance can run in any open Capacity Reservation that has matching attributes (instance type, platform, Availability Zone). none - The instance avoids running in a Capacity Reservation even if one is available. The instance runs in On-Demand capacity."];
      capacityReservationTarget: CapacityReservationTargetResponse.t option
        [@ocaml.doc
          "Information about the targeted Capacity Reservation or Capacity Reservation group."]}
    let make ?capacityReservationPreference =
      fun ?capacityReservationTarget ->
        fun () ->
          { capacityReservationPreference; capacityReservationTarget }
    let to_value x =
      structure_to_value
        [("capacityReservationPreference",
           (Option.map x.capacityReservationPreference
              ~f:CapacityReservationPreference.to_value));
        ("capacityReservationTarget",
          (Option.map x.capacityReservationTarget
             ~f:CapacityReservationTargetResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityReservationTarget =
        (Option.map ~f:CapacityReservationTargetResponse.of_xml)
          (Xml.child xml_arg0 "capacityReservationTarget") in
      let capacityReservationPreference =
        (Option.map ~f:CapacityReservationPreference.of_xml)
          (Xml.child xml_arg0 "capacityReservationPreference") in
      make ?capacityReservationTarget ?capacityReservationPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityReservationTarget =
        field_map json__ "CapacityReservationTarget"
          CapacityReservationTargetResponse.of_json in
      let capacityReservationPreference =
        field_map json__ "CapacityReservationPreference"
          CapacityReservationPreference.of_json in
      make ?capacityReservationTarget ?capacityReservationPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the instance's Capacity Reservation targeting preferences. The action returns the capacityReservationPreference response element if the instance is configured to run in On-Demand capacity, or if it is configured in run in any open Capacity Reservation that has matching attributes (instance type, platform, Availability Zone). The action returns the capacityReservationTarget response element if the instance explicily targets a specific Capacity Reservation or Capacity Reservation group."]
module CpuOptions =
  struct
    type nonrec t =
      {
      coreCount: Integer.t option
        [@ocaml.doc "The number of CPU cores for the instance."];
      threadsPerCore: Integer.t option
        [@ocaml.doc "The number of threads per CPU core."];
      amdSevSnp: AmdSevSnpSpecification.t option
        [@ocaml.doc
          "Indicates whether the instance is enabled for AMD SEV-SNP. For more information, see AMD SEV-SNP."];
      nestedVirtualization: NestedVirtualizationSpecification.t option
        [@ocaml.doc
          "Indicates whether the instance is enabled for nested virtualization."]}
    let make ?coreCount =
      fun ?threadsPerCore ->
        fun ?amdSevSnp ->
          fun ?nestedVirtualization ->
            fun () ->
              { coreCount; threadsPerCore; amdSevSnp; nestedVirtualization }
    let to_value x =
      structure_to_value
        [("coreCount", (Option.map x.coreCount ~f:Integer.to_value));
        ("threadsPerCore", (Option.map x.threadsPerCore ~f:Integer.to_value));
        ("amdSevSnp",
          (Option.map x.amdSevSnp ~f:AmdSevSnpSpecification.to_value));
        ("nestedVirtualization",
          (Option.map x.nestedVirtualization
             ~f:NestedVirtualizationSpecification.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nestedVirtualization =
        (Option.map ~f:NestedVirtualizationSpecification.of_xml)
          (Xml.child xml_arg0 "nestedVirtualization") in
      let amdSevSnp =
        (Option.map ~f:AmdSevSnpSpecification.of_xml)
          (Xml.child xml_arg0 "amdSevSnp") in
      let threadsPerCore =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "threadsPerCore") in
      let coreCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "coreCount") in
      make ?nestedVirtualization ?amdSevSnp ?threadsPerCore ?coreCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nestedVirtualization =
        field_map json__ "NestedVirtualization"
          NestedVirtualizationSpecification.of_json in
      let amdSevSnp =
        field_map json__ "AmdSevSnp" AmdSevSnpSpecification.of_json in
      let threadsPerCore = field_map json__ "ThreadsPerCore" Integer.of_json in
      let coreCount = field_map json__ "CoreCount" Integer.of_json in
      make ?nestedVirtualization ?amdSevSnp ?threadsPerCore ?coreCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The CPU options for the instance."]
module DeviceType =
  struct
    type nonrec t =
      | Ebs 
      | Instance_store 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ebs -> "ebs"
      | Instance_store -> "instance-store"
      | Non_static_id s -> s
    let of_string =
      function
      | "ebs" -> Ebs
      | "instance-store" -> Instance_store
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DeviceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeviceType" j)
    let to_json = simple_to_json to_value
  end
module ElasticGpuAssociationList =
  struct
    type nonrec t = ElasticGpuAssociation.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ElasticGpuAssociation.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ElasticGpuAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ElasticGpuAssociationList"
        ~of_json:ElasticGpuAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ElasticInferenceAcceleratorAssociationList =
  struct
    type nonrec t = ElasticInferenceAcceleratorAssociation.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ElasticInferenceAcceleratorAssociation.to_value))
        |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:ElasticInferenceAcceleratorAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"ElasticInferenceAcceleratorAssociationList"
        ~of_json:ElasticInferenceAcceleratorAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module EnclaveOptions =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc
          "If this parameter is set to true, the instance is enabled for Amazon Web Services Nitro Enclaves; otherwise, it is not enabled for Amazon Web Services Nitro Enclaves."]}
    let make ?enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates whether the instance is enabled for Amazon Web Services Nitro Enclaves."]
module HibernationOptions =
  struct
    type nonrec t =
      {
      configured: Boolean.t option
        [@ocaml.doc
          "If true, your instance is enabled for hibernation; otherwise, it is not enabled for hibernation."]}
    let make ?configured = fun () -> { configured }
    let to_value x =
      structure_to_value
        [("configured", (Option.map x.configured ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configured =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "configured") in
      make ?configured ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configured = field_map json__ "Configured" Boolean.of_json in
      make ?configured ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates whether your instance is configured for hibernation. This parameter is valid only if the instance meets the hibernation prerequisites. For more information, see Hibernate your Amazon EC2 instance in the Amazon EC2 User Guide."]
module HypervisorType =
  struct
    type nonrec t =
      | Ovm 
      | Xen 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Ovm -> "ovm" | Xen -> "xen" | Non_static_id s -> s
    let of_string =
      function | "ovm" -> Ovm | "xen" -> Xen | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration HypervisorType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HypervisorType" j)
    let to_json = simple_to_json to_value
  end
module IamInstanceProfile =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the instance profile."];
      id: String_.t option [@ocaml.doc "The ID of the instance profile."]}
    let make ?arn = fun ?id -> fun () -> { arn; id }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:String_.to_value));
        ("id", (Option.map x.id ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      make ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "Id" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in make ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IAM instance profile."]
module InstanceBlockDeviceMappingList =
  struct
    type nonrec t = InstanceBlockDeviceMapping.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceBlockDeviceMapping.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceBlockDeviceMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceBlockDeviceMappingList"
        ~of_json:InstanceBlockDeviceMapping.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceBootModeValues =
  struct
    type nonrec t =
      | Legacy_bios 
      | Uefi 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Legacy_bios -> "legacy-bios"
      | Uefi -> "uefi"
      | Non_static_id s -> s
    let of_string =
      function
      | "legacy-bios" -> Legacy_bios
      | "uefi" -> Uefi
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceBootModeValues" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceBootModeValues" j)
    let to_json = simple_to_json to_value
  end
module InstanceLifecycleType =
  struct
    type nonrec t =
      | Spot 
      | Scheduled 
      | Capacity_block 
      | Interruptible_capacity_reservation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Spot -> "spot"
      | Scheduled -> "scheduled"
      | Capacity_block -> "capacity-block"
      | Interruptible_capacity_reservation ->
          "interruptible-capacity-reservation"
      | Non_static_id s -> s
    let of_string =
      function
      | "spot" -> Spot
      | "scheduled" -> Scheduled
      | "capacity-block" -> Capacity_block
      | "interruptible-capacity-reservation" ->
          Interruptible_capacity_reservation
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceLifecycleType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InstanceLifecycleType" j)
    let to_json = simple_to_json to_value
  end
module InstanceMaintenanceOptions =
  struct
    type nonrec t =
      {
      autoRecovery: InstanceAutoRecoveryState.t option
        [@ocaml.doc
          "Provides information on the current automatic recovery behavior of your instance."];
      rebootMigration: InstanceRebootMigrationState.t option
        [@ocaml.doc
          "Specifies whether to attempt reboot migration during a user-initiated reboot of an instance that has a scheduled system-reboot event: default - Amazon EC2 attempts to migrate the instance to new hardware (reboot migration). If successful, the system-reboot event is cleared. If unsuccessful, an in-place reboot occurs and the event remains scheduled. disabled - Amazon EC2 keeps the instance on the same hardware (in-place reboot). The system-reboot event remains scheduled. This setting only applies to supported instances that have a scheduled reboot event. For more information, see Enable or disable reboot migration in the Amazon EC2 User Guide."]}
    let make ?autoRecovery =
      fun ?rebootMigration -> fun () -> { autoRecovery; rebootMigration }
    let to_value x =
      structure_to_value
        [("autoRecovery",
           (Option.map x.autoRecovery ~f:InstanceAutoRecoveryState.to_value));
        ("rebootMigration",
          (Option.map x.rebootMigration
             ~f:InstanceRebootMigrationState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rebootMigration =
        (Option.map ~f:InstanceRebootMigrationState.of_xml)
          (Xml.child xml_arg0 "rebootMigration") in
      let autoRecovery =
        (Option.map ~f:InstanceAutoRecoveryState.of_xml)
          (Xml.child xml_arg0 "autoRecovery") in
      make ?rebootMigration ?autoRecovery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rebootMigration =
        field_map json__ "RebootMigration"
          InstanceRebootMigrationState.of_json in
      let autoRecovery =
        field_map json__ "AutoRecovery" InstanceAutoRecoveryState.of_json in
      make ?rebootMigration ?autoRecovery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The maintenance options for the instance."]
module InstanceMetadataOptionsResponse =
  struct
    type nonrec t =
      {
      state: InstanceMetadataOptionsState.t option
        [@ocaml.doc
          "The state of the metadata option changes. pending - The metadata options are being updated and the instance is not ready to process metadata traffic with the new selection. applied - The metadata options have been successfully applied on the instance."];
      httpTokens: HttpTokensState.t option
        [@ocaml.doc
          "Indicates whether IMDSv2 is required. optional - IMDSv2 is optional, which means that you can use either IMDSv2 or IMDSv1. required - IMDSv2 is required, which means that IMDSv1 is disabled, and you must use IMDSv2."];
      httpPutResponseHopLimit: Integer.t option
        [@ocaml.doc
          "The maximum number of hops that the metadata token can travel. Possible values: Integers from 1 to 64"];
      httpEndpoint: InstanceMetadataEndpointState.t option
        [@ocaml.doc
          "Indicates whether the HTTP metadata endpoint on your instances is enabled or disabled. If the value is disabled, you cannot access your instance metadata."];
      httpProtocolIpv6: InstanceMetadataProtocolState.t option
        [@ocaml.doc
          "Indicates whether the IPv6 endpoint for the instance metadata service is enabled or disabled. Default: disabled"];
      instanceMetadataTags: InstanceMetadataTagsState.t option
        [@ocaml.doc
          "Indicates whether access to instance tags from the instance metadata is enabled or disabled. For more information, see View tags for your EC2 instances using instance metadata."]}
    let make ?state =
      fun ?httpTokens ->
        fun ?httpPutResponseHopLimit ->
          fun ?httpEndpoint ->
            fun ?httpProtocolIpv6 ->
              fun ?instanceMetadataTags ->
                fun () ->
                  {
                    state;
                    httpTokens;
                    httpPutResponseHopLimit;
                    httpEndpoint;
                    httpProtocolIpv6;
                    instanceMetadataTags
                  }
    let to_value x =
      structure_to_value
        [("state",
           (Option.map x.state ~f:InstanceMetadataOptionsState.to_value));
        ("httpTokens", (Option.map x.httpTokens ~f:HttpTokensState.to_value));
        ("httpPutResponseHopLimit",
          (Option.map x.httpPutResponseHopLimit ~f:Integer.to_value));
        ("httpEndpoint",
          (Option.map x.httpEndpoint
             ~f:InstanceMetadataEndpointState.to_value));
        ("httpProtocolIpv6",
          (Option.map x.httpProtocolIpv6
             ~f:InstanceMetadataProtocolState.to_value));
        ("instanceMetadataTags",
          (Option.map x.instanceMetadataTags
             ~f:InstanceMetadataTagsState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceMetadataTags =
        (Option.map ~f:InstanceMetadataTagsState.of_xml)
          (Xml.child xml_arg0 "instanceMetadataTags") in
      let httpProtocolIpv6 =
        (Option.map ~f:InstanceMetadataProtocolState.of_xml)
          (Xml.child xml_arg0 "httpProtocolIpv6") in
      let httpEndpoint =
        (Option.map ~f:InstanceMetadataEndpointState.of_xml)
          (Xml.child xml_arg0 "httpEndpoint") in
      let httpPutResponseHopLimit =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "httpPutResponseHopLimit") in
      let httpTokens =
        (Option.map ~f:HttpTokensState.of_xml)
          (Xml.child xml_arg0 "httpTokens") in
      let state =
        (Option.map ~f:InstanceMetadataOptionsState.of_xml)
          (Xml.child xml_arg0 "state") in
      make ?instanceMetadataTags ?httpProtocolIpv6 ?httpEndpoint
        ?httpPutResponseHopLimit ?httpTokens ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceMetadataTags =
        field_map json__ "InstanceMetadataTags"
          InstanceMetadataTagsState.of_json in
      let httpProtocolIpv6 =
        field_map json__ "HttpProtocolIpv6"
          InstanceMetadataProtocolState.of_json in
      let httpEndpoint =
        field_map json__ "HttpEndpoint" InstanceMetadataEndpointState.of_json in
      let httpPutResponseHopLimit =
        field_map json__ "HttpPutResponseHopLimit" Integer.of_json in
      let httpTokens = field_map json__ "HttpTokens" HttpTokensState.of_json in
      let state =
        field_map json__ "State" InstanceMetadataOptionsState.of_json in
      make ?instanceMetadataTags ?httpProtocolIpv6 ?httpEndpoint
        ?httpPutResponseHopLimit ?httpTokens ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata options for the instance."]
module InstanceNetworkInterfaceList =
  struct
    type nonrec t = InstanceNetworkInterface.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceNetworkInterface.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceNetworkInterface.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceNetworkInterfaceList"
        ~of_json:InstanceNetworkInterface.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceNetworkPerformanceOptions =
  struct
    type nonrec t =
      {
      bandwidthWeighting: InstanceBandwidthWeighting.t option
        [@ocaml.doc
          "When you configure network bandwidth weighting, you can boost your baseline bandwidth for either networking or EBS by up to 25%. The total available baseline bandwidth for your instance remains the same. The default option uses the standard bandwidth configuration for your instance type."]}
    let make ?bandwidthWeighting = fun () -> { bandwidthWeighting }
    let to_value x =
      structure_to_value
        [("bandwidthWeighting",
           (Option.map x.bandwidthWeighting
              ~f:InstanceBandwidthWeighting.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bandwidthWeighting =
        (Option.map ~f:InstanceBandwidthWeighting.of_xml)
          (Xml.child xml_arg0 "bandwidthWeighting") in
      make ?bandwidthWeighting ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bandwidthWeighting =
        field_map json__ "BandwidthWeighting"
          InstanceBandwidthWeighting.of_json in
      make ?bandwidthWeighting ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "With network performance options, you can adjust your bandwidth preferences to meet the needs of the workload that runs on your instance."]
module InstanceSecondaryInterfaceList =
  struct
    type nonrec t = InstanceSecondaryInterface.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceSecondaryInterface.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceSecondaryInterface.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceSecondaryInterfaceList"
        ~of_json:InstanceSecondaryInterface.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceState =
  struct
    type nonrec t =
      {
      code: Integer.t option
        [@ocaml.doc
          "The state of the instance as a 16-bit unsigned integer. The high byte is all of the bits between 2^8 and (2^16)-1, which equals decimal values between 256 and 65,535. These numerical values are used for internal purposes and should be ignored. The low byte is all of the bits between 2^0 and (2^8)-1, which equals decimal values between 0 and 255. The valid values for instance-state-code will all be in the range of the low byte and they are: 0 : pending 16 : running 32 : shutting-down 48 : terminated 64 : stopping 80 : stopped You can ignore the high byte value by zeroing out all of the bits above 2^8 or 256 in decimal."];
      name: InstanceStateName.t option
        [@ocaml.doc "The current state of the instance."]}
    let make ?code = fun ?name -> fun () -> { code; name }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:Integer.to_value));
        ("name", (Option.map x.name ~f:InstanceStateName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:InstanceStateName.of_xml) (Xml.child xml_arg0 "name") in
      let code = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "code") in
      make ?name ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" InstanceStateName.of_json in
      let code = field_map json__ "Code" Integer.of_json in
      make ?name ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the current state of an instance."]
module LicenseList =
  struct
    type nonrec t = LicenseConfiguration.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LicenseConfiguration.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:LicenseConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseList" ~of_json:LicenseConfiguration.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Monitoring =
  struct
    type nonrec t =
      {
      state: MonitoringState.t option
        [@ocaml.doc
          "Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled."]}
    let make ?state = fun () -> { state }
    let to_value x =
      structure_to_value
        [("state", (Option.map x.state ~f:MonitoringState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:MonitoringState.of_xml) (Xml.child xml_arg0 "state") in
      make ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" MonitoringState.of_json in
      make ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the monitoring of an instance."]
module PlatformValues =
  struct
    type nonrec t =
      | Windows 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Windows -> "Windows" | Non_static_id s -> s
    let of_string = function | "Windows" -> Windows | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration PlatformValues" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PlatformValues" j)
    let to_json = simple_to_json to_value
  end
module PrivateDnsNameOptionsResponse =
  struct
    type nonrec t =
      {
      hostnameType: HostnameType.t option
        [@ocaml.doc "The type of hostname to assign to an instance."];
      enableResourceNameDnsARecord: Boolean.t option
        [@ocaml.doc
          "Indicates whether to respond to DNS queries for instance hostnames with DNS A records."];
      enableResourceNameDnsAAAARecord: Boolean.t option
        [@ocaml.doc
          "Indicates whether to respond to DNS queries for instance hostnames with DNS AAAA records."]}
    let make ?hostnameType =
      fun ?enableResourceNameDnsARecord ->
        fun ?enableResourceNameDnsAAAARecord ->
          fun () ->
            {
              hostnameType;
              enableResourceNameDnsARecord;
              enableResourceNameDnsAAAARecord
            }
    let to_value x =
      structure_to_value
        [("hostnameType",
           (Option.map x.hostnameType ~f:HostnameType.to_value));
        ("enableResourceNameDnsARecord",
          (Option.map x.enableResourceNameDnsARecord ~f:Boolean.to_value));
        ("enableResourceNameDnsAAAARecord",
          (Option.map x.enableResourceNameDnsAAAARecord ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableResourceNameDnsAAAARecord =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "enableResourceNameDnsAAAARecord") in
      let enableResourceNameDnsARecord =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "enableResourceNameDnsARecord") in
      let hostnameType =
        (Option.map ~f:HostnameType.of_xml)
          (Xml.child xml_arg0 "hostnameType") in
      make ?enableResourceNameDnsAAAARecord ?enableResourceNameDnsARecord
        ?hostnameType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableResourceNameDnsAAAARecord =
        field_map json__ "EnableResourceNameDnsAAAARecord" Boolean.of_json in
      let enableResourceNameDnsARecord =
        field_map json__ "EnableResourceNameDnsARecord" Boolean.of_json in
      let hostnameType = field_map json__ "HostnameType" HostnameType.of_json in
      make ?enableResourceNameDnsAAAARecord ?enableResourceNameDnsARecord
        ?hostnameType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the options for instance hostnames."]
module ProductCodeList =
  struct
    type nonrec t = ProductCode.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ProductCode.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ProductCode.of_xml)
    let of_json j =
      list_of_json ~kind:"ProductCodeList" ~of_json:ProductCode.of_json j
    let to_json v = composed_to_json to_value v
  end
module StateReason =
  struct
    type nonrec t =
      {
      code: String_.t option
        [@ocaml.doc "The reason code for the state change."];
      message: String_.t option
        [@ocaml.doc
          "The message for the state change. Server.InsufficientInstanceCapacity: There was insufficient capacity available to satisfy the launch request. Server.InternalError: An internal error caused the instance to terminate during launch. Server.ScheduledStop: The instance was stopped due to a scheduled retirement. Server.SpotInstanceShutdown: The instance was stopped because the number of Spot requests with a maximum price equal to or higher than the Spot price exceeded available capacity or because of an increase in the Spot price. Server.SpotInstanceTermination: The instance was terminated because the number of Spot requests with a maximum price equal to or higher than the Spot price exceeded available capacity or because of an increase in the Spot price. Client.InstanceInitiatedShutdown: The instance was shut down from the operating system of the instance. Client.InstanceTerminated: The instance was terminated or rebooted during AMI creation. Client.InternalError: A client error caused the instance to terminate during launch. Client.InvalidSnapshot.NotFound: The specified snapshot was not found. Client.UserInitiatedHibernate: Hibernation was initiated on the instance. Client.UserInitiatedShutdown: The instance was shut down using the Amazon EC2 API. Client.VolumeLimitExceeded: The limit on the number of EBS volumes or total storage was exceeded. Decrease usage or request an increase in your account limits."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a state change."]
module VirtualizationType =
  struct
    type nonrec t =
      | Hvm 
      | Paravirtual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Hvm -> "hvm"
      | Paravirtual -> "paravirtual"
      | Non_static_id s -> s
    let of_string =
      function
      | "hvm" -> Hvm
      | "paravirtual" -> Paravirtual
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VirtualizationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VirtualizationType" j)
    let to_json = simple_to_json to_value
  end
module EbsCardInfo =
  struct
    type nonrec t =
      {
      ebsCardIndex: EbsCardIndex.t option
        [@ocaml.doc "The index of the EBS card."];
      baselineBandwidthInMbps: BaselineBandwidthInMbps.t option
        [@ocaml.doc
          "The baseline bandwidth performance for the EBS card, in Mbps."];
      baselineThroughputInMBps: BaselineThroughputInMBps.t option
        [@ocaml.doc
          "The baseline throughput performance for the EBS card, in MBps."];
      baselineIops: BaselineIops.t option
        [@ocaml.doc "The baseline IOPS performance for the EBS card."];
      maximumBandwidthInMbps: MaximumBandwidthInMbps.t option
        [@ocaml.doc
          "The maximum bandwidth performance for the EBS card, in Mbps."];
      maximumThroughputInMBps: MaximumThroughputInMBps.t option
        [@ocaml.doc
          "The maximum throughput performance for the EBS card, in MBps."];
      maximumIops: MaximumIops.t option
        [@ocaml.doc "The maximum IOPS performance for the EBS card."]}
    let make ?ebsCardIndex =
      fun ?baselineBandwidthInMbps ->
        fun ?baselineThroughputInMBps ->
          fun ?baselineIops ->
            fun ?maximumBandwidthInMbps ->
              fun ?maximumThroughputInMBps ->
                fun ?maximumIops ->
                  fun () ->
                    {
                      ebsCardIndex;
                      baselineBandwidthInMbps;
                      baselineThroughputInMBps;
                      baselineIops;
                      maximumBandwidthInMbps;
                      maximumThroughputInMBps;
                      maximumIops
                    }
    let to_value x =
      structure_to_value
        [("ebsCardIndex",
           (Option.map x.ebsCardIndex ~f:EbsCardIndex.to_value));
        ("baselineBandwidthInMbps",
          (Option.map x.baselineBandwidthInMbps
             ~f:BaselineBandwidthInMbps.to_value));
        ("baselineThroughputInMBps",
          (Option.map x.baselineThroughputInMBps
             ~f:BaselineThroughputInMBps.to_value));
        ("baselineIops",
          (Option.map x.baselineIops ~f:BaselineIops.to_value));
        ("maximumBandwidthInMbps",
          (Option.map x.maximumBandwidthInMbps
             ~f:MaximumBandwidthInMbps.to_value));
        ("maximumThroughputInMBps",
          (Option.map x.maximumThroughputInMBps
             ~f:MaximumThroughputInMBps.to_value));
        ("maximumIops", (Option.map x.maximumIops ~f:MaximumIops.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumIops =
        (Option.map ~f:MaximumIops.of_xml) (Xml.child xml_arg0 "maximumIops") in
      let maximumThroughputInMBps =
        (Option.map ~f:MaximumThroughputInMBps.of_xml)
          (Xml.child xml_arg0 "maximumThroughputInMBps") in
      let maximumBandwidthInMbps =
        (Option.map ~f:MaximumBandwidthInMbps.of_xml)
          (Xml.child xml_arg0 "maximumBandwidthInMbps") in
      let baselineIops =
        (Option.map ~f:BaselineIops.of_xml)
          (Xml.child xml_arg0 "baselineIops") in
      let baselineThroughputInMBps =
        (Option.map ~f:BaselineThroughputInMBps.of_xml)
          (Xml.child xml_arg0 "baselineThroughputInMBps") in
      let baselineBandwidthInMbps =
        (Option.map ~f:BaselineBandwidthInMbps.of_xml)
          (Xml.child xml_arg0 "baselineBandwidthInMbps") in
      let ebsCardIndex =
        (Option.map ~f:EbsCardIndex.of_xml)
          (Xml.child xml_arg0 "ebsCardIndex") in
      make ?maximumIops ?maximumThroughputInMBps ?maximumBandwidthInMbps
        ?baselineIops ?baselineThroughputInMBps ?baselineBandwidthInMbps
        ?ebsCardIndex ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumIops = field_map json__ "MaximumIops" MaximumIops.of_json in
      let maximumThroughputInMBps =
        field_map json__ "MaximumThroughputInMBps"
          MaximumThroughputInMBps.of_json in
      let maximumBandwidthInMbps =
        field_map json__ "MaximumBandwidthInMbps"
          MaximumBandwidthInMbps.of_json in
      let baselineIops = field_map json__ "BaselineIops" BaselineIops.of_json in
      let baselineThroughputInMBps =
        field_map json__ "BaselineThroughputInMBps"
          BaselineThroughputInMBps.of_json in
      let baselineBandwidthInMbps =
        field_map json__ "BaselineBandwidthInMbps"
          BaselineBandwidthInMbps.of_json in
      let ebsCardIndex = field_map json__ "EbsCardIndex" EbsCardIndex.of_json in
      make ?maximumIops ?maximumThroughputInMBps ?maximumBandwidthInMbps
        ?baselineIops ?baselineThroughputInMBps ?baselineBandwidthInMbps
        ?ebsCardIndex ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the performance characteristics of an EBS card on the instance type."]
module FpgaDeviceInfo =
  struct
    type nonrec t =
      {
      name: FpgaDeviceName.t option
        [@ocaml.doc "The name of the FPGA accelerator."];
      manufacturer: FpgaDeviceManufacturerName.t option
        [@ocaml.doc "The manufacturer of the FPGA accelerator."];
      count: FpgaDeviceCount.t option
        [@ocaml.doc "The count of FPGA accelerators for the instance type."];
      memoryInfo: FpgaDeviceMemoryInfo.t option
        [@ocaml.doc
          "Describes the memory for the FPGA accelerator for the instance type."]}
    let make ?name =
      fun ?manufacturer ->
        fun ?count ->
          fun ?memoryInfo ->
            fun () -> { name; manufacturer; count; memoryInfo }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:FpgaDeviceName.to_value));
        ("manufacturer",
          (Option.map x.manufacturer ~f:FpgaDeviceManufacturerName.to_value));
        ("count", (Option.map x.count ~f:FpgaDeviceCount.to_value));
        ("memoryInfo",
          (Option.map x.memoryInfo ~f:FpgaDeviceMemoryInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memoryInfo =
        (Option.map ~f:FpgaDeviceMemoryInfo.of_xml)
          (Xml.child xml_arg0 "memoryInfo") in
      let count =
        (Option.map ~f:FpgaDeviceCount.of_xml) (Xml.child xml_arg0 "count") in
      let manufacturer =
        (Option.map ~f:FpgaDeviceManufacturerName.of_xml)
          (Xml.child xml_arg0 "manufacturer") in
      let name =
        (Option.map ~f:FpgaDeviceName.of_xml) (Xml.child xml_arg0 "name") in
      make ?memoryInfo ?count ?manufacturer ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memoryInfo =
        field_map json__ "MemoryInfo" FpgaDeviceMemoryInfo.of_json in
      let count = field_map json__ "Count" FpgaDeviceCount.of_json in
      let manufacturer =
        field_map json__ "Manufacturer" FpgaDeviceManufacturerName.of_json in
      let name = field_map json__ "Name" FpgaDeviceName.of_json in
      make ?memoryInfo ?count ?manufacturer ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the FPGA accelerator for the instance type."]
module GpuDeviceInfo =
  struct
    type nonrec t =
      {
      name: GpuDeviceName.t option
        [@ocaml.doc "The name of the GPU accelerator."];
      manufacturer: GpuDeviceManufacturerName.t option
        [@ocaml.doc "The manufacturer of the GPU accelerator."];
      count: GpuDeviceCount.t option
        [@ocaml.doc "The number of GPUs for the instance type."];
      logicalGpuCount: LogicalGpuCount.t option
        [@ocaml.doc "Total number of GPU devices of this type."];
      gpuPartitionSize: GpuPartitionSize.t option
        [@ocaml.doc
          "The size of each GPU as a fraction of a full GPU, between 0 (excluded) and 1 (included)."];
      workloads: WorkloadsList.t option
        [@ocaml.doc "A list of workload types this GPU supports."];
      memoryInfo: GpuDeviceMemoryInfo.t option
        [@ocaml.doc "Describes the memory available to the GPU accelerator."]}
    let make ?name =
      fun ?manufacturer ->
        fun ?count ->
          fun ?logicalGpuCount ->
            fun ?gpuPartitionSize ->
              fun ?workloads ->
                fun ?memoryInfo ->
                  fun () ->
                    {
                      name;
                      manufacturer;
                      count;
                      logicalGpuCount;
                      gpuPartitionSize;
                      workloads;
                      memoryInfo
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:GpuDeviceName.to_value));
        ("manufacturer",
          (Option.map x.manufacturer ~f:GpuDeviceManufacturerName.to_value));
        ("count", (Option.map x.count ~f:GpuDeviceCount.to_value));
        ("logicalGpuCount",
          (Option.map x.logicalGpuCount ~f:LogicalGpuCount.to_value));
        ("gpuPartitionSize",
          (Option.map x.gpuPartitionSize ~f:GpuPartitionSize.to_value));
        ("workloadSet", (Option.map x.workloads ~f:WorkloadsList.to_value));
        ("memoryInfo",
          (Option.map x.memoryInfo ~f:GpuDeviceMemoryInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memoryInfo =
        (Option.map ~f:GpuDeviceMemoryInfo.of_xml)
          (Xml.child xml_arg0 "memoryInfo") in
      let workloads =
        (Option.map ~f:WorkloadsList.of_xml)
          (Xml.child xml_arg0 "workloadSet") in
      let gpuPartitionSize =
        (Option.map ~f:GpuPartitionSize.of_xml)
          (Xml.child xml_arg0 "gpuPartitionSize") in
      let logicalGpuCount =
        (Option.map ~f:LogicalGpuCount.of_xml)
          (Xml.child xml_arg0 "logicalGpuCount") in
      let count =
        (Option.map ~f:GpuDeviceCount.of_xml) (Xml.child xml_arg0 "count") in
      let manufacturer =
        (Option.map ~f:GpuDeviceManufacturerName.of_xml)
          (Xml.child xml_arg0 "manufacturer") in
      let name =
        (Option.map ~f:GpuDeviceName.of_xml) (Xml.child xml_arg0 "name") in
      make ?memoryInfo ?workloads ?gpuPartitionSize ?logicalGpuCount ?count
        ?manufacturer ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memoryInfo =
        field_map json__ "MemoryInfo" GpuDeviceMemoryInfo.of_json in
      let workloads = field_map json__ "Workloads" WorkloadsList.of_json in
      let gpuPartitionSize =
        field_map json__ "GpuPartitionSize" GpuPartitionSize.of_json in
      let logicalGpuCount =
        field_map json__ "LogicalGpuCount" LogicalGpuCount.of_json in
      let count = field_map json__ "Count" GpuDeviceCount.of_json in
      let manufacturer =
        field_map json__ "Manufacturer" GpuDeviceManufacturerName.of_json in
      let name = field_map json__ "Name" GpuDeviceName.of_json in
      make ?memoryInfo ?workloads ?gpuPartitionSize ?logicalGpuCount ?count
        ?manufacturer ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the GPU accelerators for the instance type."]
module InferenceDeviceInfo =
  struct
    type nonrec t =
      {
      count: InferenceDeviceCount.t option
        [@ocaml.doc
          "The number of Inference accelerators for the instance type."];
      name: InferenceDeviceName.t option
        [@ocaml.doc "The name of the Inference accelerator."];
      manufacturer: InferenceDeviceManufacturerName.t option
        [@ocaml.doc "The manufacturer of the Inference accelerator."];
      memoryInfo: InferenceDeviceMemoryInfo.t option
        [@ocaml.doc
          "Describes the memory available to the inference accelerator."]}
    let make ?count =
      fun ?name ->
        fun ?manufacturer ->
          fun ?memoryInfo ->
            fun () -> { count; name; manufacturer; memoryInfo }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:InferenceDeviceCount.to_value));
        ("name", (Option.map x.name ~f:InferenceDeviceName.to_value));
        ("manufacturer",
          (Option.map x.manufacturer
             ~f:InferenceDeviceManufacturerName.to_value));
        ("memoryInfo",
          (Option.map x.memoryInfo ~f:InferenceDeviceMemoryInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memoryInfo =
        (Option.map ~f:InferenceDeviceMemoryInfo.of_xml)
          (Xml.child xml_arg0 "memoryInfo") in
      let manufacturer =
        (Option.map ~f:InferenceDeviceManufacturerName.of_xml)
          (Xml.child xml_arg0 "manufacturer") in
      let name =
        (Option.map ~f:InferenceDeviceName.of_xml)
          (Xml.child xml_arg0 "name") in
      let count =
        (Option.map ~f:InferenceDeviceCount.of_xml)
          (Xml.child xml_arg0 "count") in
      make ?memoryInfo ?manufacturer ?name ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memoryInfo =
        field_map json__ "MemoryInfo" InferenceDeviceMemoryInfo.of_json in
      let manufacturer =
        field_map json__ "Manufacturer"
          InferenceDeviceManufacturerName.of_json in
      let name = field_map json__ "Name" InferenceDeviceName.of_json in
      let count = field_map json__ "Count" InferenceDeviceCount.of_json in
      make ?memoryInfo ?manufacturer ?name ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Elastic Inference is no longer available. Describes the Inference accelerators for the instance type."]
module DiskInfo =
  struct
    type nonrec t =
      {
      sizeInGB: DiskSize.t option [@ocaml.doc "The size of the disk in GB."];
      count: DiskCount.t option
        [@ocaml.doc "The number of disks with this configuration."];
      type_: DiskType.t option [@ocaml.doc "The type of disk."]}
    let make ?sizeInGB =
      fun ?count -> fun ?type_ -> fun () -> { sizeInGB; count; type_ }
    let to_value x =
      structure_to_value
        [("sizeInGB", (Option.map x.sizeInGB ~f:DiskSize.to_value));
        ("count", (Option.map x.count ~f:DiskCount.to_value));
        ("type", (Option.map x.type_ ~f:DiskType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:DiskType.of_xml) (Xml.child xml_arg0 "type") in
      let count =
        (Option.map ~f:DiskCount.of_xml) (Xml.child xml_arg0 "count") in
      let sizeInGB =
        (Option.map ~f:DiskSize.of_xml) (Xml.child xml_arg0 "sizeInGB") in
      make ?type_ ?count ?sizeInGB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" DiskType.of_json in
      let count = field_map json__ "Count" DiskCount.of_json in
      let sizeInGB = field_map json__ "SizeInGB" DiskSize.of_json in
      make ?type_ ?count ?sizeInGB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a disk."]
module MediaDeviceInfo =
  struct
    type nonrec t =
      {
      count: MediaDeviceCount.t option
        [@ocaml.doc
          "The number of media accelerators for the instance type."];
      name: MediaDeviceName.t option
        [@ocaml.doc "The name of the media accelerator."];
      manufacturer: MediaDeviceManufacturerName.t option
        [@ocaml.doc "The manufacturer of the media accelerator."];
      memoryInfo: MediaDeviceMemoryInfo.t option
        [@ocaml.doc
          "Describes the memory available to the media accelerator."]}
    let make ?count =
      fun ?name ->
        fun ?manufacturer ->
          fun ?memoryInfo ->
            fun () -> { count; name; manufacturer; memoryInfo }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:MediaDeviceCount.to_value));
        ("name", (Option.map x.name ~f:MediaDeviceName.to_value));
        ("manufacturer",
          (Option.map x.manufacturer ~f:MediaDeviceManufacturerName.to_value));
        ("memoryInfo",
          (Option.map x.memoryInfo ~f:MediaDeviceMemoryInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memoryInfo =
        (Option.map ~f:MediaDeviceMemoryInfo.of_xml)
          (Xml.child xml_arg0 "memoryInfo") in
      let manufacturer =
        (Option.map ~f:MediaDeviceManufacturerName.of_xml)
          (Xml.child xml_arg0 "manufacturer") in
      let name =
        (Option.map ~f:MediaDeviceName.of_xml) (Xml.child xml_arg0 "name") in
      let count =
        (Option.map ~f:MediaDeviceCount.of_xml) (Xml.child xml_arg0 "count") in
      make ?memoryInfo ?manufacturer ?name ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memoryInfo =
        field_map json__ "MemoryInfo" MediaDeviceMemoryInfo.of_json in
      let manufacturer =
        field_map json__ "Manufacturer" MediaDeviceManufacturerName.of_json in
      let name = field_map json__ "Name" MediaDeviceName.of_json in
      let count = field_map json__ "Count" MediaDeviceCount.of_json in
      make ?memoryInfo ?manufacturer ?name ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the media accelerators for the instance type."]
module BandwidthWeightingType =
  struct
    type nonrec t =
      | Default 
      | Vpc_1 
      | Ebs_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Vpc_1 -> "vpc-1"
      | Ebs_1 -> "ebs-1"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "vpc-1" -> Vpc_1
      | "ebs-1" -> Ebs_1
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BandwidthWeightingType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BandwidthWeightingType" j)
    let to_json = simple_to_json to_value
  end
module DefaultTcpEstablishedTimeout =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DefaultTcpEstablishedTimeout"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module DefaultUdpStreamTimeout =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DefaultUdpStreamTimeout"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module DefaultUdpTimeout =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DefaultUdpTimeout" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumEfaInterfaces =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumEfaInterfaces" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module NetworkCardInfo =
  struct
    type nonrec t =
      {
      networkCardIndex: NetworkCardIndex.t option
        [@ocaml.doc "The index of the network card."];
      networkPerformance: NetworkPerformance.t option
        [@ocaml.doc "The network performance of the network card."];
      maximumNetworkInterfaces: MaxNetworkInterfaces.t option
        [@ocaml.doc
          "The maximum number of network interfaces for the network card."];
      additionalFlexibleNetworkInterfaces:
        AdditionalFlexibleNetworkInterfaces.t option
        [@ocaml.doc
          "The number of additional network interfaces that can be attached to an instance when using flexible Elastic Network Adapter (ENA) queues. This number is in addition to the base number specified by maximumNetworkInterfaces."];
      baselineBandwidthInGbps: BaselineBandwidthInGbps.t option
        [@ocaml.doc
          "The baseline network performance of the network card, in Gbps."];
      peakBandwidthInGbps: PeakBandwidthInGbps.t option
        [@ocaml.doc
          "The peak (burst) network performance of the network card, in Gbps."];
      defaultEnaQueueCountPerInterface:
        DefaultEnaQueueCountPerInterface.t option
        [@ocaml.doc
          "The default number of the ENA queues for each interface."];
      maximumEnaQueueCount: MaximumEnaQueueCount.t option
        [@ocaml.doc "The maximum number of the ENA queues."];
      maximumEnaQueueCountPerInterface:
        MaximumEnaQueueCountPerInterface.t option
        [@ocaml.doc
          "The maximum number of the ENA queues for each interface."]}
    let make ?networkCardIndex =
      fun ?networkPerformance ->
        fun ?maximumNetworkInterfaces ->
          fun ?additionalFlexibleNetworkInterfaces ->
            fun ?baselineBandwidthInGbps ->
              fun ?peakBandwidthInGbps ->
                fun ?defaultEnaQueueCountPerInterface ->
                  fun ?maximumEnaQueueCount ->
                    fun ?maximumEnaQueueCountPerInterface ->
                      fun () ->
                        {
                          networkCardIndex;
                          networkPerformance;
                          maximumNetworkInterfaces;
                          additionalFlexibleNetworkInterfaces;
                          baselineBandwidthInGbps;
                          peakBandwidthInGbps;
                          defaultEnaQueueCountPerInterface;
                          maximumEnaQueueCount;
                          maximumEnaQueueCountPerInterface
                        }
    let to_value x =
      structure_to_value
        [("networkCardIndex",
           (Option.map x.networkCardIndex ~f:NetworkCardIndex.to_value));
        ("networkPerformance",
          (Option.map x.networkPerformance ~f:NetworkPerformance.to_value));
        ("maximumNetworkInterfaces",
          (Option.map x.maximumNetworkInterfaces
             ~f:MaxNetworkInterfaces.to_value));
        ("additionalFlexibleNetworkInterfaces",
          (Option.map x.additionalFlexibleNetworkInterfaces
             ~f:AdditionalFlexibleNetworkInterfaces.to_value));
        ("baselineBandwidthInGbps",
          (Option.map x.baselineBandwidthInGbps
             ~f:BaselineBandwidthInGbps.to_value));
        ("peakBandwidthInGbps",
          (Option.map x.peakBandwidthInGbps ~f:PeakBandwidthInGbps.to_value));
        ("defaultEnaQueueCountPerInterface",
          (Option.map x.defaultEnaQueueCountPerInterface
             ~f:DefaultEnaQueueCountPerInterface.to_value));
        ("maximumEnaQueueCount",
          (Option.map x.maximumEnaQueueCount ~f:MaximumEnaQueueCount.to_value));
        ("maximumEnaQueueCountPerInterface",
          (Option.map x.maximumEnaQueueCountPerInterface
             ~f:MaximumEnaQueueCountPerInterface.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumEnaQueueCountPerInterface =
        (Option.map ~f:MaximumEnaQueueCountPerInterface.of_xml)
          (Xml.child xml_arg0 "maximumEnaQueueCountPerInterface") in
      let maximumEnaQueueCount =
        (Option.map ~f:MaximumEnaQueueCount.of_xml)
          (Xml.child xml_arg0 "maximumEnaQueueCount") in
      let defaultEnaQueueCountPerInterface =
        (Option.map ~f:DefaultEnaQueueCountPerInterface.of_xml)
          (Xml.child xml_arg0 "defaultEnaQueueCountPerInterface") in
      let peakBandwidthInGbps =
        (Option.map ~f:PeakBandwidthInGbps.of_xml)
          (Xml.child xml_arg0 "peakBandwidthInGbps") in
      let baselineBandwidthInGbps =
        (Option.map ~f:BaselineBandwidthInGbps.of_xml)
          (Xml.child xml_arg0 "baselineBandwidthInGbps") in
      let additionalFlexibleNetworkInterfaces =
        (Option.map ~f:AdditionalFlexibleNetworkInterfaces.of_xml)
          (Xml.child xml_arg0 "additionalFlexibleNetworkInterfaces") in
      let maximumNetworkInterfaces =
        (Option.map ~f:MaxNetworkInterfaces.of_xml)
          (Xml.child xml_arg0 "maximumNetworkInterfaces") in
      let networkPerformance =
        (Option.map ~f:NetworkPerformance.of_xml)
          (Xml.child xml_arg0 "networkPerformance") in
      let networkCardIndex =
        (Option.map ~f:NetworkCardIndex.of_xml)
          (Xml.child xml_arg0 "networkCardIndex") in
      make ?maximumEnaQueueCountPerInterface ?maximumEnaQueueCount
        ?defaultEnaQueueCountPerInterface ?peakBandwidthInGbps
        ?baselineBandwidthInGbps ?additionalFlexibleNetworkInterfaces
        ?maximumNetworkInterfaces ?networkPerformance ?networkCardIndex ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumEnaQueueCountPerInterface =
        field_map json__ "MaximumEnaQueueCountPerInterface"
          MaximumEnaQueueCountPerInterface.of_json in
      let maximumEnaQueueCount =
        field_map json__ "MaximumEnaQueueCount" MaximumEnaQueueCount.of_json in
      let defaultEnaQueueCountPerInterface =
        field_map json__ "DefaultEnaQueueCountPerInterface"
          DefaultEnaQueueCountPerInterface.of_json in
      let peakBandwidthInGbps =
        field_map json__ "PeakBandwidthInGbps" PeakBandwidthInGbps.of_json in
      let baselineBandwidthInGbps =
        field_map json__ "BaselineBandwidthInGbps"
          BaselineBandwidthInGbps.of_json in
      let additionalFlexibleNetworkInterfaces =
        field_map json__ "AdditionalFlexibleNetworkInterfaces"
          AdditionalFlexibleNetworkInterfaces.of_json in
      let maximumNetworkInterfaces =
        field_map json__ "MaximumNetworkInterfaces"
          MaxNetworkInterfaces.of_json in
      let networkPerformance =
        field_map json__ "NetworkPerformance" NetworkPerformance.of_json in
      let networkCardIndex =
        field_map json__ "NetworkCardIndex" NetworkCardIndex.of_json in
      make ?maximumEnaQueueCountPerInterface ?maximumEnaQueueCount
        ?defaultEnaQueueCountPerInterface ?peakBandwidthInGbps
        ?baselineBandwidthInGbps ?additionalFlexibleNetworkInterfaces
        ?maximumNetworkInterfaces ?networkPerformance ?networkCardIndex ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the network card support of the instance type."]
module NeuronDeviceInfo =
  struct
    type nonrec t =
      {
      count: NeuronDeviceCount.t option
        [@ocaml.doc
          "The number of neuron accelerators for the instance type."];
      name: NeuronDeviceName.t option
        [@ocaml.doc "The name of the neuron accelerator."];
      coreInfo: NeuronDeviceCoreInfo.t option
        [@ocaml.doc
          "Describes the cores available to each neuron accelerator."];
      memoryInfo: NeuronDeviceMemoryInfo.t option
        [@ocaml.doc
          "Describes the memory available to each neuron accelerator."]}
    let make ?count =
      fun ?name ->
        fun ?coreInfo ->
          fun ?memoryInfo -> fun () -> { count; name; coreInfo; memoryInfo }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:NeuronDeviceCount.to_value));
        ("name", (Option.map x.name ~f:NeuronDeviceName.to_value));
        ("coreInfo",
          (Option.map x.coreInfo ~f:NeuronDeviceCoreInfo.to_value));
        ("memoryInfo",
          (Option.map x.memoryInfo ~f:NeuronDeviceMemoryInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memoryInfo =
        (Option.map ~f:NeuronDeviceMemoryInfo.of_xml)
          (Xml.child xml_arg0 "memoryInfo") in
      let coreInfo =
        (Option.map ~f:NeuronDeviceCoreInfo.of_xml)
          (Xml.child xml_arg0 "coreInfo") in
      let name =
        (Option.map ~f:NeuronDeviceName.of_xml) (Xml.child xml_arg0 "name") in
      let count =
        (Option.map ~f:NeuronDeviceCount.of_xml) (Xml.child xml_arg0 "count") in
      make ?memoryInfo ?coreInfo ?name ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memoryInfo =
        field_map json__ "MemoryInfo" NeuronDeviceMemoryInfo.of_json in
      let coreInfo = field_map json__ "CoreInfo" NeuronDeviceCoreInfo.of_json in
      let name = field_map json__ "Name" NeuronDeviceName.of_json in
      let count = field_map json__ "Count" NeuronDeviceCount.of_json in
      make ?memoryInfo ?coreInfo ?name ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the neuron accelerators for the instance type."]
module NitroTpmSupportedVersionType =
  struct
    type nonrec t = string
    let context_ = "NitroTpmSupportedVersionType"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NitroTpmSupportedVersionType" j
    let to_json = simple_to_json to_value
  end
module PlacementGroupStrategy =
  struct
    type nonrec t =
      | Cluster 
      | Partition 
      | Spread 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Cluster -> "cluster"
      | Partition -> "partition"
      | Spread -> "spread"
      | Non_static_id s -> s
    let of_string =
      function
      | "cluster" -> Cluster
      | "partition" -> Partition
      | "spread" -> Spread
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration PlacementGroupStrategy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PlacementGroupStrategy" j)
    let to_json = simple_to_json to_value
  end
module ArchitectureType =
  struct
    type nonrec t =
      | I386 
      | X86_64 
      | Arm64 
      | X86_64_mac 
      | Arm64_mac 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | I386 -> "i386"
      | X86_64 -> "x86_64"
      | Arm64 -> "arm64"
      | X86_64_mac -> "x86_64_mac"
      | Arm64_mac -> "arm64_mac"
      | Non_static_id s -> s
    let of_string =
      function
      | "i386" -> I386
      | "x86_64" -> X86_64
      | "arm64" -> Arm64
      | "x86_64_mac" -> X86_64_mac
      | "arm64_mac" -> Arm64_mac
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ArchitectureType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ArchitectureType" j)
    let to_json = simple_to_json to_value
  end
module SupportedAdditionalProcessorFeature =
  struct
    type nonrec t =
      | Amd_sev_snp 
      | Nested_virtualization 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Amd_sev_snp -> "amd-sev-snp"
      | Nested_virtualization -> "nested-virtualization"
      | Non_static_id s -> s
    let of_string =
      function
      | "amd-sev-snp" -> Amd_sev_snp
      | "nested-virtualization" -> Nested_virtualization
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration SupportedAdditionalProcessorFeature" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SupportedAdditionalProcessorFeature" j)
    let to_json = simple_to_json to_value
  end
module CoreCount =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for CoreCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ThreadsPerCore =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ThreadsPerCore" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module EbsStatusDetails =
  struct
    type nonrec t =
      {
      impairedSince: MillisecondDateTime.t option
        [@ocaml.doc
          "The date and time when the attached EBS status check failed."];
      name: StatusName.t option
        [@ocaml.doc "The name of the attached EBS status check."];
      status: StatusType.t option
        [@ocaml.doc "The result of the attached EBS status check."]}
    let make ?impairedSince =
      fun ?name -> fun ?status -> fun () -> { impairedSince; name; status }
    let to_value x =
      structure_to_value
        [("impairedSince",
           (Option.map x.impairedSince ~f:MillisecondDateTime.to_value));
        ("name", (Option.map x.name ~f:StatusName.to_value));
        ("status", (Option.map x.status ~f:StatusType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:StatusType.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:StatusName.of_xml) (Xml.child xml_arg0 "name") in
      let impairedSince =
        (Option.map ~f:MillisecondDateTime.of_xml)
          (Xml.child xml_arg0 "impairedSince") in
      make ?status ?name ?impairedSince ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" StatusType.of_json in
      let name = field_map json__ "Name" StatusName.of_json in
      let impairedSince =
        field_map json__ "ImpairedSince" MillisecondDateTime.of_json in
      make ?status ?name ?impairedSince ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the attached EBS status check for an instance."]
module EventCode =
  struct
    type nonrec t =
      | Instance_reboot 
      | System_reboot 
      | System_maintenance 
      | Instance_retirement 
      | Instance_stop 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Instance_reboot -> "instance-reboot"
      | System_reboot -> "system-reboot"
      | System_maintenance -> "system-maintenance"
      | Instance_retirement -> "instance-retirement"
      | Instance_stop -> "instance-stop"
      | Non_static_id s -> s
    let of_string =
      function
      | "instance-reboot" -> Instance_reboot
      | "system-reboot" -> System_reboot
      | "system-maintenance" -> System_maintenance
      | "instance-retirement" -> Instance_retirement
      | "instance-stop" -> Instance_stop
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EventCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventCode" j)
    let to_json = simple_to_json to_value
  end
module InstanceEventId =
  struct
    type nonrec t = string
    let context_ = "InstanceEventId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InstanceEventId" j
    let to_json = simple_to_json to_value
  end
module InstanceStatusDetails =
  struct
    type nonrec t =
      {
      impairedSince: DateTime.t option
        [@ocaml.doc
          "The time when a status check failed. For an instance that was launched and impaired, this is the time when the instance was launched."];
      name: StatusName.t option [@ocaml.doc "The type of instance status."];
      status: StatusType.t option [@ocaml.doc "The status."]}
    let make ?impairedSince =
      fun ?name -> fun ?status -> fun () -> { impairedSince; name; status }
    let to_value x =
      structure_to_value
        [("impairedSince", (Option.map x.impairedSince ~f:DateTime.to_value));
        ("name", (Option.map x.name ~f:StatusName.to_value));
        ("status", (Option.map x.status ~f:StatusType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:StatusType.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:StatusName.of_xml) (Xml.child xml_arg0 "name") in
      let impairedSince =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "impairedSince") in
      make ?status ?name ?impairedSince ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" StatusType.of_json in
      let name = field_map json__ "Name" StatusName.of_json in
      let impairedSince = field_map json__ "ImpairedSince" DateTime.of_json in
      make ?status ?name ?impairedSince ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the instance status."]
module DedicatedHostId =
  struct
    type nonrec t = string
    let context_ = "DedicatedHostId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DedicatedHostId" j
    let to_json = simple_to_json to_value
  end
module Hour =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:23) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Hour" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module WeekDay =
  struct
    type nonrec t =
      | Sunday 
      | Monday 
      | Tuesday 
      | Wednesday 
      | Thursday 
      | Friday 
      | Saturday 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Sunday -> "sunday"
      | Monday -> "monday"
      | Tuesday -> "tuesday"
      | Wednesday -> "wednesday"
      | Thursday -> "thursday"
      | Friday -> "friday"
      | Saturday -> "saturday"
      | Non_static_id s -> s
    let of_string =
      function
      | "sunday" -> Sunday
      | "monday" -> Monday
      | "tuesday" -> Tuesday
      | "wednesday" -> Wednesday
      | "thursday" -> Thursday
      | "friday" -> Friday
      | "saturday" -> Saturday
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration WeekDay" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WeekDay" j)
    let to_json = simple_to_json to_value
  end
module SensitiveUrl =
  struct
    type nonrec t = string
    let context_ = "SensitiveUrl"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveUrl" j
    let to_json = simple_to_json to_value
  end
module UserBucketDetails =
  struct
    type nonrec t =
      {
      s3Bucket: String_.t option
        [@ocaml.doc
          "The Amazon S3 bucket from which the disk image was created."];
      s3Key: String_.t option [@ocaml.doc "The file name of the disk image."]}
    let make ?s3Bucket = fun ?s3Key -> fun () -> { s3Bucket; s3Key }
    let to_value x =
      structure_to_value
        [("s3Bucket", (Option.map x.s3Bucket ~f:String_.to_value));
        ("s3Key", (Option.map x.s3Key ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Key = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "s3Key") in
      let s3Bucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "s3Bucket") in
      make ?s3Key ?s3Bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Key = field_map json__ "S3Key" String_.of_json in
      let s3Bucket = field_map json__ "S3Bucket" String_.of_json in
      make ?s3Key ?s3Bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the Amazon S3 bucket for the disk image."]
module ImageUsageResourceTypeName =
  struct
    type nonrec t = string
    let context_ = "ImageUsageResourceTypeName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImageUsageResourceTypeName" j
    let to_json = simple_to_json to_value
  end
module ImageUsageResourceTypeOptionList =
  struct
    type nonrec t = ImageUsageResourceTypeOption.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ImageUsageResourceTypeOption.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ImageUsageResourceTypeOption.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageUsageResourceTypeOptionList"
        ~of_json:ImageUsageResourceTypeOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageReferenceOptionName =
  struct
    type nonrec t =
      | State_name 
      | Version_depth 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | State_name -> "state-name"
      | Version_depth -> "version-depth"
      | Non_static_id s -> s
    let of_string =
      function
      | "state-name" -> State_name
      | "version-depth" -> Version_depth
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ImageReferenceOptionName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ImageReferenceOptionName" j)
    let to_json = simple_to_json to_value
  end
module ResourceTypeOptionValuesList =
  struct
    type nonrec t = ResourceTypeOptionValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceTypeOptionValue.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ResourceTypeOptionValue.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTypeOptionValuesList"
        ~of_json:ResourceTypeOptionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceCapacity =
  struct
    type nonrec t =
      {
      availableCapacity: Integer.t option
        [@ocaml.doc
          "The number of instances that can be launched onto the Dedicated Host based on the host's available capacity."];
      instanceType: String_.t option
        [@ocaml.doc "The instance type supported by the Dedicated Host."];
      totalCapacity: Integer.t option
        [@ocaml.doc
          "The total number of instances that can be launched onto the Dedicated Host if there are no instances running on it."]}
    let make ?availableCapacity =
      fun ?instanceType ->
        fun ?totalCapacity ->
          fun () -> { availableCapacity; instanceType; totalCapacity }
    let to_value x =
      structure_to_value
        [("availableCapacity",
           (Option.map x.availableCapacity ~f:Integer.to_value));
        ("instanceType", (Option.map x.instanceType ~f:String_.to_value));
        ("totalCapacity", (Option.map x.totalCapacity ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalCapacity =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "totalCapacity") in
      let instanceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceType") in
      let availableCapacity =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "availableCapacity") in
      make ?totalCapacity ?instanceType ?availableCapacity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalCapacity = field_map json__ "TotalCapacity" Integer.of_json in
      let instanceType = field_map json__ "InstanceType" String_.of_json in
      let availableCapacity =
        field_map json__ "AvailableCapacity" Integer.of_json in
      make ?totalCapacity ?instanceType ?availableCapacity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the number of instances that can be launched onto the Dedicated Host."]
module InstanceLifecycle =
  struct
    type nonrec t =
      | Spot 
      | On_demand 
      | Interruptible_capacity_reservation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Spot -> "spot"
      | On_demand -> "on-demand"
      | Interruptible_capacity_reservation ->
          "interruptible-capacity-reservation"
      | Non_static_id s -> s
    let of_string =
      function
      | "spot" -> Spot
      | "on-demand" -> On_demand
      | "interruptible-capacity-reservation" ->
          Interruptible_capacity_reservation
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InstanceLifecycle" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InstanceLifecycle" j)
    let to_json = simple_to_json to_value
  end
module LaunchTemplateAndOverridesResponse =
  struct
    type nonrec t =
      {
      launchTemplateSpecification: FleetLaunchTemplateSpecification.t option
        [@ocaml.doc "The launch template."];
      overrides: FleetLaunchTemplateOverrides.t option
        [@ocaml.doc
          "Any parameters that you specify override the same parameters in the launch template."]}
    let make ?launchTemplateSpecification =
      fun ?overrides -> fun () -> { launchTemplateSpecification; overrides }
    let to_value x =
      structure_to_value
        [("launchTemplateSpecification",
           (Option.map x.launchTemplateSpecification
              ~f:FleetLaunchTemplateSpecification.to_value));
        ("overrides",
          (Option.map x.overrides ~f:FleetLaunchTemplateOverrides.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overrides =
        (Option.map ~f:FleetLaunchTemplateOverrides.of_xml)
          (Xml.child xml_arg0 "overrides") in
      let launchTemplateSpecification =
        (Option.map ~f:FleetLaunchTemplateSpecification.of_xml)
          (Xml.child xml_arg0 "launchTemplateSpecification") in
      make ?overrides ?launchTemplateSpecification ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overrides =
        field_map json__ "Overrides" FleetLaunchTemplateOverrides.of_json in
      let launchTemplateSpecification =
        field_map json__ "LaunchTemplateSpecification"
          FleetLaunchTemplateSpecification.of_json in
      make ?overrides ?launchTemplateSpecification ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a launch template and overrides."]
module InstanceIdsSet =
  struct
    type nonrec t = InstanceId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:InstanceId.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceIdsSet" ~of_json:InstanceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module FleetLaunchTemplateOverridesList =
  struct
    type nonrec t = FleetLaunchTemplateOverrides.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FleetLaunchTemplateOverrides.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:FleetLaunchTemplateOverrides.of_xml)
    let of_json j =
      list_of_json ~kind:"FleetLaunchTemplateOverridesList"
        ~of_json:FleetLaunchTemplateOverrides.of_json j
    let to_json v = composed_to_json to_value v
  end
module FleetCapacityReservationUsageStrategy =
  struct
    type nonrec t =
      | Use_capacity_reservations_first 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Use_capacity_reservations_first -> "use-capacity-reservations-first"
      | Non_static_id s -> s
    let of_string =
      function
      | "use-capacity-reservations-first" -> Use_capacity_reservations_first
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration FleetCapacityReservationUsageStrategy" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"FleetCapacityReservationUsageStrategy" j)
    let to_json = simple_to_json to_value
  end
module FleetReservationType =
  struct
    type nonrec t =
      | Interruptible_capacity_reservation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Interruptible_capacity_reservation ->
          "interruptible-capacity-reservation"
      | Non_static_id s -> s
    let of_string =
      function
      | "interruptible-capacity-reservation" ->
          Interruptible_capacity_reservation
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration FleetReservationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FleetReservationType" j)
    let to_json = simple_to_json to_value
  end
module FleetSpotCapacityRebalance =
  struct
    type nonrec t =
      {
      replacementStrategy: FleetReplacementStrategy.t option
        [@ocaml.doc
          "The replacement strategy to use. Only available for fleets of type maintain. launch - EC2 Fleet launches a new replacement Spot Instance when a rebalance notification is emitted for an existing Spot Instance in the fleet. EC2 Fleet does not terminate the instances that receive a rebalance notification. You can terminate the old instances, or you can leave them running. You are charged for all instances while they are running. launch-before-terminate - EC2 Fleet launches a new replacement Spot Instance when a rebalance notification is emitted for an existing Spot Instance in the fleet, and then, after a delay that you specify (in TerminationDelay), terminates the instances that received a rebalance notification."];
      terminationDelay: Integer.t option
        [@ocaml.doc
          "The amount of time (in seconds) that Amazon EC2 waits before terminating the old Spot Instance after launching a new replacement Spot Instance. Required when ReplacementStrategy is set to launch-before-terminate. Not valid when ReplacementStrategy is set to launch. Valid values: Minimum value of 120 seconds. Maximum value of 7200 seconds."]}
    let make ?replacementStrategy =
      fun ?terminationDelay ->
        fun () -> { replacementStrategy; terminationDelay }
    let to_value x =
      structure_to_value
        [("replacementStrategy",
           (Option.map x.replacementStrategy
              ~f:FleetReplacementStrategy.to_value));
        ("terminationDelay",
          (Option.map x.terminationDelay ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let terminationDelay =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "terminationDelay") in
      let replacementStrategy =
        (Option.map ~f:FleetReplacementStrategy.of_xml)
          (Xml.child xml_arg0 "replacementStrategy") in
      make ?terminationDelay ?replacementStrategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let terminationDelay =
        field_map json__ "TerminationDelay" Integer.of_json in
      let replacementStrategy =
        field_map json__ "ReplacementStrategy"
          FleetReplacementStrategy.of_json in
      make ?terminationDelay ?replacementStrategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The strategy to use when Amazon EC2 emits a signal that your Spot Instance is at an elevated risk of being interrupted."]
module DhcpConfigurationValueList =
  struct
    type nonrec t = AttributeValue.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AttributeValue.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AttributeValue.of_xml)
    let of_json j =
      list_of_json ~kind:"DhcpConfigurationValueList"
        ~of_json:AttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImportInstanceVolumeDetailItem =
  struct
    type nonrec t =
      {
      availabilityZone: String_.t option
        [@ocaml.doc
          "The Availability Zone where the resulting instance will reside."];
      availabilityZoneId: String_.t option
        [@ocaml.doc
          "The ID of the Availability Zone where the resulting instance will reside."];
      bytesConverted: Long.t option
        [@ocaml.doc "The number of bytes converted so far."];
      description: String_.t option [@ocaml.doc "A description of the task."];
      image: DiskImageDescription.t option [@ocaml.doc "The image."];
      status: String_.t option
        [@ocaml.doc
          "The status of the import of this particular disk image."];
      statusMessage: String_.t option
        [@ocaml.doc
          "The status information or errors related to the disk image."];
      volume: DiskImageVolumeDescription.t option [@ocaml.doc "The volume."]}
    let make ?availabilityZone =
      fun ?availabilityZoneId ->
        fun ?bytesConverted ->
          fun ?description ->
            fun ?image ->
              fun ?status ->
                fun ?statusMessage ->
                  fun ?volume ->
                    fun () ->
                      {
                        availabilityZone;
                        availabilityZoneId;
                        bytesConverted;
                        description;
                        image;
                        status;
                        statusMessage;
                        volume
                      }
    let to_value x =
      structure_to_value
        [("availabilityZone",
           (Option.map x.availabilityZone ~f:String_.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value));
        ("bytesConverted", (Option.map x.bytesConverted ~f:Long.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("image", (Option.map x.image ~f:DiskImageDescription.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("volume",
          (Option.map x.volume ~f:DiskImageVolumeDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volume =
        (Option.map ~f:DiskImageVolumeDescription.of_xml)
          (Xml.child xml_arg0 "volume") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let image =
        (Option.map ~f:DiskImageDescription.of_xml)
          (Xml.child xml_arg0 "image") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let bytesConverted =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "bytesConverted") in
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      make ?volume ?statusMessage ?status ?image ?description ?bytesConverted
        ?availabilityZoneId ?availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volume =
        field_map json__ "Volume" DiskImageVolumeDescription.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let image = field_map json__ "Image" DiskImageDescription.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let bytesConverted = field_map json__ "BytesConverted" Long.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      make ?volume ?statusMessage ?status ?image ?description ?bytesConverted
        ?availabilityZoneId ?availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an import volume task."]
module AssociatedNetworkType =
  struct
    type nonrec t =
      | Vpc 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Vpc -> "vpc" | Non_static_id s -> s
    let of_string = function | "vpc" -> Vpc | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AssociatedNetworkType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AssociatedNetworkType" j)
    let to_json = simple_to_json to_value
  end
module ClientVpnEndpointAttributeStatusCode =
  struct
    type nonrec t =
      | Applying 
      | Applied 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Applying -> "applying"
      | Applied -> "applied"
      | Non_static_id s -> s
    let of_string =
      function
      | "applying" -> Applying
      | "applied" -> Applied
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration ClientVpnEndpointAttributeStatusCode" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ClientVpnEndpointAttributeStatusCode" j)
    let to_json = simple_to_json to_value
  end
module CertificateAuthentication =
  struct
    type nonrec t =
      {
      clientRootCertificateChain: String_.t option
        [@ocaml.doc "The ARN of the client certificate."]}
    let make ?clientRootCertificateChain =
      fun () -> { clientRootCertificateChain }
    let to_value x =
      structure_to_value
        [("clientRootCertificateChain",
           (Option.map x.clientRootCertificateChain ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRootCertificateChain =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "clientRootCertificateChain") in
      make ?clientRootCertificateChain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRootCertificateChain =
        field_map json__ "ClientRootCertificateChain" String_.of_json in
      make ?clientRootCertificateChain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the client certificate used for authentication."]
module ClientVpnAuthenticationType =
  struct
    type nonrec t =
      | Certificate_authentication 
      | Directory_service_authentication 
      | Federated_authentication 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Certificate_authentication -> "certificate-authentication"
      | Directory_service_authentication ->
          "directory-service-authentication"
      | Federated_authentication -> "federated-authentication"
      | Non_static_id s -> s
    let of_string =
      function
      | "certificate-authentication" -> Certificate_authentication
      | "directory-service-authentication" ->
          Directory_service_authentication
      | "federated-authentication" -> Federated_authentication
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ClientVpnAuthenticationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClientVpnAuthenticationType" j)
    let to_json = simple_to_json to_value
  end
module DirectoryServiceAuthentication =
  struct
    type nonrec t =
      {
      directoryId: String_.t option
        [@ocaml.doc
          "The ID of the Active Directory used for authentication."]}
    let make ?directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("directoryId", (Option.map x.directoryId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "directoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" String_.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an Active Directory."]
module FederatedAuthentication =
  struct
    type nonrec t =
      {
      samlProviderArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM SAML identity provider."];
      selfServiceSamlProviderArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM SAML identity provider for the self-service portal."]}
    let make ?samlProviderArn =
      fun ?selfServiceSamlProviderArn ->
        fun () -> { samlProviderArn; selfServiceSamlProviderArn }
    let to_value x =
      structure_to_value
        [("samlProviderArn",
           (Option.map x.samlProviderArn ~f:String_.to_value));
        ("selfServiceSamlProviderArn",
          (Option.map x.selfServiceSamlProviderArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selfServiceSamlProviderArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "selfServiceSamlProviderArn") in
      let samlProviderArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "samlProviderArn") in
      make ?selfServiceSamlProviderArn ?samlProviderArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selfServiceSamlProviderArn =
        field_map json__ "SelfServiceSamlProviderArn" String_.of_json in
      let samlProviderArn =
        field_map json__ "SamlProviderArn" String_.of_json in
      make ?selfServiceSamlProviderArn ?samlProviderArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the IAM SAML identity providers used for federated authentication."]
module AllocationType =
  struct
    type nonrec t =
      | Used 
      | Future 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Used -> "used" | Future -> "future" | Non_static_id s -> s
    let of_string =
      function | "used" -> Used | "future" -> Future | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AllocationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AllocationType" j)
    let to_json = simple_to_json to_value
  end
module CapacityAllocationMetadataList =
  struct
    type nonrec t = CapacityAllocationMetadataEntry.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CapacityAllocationMetadataEntry.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CapacityAllocationMetadataEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"CapacityAllocationMetadataList"
        ~of_json:CapacityAllocationMetadataEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module CapacityReservationId =
  struct
    type nonrec t = string
    let context_ = "CapacityReservationId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CapacityReservationId" j
    let to_json = simple_to_json to_value
  end
module CapacityReservationInstancePlatform =
  struct
    type nonrec t =
      | Linux_UNIX 
      | Red_Hat_Enterprise_Linux 
      | SUSE_Linux 
      | Windows 
      | Windows_with_SQL_Server 
      | Windows_with_SQL_Server_Enterprise 
      | Windows_with_SQL_Server_Standard 
      | Windows_with_SQL_Server_Web 
      | Linux_with_SQL_Server_Standard 
      | Linux_with_SQL_Server_Web 
      | Linux_with_SQL_Server_Enterprise 
      | RHEL_with_SQL_Server_Standard 
      | RHEL_with_SQL_Server_Enterprise 
      | RHEL_with_SQL_Server_Web 
      | RHEL_with_HA 
      | RHEL_with_HA_and_SQL_Server_Standard 
      | RHEL_with_HA_and_SQL_Server_Enterprise 
      | Ubuntu_Pro 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Linux_UNIX -> "Linux/UNIX"
      | Red_Hat_Enterprise_Linux -> "Red Hat Enterprise Linux"
      | SUSE_Linux -> "SUSE Linux"
      | Windows -> "Windows"
      | Windows_with_SQL_Server -> "Windows with SQL Server"
      | Windows_with_SQL_Server_Enterprise ->
          "Windows with SQL Server Enterprise"
      | Windows_with_SQL_Server_Standard ->
          "Windows with SQL Server Standard"
      | Windows_with_SQL_Server_Web -> "Windows with SQL Server Web"
      | Linux_with_SQL_Server_Standard -> "Linux with SQL Server Standard"
      | Linux_with_SQL_Server_Web -> "Linux with SQL Server Web"
      | Linux_with_SQL_Server_Enterprise ->
          "Linux with SQL Server Enterprise"
      | RHEL_with_SQL_Server_Standard -> "RHEL with SQL Server Standard"
      | RHEL_with_SQL_Server_Enterprise -> "RHEL with SQL Server Enterprise"
      | RHEL_with_SQL_Server_Web -> "RHEL with SQL Server Web"
      | RHEL_with_HA -> "RHEL with HA"
      | RHEL_with_HA_and_SQL_Server_Standard ->
          "RHEL with HA and SQL Server Standard"
      | RHEL_with_HA_and_SQL_Server_Enterprise ->
          "RHEL with HA and SQL Server Enterprise"
      | Ubuntu_Pro -> "Ubuntu Pro"
      | Non_static_id s -> s
    let of_string =
      function
      | "Linux/UNIX" -> Linux_UNIX
      | "Red Hat Enterprise Linux" -> Red_Hat_Enterprise_Linux
      | "SUSE Linux" -> SUSE_Linux
      | "Windows" -> Windows
      | "Windows with SQL Server" -> Windows_with_SQL_Server
      | "Windows with SQL Server Enterprise" ->
          Windows_with_SQL_Server_Enterprise
      | "Windows with SQL Server Standard" ->
          Windows_with_SQL_Server_Standard
      | "Windows with SQL Server Web" -> Windows_with_SQL_Server_Web
      | "Linux with SQL Server Standard" -> Linux_with_SQL_Server_Standard
      | "Linux with SQL Server Web" -> Linux_with_SQL_Server_Web
      | "Linux with SQL Server Enterprise" ->
          Linux_with_SQL_Server_Enterprise
      | "RHEL with SQL Server Standard" -> RHEL_with_SQL_Server_Standard
      | "RHEL with SQL Server Enterprise" -> RHEL_with_SQL_Server_Enterprise
      | "RHEL with SQL Server Web" -> RHEL_with_SQL_Server_Web
      | "RHEL with HA" -> RHEL_with_HA
      | "RHEL with HA and SQL Server Standard" ->
          RHEL_with_HA_and_SQL_Server_Standard
      | "RHEL with HA and SQL Server Enterprise" ->
          RHEL_with_HA_and_SQL_Server_Enterprise
      | "Ubuntu Pro" -> Ubuntu_Pro
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration CapacityReservationInstancePlatform" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"CapacityReservationInstancePlatform" j)
    let to_json = simple_to_json to_value
  end
module DoubleWithConstraints =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:99.999) >>=
             (fun () -> check_float_min i ~min:0.001));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module IntegerWithConstraints =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for IntegerWithConstraints" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AsnAssociationState =
  struct
    type nonrec t =
      | Disassociated 
      | Failed_disassociation 
      | Failed_association 
      | Pending_disassociation 
      | Pending_association 
      | Associated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disassociated -> "disassociated"
      | Failed_disassociation -> "failed-disassociation"
      | Failed_association -> "failed-association"
      | Pending_disassociation -> "pending-disassociation"
      | Pending_association -> "pending-association"
      | Associated -> "associated"
      | Non_static_id s -> s
    let of_string =
      function
      | "disassociated" -> Disassociated
      | "failed-disassociation" -> Failed_disassociation
      | "failed-association" -> Failed_association
      | "pending-disassociation" -> Pending_disassociation
      | "pending-association" -> Pending_association
      | "associated" -> Associated
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AsnAssociationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AsnAssociationState" j)
    let to_json = simple_to_json to_value
  end
module Blob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module S3StorageUploadPolicySignature =
  struct
    type nonrec t = string
    let context_ = "S3StorageUploadPolicySignature"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3StorageUploadPolicySignature" j
    let to_json = simple_to_json to_value
  end
module IKEVersionsRequestListValue =
  struct
    type nonrec t = {
      value: String_.t option [@ocaml.doc "The IKE version."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The IKE version that is permitted for the VPN tunnel."]
module Phase1DHGroupNumbersRequestListValue =
  struct
    type nonrec t =
      {
      value: Integer.t option
        [@ocaml.doc "The Diffie-Hellmann group number."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" Integer.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a Diffie-Hellman group number for the VPN tunnel for phase 1 IKE negotiations."]
module Phase1EncryptionAlgorithmsRequestListValue =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "The value for the encryption algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the encryption algorithm for the VPN tunnel for phase 1 IKE negotiations."]
module Phase1IntegrityAlgorithmsRequestListValue =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "The value for the integrity algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the integrity algorithm for the VPN tunnel for phase 1 IKE negotiations."]
module Phase2DHGroupNumbersRequestListValue =
  struct
    type nonrec t =
      {
      value: Integer.t option
        [@ocaml.doc "The Diffie-Hellmann group number."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" Integer.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a Diffie-Hellman group number for the VPN tunnel for phase 2 IKE negotiations."]
module Phase2EncryptionAlgorithmsRequestListValue =
  struct
    type nonrec t =
      {
      value: String_.t option [@ocaml.doc "The encryption algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the encryption algorithm for the VPN tunnel for phase 2 IKE negotiations."]
module Phase2IntegrityAlgorithmsRequestListValue =
  struct
    type nonrec t =
      {
      value: String_.t option [@ocaml.doc "The integrity algorithm."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the integrity algorithm for the VPN tunnel for phase 2 IKE negotiations."]
module CloudWatchLogOptionsSpecification =
  struct
    type nonrec t =
      {
      logEnabled: Boolean.t option
        [@ocaml.doc
          "Enable or disable VPN tunnel logging feature. Default value is False. Valid values: True | False"];
      logGroupArn: CloudWatchLogGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch log group to send logs to."];
      logOutputFormat: String_.t option
        [@ocaml.doc
          "Set log format. Default format is json. Valid values: json | text"];
      bgpLogEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether to enable BGP logging for the VPN connection. Default value is False. Valid values: True | False"];
      bgpLogGroupArn: CloudWatchLogGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudWatch log group where BGP logs will be sent."];
      bgpLogOutputFormat: String_.t option
        [@ocaml.doc
          "The desired output format for BGP logs to be sent to CloudWatch. Default format is json. Valid values: json | text"]}
    let make ?logEnabled =
      fun ?logGroupArn ->
        fun ?logOutputFormat ->
          fun ?bgpLogEnabled ->
            fun ?bgpLogGroupArn ->
              fun ?bgpLogOutputFormat ->
                fun () ->
                  {
                    logEnabled;
                    logGroupArn;
                    logOutputFormat;
                    bgpLogEnabled;
                    bgpLogGroupArn;
                    bgpLogOutputFormat
                  }
    let to_value x =
      structure_to_value
        [("LogEnabled", (Option.map x.logEnabled ~f:Boolean.to_value));
        ("LogGroupArn",
          (Option.map x.logGroupArn ~f:CloudWatchLogGroupArn.to_value));
        ("LogOutputFormat",
          (Option.map x.logOutputFormat ~f:String_.to_value));
        ("BgpLogEnabled", (Option.map x.bgpLogEnabled ~f:Boolean.to_value));
        ("BgpLogGroupArn",
          (Option.map x.bgpLogGroupArn ~f:CloudWatchLogGroupArn.to_value));
        ("BgpLogOutputFormat",
          (Option.map x.bgpLogOutputFormat ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bgpLogOutputFormat =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "BgpLogOutputFormat") in
      let bgpLogGroupArn =
        (Option.map ~f:CloudWatchLogGroupArn.of_xml)
          (Xml.child xml_arg0 "BgpLogGroupArn") in
      let bgpLogEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "BgpLogEnabled") in
      let logOutputFormat =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LogOutputFormat") in
      let logGroupArn =
        (Option.map ~f:CloudWatchLogGroupArn.of_xml)
          (Xml.child xml_arg0 "LogGroupArn") in
      let logEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "LogEnabled") in
      make ?bgpLogOutputFormat ?bgpLogGroupArn ?bgpLogEnabled
        ?logOutputFormat ?logGroupArn ?logEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bgpLogOutputFormat =
        field_map json__ "BgpLogOutputFormat" String_.of_json in
      let bgpLogGroupArn =
        field_map json__ "BgpLogGroupArn" CloudWatchLogGroupArn.of_json in
      let bgpLogEnabled = field_map json__ "BgpLogEnabled" Boolean.of_json in
      let logOutputFormat =
        field_map json__ "LogOutputFormat" String_.of_json in
      let logGroupArn =
        field_map json__ "LogGroupArn" CloudWatchLogGroupArn.of_json in
      let logEnabled = field_map json__ "LogEnabled" Boolean.of_json in
      make ?bgpLogOutputFormat ?bgpLogGroupArn ?bgpLogEnabled
        ?logOutputFormat ?logGroupArn ?logEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for sending VPN tunnel logs to CloudWatch."]
module ResourceStatementRequest =
  struct
    type nonrec t =
      {
      resources: ValueStringList.t option [@ocaml.doc "The resources."];
      resourceTypes: ValueStringList.t option
        [@ocaml.doc "The resource types."]}
    let make ?resources =
      fun ?resourceTypes -> fun () -> { resources; resourceTypes }
    let to_value x =
      structure_to_value
        [("Resource", (Option.map x.resources ~f:ValueStringList.to_value));
        ("ResourceType",
          (Option.map x.resourceTypes ~f:ValueStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTypes =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resources =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "Resource") in
      make ?resourceTypes ?resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTypes =
        field_map json__ "ResourceTypes" ValueStringList.of_json in
      let resources = field_map json__ "Resources" ValueStringList.of_json in
      make ?resourceTypes ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource statement."]
module InstanceIpv6AddressRequest =
  struct
    type nonrec t =
      {
      ipv6Address: String_.t option [@ocaml.doc "The IPv6 address."]}
    let make ?ipv6Address = fun () -> { ipv6Address }
    let to_value x =
      structure_to_value
        [("Ipv6Address", (Option.map x.ipv6Address ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Address =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      make ?ipv6Address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Address = field_map json__ "Ipv6Address" String_.of_json in
      make ?ipv6Address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv6 address."]
module SecondaryInterfacePrivateIpAddressSpecificationRequest =
  struct
    type nonrec t =
      {
      privateIpAddress: String_.t option
        [@ocaml.doc "The private IPv4 address."]}
    let make ?privateIpAddress = fun () -> { privateIpAddress }
    let to_value x =
      structure_to_value
        [("PrivateIpAddress",
           (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PrivateIpAddress") in
      make ?privateIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      make ?privateIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a private IPv4 address specification for a secondary interface request."]
module ClientVpnConnectionStatusCode =
  struct
    type nonrec t =
      | Active 
      | Failed_to_terminate 
      | Terminating 
      | Terminated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "active"
      | Failed_to_terminate -> "failed-to-terminate"
      | Terminating -> "terminating"
      | Terminated -> "terminated"
      | Non_static_id s -> s
    let of_string =
      function
      | "active" -> Active
      | "failed-to-terminate" -> Failed_to_terminate
      | "terminating" -> Terminating
      | "terminated" -> Terminated
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ClientVpnConnectionStatusCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClientVpnConnectionStatusCode" j)
    let to_json = simple_to_json to_value
  end
module TransitGatewayRouteAttachment =
  struct
    type nonrec t =
      {
      resourceId: String_.t option [@ocaml.doc "The ID of the resource."];
      transitGatewayAttachmentId: String_.t option
        [@ocaml.doc "The ID of the attachment."];
      resourceType: TransitGatewayAttachmentResourceType.t option
        [@ocaml.doc
          "The resource type. Note that the tgw-peering resource type has been deprecated."]}
    let make ?resourceId =
      fun ?transitGatewayAttachmentId ->
        fun ?resourceType ->
          fun () -> { resourceId; transitGatewayAttachmentId; resourceType }
    let to_value x =
      structure_to_value
        [("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("transitGatewayAttachmentId",
          (Option.map x.transitGatewayAttachmentId ~f:String_.to_value));
        ("resourceType",
          (Option.map x.resourceType
             ~f:TransitGatewayAttachmentResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:TransitGatewayAttachmentResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let transitGatewayAttachmentId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "transitGatewayAttachmentId") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      make ?resourceType ?transitGatewayAttachmentId ?resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType =
        field_map json__ "ResourceType"
          TransitGatewayAttachmentResourceType.of_json in
      let transitGatewayAttachmentId =
        field_map json__ "TransitGatewayAttachmentId" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      make ?resourceType ?transitGatewayAttachmentId ?resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route attachment."]
module ScheduledInstancesEbs =
  struct
    type nonrec t =
      {
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the volume is deleted on instance termination."];
      encrypted: Boolean.t option
        [@ocaml.doc
          "Indicates whether the volume is encrypted. You can attached encrypted volumes only to instances that support them."];
      iops: Integer.t option
        [@ocaml.doc
          "The number of I/O operations per second (IOPS) to provision for a gp3, io1, or io2 volume."];
      snapshotId: SnapshotId.t option [@ocaml.doc "The ID of the snapshot."];
      volumeSize: Integer.t option
        [@ocaml.doc
          "The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size."];
      volumeType: String_.t option
        [@ocaml.doc "The volume type. Default: gp2"]}
    let make ?deleteOnTermination =
      fun ?encrypted ->
        fun ?iops ->
          fun ?snapshotId ->
            fun ?volumeSize ->
              fun ?volumeType ->
                fun () ->
                  {
                    deleteOnTermination;
                    encrypted;
                    iops;
                    snapshotId;
                    volumeSize;
                    volumeType
                  }
    let to_value x =
      structure_to_value
        [("DeleteOnTermination",
           (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Boolean.to_value));
        ("Iops", (Option.map x.iops ~f:Integer.to_value));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("VolumeSize", (Option.map x.volumeSize ~f:Integer.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VolumeType") in
      let volumeSize =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "VolumeSize") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let iops = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Iops") in
      let encrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeleteOnTermination") in
      make ?volumeType ?volumeSize ?snapshotId ?iops ?encrypted
        ?deleteOnTermination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeType = field_map json__ "VolumeType" String_.of_json in
      let volumeSize = field_map json__ "VolumeSize" Integer.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let iops = field_map json__ "Iops" Integer.of_json in
      let encrypted = field_map json__ "Encrypted" Boolean.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      make ?volumeType ?volumeSize ?snapshotId ?iops ?encrypted
        ?deleteOnTermination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an EBS volume for a Scheduled Instance."]
module PrivateIpAddressConfigSet =
  struct
    type nonrec t = ScheduledInstancesPrivateIpAddressConfig.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ScheduledInstancesPrivateIpAddressConfig.to_value))
        |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:ScheduledInstancesPrivateIpAddressConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateIpAddressConfigSet"
        ~of_json:ScheduledInstancesPrivateIpAddressConfig.of_json j
    let to_json v = composed_to_json to_value v
  end
module ScheduledInstancesIpv6AddressList =
  struct
    type nonrec t = ScheduledInstancesIpv6Address.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ScheduledInstancesIpv6Address.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ScheduledInstancesIpv6Address.of_xml)
    let of_json j =
      list_of_json ~kind:"ScheduledInstancesIpv6AddressList"
        ~of_json:ScheduledInstancesIpv6Address.of_json j
    let to_json v = composed_to_json to_value v
  end
module ScheduledInstancesSecurityGroupIdSet =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"ScheduledInstancesSecurityGroupIdSet"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceSecondaryInterfacePrivateIpAddressRequest =
  struct
    type nonrec t =
      {
      privateIpAddress: String_.t [@ocaml.doc "The private IPv4 address."]}
    let context_ = "InstanceSecondaryInterfacePrivateIpAddressRequest"
    let make ~privateIpAddress = fun () -> { privateIpAddress }
    let to_value x =
      structure_to_value
        [("PrivateIpAddress", (Some (String_.to_value x.privateIpAddress)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrivateIpAddress") in
      make ~privateIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map_exn json__ "PrivateIpAddress" String_.of_json in
      make ~privateIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a private IPv4 address for a secondary interface request."]
module RunInstancesMonitoringEnabled =
  struct
    type nonrec t =
      {
      enabled: Boolean.t
        [@ocaml.doc
          "Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled."]}
    let context_ = "RunInstancesMonitoringEnabled"
    let make ~enabled = fun () -> { enabled }
    let to_value x =
      structure_to_value [("enabled", (Some (Boolean.to_value x.enabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "enabled") in
      make ~enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabled = field_map_exn json__ "Enabled" Boolean.of_json in
      make ~enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the monitoring of an instance."]
module MaximumDaysSinceCreatedValue =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2147483647) >>=
             (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumDaysSinceCreatedValue"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MaximumDaysSinceDeprecatedValue =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2147483647) >>=
             (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaximumDaysSinceDeprecatedValue"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ImageNameCriteriaRequest =
  struct
    type nonrec t = string
    let context_ = "ImageNameCriteriaRequest"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImageNameCriteriaRequest" j
    let to_json = simple_to_json to_value
  end
module ImageProviderRequest =
  struct
    type nonrec t = string
    let context_ = "ImageProviderRequest"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImageProviderRequest" j
    let to_json = simple_to_json to_value
  end
module MarketplaceProductCodeRequest =
  struct
    type nonrec t = string
    let context_ = "MarketplaceProductCodeRequest"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MarketplaceProductCodeRequest" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayMulitcastDomainAssociationState =
  struct
    type nonrec t =
      | PendingAcceptance 
      | Associating 
      | Associated 
      | Disassociating 
      | Disassociated 
      | Rejected 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PendingAcceptance -> "pendingAcceptance"
      | Associating -> "associating"
      | Associated -> "associated"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Rejected -> "rejected"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "pendingAcceptance" -> PendingAcceptance
      | "associating" -> Associating
      | "associated" -> Associated
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | "rejected" -> Rejected
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration TransitGatewayMulitcastDomainAssociationState"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"TransitGatewayMulitcastDomainAssociationState"
           j)
    let to_json = simple_to_json to_value
  end
module OccurrenceDaySet =
  struct
    type nonrec t = Integer.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Integer.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Integer.of_xml)
    let of_json j =
      list_of_json ~kind:"OccurrenceDaySet" ~of_json:Integer.of_json j
    let to_json v = composed_to_json to_value v
  end
module PermissionGroup =
  struct
    type nonrec t =
      | All 
      | Non_static_id of string 
    let make i = i
    let to_string = function | All -> "all" | Non_static_id s -> s
    let of_string = function | "all" -> All | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration PermissionGroup" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PermissionGroup" j)
    let to_json = simple_to_json to_value
  end
module PrefixListResourceId =
  struct
    type nonrec t = string
    let context_ = "PrefixListResourceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrefixListResourceId" j
    let to_json = simple_to_json to_value
  end
module IpamPrefixListResolverRuleConditionRequest =
  struct
    type nonrec t =
      {
      operation: IpamPrefixListResolverRuleConditionOperation.t
        [@ocaml.doc
          "The operation to perform when evaluating this condition."];
      ipamPoolId: String_.t option
        [@ocaml.doc
          "The ID of the IPAM pool to match against. This condition selects CIDRs that belong to the specified IPAM pool."];
      resourceId: String_.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services resource to match against. This condition selects CIDRs associated with the specified resource."];
      resourceOwner: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the resources to match against. This condition selects CIDRs from resources owned by the specified account."];
      resourceRegion: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the resources are located. This condition selects CIDRs from resources in the specified Region."];
      resourceTag: RequestIpamResourceTag.t option
        [@ocaml.doc
          "A tag key-value pair to match against. This condition selects CIDRs from resources that have the specified tag."];
      cidr: String_.t option
        [@ocaml.doc
          "A CIDR block to match against. This condition selects CIDRs that fall within or match the specified CIDR range."]}
    let context_ = "IpamPrefixListResolverRuleConditionRequest"
    let make ?ipamPoolId =
      fun ?resourceId ->
        fun ?resourceOwner ->
          fun ?resourceRegion ->
            fun ?resourceTag ->
              fun ?cidr ->
                fun ~operation ->
                  fun () ->
                    {
                      ipamPoolId;
                      resourceId;
                      resourceOwner;
                      resourceRegion;
                      resourceTag;
                      cidr;
                      operation
                    }
    let to_value x =
      structure_to_value
        [("Operation",
           (Some
              (IpamPrefixListResolverRuleConditionOperation.to_value
                 x.operation)));
        ("IpamPoolId", (Option.map x.ipamPoolId ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceOwner", (Option.map x.resourceOwner ~f:String_.to_value));
        ("ResourceRegion", (Option.map x.resourceRegion ~f:String_.to_value));
        ("ResourceTag",
          (Option.map x.resourceTag ~f:RequestIpamResourceTag.to_value));
        ("Cidr", (Option.map x.cidr ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidr = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Cidr") in
      let resourceTag =
        (Option.map ~f:RequestIpamResourceTag.of_xml)
          (Xml.child xml_arg0 "ResourceTag") in
      let resourceRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceRegion") in
      let resourceOwner =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceOwner") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let ipamPoolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "IpamPoolId") in
      let operation =
        IpamPrefixListResolverRuleConditionOperation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operation") in
      make ?cidr ?resourceTag ?resourceRegion ?resourceOwner ?resourceId
        ?ipamPoolId ~operation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidr = field_map json__ "Cidr" String_.of_json in
      let resourceTag =
        field_map json__ "ResourceTag" RequestIpamResourceTag.of_json in
      let resourceRegion = field_map json__ "ResourceRegion" String_.of_json in
      let resourceOwner = field_map json__ "ResourceOwner" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let ipamPoolId = field_map json__ "IpamPoolId" String_.of_json in
      let operation =
        field_map_exn json__ "Operation"
          IpamPrefixListResolverRuleConditionOperation.of_json in
      make ?cidr ?resourceTag ?resourceRegion ?resourceOwner ?resourceId
        ?ipamPoolId ~operation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a condition used when creating or modifying resolver rules. CIDR selection rules define the business logic for selecting CIDRs from IPAM. If a CIDR matches any of the rules, it will be included. If a rule has multiple conditions, the CIDR has to match every condition of that rule. You can create a prefix list resolver without any CIDR selection rules, but it will generate empty versions (containing no CIDRs) until you add rules. There are three rule types. Only 2 of the 3 rule types support conditions - IPAM pool CIDR and Scope resource CIDR. Static CIDR rules cannot have conditions. Static CIDR: A fixed list of CIDRs that do not change (like a manual list replicated across Regions) IPAM pool CIDR: CIDRs from specific IPAM pools (like all CIDRs from your IPAM production pool) If you choose this option, choose the following: IPAM scope: Select the IPAM scope to search for resources Conditions: Property IPAM pool ID: Select an IPAM pool that contains the resources CIDR (like 10.24.34.0/23) Operation: Equals/Not equals Value: The value on which to match the condition Scope resource CIDR: CIDRs from Amazon Web Services resources like VPCs, subnets, EIPs within an IPAM scope If you choose this option, choose the following: IPAM scope: Select the IPAM scope to search for resources Resource type: Select a resource, like a VPC or subnet. Conditions: Property: Resource ID: The unique ID of a resource (like vpc-1234567890abcdef0) Resource owner (like 111122223333) Resource region (like us-east-1) Resource tag (like key: name, value: dev-vpc-1) CIDR (like 10.24.34.0/23) Operation: Equals/Not equals Value: The value on which to match the condition"]
module UnsuccessfulInstanceCreditSpecificationErrorCode =
  struct
    type nonrec t =
      | InvalidInstanceID_Malformed 
      | InvalidInstanceID_NotFound 
      | IncorrectInstanceState 
      | InstanceCreditSpecification_NotSupported 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InvalidInstanceID_Malformed -> "InvalidInstanceID.Malformed"
      | InvalidInstanceID_NotFound -> "InvalidInstanceID.NotFound"
      | IncorrectInstanceState -> "IncorrectInstanceState"
      | InstanceCreditSpecification_NotSupported ->
          "InstanceCreditSpecification.NotSupported"
      | Non_static_id s -> s
    let of_string =
      function
      | "InvalidInstanceID.Malformed" -> InvalidInstanceID_Malformed
      | "InvalidInstanceID.NotFound" -> InvalidInstanceID_NotFound
      | "IncorrectInstanceState" -> IncorrectInstanceState
      | "InstanceCreditSpecification.NotSupported" ->
          InstanceCreditSpecification_NotSupported
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration UnsuccessfulInstanceCreditSpecificationErrorCode"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json
           ~kind:"UnsuccessfulInstanceCreditSpecificationErrorCode" j)
    let to_json = simple_to_json to_value
  end
module VolumeId =
  struct
    type nonrec t = string
    let context_ = "VolumeId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VolumeId" j
    let to_json = simple_to_json to_value
  end
module FleetLaunchTemplateOverridesRequest =
  struct
    type nonrec t =
      {
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The instance type. mac1.metal is not supported as a launch template override. If you specify InstanceType, you can't specify InstanceRequirements."];
      maxPrice: String_.t option
        [@ocaml.doc
          "The maximum price per unit hour that you are willing to pay for a Spot Instance. We do not recommend using this parameter because it can lead to increased interruptions. If you do not specify this parameter, you will pay the current Spot price. If you specify a maximum price, your instances will be interrupted more frequently than if you do not specify this parameter. If you specify a maximum price, it must be more than USD $0.001. Specifying a value below USD $0.001 will result in an InvalidParameterValue error message."];
      subnetId: SubnetId.t option
        [@ocaml.doc
          "The IDs of the subnets in which to launch the instances. Separate multiple subnet IDs using commas (for example, subnet-1234abcdeexample1, subnet-0987cdef6example2). A request of type instant can have only one subnet ID."];
      availabilityZone: AvailabilityZoneName.t option
        [@ocaml.doc
          "The Availability Zone in which to launch the instances. For example, us-east-2a. Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."];
      weightedCapacity: Double.t option
        [@ocaml.doc
          "The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms of instances, or a performance characteristic such as vCPUs, memory, or I/O. If the target capacity divided by this value is not a whole number, Amazon EC2 rounds the number of instances to the next whole number. If this value is not specified, the default is 1. When specifying weights, the price used in the lowest-price and price-capacity-optimized allocation strategies is per unit hour (where the instance price is divided by the specified weight). However, if all the specified weights are above the requested TargetCapacity, resulting in only 1 instance being launched, the price used is per instance hour."];
      priority: Double.t option
        [@ocaml.doc
          "The priority for the launch template override. The highest priority is launched first. If the On-Demand AllocationStrategy is set to prioritized, EC2 Fleet uses priority to determine which launch template override to use first in fulfilling On-Demand capacity. If the Spot AllocationStrategy is set to capacity-optimized-prioritized, EC2 Fleet uses priority on a best-effort basis to determine which launch template override to use in fulfilling Spot capacity, but optimizes for capacity first. Valid values are whole numbers starting at 0. The lower the number, the higher the priority. If no number is set, the launch template override has the lowest priority. You can set the same priority for different launch template overrides."];
      placement: Placement.t option
        [@ocaml.doc
          "The location where the instance launched, if applicable."];
      blockDeviceMappings: FleetBlockDeviceMappingRequestList.t option
        [@ocaml.doc
          "The block device mappings, which define the EBS volumes and instance store volumes to attach to the instance at launch. Supported only for fleets of type instant. For more information, see Block device mappings for volumes on Amazon EC2 instances in the Amazon EC2 User Guide."];
      instanceRequirements: InstanceRequirementsRequest.t option
        [@ocaml.doc
          "The attributes for the instance types. When you specify instance attributes, Amazon EC2 will identify instance types with those attributes. If you specify InstanceRequirements, you can't specify InstanceType."];
      imageId: String_.t option
        [@ocaml.doc
          "The ID of the AMI in the format ami-17characters00000. Alternatively, you can specify a Systems Manager parameter, using one of the following formats. The Systems Manager parameter will resolve to an AMI ID on launch. To reference a public parameter: resolve:ssm:public-parameter To reference a parameter stored in the same account: resolve:ssm:parameter-name resolve:ssm:parameter-name:version-number resolve:ssm:parameter-name:label To reference a parameter shared from another Amazon Web Services account: resolve:ssm:parameter-ARN resolve:ssm:parameter-ARN:version-number resolve:ssm:parameter-ARN:label For more information, see Use a Systems Manager parameter instead of an AMI ID in the Amazon EC2 User Guide. This parameter is only available for fleets of type instant. For fleets of type maintain and request, you must specify the AMI ID in the launch template."];
      availabilityZoneId: AvailabilityZoneId.t option
        [@ocaml.doc
          "The ID of the Availability Zone in which to launch the instances. For example, use2-az1. Either AvailabilityZone or AvailabilityZoneId must be specified in the request, but not both."]}
    let make ?instanceType =
      fun ?maxPrice ->
        fun ?subnetId ->
          fun ?availabilityZone ->
            fun ?weightedCapacity ->
              fun ?priority ->
                fun ?placement ->
                  fun ?blockDeviceMappings ->
                    fun ?instanceRequirements ->
                      fun ?imageId ->
                        fun ?availabilityZoneId ->
                          fun () ->
                            {
                              instanceType;
                              maxPrice;
                              subnetId;
                              availabilityZone;
                              weightedCapacity;
                              priority;
                              placement;
                              blockDeviceMappings;
                              instanceRequirements;
                              imageId;
                              availabilityZoneId
                            }
    let to_value x =
      structure_to_value
        [("InstanceType",
           (Option.map x.instanceType ~f:InstanceType.to_value));
        ("MaxPrice", (Option.map x.maxPrice ~f:String_.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZoneName.to_value));
        ("WeightedCapacity",
          (Option.map x.weightedCapacity ~f:Double.to_value));
        ("Priority", (Option.map x.priority ~f:Double.to_value));
        ("Placement", (Option.map x.placement ~f:Placement.to_value));
        ("BlockDeviceMapping",
          (Option.map x.blockDeviceMappings
             ~f:FleetBlockDeviceMappingRequestList.to_value));
        ("InstanceRequirements",
          (Option.map x.instanceRequirements
             ~f:InstanceRequirementsRequest.to_value));
        ("ImageId", (Option.map x.imageId ~f:String_.to_value));
        ("AvailabilityZoneId",
          (Option.map x.availabilityZoneId ~f:AvailabilityZoneId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZoneId =
        (Option.map ~f:AvailabilityZoneId.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneId") in
      let imageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ImageId") in
      let instanceRequirements =
        (Option.map ~f:InstanceRequirementsRequest.of_xml)
          (Xml.child xml_arg0 "InstanceRequirements") in
      let blockDeviceMappings =
        (Option.map ~f:FleetBlockDeviceMappingRequestList.of_xml)
          (Xml.child xml_arg0 "BlockDeviceMapping") in
      let placement =
        (Option.map ~f:Placement.of_xml) (Xml.child xml_arg0 "Placement") in
      let priority =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "Priority") in
      let weightedCapacity =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "WeightedCapacity") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZoneName.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let maxPrice =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MaxPrice") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "InstanceType") in
      make ?availabilityZoneId ?imageId ?instanceRequirements
        ?blockDeviceMappings ?placement ?priority ?weightedCapacity
        ?availabilityZone ?subnetId ?maxPrice ?instanceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" AvailabilityZoneId.of_json in
      let imageId = field_map json__ "ImageId" String_.of_json in
      let instanceRequirements =
        field_map json__ "InstanceRequirements"
          InstanceRequirementsRequest.of_json in
      let blockDeviceMappings =
        field_map json__ "BlockDeviceMappings"
          FleetBlockDeviceMappingRequestList.of_json in
      let placement = field_map json__ "Placement" Placement.of_json in
      let priority = field_map json__ "Priority" Double.of_json in
      let weightedCapacity =
        field_map json__ "WeightedCapacity" Double.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZoneName.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let maxPrice = field_map json__ "MaxPrice" String_.of_json in
      let instanceType = field_map json__ "InstanceType" InstanceType.of_json in
      make ?availabilityZoneId ?imageId ?instanceRequirements
        ?blockDeviceMappings ?placement ?priority ?weightedCapacity
        ?availabilityZone ?subnetId ?maxPrice ?instanceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes overrides for a launch template."]
module LaunchTemplateId =
  struct
    type nonrec t = string
    let context_ = "LaunchTemplateId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LaunchTemplateId" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayAttachmentId =
  struct
    type nonrec t = string
    let context_ = "TransitGatewayAttachmentId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransitGatewayAttachmentId" j
    let to_json = simple_to_json to_value
  end
module TransitGatewayPolicyRuleMetaData =
  struct
    type nonrec t =
      {
      metaDataKey: String_.t option
        [@ocaml.doc
          "The key name for the transit gateway policy rule meta data tag."];
      metaDataValue: String_.t option
        [@ocaml.doc
          "The value of the key for the transit gateway policy rule meta data tag."]}
    let make ?metaDataKey =
      fun ?metaDataValue -> fun () -> { metaDataKey; metaDataValue }
    let to_value x =
      structure_to_value
        [("metaDataKey", (Option.map x.metaDataKey ~f:String_.to_value));
        ("metaDataValue", (Option.map x.metaDataValue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metaDataValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "metaDataValue") in
      let metaDataKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "metaDataKey") in
      make ?metaDataValue ?metaDataKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metaDataValue = field_map json__ "MetaDataValue" String_.of_json in
      let metaDataKey = field_map json__ "MetaDataKey" String_.of_json in
      make ?metaDataValue ?metaDataKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the meta data tags associated with a transit gateway policy rule."]
module RouteServerRouteInstallationDetail =
  struct
    type nonrec t =
      {
      routeTableId: RouteTableId.t option
        [@ocaml.doc
          "The ID of the route table where the route is being installed."];
      routeInstallationStatus: RouteServerRouteInstallationStatus.t option
        [@ocaml.doc
          "The current installation status of the route in the route table."];
      routeInstallationStatusReason: String_.t option
        [@ocaml.doc
          "The reason for the current installation status of the route."]}
    let make ?routeTableId =
      fun ?routeInstallationStatus ->
        fun ?routeInstallationStatusReason ->
          fun () ->
            {
              routeTableId;
              routeInstallationStatus;
              routeInstallationStatusReason
            }
    let to_value x =
      structure_to_value
        [("routeTableId",
           (Option.map x.routeTableId ~f:RouteTableId.to_value));
        ("routeInstallationStatus",
          (Option.map x.routeInstallationStatus
             ~f:RouteServerRouteInstallationStatus.to_value));
        ("routeInstallationStatusReason",
          (Option.map x.routeInstallationStatusReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let routeInstallationStatusReason =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "routeInstallationStatusReason") in
      let routeInstallationStatus =
        (Option.map ~f:RouteServerRouteInstallationStatus.of_xml)
          (Xml.child xml_arg0 "routeInstallationStatus") in
      let routeTableId =
        (Option.map ~f:RouteTableId.of_xml)
          (Xml.child xml_arg0 "routeTableId") in
      make ?routeInstallationStatusReason ?routeInstallationStatus
        ?routeTableId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let routeInstallationStatusReason =
        field_map json__ "RouteInstallationStatusReason" String_.of_json in
      let routeInstallationStatus =
        field_map json__ "RouteInstallationStatus"
          RouteServerRouteInstallationStatus.of_json in
      let routeTableId = field_map json__ "RouteTableId" RouteTableId.of_json in
      make ?routeInstallationStatusReason ?routeInstallationStatus
        ?routeTableId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the installation status of a route in a route table."]
module PathStatement =
  struct
    type nonrec t =
      {
      packetHeaderStatement: PacketHeaderStatement.t option
        [@ocaml.doc "The packet header statement."];
      resourceStatement: ResourceStatement.t option
        [@ocaml.doc "The resource statement."]}
    let make ?packetHeaderStatement =
      fun ?resourceStatement ->
        fun () -> { packetHeaderStatement; resourceStatement }
    let to_value x =
      structure_to_value
        [("packetHeaderStatement",
           (Option.map x.packetHeaderStatement
              ~f:PacketHeaderStatement.to_value));
        ("resourceStatement",
          (Option.map x.resourceStatement ~f:ResourceStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceStatement =
        (Option.map ~f:ResourceStatement.of_xml)
          (Xml.child xml_arg0 "resourceStatement") in
      let packetHeaderStatement =
        (Option.map ~f:PacketHeaderStatement.of_xml)
          (Xml.child xml_arg0 "packetHeaderStatement") in
      make ?resourceStatement ?packetHeaderStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceStatement =
        field_map json__ "ResourceStatement" ResourceStatement.of_json in
      let packetHeaderStatement =
        field_map json__ "PacketHeaderStatement"
          PacketHeaderStatement.of_json in
      make ?resourceStatement ?packetHeaderStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a path statement."]
module ThroughResourcesStatementList =
  struct
    type nonrec t = ThroughResourcesStatement.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ThroughResourcesStatement.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ThroughResourcesStatement.of_xml)
    let of_json j =
      list_of_json ~kind:"ThroughResourcesStatementList"
        ~of_json:ThroughResourcesStatement.of_json j
    let to_json v = composed_to_json to_value v
  end
module PathComponent =
  struct
    type nonrec t =
      {
      sequenceNumber: Integer.t option [@ocaml.doc "The sequence number."];
      aclRule: AnalysisAclRule.t option [@ocaml.doc "The network ACL rule."];
      attachedTo: AnalysisComponent.t option
        [@ocaml.doc "The resource to which the path component is attached."];
      component: AnalysisComponent.t option [@ocaml.doc "The component."];
      destinationVpc: AnalysisComponent.t option
        [@ocaml.doc "The destination VPC."];
      outboundHeader: AnalysisPacketHeader.t option
        [@ocaml.doc "The outbound header."];
      inboundHeader: AnalysisPacketHeader.t option
        [@ocaml.doc "The inbound header."];
      routeTableRoute: AnalysisRouteTableRoute.t option
        [@ocaml.doc "The route table route."];
      securityGroupRule: AnalysisSecurityGroupRule.t option
        [@ocaml.doc "The security group rule."];
      sourceVpc: AnalysisComponent.t option [@ocaml.doc "The source VPC."];
      subnet: AnalysisComponent.t option [@ocaml.doc "The subnet."];
      vpc: AnalysisComponent.t option [@ocaml.doc "The component VPC."];
      additionalDetails: AdditionalDetailList.t option
        [@ocaml.doc "The additional details."];
      transitGateway: AnalysisComponent.t option
        [@ocaml.doc "The transit gateway."];
      transitGatewayRouteTableRoute: TransitGatewayRouteTableRoute.t option
        [@ocaml.doc "The route in a transit gateway route table."];
      explanations: ExplanationList.t option
        [@ocaml.doc "The explanation codes."];
      elasticLoadBalancerListener: AnalysisComponent.t option
        [@ocaml.doc "The load balancer listener."];
      firewallStatelessRule: FirewallStatelessRule.t option
        [@ocaml.doc "The Network Firewall stateless rule."];
      firewallStatefulRule: FirewallStatefulRule.t option
        [@ocaml.doc "The Network Firewall stateful rule."];
      serviceName: String_.t option
        [@ocaml.doc "The name of the VPC endpoint service."]}
    let make ?sequenceNumber =
      fun ?aclRule ->
        fun ?attachedTo ->
          fun ?component ->
            fun ?destinationVpc ->
              fun ?outboundHeader ->
                fun ?inboundHeader ->
                  fun ?routeTableRoute ->
                    fun ?securityGroupRule ->
                      fun ?sourceVpc ->
                        fun ?subnet ->
                          fun ?vpc ->
                            fun ?additionalDetails ->
                              fun ?transitGateway ->
                                fun ?transitGatewayRouteTableRoute ->
                                  fun ?explanations ->
                                    fun ?elasticLoadBalancerListener ->
                                      fun ?firewallStatelessRule ->
                                        fun ?firewallStatefulRule ->
                                          fun ?serviceName ->
                                            fun () ->
                                              {
                                                sequenceNumber;
                                                aclRule;
                                                attachedTo;
                                                component;
                                                destinationVpc;
                                                outboundHeader;
                                                inboundHeader;
                                                routeTableRoute;
                                                securityGroupRule;
                                                sourceVpc;
                                                subnet;
                                                vpc;
                                                additionalDetails;
                                                transitGateway;
                                                transitGatewayRouteTableRoute;
                                                explanations;
                                                elasticLoadBalancerListener;
                                                firewallStatelessRule;
                                                firewallStatefulRule;
                                                serviceName
                                              }
    let to_value x =
      structure_to_value
        [("sequenceNumber",
           (Option.map x.sequenceNumber ~f:Integer.to_value));
        ("aclRule", (Option.map x.aclRule ~f:AnalysisAclRule.to_value));
        ("attachedTo",
          (Option.map x.attachedTo ~f:AnalysisComponent.to_value));
        ("component", (Option.map x.component ~f:AnalysisComponent.to_value));
        ("destinationVpc",
          (Option.map x.destinationVpc ~f:AnalysisComponent.to_value));
        ("outboundHeader",
          (Option.map x.outboundHeader ~f:AnalysisPacketHeader.to_value));
        ("inboundHeader",
          (Option.map x.inboundHeader ~f:AnalysisPacketHeader.to_value));
        ("routeTableRoute",
          (Option.map x.routeTableRoute ~f:AnalysisRouteTableRoute.to_value));
        ("securityGroupRule",
          (Option.map x.securityGroupRule
             ~f:AnalysisSecurityGroupRule.to_value));
        ("sourceVpc", (Option.map x.sourceVpc ~f:AnalysisComponent.to_value));
        ("subnet", (Option.map x.subnet ~f:AnalysisComponent.to_value));
        ("vpc", (Option.map x.vpc ~f:AnalysisComponent.to_value));
        ("additionalDetailSet",
          (Option.map x.additionalDetails ~f:AdditionalDetailList.to_value));
        ("transitGateway",
          (Option.map x.transitGateway ~f:AnalysisComponent.to_value));
        ("transitGatewayRouteTableRoute",
          (Option.map x.transitGatewayRouteTableRoute
             ~f:TransitGatewayRouteTableRoute.to_value));
        ("explanationSet",
          (Option.map x.explanations ~f:ExplanationList.to_value));
        ("elasticLoadBalancerListener",
          (Option.map x.elasticLoadBalancerListener
             ~f:AnalysisComponent.to_value));
        ("firewallStatelessRule",
          (Option.map x.firewallStatelessRule
             ~f:FirewallStatelessRule.to_value));
        ("firewallStatefulRule",
          (Option.map x.firewallStatefulRule ~f:FirewallStatefulRule.to_value));
        ("serviceName", (Option.map x.serviceName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceName") in
      let firewallStatefulRule =
        (Option.map ~f:FirewallStatefulRule.of_xml)
          (Xml.child xml_arg0 "firewallStatefulRule") in
      let firewallStatelessRule =
        (Option.map ~f:FirewallStatelessRule.of_xml)
          (Xml.child xml_arg0 "firewallStatelessRule") in
      let elasticLoadBalancerListener =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "elasticLoadBalancerListener") in
      let explanations =
        (Option.map ~f:ExplanationList.of_xml)
          (Xml.child xml_arg0 "explanationSet") in
      let transitGatewayRouteTableRoute =
        (Option.map ~f:TransitGatewayRouteTableRoute.of_xml)
          (Xml.child xml_arg0 "transitGatewayRouteTableRoute") in
      let transitGateway =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "transitGateway") in
      let additionalDetails =
        (Option.map ~f:AdditionalDetailList.of_xml)
          (Xml.child xml_arg0 "additionalDetailSet") in
      let vpc =
        (Option.map ~f:AnalysisComponent.of_xml) (Xml.child xml_arg0 "vpc") in
      let subnet =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "subnet") in
      let sourceVpc =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "sourceVpc") in
      let securityGroupRule =
        (Option.map ~f:AnalysisSecurityGroupRule.of_xml)
          (Xml.child xml_arg0 "securityGroupRule") in
      let routeTableRoute =
        (Option.map ~f:AnalysisRouteTableRoute.of_xml)
          (Xml.child xml_arg0 "routeTableRoute") in
      let inboundHeader =
        (Option.map ~f:AnalysisPacketHeader.of_xml)
          (Xml.child xml_arg0 "inboundHeader") in
      let outboundHeader =
        (Option.map ~f:AnalysisPacketHeader.of_xml)
          (Xml.child xml_arg0 "outboundHeader") in
      let destinationVpc =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "destinationVpc") in
      let component =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "component") in
      let attachedTo =
        (Option.map ~f:AnalysisComponent.of_xml)
          (Xml.child xml_arg0 "attachedTo") in
      let aclRule =
        (Option.map ~f:AnalysisAclRule.of_xml) (Xml.child xml_arg0 "aclRule") in
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      make ?serviceName ?firewallStatefulRule ?firewallStatelessRule
        ?elasticLoadBalancerListener ?explanations
        ?transitGatewayRouteTableRoute ?transitGateway ?additionalDetails
        ?vpc ?subnet ?sourceVpc ?securityGroupRule ?routeTableRoute
        ?inboundHeader ?outboundHeader ?destinationVpc ?component ?attachedTo
        ?aclRule ?sequenceNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceName = field_map json__ "ServiceName" String_.of_json in
      let firewallStatefulRule =
        field_map json__ "FirewallStatefulRule" FirewallStatefulRule.of_json in
      let firewallStatelessRule =
        field_map json__ "FirewallStatelessRule"
          FirewallStatelessRule.of_json in
      let elasticLoadBalancerListener =
        field_map json__ "ElasticLoadBalancerListener"
          AnalysisComponent.of_json in
      let explanations =
        field_map json__ "Explanations" ExplanationList.of_json in
      let transitGatewayRouteTableRoute =
        field_map json__ "TransitGatewayRouteTableRoute"
          TransitGatewayRouteTableRoute.of_json in
      let transitGateway =
        field_map json__ "TransitGateway" AnalysisComponent.of_json in
      let additionalDetails =
        field_map json__ "AdditionalDetails" AdditionalDetailList.of_json in
      let vpc = field_map json__ "Vpc" AnalysisComponent.of_json in
      let subnet = field_map json__ "Subnet" AnalysisComponent.of_json in
      let sourceVpc = field_map json__ "SourceVpc" AnalysisComponent.of_json in
      let securityGroupRule =
        field_map json__ "SecurityGroupRule"
          AnalysisSecurityGroupRule.of_json in
      let routeTableRoute =
        field_map json__ "RouteTableRoute" AnalysisRouteTableRoute.of_json in
      let inboundHeader =
        field_map json__ "InboundHeader" AnalysisPacketHeader.of_json in
      let outboundHeader =
        field_map json__ "OutboundHeader" AnalysisPacketHeader.of_json in
      let destinationVpc =
        field_map json__ "DestinationVpc" AnalysisComponent.of_json in
      let component = field_map json__ "Component" AnalysisComponent.of_json in
      let attachedTo =
        field_map json__ "AttachedTo" AnalysisComponent.of_json in
      let aclRule = field_map json__ "AclRule" AnalysisAclRule.of_json in
      let sequenceNumber = field_map json__ "SequenceNumber" Integer.of_json in
      make ?serviceName ?firewallStatefulRule ?firewallStatelessRule
        ?elasticLoadBalancerListener ?explanations
        ?transitGatewayRouteTableRoute ?transitGateway ?additionalDetails
        ?vpc ?subnet ?sourceVpc ?securityGroupRule ?routeTableRoute
        ?inboundHeader ?outboundHeader ?destinationVpc ?component ?attachedTo
        ?aclRule ?sequenceNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a path component."]
module IpamPrefixListResolverRuleCondition =
  struct
    type nonrec t =
      {
      operation: IpamPrefixListResolverRuleConditionOperation.t option
        [@ocaml.doc
          "The operation to perform when evaluating this condition. Valid values include equals, not-equals, contains, and not-contains."];
      ipamPoolId: String_.t option
        [@ocaml.doc
          "The ID of the IPAM pool to match against. This condition selects CIDRs that belong to the specified IPAM pool."];
      resourceId: String_.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services resource to match against. This condition selects CIDRs associated with the specified resource."];
      resourceOwner: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the resources to match against. This condition selects CIDRs from resources owned by the specified account."];
      resourceRegion: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the resources are located. This condition selects CIDRs from resources in the specified Region."];
      resourceTag: IpamResourceTag.t option
        [@ocaml.doc
          "A tag key-value pair to match against. This condition selects CIDRs from resources that have the specified tag."];
      cidr: String_.t option
        [@ocaml.doc
          "A CIDR block to match against. This condition selects CIDRs that fall within or match the specified CIDR range."]}
    let make ?operation =
      fun ?ipamPoolId ->
        fun ?resourceId ->
          fun ?resourceOwner ->
            fun ?resourceRegion ->
              fun ?resourceTag ->
                fun ?cidr ->
                  fun () ->
                    {
                      operation;
                      ipamPoolId;
                      resourceId;
                      resourceOwner;
                      resourceRegion;
                      resourceTag;
                      cidr
                    }
    let to_value x =
      structure_to_value
        [("operation",
           (Option.map x.operation
              ~f:IpamPrefixListResolverRuleConditionOperation.to_value));
        ("ipamPoolId", (Option.map x.ipamPoolId ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceOwner", (Option.map x.resourceOwner ~f:String_.to_value));
        ("resourceRegion", (Option.map x.resourceRegion ~f:String_.to_value));
        ("resourceTag",
          (Option.map x.resourceTag ~f:IpamResourceTag.to_value));
        ("cidr", (Option.map x.cidr ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidr = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidr") in
      let resourceTag =
        (Option.map ~f:IpamResourceTag.of_xml)
          (Xml.child xml_arg0 "resourceTag") in
      let resourceRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceRegion") in
      let resourceOwner =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceOwner") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let ipamPoolId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipamPoolId") in
      let operation =
        (Option.map ~f:IpamPrefixListResolverRuleConditionOperation.of_xml)
          (Xml.child xml_arg0 "operation") in
      make ?cidr ?resourceTag ?resourceRegion ?resourceOwner ?resourceId
        ?ipamPoolId ?operation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidr = field_map json__ "Cidr" String_.of_json in
      let resourceTag =
        field_map json__ "ResourceTag" IpamResourceTag.of_json in
      let resourceRegion = field_map json__ "ResourceRegion" String_.of_json in
      let resourceOwner = field_map json__ "ResourceOwner" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let ipamPoolId = field_map json__ "IpamPoolId" String_.of_json in
      let operation =
        field_map json__ "Operation"
          IpamPrefixListResolverRuleConditionOperation.of_json in
      make ?cidr ?resourceTag ?resourceRegion ?resourceOwner ?resourceId
        ?ipamPoolId ?operation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a condition within a CIDR selection rule. Conditions define the criteria for selecting CIDRs from IPAM's database based on resource attributes. CIDR selection rules define the business logic for selecting CIDRs from IPAM. If a CIDR matches any of the rules, it will be included. If a rule has multiple conditions, the CIDR has to match every condition of that rule. You can create a prefix list resolver without any CIDR selection rules, but it will generate empty versions (containing no CIDRs) until you add rules. There are three rule types. Only 2 of the 3 rule types support conditions - IPAM pool CIDR and Scope resource CIDR. Static CIDR rules cannot have conditions. Static CIDR: A fixed list of CIDRs that do not change (like a manual list replicated across Regions) IPAM pool CIDR: CIDRs from specific IPAM pools (like all CIDRs from your IPAM production pool) If you choose this option, choose the following: IPAM scope: Select the IPAM scope to search for resources Conditions: Property IPAM pool ID: Select an IPAM pool that contains the resources CIDR (like 10.24.34.0/23) Operation: Equals/Not equals Value: The value on which to match the condition Scope resource CIDR: CIDRs from Amazon Web Services resources like VPCs, subnets, EIPs within an IPAM scope If you choose this option, choose the following: IPAM scope: Select the IPAM scope to search for resources Resource type: Select a resource, like a VPC or subnet. Conditions: Property: Resource ID: The unique ID of a resource (like vpc-1234567890abcdef0) Resource owner (like 111122223333) Resource region (like us-east-1) Resource tag (like key: name, value: dev-vpc-1) CIDR (like 10.24.34.0/23) Operation: Equals/Not equals Value: The value on which to match the condition"]
module IpamPoolCidrFailureCode =
  struct
    type nonrec t =
      | Cidr_not_available 
      | Limit_exceeded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Cidr_not_available -> "cidr-not-available"
      | Limit_exceeded -> "limit-exceeded"
      | Non_static_id s -> s
    let of_string =
      function
      | "cidr-not-available" -> Cidr_not_available
      | "limit-exceeded" -> Limit_exceeded
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration IpamPoolCidrFailureCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IpamPoolCidrFailureCode" j)
    let to_json = simple_to_json to_value
  end
module IpamPolicyAllocationRule =
  struct
    type nonrec t =
      {
      sourceIpamPoolId: IpamPoolId.t option
        [@ocaml.doc
          "The ID of the source IPAM pool for the allocation rule. An IPAM pool is a collection of IP addresses in IPAM that can be allocated to Amazon Web Services resources."]}
    let make ?sourceIpamPoolId = fun () -> { sourceIpamPoolId }
    let to_value x =
      structure_to_value
        [("sourceIpamPoolId",
           (Option.map x.sourceIpamPoolId ~f:IpamPoolId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceIpamPoolId =
        (Option.map ~f:IpamPoolId.of_xml)
          (Xml.child xml_arg0 "sourceIpamPoolId") in
      make ?sourceIpamPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceIpamPoolId =
        field_map json__ "SourceIpamPoolId" IpamPoolId.of_json in
      make ?sourceIpamPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an IPAM policy allocation rule. Allocation rules are optional configurations within an IPAM policy that map Amazon Web Services resource types to specific IPAM pools. If no rules are defined, the resource types default to using Amazon-provided IP addresses."]
module IpamPublicAddressSecurityGroup =
  struct
    type nonrec t =
      {
      groupName: String_.t option [@ocaml.doc "The security group's name."];
      groupId: String_.t option [@ocaml.doc "The security group's ID."]}
    let make ?groupName = fun ?groupId -> fun () -> { groupName; groupId }
    let to_value x =
      structure_to_value
        [("groupName", (Option.map x.groupName ~f:String_.to_value));
        ("groupId", (Option.map x.groupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupId") in
      let groupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupName") in
      make ?groupId ?groupName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupId = field_map json__ "GroupId" String_.of_json in
      let groupName = field_map json__ "GroupName" String_.of_json in
      make ?groupId ?groupName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The security group that the resource with the public IP address is in."]
module IpamPublicAddressTagList =
  struct
    type nonrec t = IpamPublicAddressTag.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IpamPublicAddressTag.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IpamPublicAddressTag.of_xml)
    let of_json j =
      list_of_json ~kind:"IpamPublicAddressTagList"
        ~of_json:IpamPublicAddressTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpamDiscoveryFailureCode =
  struct
    type nonrec t =
      | Assume_role_failure 
      | Throttling_failure 
      | Unauthorized_failure 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Assume_role_failure -> "assume-role-failure"
      | Throttling_failure -> "throttling-failure"
      | Unauthorized_failure -> "unauthorized-failure"
      | Non_static_id s -> s
    let of_string =
      function
      | "assume-role-failure" -> Assume_role_failure
      | "throttling-failure" -> Throttling_failure
      | "unauthorized-failure" -> Unauthorized_failure
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration IpamDiscoveryFailureCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IpamDiscoveryFailureCode" j)
    let to_json = simple_to_json to_value
  end
module PartitionLoadFrequency =
  struct
    type nonrec t =
      | None 
      | Daily 
      | Weekly 
      | Monthly 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None -> "none"
      | Daily -> "daily"
      | Weekly -> "weekly"
      | Monthly -> "monthly"
      | Non_static_id s -> s
    let of_string =
      function
      | "none" -> None
      | "daily" -> Daily
      | "weekly" -> Weekly
      | "monthly" -> Monthly
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration PartitionLoadFrequency" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PartitionLoadFrequency" j)
    let to_json = simple_to_json to_value
  end
module RegionalSummary =
  struct
    type nonrec t =
      {
      regionName: String_.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      numberOfMatchedAccounts: Integer.t option
        [@ocaml.doc
          "The number of accounts in the Region with the same configuration value for the attribute that is most frequently observed."];
      numberOfUnmatchedAccounts: Integer.t option
        [@ocaml.doc
          "The number of accounts in the Region with a configuration value different from the most frequently observed value for the attribute."]}
    let make ?regionName =
      fun ?numberOfMatchedAccounts ->
        fun ?numberOfUnmatchedAccounts ->
          fun () ->
            { regionName; numberOfMatchedAccounts; numberOfUnmatchedAccounts
            }
    let to_value x =
      structure_to_value
        [("regionName", (Option.map x.regionName ~f:String_.to_value));
        ("numberOfMatchedAccounts",
          (Option.map x.numberOfMatchedAccounts ~f:Integer.to_value));
        ("numberOfUnmatchedAccounts",
          (Option.map x.numberOfUnmatchedAccounts ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numberOfUnmatchedAccounts =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfUnmatchedAccounts") in
      let numberOfMatchedAccounts =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "numberOfMatchedAccounts") in
      let regionName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "regionName") in
      make ?numberOfUnmatchedAccounts ?numberOfMatchedAccounts ?regionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numberOfUnmatchedAccounts =
        field_map json__ "NumberOfUnmatchedAccounts" Integer.of_json in
      let numberOfMatchedAccounts =
        field_map json__ "NumberOfMatchedAccounts" Integer.of_json in
      let regionName = field_map json__ "RegionName" String_.of_json in
      make ?numberOfUnmatchedAccounts ?numberOfMatchedAccounts ?regionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary report for the attribute for a Region."]
module Comparison =
  struct
    type nonrec t =
      | Equals 
      | In 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Equals -> "equals" | In -> "in" | Non_static_id s -> s
    let of_string =
      function | "equals" -> Equals | "in" -> In | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Comparison" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Comparison" j)
    let to_json = simple_to_json to_value
  end
module ConditionValueList =
  struct
    type nonrec t = ConditionValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ConditionValue.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ConditionValue.of_xml)
    let of_json j =
      list_of_json ~kind:"ConditionValueList" ~of_json:ConditionValue.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module FilterByDimension =
  struct
    type nonrec t =
      | Resource_region 
      | Availability_zone_id 
      | Account_id 
      | Account_name 
      | Instance_family 
      | Instance_type 
      | Instance_platform 
      | Reservation_arn 
      | Reservation_id 
      | Reservation_type 
      | Reservation_create_timestamp 
      | Reservation_start_timestamp 
      | Reservation_end_timestamp 
      | Reservation_end_date_type 
      | Tenancy 
      | Reservation_state 
      | Reservation_instance_match_criteria 
      | Reservation_unused_financial_owner 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Resource_region -> "resource-region"
      | Availability_zone_id -> "availability-zone-id"
      | Account_id -> "account-id"
      | Account_name -> "account-name"
      | Instance_family -> "instance-family"
      | Instance_type -> "instance-type"
      | Instance_platform -> "instance-platform"
      | Reservation_arn -> "reservation-arn"
      | Reservation_id -> "reservation-id"
      | Reservation_type -> "reservation-type"
      | Reservation_create_timestamp -> "reservation-create-timestamp"
      | Reservation_start_timestamp -> "reservation-start-timestamp"
      | Reservation_end_timestamp -> "reservation-end-timestamp"
      | Reservation_end_date_type -> "reservation-end-date-type"
      | Tenancy -> "tenancy"
      | Reservation_state -> "reservation-state"
      | Reservation_instance_match_criteria ->
          "reservation-instance-match-criteria"
      | Reservation_unused_financial_owner ->
          "reservation-unused-financial-owner"
      | Non_static_id s -> s
    let of_string =
      function
      | "resource-region" -> Resource_region
      | "availability-zone-id" -> Availability_zone_id
      | "account-id" -> Account_id
      | "account-name" -> Account_name
      | "instance-family" -> Instance_family
      | "instance-type" -> Instance_type
      | "instance-platform" -> Instance_platform
      | "reservation-arn" -> Reservation_arn
      | "reservation-id" -> Reservation_id
      | "reservation-type" -> Reservation_type
      | "reservation-create-timestamp" -> Reservation_create_timestamp
      | "reservation-start-timestamp" -> Reservation_start_timestamp
      | "reservation-end-timestamp" -> Reservation_end_timestamp
      | "reservation-end-date-type" -> Reservation_end_date_type
      | "tenancy" -> Tenancy
      | "reservation-state" -> Reservation_state
      | "reservation-instance-match-criteria" ->
          Reservation_instance_match_criteria
      | "reservation-unused-financial-owner" ->
          Reservation_unused_financial_owner
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration FilterByDimension" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FilterByDimension" j)
    let to_json = simple_to_json to_value
  end
module CapacityManagerTagDimensionSet =
  struct
    type nonrec t = CapacityManagerTagDimension.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CapacityManagerTagDimension.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CapacityManagerTagDimension.of_xml)
    let of_json j =
      list_of_json ~kind:"CapacityManagerTagDimensionSet"
        ~of_json:CapacityManagerTagDimension.of_json j
    let to_json v = composed_to_json to_value v
  end
module CapacityTenancy =
  struct
    type nonrec t =
      | Default 
      | Dedicated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Dedicated -> "dedicated"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "dedicated" -> Dedicated
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CapacityTenancy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CapacityTenancy" j)
    let to_json = simple_to_json to_value
  end
module ReservationEndDateType =
  struct
    type nonrec t =
      | Limited 
      | Unlimited 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Limited -> "limited"
      | Unlimited -> "unlimited"
      | Non_static_id s -> s
    let of_string =
      function
      | "limited" -> Limited
      | "unlimited" -> Unlimited
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ReservationEndDateType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReservationEndDateType" j)
    let to_json = simple_to_json to_value
  end
module ReservationState =
  struct
    type nonrec t =
      | Active 
      | Expired 
      | Cancelled 
      | Scheduled 
      | Pending 
      | Failed 
      | Delayed 
      | Unsupported 
      | Payment_pending 
      | Payment_failed 
      | Retired 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "active"
      | Expired -> "expired"
      | Cancelled -> "cancelled"
      | Scheduled -> "scheduled"
      | Pending -> "pending"
      | Failed -> "failed"
      | Delayed -> "delayed"
      | Unsupported -> "unsupported"
      | Payment_pending -> "payment-pending"
      | Payment_failed -> "payment-failed"
      | Retired -> "retired"
      | Non_static_id s -> s
    let of_string =
      function
      | "active" -> Active
      | "expired" -> Expired
      | "cancelled" -> Cancelled
      | "scheduled" -> Scheduled
      | "pending" -> Pending
      | "failed" -> Failed
      | "delayed" -> Delayed
      | "unsupported" -> Unsupported
      | "payment-pending" -> Payment_pending
      | "payment-failed" -> Payment_failed
      | "retired" -> Retired
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ReservationState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReservationState" j)
    let to_json = simple_to_json to_value
  end
module ReservationType =
  struct
    type nonrec t =
      | Capacity_block 
      | Odcr 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Capacity_block -> "capacity-block"
      | Odcr -> "odcr"
      | Non_static_id s -> s
    let of_string =
      function
      | "capacity-block" -> Capacity_block
      | "odcr" -> Odcr
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ReservationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReservationType" j)
    let to_json = simple_to_json to_value
  end
module MetricValue =
  struct
    type nonrec t =
      {
      metric: Metric.t option [@ocaml.doc "The name of the metric."];
      value: Double.t option
        [@ocaml.doc
          "The numerical value of the metric for the specified statistic and time period."]}
    let make ?metric = fun ?value -> fun () -> { metric; value }
    let to_value x =
      structure_to_value
        [("metric", (Option.map x.metric ~f:Metric.to_value));
        ("value", (Option.map x.value ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "value") in
      let metric =
        (Option.map ~f:Metric.of_xml) (Xml.child xml_arg0 "metric") in
      make ?value ?metric ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" Double.of_json in
      let metric = field_map json__ "Metric" Metric.of_json in
      make ?value ?metric ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a single metric value with its associated statistic, such as the sum or average of unused capacity hours."]
module MetricPoint =
  struct
    type nonrec t =
      {
      startDate: MillisecondDateTime.t option
        [@ocaml.doc
          "The start date for the metric point. The starting date for the metric point. The starting time must be formatted as yyyy-mm-ddThh:mm:ss. For example, 2022-06-10T12:00:00.000Z."];
      endDate: MillisecondDateTime.t option
        [@ocaml.doc
          "The end date for the metric point. The ending time must be formatted as yyyy-mm-ddThh:mm:ss. For example, 2022-06-12T12:00:00.000Z."];
      value: Float_.t option ;
      status: String_.t option [@ocaml.doc "The status of the metric point."]}
    let make ?startDate =
      fun ?endDate ->
        fun ?value ->
          fun ?status -> fun () -> { startDate; endDate; value; status }
    let to_value x =
      structure_to_value
        [("startDate",
           (Option.map x.startDate ~f:MillisecondDateTime.to_value));
        ("endDate", (Option.map x.endDate ~f:MillisecondDateTime.to_value));
        ("value", (Option.map x.value ~f:Float_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let value = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "value") in
      let endDate =
        (Option.map ~f:MillisecondDateTime.of_xml)
          (Xml.child xml_arg0 "endDate") in
      let startDate =
        (Option.map ~f:MillisecondDateTime.of_xml)
          (Xml.child xml_arg0 "startDate") in
      make ?status ?value ?endDate ?startDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let value = field_map json__ "Value" Float_.of_json in
      let endDate = field_map json__ "EndDate" MillisecondDateTime.of_json in
      let startDate =
        field_map json__ "StartDate" MillisecondDateTime.of_json in
      make ?status ?value ?endDate ?startDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates whether the network was healthy or degraded at a particular point. The value is aggregated from the startDate to the endDate. Currently only five_minutes is supported."]
module ImageName =
  struct
    type nonrec t = string
    let context_ = "ImageName"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImageName" j
    let to_json = simple_to_json to_value
  end
module ImageProvider =
  struct
    type nonrec t = string
    let context_ = "ImageProvider"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ImageProvider" j
    let to_json = simple_to_json to_value
  end
module MarketplaceProductCode =
  struct
    type nonrec t = string
    let context_ = "MarketplaceProductCode"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MarketplaceProductCode" j
    let to_json = simple_to_json to_value
  end
module VerifiedAccessInstanceOpenVpnClientConfigurationRoute =
  struct
    type nonrec t = {
      cidr: String_.t option [@ocaml.doc "The CIDR block."]}
    let make ?cidr = fun () -> { cidr }
    let to_value x =
      structure_to_value [("cidr", (Option.map x.cidr ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidr = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidr") in
      make ?cidr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidr = field_map json__ "Cidr" String_.of_json in make ?cidr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route."]
module EnableFastSnapshotRestoreStateErrorItem =
  struct
    type nonrec t =
      {
      availabilityZone: String_.t option
        [@ocaml.doc "The Availability Zone."];
      availabilityZoneId: String_.t option
        [@ocaml.doc "The ID of the Availability Zone."];
      error: EnableFastSnapshotRestoreStateError.t option
        [@ocaml.doc "The error."]}
    let make ?availabilityZone =
      fun ?availabilityZoneId ->
        fun ?error ->
          fun () -> { availabilityZone; availabilityZoneId; error }
    let to_value x =
      structure_to_value
        [("availabilityZone",
           (Option.map x.availabilityZone ~f:String_.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value));
        ("error",
          (Option.map x.error ~f:EnableFastSnapshotRestoreStateError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:EnableFastSnapshotRestoreStateError.of_xml)
          (Xml.child xml_arg0 "error") in
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      make ?error ?availabilityZoneId ?availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error =
        field_map json__ "Error" EnableFastSnapshotRestoreStateError.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      make ?error ?availabilityZoneId ?availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an error that occurred when enabling fast snapshot restores."]
module DisableFastSnapshotRestoreStateErrorItem =
  struct
    type nonrec t =
      {
      availabilityZone: String_.t option
        [@ocaml.doc "The Availability Zone."];
      availabilityZoneId: String_.t option
        [@ocaml.doc "The ID of the Availability Zone."];
      error: DisableFastSnapshotRestoreStateError.t option
        [@ocaml.doc "The error."]}
    let make ?availabilityZone =
      fun ?availabilityZoneId ->
        fun ?error ->
          fun () -> { availabilityZone; availabilityZoneId; error }
    let to_value x =
      structure_to_value
        [("availabilityZone",
           (Option.map x.availabilityZone ~f:String_.to_value));
        ("availabilityZoneId",
          (Option.map x.availabilityZoneId ~f:String_.to_value));
        ("error",
          (Option.map x.error
             ~f:DisableFastSnapshotRestoreStateError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:DisableFastSnapshotRestoreStateError.of_xml)
          (Xml.child xml_arg0 "error") in
      let availabilityZoneId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZoneId") in
      let availabilityZone =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "availabilityZone") in
      make ?error ?availabilityZoneId ?availabilityZone ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error =
        field_map json__ "Error" DisableFastSnapshotRestoreStateError.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" String_.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" String_.of_json in
      make ?error ?availabilityZoneId ?availabilityZone ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an error that occurred when disabling fast snapshot restores."]
module VpcAttachment =
  struct
    type nonrec t =
      {
      vpcId: String_.t option [@ocaml.doc "The ID of the VPC."];
      state: AttachmentStatus.t option
        [@ocaml.doc "The current state of the attachment."]}
    let make ?vpcId = fun ?state -> fun () -> { vpcId; state }
    let to_value x =
      structure_to_value
        [("vpcId", (Option.map x.vpcId ~f:String_.to_value));
        ("state", (Option.map x.state ~f:AttachmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:AttachmentStatus.of_xml) (Xml.child xml_arg0 "state") in
      let vpcId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "vpcId") in
      make ?state ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" AttachmentStatus.of_json in
      let vpcId = field_map json__ "VpcId" String_.of_json in
      make ?state ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an attachment between a virtual private gateway and a VPC."]
module VgwTelemetry =
  struct
    type nonrec t =
      {
      acceptedRouteCount: Integer.t option
        [@ocaml.doc "The number of accepted routes."];
      lastStatusChange: DateTime.t option
        [@ocaml.doc
          "The date and time of the last change in status. This field is updated when changes in IKE (Phase 1), IPSec (Phase 2), or BGP status are detected."];
      outsideIpAddress: String_.t option
        [@ocaml.doc
          "The Internet-routable IP address of the virtual private gateway's outside interface."];
      status: TelemetryStatus.t option
        [@ocaml.doc "The status of the VPN tunnel."];
      statusMessage: String_.t option
        [@ocaml.doc "If an error occurs, a description of the error."];
      certificateArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the VPN tunnel endpoint certificate."]}
    let make ?acceptedRouteCount =
      fun ?lastStatusChange ->
        fun ?outsideIpAddress ->
          fun ?status ->
            fun ?statusMessage ->
              fun ?certificateArn ->
                fun () ->
                  {
                    acceptedRouteCount;
                    lastStatusChange;
                    outsideIpAddress;
                    status;
                    statusMessage;
                    certificateArn
                  }
    let to_value x =
      structure_to_value
        [("acceptedRouteCount",
           (Option.map x.acceptedRouteCount ~f:Integer.to_value));
        ("lastStatusChange",
          (Option.map x.lastStatusChange ~f:DateTime.to_value));
        ("outsideIpAddress",
          (Option.map x.outsideIpAddress ~f:String_.to_value));
        ("status", (Option.map x.status ~f:TelemetryStatus.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("certificateArn", (Option.map x.certificateArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "certificateArn") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:TelemetryStatus.of_xml) (Xml.child xml_arg0 "status") in
      let outsideIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "outsideIpAddress") in
      let lastStatusChange =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "lastStatusChange") in
      let acceptedRouteCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "acceptedRouteCount") in
      make ?certificateArn ?statusMessage ?status ?outsideIpAddress
        ?lastStatusChange ?acceptedRouteCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateArn = field_map json__ "CertificateArn" String_.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" TelemetryStatus.of_json in
      let outsideIpAddress =
        field_map json__ "OutsideIpAddress" String_.of_json in
      let lastStatusChange =
        field_map json__ "LastStatusChange" DateTime.of_json in
      let acceptedRouteCount =
        field_map json__ "AcceptedRouteCount" Integer.of_json in
      make ?certificateArn ?statusMessage ?status ?outsideIpAddress
        ?lastStatusChange ?acceptedRouteCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes telemetry for a VPN tunnel."]
module TunnelInsideIpVersion =
  struct
    type nonrec t =
      | Ipv4 
      | Ipv6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Ipv4 -> "ipv4" | Ipv6 -> "ipv6" | Non_static_id s -> s
    let of_string =
      function | "ipv4" -> Ipv4 | "ipv6" -> Ipv6 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TunnelInsideIpVersion" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TunnelInsideIpVersion" j)
    let to_json = simple_to_json to_value
  end
module TunnelOptionsList =
  struct
    type nonrec t = TunnelOption.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TunnelOption.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TunnelOption.of_xml)
    let of_json j =
      list_of_json ~kind:"TunnelOptionsList" ~of_json:TunnelOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpnTunnelBandwidth =
  struct
    type nonrec t =
      | Standard 
      | Large 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "standard"
      | Large -> "large"
      | Non_static_id s -> s
    let of_string =
      function
      | "standard" -> Standard
      | "large" -> Large
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpnTunnelBandwidth" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VpnTunnelBandwidth" j)
    let to_json = simple_to_json to_value
  end
module VpnStaticRoute =
  struct
    type nonrec t =
      {
      destinationCidrBlock: String_.t option
        [@ocaml.doc
          "The CIDR block associated with the local subnet of the customer data center."];
      source: VpnStaticRouteSource.t option
        [@ocaml.doc "Indicates how the routes were provided."];
      state: VpnState.t option
        [@ocaml.doc "The current state of the static route."]}
    let make ?destinationCidrBlock =
      fun ?source ->
        fun ?state -> fun () -> { destinationCidrBlock; source; state }
    let to_value x =
      structure_to_value
        [("destinationCidrBlock",
           (Option.map x.destinationCidrBlock ~f:String_.to_value));
        ("source", (Option.map x.source ~f:VpnStaticRouteSource.to_value));
        ("state", (Option.map x.state ~f:VpnState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:VpnState.of_xml) (Xml.child xml_arg0 "state") in
      let source =
        (Option.map ~f:VpnStaticRouteSource.of_xml)
          (Xml.child xml_arg0 "source") in
      let destinationCidrBlock =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "destinationCidrBlock") in
      make ?state ?source ?destinationCidrBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" VpnState.of_json in
      let source = field_map json__ "Source" VpnStaticRouteSource.of_json in
      let destinationCidrBlock =
        field_map json__ "DestinationCidrBlock" String_.of_json in
      make ?state ?source ?destinationCidrBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a static route for a VPN connection."]
module BlockPublicAccessMode =
  struct
    type nonrec t =
      | Off 
      | Block_bidirectional 
      | Block_ingress 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Off -> "off"
      | Block_bidirectional -> "block-bidirectional"
      | Block_ingress -> "block-ingress"
      | Non_static_id s -> s
    let of_string =
      function
      | "off" -> Off
      | "block-bidirectional" -> Block_bidirectional
      | "block-ingress" -> Block_ingress
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BlockPublicAccessMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BlockPublicAccessMode" j)
    let to_json = simple_to_json to_value
  end
module VpcCidrBlockAssociation =
  struct
    type nonrec t =
      {
      associationId: String_.t option
        [@ocaml.doc "The association ID for the IPv4 CIDR block."];
      cidrBlock: String_.t option [@ocaml.doc "The IPv4 CIDR block."];
      cidrBlockState: VpcCidrBlockState.t option
        [@ocaml.doc "Information about the state of the CIDR block."]}
    let make ?associationId =
      fun ?cidrBlock ->
        fun ?cidrBlockState ->
          fun () -> { associationId; cidrBlock; cidrBlockState }
    let to_value x =
      structure_to_value
        [("associationId", (Option.map x.associationId ~f:String_.to_value));
        ("cidrBlock", (Option.map x.cidrBlock ~f:String_.to_value));
        ("cidrBlockState",
          (Option.map x.cidrBlockState ~f:VpcCidrBlockState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidrBlockState =
        (Option.map ~f:VpcCidrBlockState.of_xml)
          (Xml.child xml_arg0 "cidrBlockState") in
      let cidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidrBlock") in
      let associationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "associationId") in
      make ?cidrBlockState ?cidrBlock ?associationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidrBlockState =
        field_map json__ "CidrBlockState" VpcCidrBlockState.of_json in
      let cidrBlock = field_map json__ "CidrBlock" String_.of_json in
      let associationId = field_map json__ "AssociationId" String_.of_json in
      make ?cidrBlockState ?cidrBlock ?associationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv4 CIDR block associated with a VPC."]
module VpcEncryptionControlExclusions =
  struct
    type nonrec t =
      {
      internetGateway: VpcEncryptionControlExclusion.t option
        [@ocaml.doc
          "The exclusion configuration for internet gateway traffic."];
      egressOnlyInternetGateway: VpcEncryptionControlExclusion.t option
        [@ocaml.doc
          "The exclusion configuration for egress-only internet gateway traffic."];
      natGateway: VpcEncryptionControlExclusion.t option
        [@ocaml.doc "The exclusion configuration for NAT gateway traffic."];
      virtualPrivateGateway: VpcEncryptionControlExclusion.t option
        [@ocaml.doc
          "The exclusion configuration for virtual private gateway traffic."];
      vpcPeering: VpcEncryptionControlExclusion.t option
        [@ocaml.doc
          "The exclusion configuration for VPC peering connection traffic."];
      lambda: VpcEncryptionControlExclusion.t option
        [@ocaml.doc
          "The exclusion configuration for Lambda function traffic."];
      vpcLattice: VpcEncryptionControlExclusion.t option
        [@ocaml.doc "The exclusion configuration for VPC Lattice traffic."];
      elasticFileSystem: VpcEncryptionControlExclusion.t option
        [@ocaml.doc
          "The exclusion configuration for Elastic File System traffic."]}
    let make ?internetGateway =
      fun ?egressOnlyInternetGateway ->
        fun ?natGateway ->
          fun ?virtualPrivateGateway ->
            fun ?vpcPeering ->
              fun ?lambda ->
                fun ?vpcLattice ->
                  fun ?elasticFileSystem ->
                    fun () ->
                      {
                        internetGateway;
                        egressOnlyInternetGateway;
                        natGateway;
                        virtualPrivateGateway;
                        vpcPeering;
                        lambda;
                        vpcLattice;
                        elasticFileSystem
                      }
    let to_value x =
      structure_to_value
        [("internetGateway",
           (Option.map x.internetGateway
              ~f:VpcEncryptionControlExclusion.to_value));
        ("egressOnlyInternetGateway",
          (Option.map x.egressOnlyInternetGateway
             ~f:VpcEncryptionControlExclusion.to_value));
        ("natGateway",
          (Option.map x.natGateway ~f:VpcEncryptionControlExclusion.to_value));
        ("virtualPrivateGateway",
          (Option.map x.virtualPrivateGateway
             ~f:VpcEncryptionControlExclusion.to_value));
        ("vpcPeering",
          (Option.map x.vpcPeering ~f:VpcEncryptionControlExclusion.to_value));
        ("lambda",
          (Option.map x.lambda ~f:VpcEncryptionControlExclusion.to_value));
        ("vpcLattice",
          (Option.map x.vpcLattice ~f:VpcEncryptionControlExclusion.to_value));
        ("elasticFileSystem",
          (Option.map x.elasticFileSystem
             ~f:VpcEncryptionControlExclusion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let elasticFileSystem =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "elasticFileSystem") in
      let vpcLattice =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "vpcLattice") in
      let lambda =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "lambda") in
      let vpcPeering =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "vpcPeering") in
      let virtualPrivateGateway =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "virtualPrivateGateway") in
      let natGateway =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "natGateway") in
      let egressOnlyInternetGateway =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "egressOnlyInternetGateway") in
      let internetGateway =
        (Option.map ~f:VpcEncryptionControlExclusion.of_xml)
          (Xml.child xml_arg0 "internetGateway") in
      make ?elasticFileSystem ?vpcLattice ?lambda ?vpcPeering
        ?virtualPrivateGateway ?natGateway ?egressOnlyInternetGateway
        ?internetGateway ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let elasticFileSystem =
        field_map json__ "ElasticFileSystem"
          VpcEncryptionControlExclusion.of_json in
      let vpcLattice =
        field_map json__ "VpcLattice" VpcEncryptionControlExclusion.of_json in
      let lambda =
        field_map json__ "Lambda" VpcEncryptionControlExclusion.of_json in
      let vpcPeering =
        field_map json__ "VpcPeering" VpcEncryptionControlExclusion.of_json in
      let virtualPrivateGateway =
        field_map json__ "VirtualPrivateGateway"
          VpcEncryptionControlExclusion.of_json in
      let natGateway =
        field_map json__ "NatGateway" VpcEncryptionControlExclusion.of_json in
      let egressOnlyInternetGateway =
        field_map json__ "EgressOnlyInternetGateway"
          VpcEncryptionControlExclusion.of_json in
      let internetGateway =
        field_map json__ "InternetGateway"
          VpcEncryptionControlExclusion.of_json in
      make ?elasticFileSystem ?vpcLattice ?lambda ?vpcPeering
        ?virtualPrivateGateway ?natGateway ?egressOnlyInternetGateway
        ?internetGateway ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the exclusion configurations for various resource types in VPC Encryption Control. For more information, see Enforce VPC encryption in transit in the Amazon VPC User Guide."]
module VpcEncryptionControlId =
  struct
    type nonrec t = string
    let context_ = "VpcEncryptionControlId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcEncryptionControlId" j
    let to_json = simple_to_json to_value
  end
module VpcEncryptionControlMode =
  struct
    type nonrec t =
      | Monitor 
      | Enforce 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Monitor -> "monitor"
      | Enforce -> "enforce"
      | Non_static_id s -> s
    let of_string =
      function
      | "monitor" -> Monitor
      | "enforce" -> Enforce
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpcEncryptionControlMode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VpcEncryptionControlMode" j)
    let to_json = simple_to_json to_value
  end
module VpcEncryptionControlState =
  struct
    type nonrec t =
      | Enforce_in_progress 
      | Monitor_in_progress 
      | Enforce_failed 
      | Monitor_failed 
      | Deleting 
      | Deleted 
      | Available 
      | Creating 
      | Delete_failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enforce_in_progress -> "enforce-in-progress"
      | Monitor_in_progress -> "monitor-in-progress"
      | Enforce_failed -> "enforce-failed"
      | Monitor_failed -> "monitor-failed"
      | Deleting -> "deleting"
      | Deleted -> "deleted"
      | Available -> "available"
      | Creating -> "creating"
      | Delete_failed -> "delete-failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "enforce-in-progress" -> Enforce_in_progress
      | "monitor-in-progress" -> Monitor_in_progress
      | "enforce-failed" -> Enforce_failed
      | "monitor-failed" -> Monitor_failed
      | "deleting" -> Deleting
      | "deleted" -> Deleted
      | "available" -> Available
      | "creating" -> Creating
      | "delete-failed" -> Delete_failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpcEncryptionControlState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VpcEncryptionControlState" j)
    let to_json = simple_to_json to_value
  end
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcId" j
    let to_json = simple_to_json to_value
  end
module VpcIpv6CidrBlockAssociation =
  struct
    type nonrec t =
      {
      associationId: String_.t option
        [@ocaml.doc "The association ID for the IPv6 CIDR block."];
      ipv6CidrBlock: String_.t option [@ocaml.doc "The IPv6 CIDR block."];
      ipv6CidrBlockState: VpcCidrBlockState.t option
        [@ocaml.doc "Information about the state of the CIDR block."];
      networkBorderGroup: String_.t option
        [@ocaml.doc
          "The name of the unique set of Availability Zones, Local Zones, or Wavelength Zones from which Amazon Web Services advertises IP addresses, for example, us-east-1-wl1-bos-wlz-1."];
      ipv6Pool: String_.t option
        [@ocaml.doc
          "The ID of the IPv6 address pool from which the IPv6 CIDR block is allocated."];
      ipv6AddressAttribute: Ipv6AddressAttribute.t option
        [@ocaml.doc
          "Public IPv6 addresses are those advertised on the internet from Amazon Web Services. Private IP addresses are not and cannot be advertised on the internet from Amazon Web Services."];
      ipSource: IpSource.t option
        [@ocaml.doc
          "The source that allocated the IP address space. byoip or amazon indicates public IP address space allocated by Amazon or space that you have allocated with Bring your own IP (BYOIP). none indicates private space."]}
    let make ?associationId =
      fun ?ipv6CidrBlock ->
        fun ?ipv6CidrBlockState ->
          fun ?networkBorderGroup ->
            fun ?ipv6Pool ->
              fun ?ipv6AddressAttribute ->
                fun ?ipSource ->
                  fun () ->
                    {
                      associationId;
                      ipv6CidrBlock;
                      ipv6CidrBlockState;
                      networkBorderGroup;
                      ipv6Pool;
                      ipv6AddressAttribute;
                      ipSource
                    }
    let to_value x =
      structure_to_value
        [("associationId", (Option.map x.associationId ~f:String_.to_value));
        ("ipv6CidrBlock", (Option.map x.ipv6CidrBlock ~f:String_.to_value));
        ("ipv6CidrBlockState",
          (Option.map x.ipv6CidrBlockState ~f:VpcCidrBlockState.to_value));
        ("networkBorderGroup",
          (Option.map x.networkBorderGroup ~f:String_.to_value));
        ("ipv6Pool", (Option.map x.ipv6Pool ~f:String_.to_value));
        ("ipv6AddressAttribute",
          (Option.map x.ipv6AddressAttribute ~f:Ipv6AddressAttribute.to_value));
        ("ipSource", (Option.map x.ipSource ~f:IpSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipSource =
        (Option.map ~f:IpSource.of_xml) (Xml.child xml_arg0 "ipSource") in
      let ipv6AddressAttribute =
        (Option.map ~f:Ipv6AddressAttribute.of_xml)
          (Xml.child xml_arg0 "ipv6AddressAttribute") in
      let ipv6Pool =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6Pool") in
      let networkBorderGroup =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "networkBorderGroup") in
      let ipv6CidrBlockState =
        (Option.map ~f:VpcCidrBlockState.of_xml)
          (Xml.child xml_arg0 "ipv6CidrBlockState") in
      let ipv6CidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6CidrBlock") in
      let associationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "associationId") in
      make ?ipSource ?ipv6AddressAttribute ?ipv6Pool ?networkBorderGroup
        ?ipv6CidrBlockState ?ipv6CidrBlock ?associationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipSource = field_map json__ "IpSource" IpSource.of_json in
      let ipv6AddressAttribute =
        field_map json__ "Ipv6AddressAttribute" Ipv6AddressAttribute.of_json in
      let ipv6Pool = field_map json__ "Ipv6Pool" String_.of_json in
      let networkBorderGroup =
        field_map json__ "NetworkBorderGroup" String_.of_json in
      let ipv6CidrBlockState =
        field_map json__ "Ipv6CidrBlockState" VpcCidrBlockState.of_json in
      let ipv6CidrBlock = field_map json__ "Ipv6CidrBlock" String_.of_json in
      let associationId = field_map json__ "AssociationId" String_.of_json in
      make ?ipSource ?ipv6AddressAttribute ?ipv6Pool ?networkBorderGroup
        ?ipv6CidrBlockState ?ipv6CidrBlock ?associationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an IPv6 CIDR block associated with a VPC."]
module VpcPeeringConnectionStateReasonCode =
  struct
    type nonrec t =
      | Initiating_request 
      | Pending_acceptance 
      | Active 
      | Deleted 
      | Rejected 
      | Failed 
      | Expired 
      | Provisioning 
      | Deleting 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Initiating_request -> "initiating-request"
      | Pending_acceptance -> "pending-acceptance"
      | Active -> "active"
      | Deleted -> "deleted"
      | Rejected -> "rejected"
      | Failed -> "failed"
      | Expired -> "expired"
      | Provisioning -> "provisioning"
      | Deleting -> "deleting"
      | Non_static_id s -> s
    let of_string =
      function
      | "initiating-request" -> Initiating_request
      | "pending-acceptance" -> Pending_acceptance
      | "active" -> Active
      | "deleted" -> Deleted
      | "rejected" -> Rejected
      | "failed" -> Failed
      | "expired" -> Expired
      | "provisioning" -> Provisioning
      | "deleting" -> Deleting
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration VpcPeeringConnectionStateReasonCode" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"VpcPeeringConnectionStateReasonCode" j)
    let to_json = simple_to_json to_value
  end
module CidrBlockSet =
  struct
    type nonrec t = CidrBlock.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CidrBlock.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CidrBlock.of_xml)
    let of_json j =
      list_of_json ~kind:"CidrBlockSet" ~of_json:CidrBlock.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv6CidrBlockSet =
  struct
    type nonrec t = Ipv6CidrBlock.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv6CidrBlock.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Ipv6CidrBlock.of_xml)
    let of_json j =
      list_of_json ~kind:"Ipv6CidrBlockSet" ~of_json:Ipv6CidrBlock.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcPeeringConnectionOptionsDescription =
  struct
    type nonrec t =
      {
      allowDnsResolutionFromRemoteVpc: Boolean.t option
        [@ocaml.doc
          "Indicates whether a local VPC can resolve public DNS hostnames to private IP addresses when queried from instances in a peer VPC."];
      allowEgressFromLocalClassicLinkToRemoteVpc: Boolean.t option
        [@ocaml.doc "Deprecated."];
      allowEgressFromLocalVpcToRemoteClassicLink: Boolean.t option
        [@ocaml.doc "Deprecated."]}
    let make ?allowDnsResolutionFromRemoteVpc =
      fun ?allowEgressFromLocalClassicLinkToRemoteVpc ->
        fun ?allowEgressFromLocalVpcToRemoteClassicLink ->
          fun () ->
            {
              allowDnsResolutionFromRemoteVpc;
              allowEgressFromLocalClassicLinkToRemoteVpc;
              allowEgressFromLocalVpcToRemoteClassicLink
            }
    let to_value x =
      structure_to_value
        [("allowDnsResolutionFromRemoteVpc",
           (Option.map x.allowDnsResolutionFromRemoteVpc ~f:Boolean.to_value));
        ("allowEgressFromLocalClassicLinkToRemoteVpc",
          (Option.map x.allowEgressFromLocalClassicLinkToRemoteVpc
             ~f:Boolean.to_value));
        ("allowEgressFromLocalVpcToRemoteClassicLink",
          (Option.map x.allowEgressFromLocalVpcToRemoteClassicLink
             ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowEgressFromLocalVpcToRemoteClassicLink =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowEgressFromLocalVpcToRemoteClassicLink") in
      let allowEgressFromLocalClassicLinkToRemoteVpc =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowEgressFromLocalClassicLinkToRemoteVpc") in
      let allowDnsResolutionFromRemoteVpc =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "allowDnsResolutionFromRemoteVpc") in
      make ?allowEgressFromLocalVpcToRemoteClassicLink
        ?allowEgressFromLocalClassicLinkToRemoteVpc
        ?allowDnsResolutionFromRemoteVpc ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowEgressFromLocalVpcToRemoteClassicLink =
        field_map json__ "AllowEgressFromLocalVpcToRemoteClassicLink"
          Boolean.of_json in
      let allowEgressFromLocalClassicLinkToRemoteVpc =
        field_map json__ "AllowEgressFromLocalClassicLinkToRemoteVpc"
          Boolean.of_json in
      let allowDnsResolutionFromRemoteVpc =
        field_map json__ "AllowDnsResolutionFromRemoteVpc" Boolean.of_json in
      make ?allowEgressFromLocalVpcToRemoteClassicLink
        ?allowEgressFromLocalClassicLinkToRemoteVpc
        ?allowDnsResolutionFromRemoteVpc ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the VPC peering connection options."]
module DnsEntry =
  struct
    type nonrec t =
      {
      dnsName: String_.t option [@ocaml.doc "The DNS name."];
      hostedZoneId: String_.t option
        [@ocaml.doc "The ID of the private hosted zone."]}
    let make ?dnsName =
      fun ?hostedZoneId -> fun () -> { dnsName; hostedZoneId }
    let to_value x =
      structure_to_value
        [("dnsName", (Option.map x.dnsName ~f:String_.to_value));
        ("hostedZoneId", (Option.map x.hostedZoneId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hostedZoneId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "hostedZoneId") in
      let dnsName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "dnsName") in
      make ?hostedZoneId ?dnsName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hostedZoneId = field_map json__ "HostedZoneId" String_.of_json in
      let dnsName = field_map json__ "DnsName" String_.of_json in
      make ?hostedZoneId ?dnsName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a DNS entry."]
module DnsRecordIpType =
  struct
    type nonrec t =
      | Ipv4 
      | Dualstack 
      | Ipv6 
      | Service_defined 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ipv4 -> "ipv4"
      | Dualstack -> "dualstack"
      | Ipv6 -> "ipv6"
      | Service_defined -> "service-defined"
      | Non_static_id s -> s
    let of_string =
      function
      | "ipv4" -> Ipv4
      | "dualstack" -> Dualstack
      | "ipv6" -> Ipv6
      | "service-defined" -> Service_defined
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DnsRecordIpType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DnsRecordIpType" j)
    let to_json = simple_to_json to_value
  end
module PrivateDnsSpecifiedDomainSet =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateDnsSpecifiedDomainSet"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityGroupIdentifier =
  struct
    type nonrec t =
      {
      groupId: String_.t option [@ocaml.doc "The ID of the security group."];
      groupName: String_.t option
        [@ocaml.doc "The name of the security group."]}
    let make ?groupId = fun ?groupName -> fun () -> { groupId; groupName }
    let to_value x =
      structure_to_value
        [("groupId", (Option.map x.groupId ~f:String_.to_value));
        ("groupName", (Option.map x.groupName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupName") in
      let groupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupId") in
      make ?groupName ?groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupName = field_map json__ "GroupName" String_.of_json in
      let groupId = field_map json__ "GroupId" String_.of_json in
      make ?groupName ?groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a security group."]
module SubnetIpPrefixes =
  struct
    type nonrec t =
      {
      subnetId: String_.t option [@ocaml.doc "ID of the subnet."];
      ipPrefixes: ValueStringList.t option
        [@ocaml.doc "Array of SubnetIpPrefixes objects."]}
    let make ?subnetId =
      fun ?ipPrefixes -> fun () -> { subnetId; ipPrefixes }
    let to_value x =
      structure_to_value
        [("subnetId", (Option.map x.subnetId ~f:String_.to_value));
        ("ipPrefixSet",
          (Option.map x.ipPrefixes ~f:ValueStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipPrefixes =
        (Option.map ~f:ValueStringList.of_xml)
          (Xml.child xml_arg0 "ipPrefixSet") in
      let subnetId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "subnetId") in
      make ?ipPrefixes ?subnetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipPrefixes = field_map json__ "IpPrefixes" ValueStringList.of_json in
      let subnetId = field_map json__ "SubnetId" String_.of_json in
      make ?ipPrefixes ?subnetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Prefixes of the subnet IP."]
module PrivateDnsDetails =
  struct
    type nonrec t =
      {
      privateDnsName: String_.t option
        [@ocaml.doc
          "The private DNS name assigned to the VPC endpoint service."]}
    let make ?privateDnsName = fun () -> { privateDnsName }
    let to_value x =
      structure_to_value
        [("privateDnsName",
           (Option.map x.privateDnsName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateDnsName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "privateDnsName") in
      make ?privateDnsName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateDnsName = field_map json__ "PrivateDnsName" String_.of_json in
      make ?privateDnsName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the Private DNS name for interface endpoints."]
module ServiceTypeDetail =
  struct
    type nonrec t =
      {
      serviceType: ServiceType.t option [@ocaml.doc "The type of service."]}
    let make ?serviceType = fun () -> { serviceType }
    let to_value x =
      structure_to_value
        [("serviceType", (Option.map x.serviceType ~f:ServiceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceType =
        (Option.map ~f:ServiceType.of_xml) (Xml.child xml_arg0 "serviceType") in
      make ?serviceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceType = field_map json__ "ServiceType" ServiceType.of_json in
      make ?serviceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the type of service for a VPC endpoint."]
module ServiceConnectivityType =
  struct
    type nonrec t =
      | Ipv4 
      | Ipv6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Ipv4 -> "ipv4" | Ipv6 -> "ipv6" | Non_static_id s -> s
    let of_string =
      function | "ipv4" -> Ipv4 | "ipv6" -> Ipv6 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ServiceConnectivityType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ServiceConnectivityType" j)
    let to_json = simple_to_json to_value
  end
module DnsNameState =
  struct
    type nonrec t =
      | PendingVerification 
      | Verified 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PendingVerification -> "pendingVerification"
      | Verified -> "verified"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "pendingVerification" -> PendingVerification
      | "verified" -> Verified
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DnsNameState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DnsNameState" j)
    let to_json = simple_to_json to_value
  end
module SupportedRegionDetail =
  struct
    type nonrec t =
      {
      region: String_.t option [@ocaml.doc "The Region code."];
      serviceState: String_.t option
        [@ocaml.doc
          "The service state. The possible values are Pending, Available, Deleting, Deleted, Failed, and Closed."]}
    let make ?region =
      fun ?serviceState -> fun () -> { region; serviceState }
    let to_value x =
      structure_to_value
        [("region", (Option.map x.region ~f:String_.to_value));
        ("serviceState", (Option.map x.serviceState ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceState =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceState") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "region") in
      make ?serviceState ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceState = field_map json__ "ServiceState" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      make ?serviceState ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a supported Region."]
module VolumeAttachment =
  struct
    type nonrec t =
      {
      deleteOnTermination: Boolean.t option
        [@ocaml.doc
          "Indicates whether the EBS volume is deleted on instance termination."];
      associatedResource: String_.t option
        [@ocaml.doc
          "The ARN of the Amazon Web Services-managed resource to which the volume is attached."];
      instanceOwningService: String_.t option
        [@ocaml.doc
          "The service principal of the Amazon Web Services service that owns the underlying resource to which the volume is attached. This parameter is returned only for volumes that are attached to Amazon Web Services-managed resources."];
      ebsCardIndex: Integer.t option
        [@ocaml.doc
          "The index of the EBS card. Some instance types support multiple EBS cards. The default EBS card index is 0."];
      volumeId: String_.t option [@ocaml.doc "The ID of the volume."];
      instanceId: String_.t option
        [@ocaml.doc
          "The ID of the instance. If the volume is attached to an Amazon Web Services-managed resource, this parameter returns null."];
      device: String_.t option
        [@ocaml.doc
          "The device name. If the volume is attached to an Amazon Web Services-managed resource, this parameter returns null."];
      state: VolumeAttachmentState.t option
        [@ocaml.doc "The attachment state of the volume."];
      attachTime: DateTime.t option
        [@ocaml.doc "The time stamp when the attachment initiated."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?deleteOnTermination =
      fun ?associatedResource ->
        fun ?instanceOwningService ->
          fun ?ebsCardIndex ->
            fun ?volumeId ->
              fun ?instanceId ->
                fun ?device ->
                  fun ?state ->
                    fun ?attachTime ->
                      fun () ->
                        {
                          deleteOnTermination;
                          associatedResource;
                          instanceOwningService;
                          ebsCardIndex;
                          volumeId;
                          instanceId;
                          device;
                          state;
                          attachTime
                        }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deleteOnTermination",
           (Option.map x.deleteOnTermination ~f:Boolean.to_value));
        ("associatedResource",
          (Option.map x.associatedResource ~f:String_.to_value));
        ("instanceOwningService",
          (Option.map x.instanceOwningService ~f:String_.to_value));
        ("ebsCardIndex", (Option.map x.ebsCardIndex ~f:Integer.to_value));
        ("volumeId", (Option.map x.volumeId ~f:String_.to_value));
        ("instanceId", (Option.map x.instanceId ~f:String_.to_value));
        ("device", (Option.map x.device ~f:String_.to_value));
        ("status", (Option.map x.state ~f:VolumeAttachmentState.to_value));
        ("attachTime", (Option.map x.attachTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "attachTime") in
      let state =
        (Option.map ~f:VolumeAttachmentState.of_xml)
          (Xml.child xml_arg0 "status") in
      let device =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "device") in
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceId") in
      let volumeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "volumeId") in
      let ebsCardIndex =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ebsCardIndex") in
      let instanceOwningService =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "instanceOwningService") in
      let associatedResource =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "associatedResource") in
      let deleteOnTermination =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deleteOnTermination") in
      make ?attachTime ?state ?device ?instanceId ?volumeId ?ebsCardIndex
        ?instanceOwningService ?associatedResource ?deleteOnTermination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachTime = field_map json__ "AttachTime" DateTime.of_json in
      let state = field_map json__ "State" VolumeAttachmentState.of_json in
      let device = field_map json__ "Device" String_.of_json in
      let instanceId = field_map json__ "InstanceId" String_.of_json in
      let volumeId = field_map json__ "VolumeId" String_.of_json in
      let ebsCardIndex = field_map json__ "EbsCardIndex" Integer.of_json in
      let instanceOwningService =
        field_map json__ "InstanceOwningService" String_.of_json in
      let associatedResource =
        field_map json__ "AssociatedResource" String_.of_json in
      let deleteOnTermination =
        field_map json__ "DeleteOnTermination" Boolean.of_json in
      make ?attachTime ?state ?device ?instanceId ?volumeId ?ebsCardIndex
        ?instanceOwningService ?associatedResource ?deleteOnTermination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes volume attachment details."]
module InitializationType =
  struct
    type nonrec t =
      | Default 
      | Provisioned_rate 
      | Volume_copy 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Default -> "default"
      | Provisioned_rate -> "provisioned-rate"
      | Volume_copy -> "volume-copy"
      | Non_static_id s -> s
    let of_string =
      function
      | "default" -> Default
      | "provisioned-rate" -> Provisioned_rate
      | "volume-copy" -> Volume_copy
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration InitializationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InitializationType" j)
    let to_json = simple_to_json to_value
  end
module VolumeStatusAction =
  struct
    type nonrec t =
      {
      code: String_.t option
        [@ocaml.doc
          "The code identifying the operation, for example, enable-volume-io."];
      description: String_.t option
        [@ocaml.doc "A description of the operation."];
      eventId: String_.t option
        [@ocaml.doc "The ID of the event associated with this operation."];
      eventType: String_.t option
        [@ocaml.doc "The event type associated with this operation."]}
    let make ?code =
      fun ?description ->
        fun ?eventId ->
          fun ?eventType ->
            fun () -> { code; description; eventId; eventType }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("eventId", (Option.map x.eventId ~f:String_.to_value));
        ("eventType", (Option.map x.eventType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventType") in
      let eventId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventId") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "code") in
      make ?eventType ?eventId ?description ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventType = field_map json__ "EventType" String_.of_json in
      let eventId = field_map json__ "EventId" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      make ?eventType ?eventId ?description ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a volume status operation code."]
module VolumeStatusAttachmentStatus =
  struct
    type nonrec t =
      {
      ioPerformance: String_.t option
        [@ocaml.doc "The maximum IOPS supported by the attached instance."];
      instanceId: String_.t option
        [@ocaml.doc "The ID of the attached instance."]}
    let make ?ioPerformance =
      fun ?instanceId -> fun () -> { ioPerformance; instanceId }
    let to_value x =
      structure_to_value
        [("ioPerformance", (Option.map x.ioPerformance ~f:String_.to_value));
        ("instanceId", (Option.map x.instanceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceId") in
      let ioPerformance =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ioPerformance") in
      make ?instanceId ?ioPerformance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceId = field_map json__ "InstanceId" String_.of_json in
      let ioPerformance = field_map json__ "IoPerformance" String_.of_json in
      make ?instanceId ?ioPerformance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the instances to which the volume is attached."]
module VolumeStatusEvent =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc "A description of the event."];
      eventId: String_.t option [@ocaml.doc "The ID of this event."];
      eventType: String_.t option [@ocaml.doc "The type of this event."];
      notAfter: MillisecondDateTime.t option
        [@ocaml.doc "The latest end time of the event."];
      notBefore: MillisecondDateTime.t option
        [@ocaml.doc "The earliest start time of the event."];
      instanceId: String_.t option
        [@ocaml.doc "The ID of the instance associated with the event."]}
    let make ?description =
      fun ?eventId ->
        fun ?eventType ->
          fun ?notAfter ->
            fun ?notBefore ->
              fun ?instanceId ->
                fun () ->
                  {
                    description;
                    eventId;
                    eventType;
                    notAfter;
                    notBefore;
                    instanceId
                  }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:String_.to_value));
        ("eventId", (Option.map x.eventId ~f:String_.to_value));
        ("eventType", (Option.map x.eventType ~f:String_.to_value));
        ("notAfter", (Option.map x.notAfter ~f:MillisecondDateTime.to_value));
        ("notBefore",
          (Option.map x.notBefore ~f:MillisecondDateTime.to_value));
        ("instanceId", (Option.map x.instanceId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceId") in
      let notBefore =
        (Option.map ~f:MillisecondDateTime.of_xml)
          (Xml.child xml_arg0 "notBefore") in
      let notAfter =
        (Option.map ~f:MillisecondDateTime.of_xml)
          (Xml.child xml_arg0 "notAfter") in
      let eventType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventType") in
      let eventId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventId") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      make ?instanceId ?notBefore ?notAfter ?eventType ?eventId ?description
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceId = field_map json__ "InstanceId" String_.of_json in
      let notBefore =
        field_map json__ "NotBefore" MillisecondDateTime.of_json in
      let notAfter = field_map json__ "NotAfter" MillisecondDateTime.of_json in
      let eventType = field_map json__ "EventType" String_.of_json in
      let eventId = field_map json__ "EventId" String_.of_json in
      let description = field_map json__ "Description" String_.of_json in
      make ?instanceId ?notBefore ?notAfter ?eventType ?eventId ?description
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a volume status event."]
module VolumeStatusDetailsList =
  struct
    type nonrec t = VolumeStatusDetails.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VolumeStatusDetails.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:VolumeStatusDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"VolumeStatusDetailsList"
        ~of_json:VolumeStatusDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module VolumeStatusInfoStatus =
  struct
    type nonrec t =
      | Ok 
      | Impaired 
      | Insufficient_data 
      | Warning 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ok -> "ok"
      | Impaired -> "impaired"
      | Insufficient_data -> "insufficient-data"
      | Warning -> "warning"
      | Non_static_id s -> s
    let of_string =
      function
      | "ok" -> Ok
      | "impaired" -> Impaired
      | "insufficient-data" -> Insufficient_data
      | "warning" -> Warning
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VolumeStatusInfoStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VolumeStatusInfoStatus" j)
    let to_json = simple_to_json to_value
  end
module ClientSecretType =
  struct
    type nonrec t = string
    let context_ = "ClientSecretType"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientSecretType" j
    let to_json = simple_to_json to_value
  end
module KmsKeyArn =
  struct
    type nonrec t = string
    let context_ = "KmsKeyArn"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyArn" j
    let to_json = simple_to_json to_value
  end
module VerifiedAccessTrustProviderCondensed =
  struct
    type nonrec t =
      {
      verifiedAccessTrustProviderId: String_.t option
        [@ocaml.doc "The ID of the trust provider."];
      description: String_.t option
        [@ocaml.doc "The description of trust provider."];
      trustProviderType: TrustProviderType.t option
        [@ocaml.doc "The type of trust provider (user- or device-based)."];
      userTrustProviderType: UserTrustProviderType.t option
        [@ocaml.doc "The type of user-based trust provider."];
      deviceTrustProviderType: DeviceTrustProviderType.t option
        [@ocaml.doc "The type of device-based trust provider."]}
    let make ?verifiedAccessTrustProviderId =
      fun ?description ->
        fun ?trustProviderType ->
          fun ?userTrustProviderType ->
            fun ?deviceTrustProviderType ->
              fun () ->
                {
                  verifiedAccessTrustProviderId;
                  description;
                  trustProviderType;
                  userTrustProviderType;
                  deviceTrustProviderType
                }
    let to_value x =
      structure_to_value
        [("verifiedAccessTrustProviderId",
           (Option.map x.verifiedAccessTrustProviderId ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("trustProviderType",
          (Option.map x.trustProviderType ~f:TrustProviderType.to_value));
        ("userTrustProviderType",
          (Option.map x.userTrustProviderType
             ~f:UserTrustProviderType.to_value));
        ("deviceTrustProviderType",
          (Option.map x.deviceTrustProviderType
             ~f:DeviceTrustProviderType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceTrustProviderType =
        (Option.map ~f:DeviceTrustProviderType.of_xml)
          (Xml.child xml_arg0 "deviceTrustProviderType") in
      let userTrustProviderType =
        (Option.map ~f:UserTrustProviderType.of_xml)
          (Xml.child xml_arg0 "userTrustProviderType") in
      let trustProviderType =
        (Option.map ~f:TrustProviderType.of_xml)
          (Xml.child xml_arg0 "trustProviderType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let verifiedAccessTrustProviderId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "verifiedAccessTrustProviderId") in
      make ?deviceTrustProviderType ?userTrustProviderType ?trustProviderType
        ?description ?verifiedAccessTrustProviderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceTrustProviderType =
        field_map json__ "DeviceTrustProviderType"
          DeviceTrustProviderType.of_json in
      let userTrustProviderType =
        field_map json__ "UserTrustProviderType"
          UserTrustProviderType.of_json in
      let trustProviderType =
        field_map json__ "TrustProviderType" TrustProviderType.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let verifiedAccessTrustProviderId =
        field_map json__ "VerifiedAccessTrustProviderId" String_.of_json in
      make ?deviceTrustProviderType ?userTrustProviderType ?trustProviderType
        ?description ?verifiedAccessTrustProviderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Condensed information about a trust provider."]
module VerifiedAccessLogCloudWatchLogsDestination =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Indicates whether logging is enabled."];
      deliveryStatus: VerifiedAccessLogDeliveryStatus.t option
        [@ocaml.doc "The delivery status for access logs."];
      logGroup: String_.t option
        [@ocaml.doc "The ID of the CloudWatch Logs log group."]}
    let make ?enabled =
      fun ?deliveryStatus ->
        fun ?logGroup -> fun () -> { enabled; deliveryStatus; logGroup }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("deliveryStatus",
          (Option.map x.deliveryStatus
             ~f:VerifiedAccessLogDeliveryStatus.to_value));
        ("logGroup", (Option.map x.logGroup ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroup =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "logGroup") in
      let deliveryStatus =
        (Option.map ~f:VerifiedAccessLogDeliveryStatus.of_xml)
          (Xml.child xml_arg0 "deliveryStatus") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?logGroup ?deliveryStatus ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroup = field_map json__ "LogGroup" String_.of_json in
      let deliveryStatus =
        field_map json__ "DeliveryStatus"
          VerifiedAccessLogDeliveryStatus.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?logGroup ?deliveryStatus ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for CloudWatch Logs as a logging destination."]
module VerifiedAccessLogKinesisDataFirehoseDestination =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Indicates whether logging is enabled."];
      deliveryStatus: VerifiedAccessLogDeliveryStatus.t option
        [@ocaml.doc "The delivery status."];
      deliveryStream: String_.t option
        [@ocaml.doc "The ID of the delivery stream."]}
    let make ?enabled =
      fun ?deliveryStatus ->
        fun ?deliveryStream ->
          fun () -> { enabled; deliveryStatus; deliveryStream }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("deliveryStatus",
          (Option.map x.deliveryStatus
             ~f:VerifiedAccessLogDeliveryStatus.to_value));
        ("deliveryStream", (Option.map x.deliveryStream ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliveryStream =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "deliveryStream") in
      let deliveryStatus =
        (Option.map ~f:VerifiedAccessLogDeliveryStatus.of_xml)
          (Xml.child xml_arg0 "deliveryStatus") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?deliveryStream ?deliveryStatus ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliveryStream = field_map json__ "DeliveryStream" String_.of_json in
      let deliveryStatus =
        field_map json__ "DeliveryStatus"
          VerifiedAccessLogDeliveryStatus.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?deliveryStream ?deliveryStatus ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for Kinesis as a logging destination."]
module VerifiedAccessLogS3Destination =
  struct
    type nonrec t =
      {
      enabled: Boolean.t option
        [@ocaml.doc "Indicates whether logging is enabled."];
      deliveryStatus: VerifiedAccessLogDeliveryStatus.t option
        [@ocaml.doc "The delivery status."];
      bucketName: String_.t option [@ocaml.doc "The bucket name."];
      prefix: String_.t option [@ocaml.doc "The bucket prefix."];
      bucketOwner: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account number that owns the bucket."]}
    let make ?enabled =
      fun ?deliveryStatus ->
        fun ?bucketName ->
          fun ?prefix ->
            fun ?bucketOwner ->
              fun () ->
                { enabled; deliveryStatus; bucketName; prefix; bucketOwner }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Boolean.to_value));
        ("deliveryStatus",
          (Option.map x.deliveryStatus
             ~f:VerifiedAccessLogDeliveryStatus.to_value));
        ("bucketName", (Option.map x.bucketName ~f:String_.to_value));
        ("prefix", (Option.map x.prefix ~f:String_.to_value));
        ("bucketOwner", (Option.map x.bucketOwner ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bucketOwner =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "bucketOwner") in
      let prefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "prefix") in
      let bucketName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "bucketName") in
      let deliveryStatus =
        (Option.map ~f:VerifiedAccessLogDeliveryStatus.of_xml)
          (Xml.child xml_arg0 "deliveryStatus") in
      let enabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?bucketOwner ?prefix ?bucketName ?deliveryStatus ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bucketOwner = field_map json__ "BucketOwner" String_.of_json in
      let prefix = field_map json__ "Prefix" String_.of_json in
      let bucketName = field_map json__ "BucketName" String_.of_json in
      let deliveryStatus =
        field_map json__ "DeliveryStatus"
          VerifiedAccessLogDeliveryStatus.of_json in
      let enabled = field_map json__ "Enabled" Boolean.of_json in
      make ?bucketOwner ?prefix ?bucketName ?deliveryStatus ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for Amazon S3 as a logging destination."]
module VerifiedAccessEndpointPortRangeList =
  struct
    type nonrec t = VerifiedAccessEndpointPortRange.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VerifiedAccessEndpointPortRange.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:VerifiedAccessEndpointPortRange.of_xml)
    let of_json j =
      list_of_json ~kind:"VerifiedAccessEndpointPortRangeList"
        ~of_json:VerifiedAccessEndpointPortRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerifiedAccessEndpointProtocol =
  struct
    type nonrec t =
      | Http 
      | Https 
      | Tcp 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Http -> "http"
      | Https -> "https"
      | Tcp -> "tcp"
      | Non_static_id s -> s
    let of_string =
      function
      | "http" -> Http
      | "https" -> Https
      | "tcp" -> Tcp
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VerifiedAccessEndpointProtocol"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VerifiedAccessEndpointProtocol" j)
    let to_json = simple_to_json to_value
  end
module VerifiedAccessEndpointSubnetIdList =
  struct
    type nonrec t = SubnetId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"VerifiedAccessEndpointSubnetIdList"
        ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VerifiedAccessEndpointStatusCode =
  struct
    type nonrec t =
      | Pending 
      | Active 
      | Updating 
      | Deleting 
      | Deleted 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "pending"
      | Active -> "active"
      | Updating -> "updating"
      | Deleting -> "deleting"
      | Deleted -> "deleted"
      | Non_static_id s -> s
    let of_string =
      function
      | "pending" -> Pending
      | "active" -> Active
      | "updating" -> Updating
      | "deleting" -> Deleting
      | "deleted" -> Deleted
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VerifiedAccessEndpointStatusCode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VerifiedAccessEndpointStatusCode" j)
    let to_json = simple_to_json to_value
  end
module AutoAcceptSharedAttachmentsValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AutoAcceptSharedAttachmentsValue"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AutoAcceptSharedAttachmentsValue" j)
    let to_json = simple_to_json to_value
  end
module DefaultRouteTableAssociationValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DefaultRouteTableAssociationValue"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DefaultRouteTableAssociationValue" j)
    let to_json = simple_to_json to_value
  end
module DefaultRouteTablePropagationValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DefaultRouteTablePropagationValue"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DefaultRouteTablePropagationValue" j)
    let to_json = simple_to_json to_value
  end
module DnsSupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DnsSupportValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DnsSupportValue" j)
    let to_json = simple_to_json to_value
  end
module EncryptionSupport =
  struct
    type nonrec t =
      {
      encryptionState: EncryptionStateValue.t option
        [@ocaml.doc "The current encryption state of the resource."];
      stateMessage: String_.t option
        [@ocaml.doc "A message describing the encryption state."]}
    let make ?encryptionState =
      fun ?stateMessage -> fun () -> { encryptionState; stateMessage }
    let to_value x =
      structure_to_value
        [("encryptionState",
           (Option.map x.encryptionState ~f:EncryptionStateValue.to_value));
        ("stateMessage", (Option.map x.stateMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "stateMessage") in
      let encryptionState =
        (Option.map ~f:EncryptionStateValue.of_xml)
          (Xml.child xml_arg0 "encryptionState") in
      make ?stateMessage ?encryptionState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateMessage = field_map json__ "StateMessage" String_.of_json in
      let encryptionState =
        field_map json__ "EncryptionState" EncryptionStateValue.of_json in
      make ?stateMessage ?encryptionState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the encryption support status for a transit gateway."]
module MulticastSupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration MulticastSupportValue" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MulticastSupportValue" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupReferencingSupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration SecurityGroupReferencingSupportValue" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"SecurityGroupReferencingSupportValue" j)
    let to_json = simple_to_json to_value
  end
module VpnEcmpSupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration VpnEcmpSupportValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"VpnEcmpSupportValue" j)
    let to_json = simple_to_json to_value
  end
module ApplianceModeSupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ApplianceModeSupportValue" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApplianceModeSupportValue" j)
    let to_json = simple_to_json to_value
  end
module Ipv6SupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Ipv6SupportValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Ipv6SupportValue" j)
    let to_json = simple_to_json to_value
  end
module DynamicRoutingValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DynamicRoutingValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DynamicRoutingValue" j)
    let to_json = simple_to_json to_value
  end
module AutoAcceptSharedAssociationsValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AutoAcceptSharedAssociationsValue"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AutoAcceptSharedAssociationsValue" j)
    let to_json = simple_to_json to_value
  end
module Igmpv2SupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration Igmpv2SupportValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Igmpv2SupportValue" j)
    let to_json = simple_to_json to_value
  end
module StaticSourcesSupportValue =
  struct
    type nonrec t =
      | Enable 
      | Disable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enable -> "enable"
      | Disable -> "disable"
      | Non_static_id s -> s
    let of_string =
      function
      | "enable" -> Enable
      | "disable" -> Disable
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration StaticSourcesSupportValue" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"StaticSourcesSupportValue" j)
    let to_json = simple_to_json to_value
  end
module ProtocolValue =
  struct
    type nonrec t =
      | Gre 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Gre -> "gre" | Non_static_id s -> s
    let of_string = function | "gre" -> Gre | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ProtocolValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProtocolValue" j)
    let to_json = simple_to_json to_value
  end
module InsideCidrBlocksStringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"InsideCidrBlocksStringList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayAttachmentBgpConfigurationList =
  struct
    type nonrec t = TransitGatewayAttachmentBgpConfiguration.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TransitGatewayAttachmentBgpConfiguration.to_value))
        |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true)))
           ~f:TransitGatewayAttachmentBgpConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"TransitGatewayAttachmentBgpConfigurationList"
        ~of_json:TransitGatewayAttachmentBgpConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransitGatewayAssociationState =
  struct
    type nonrec t =
      | Associating 
      | Associated 
      | Disassociating 
      | Disassociated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associating -> "associating"
      | Associated -> "associated"
      | Disassociating -> "disassociating"
      | Disassociated -> "disassociated"
      | Non_static_id s -> s
    let of_string =
      function
      | "associating" -> Associating
      | "associated" -> Associated
      | "disassociating" -> Disassociating
      | "disassociated" -> Disassociated
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TransitGatewayAssociationState"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TransitGatewayAssociationState" j)
    let to_json = simple_to_json to_value
  end
module TrafficMirrorFilterRule =
  struct
    type nonrec t =
      {
      trafficMirrorFilterRuleId: String_.t option
        [@ocaml.doc "The ID of the Traffic Mirror rule."];
      trafficMirrorFilterId: String_.t option
        [@ocaml.doc
          "The ID of the Traffic Mirror filter that the rule is associated with."];
      trafficDirection: TrafficDirection.t option
        [@ocaml.doc
          "The traffic direction assigned to the Traffic Mirror rule."];
      ruleNumber: Integer.t option
        [@ocaml.doc "The rule number of the Traffic Mirror rule."];
      ruleAction: TrafficMirrorRuleAction.t option
        [@ocaml.doc "The action assigned to the Traffic Mirror rule."];
      protocol: Integer.t option
        [@ocaml.doc "The protocol assigned to the Traffic Mirror rule."];
      destinationPortRange: TrafficMirrorPortRange.t option
        [@ocaml.doc
          "The destination port range assigned to the Traffic Mirror rule."];
      sourcePortRange: TrafficMirrorPortRange.t option
        [@ocaml.doc
          "The source port range assigned to the Traffic Mirror rule."];
      destinationCidrBlock: String_.t option
        [@ocaml.doc
          "The destination CIDR block assigned to the Traffic Mirror rule."];
      sourceCidrBlock: String_.t option
        [@ocaml.doc
          "The source CIDR block assigned to the Traffic Mirror rule."];
      description: String_.t option
        [@ocaml.doc "The description of the Traffic Mirror rule."];
      tags: TagList.t option
        [@ocaml.doc "Tags on Traffic Mirroring filter rules."]}
    let make ?trafficMirrorFilterRuleId =
      fun ?trafficMirrorFilterId ->
        fun ?trafficDirection ->
          fun ?ruleNumber ->
            fun ?ruleAction ->
              fun ?protocol ->
                fun ?destinationPortRange ->
                  fun ?sourcePortRange ->
                    fun ?destinationCidrBlock ->
                      fun ?sourceCidrBlock ->
                        fun ?description ->
                          fun ?tags ->
                            fun () ->
                              {
                                trafficMirrorFilterRuleId;
                                trafficMirrorFilterId;
                                trafficDirection;
                                ruleNumber;
                                ruleAction;
                                protocol;
                                destinationPortRange;
                                sourcePortRange;
                                destinationCidrBlock;
                                sourceCidrBlock;
                                description;
                                tags
                              }
    let to_value x =
      structure_to_value
        [("trafficMirrorFilterRuleId",
           (Option.map x.trafficMirrorFilterRuleId ~f:String_.to_value));
        ("trafficMirrorFilterId",
          (Option.map x.trafficMirrorFilterId ~f:String_.to_value));
        ("trafficDirection",
          (Option.map x.trafficDirection ~f:TrafficDirection.to_value));
        ("ruleNumber", (Option.map x.ruleNumber ~f:Integer.to_value));
        ("ruleAction",
          (Option.map x.ruleAction ~f:TrafficMirrorRuleAction.to_value));
        ("protocol", (Option.map x.protocol ~f:Integer.to_value));
        ("destinationPortRange",
          (Option.map x.destinationPortRange
             ~f:TrafficMirrorPortRange.to_value));
        ("sourcePortRange",
          (Option.map x.sourcePortRange ~f:TrafficMirrorPortRange.to_value));
        ("destinationCidrBlock",
          (Option.map x.destinationCidrBlock ~f:String_.to_value));
        ("sourceCidrBlock",
          (Option.map x.sourceCidrBlock ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("tagSet", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tagSet") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let sourceCidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sourceCidrBlock") in
      let destinationCidrBlock =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "destinationCidrBlock") in
      let sourcePortRange =
        (Option.map ~f:TrafficMirrorPortRange.of_xml)
          (Xml.child xml_arg0 "sourcePortRange") in
      let destinationPortRange =
        (Option.map ~f:TrafficMirrorPortRange.of_xml)
          (Xml.child xml_arg0 "destinationPortRange") in
      let protocol =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "protocol") in
      let ruleAction =
        (Option.map ~f:TrafficMirrorRuleAction.of_xml)
          (Xml.child xml_arg0 "ruleAction") in
      let ruleNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ruleNumber") in
      let trafficDirection =
        (Option.map ~f:TrafficDirection.of_xml)
          (Xml.child xml_arg0 "trafficDirection") in
      let trafficMirrorFilterId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "trafficMirrorFilterId") in
      let trafficMirrorFilterRuleId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "trafficMirrorFilterRuleId") in
      make ?tags ?description ?sourceCidrBlock ?destinationCidrBlock
        ?sourcePortRange ?destinationPortRange ?protocol ?ruleAction
        ?ruleNumber ?trafficDirection ?trafficMirrorFilterId
        ?trafficMirrorFilterRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let sourceCidrBlock =
        field_map json__ "SourceCidrBlock" String_.of_json in
      let destinationCidrBlock =
        field_map json__ "DestinationCidrBlock" String_.of_json in
      let sourcePortRange =
        field_map json__ "SourcePortRange" TrafficMirrorPortRange.of_json in
      let destinationPortRange =
        field_map json__ "DestinationPortRange"
          TrafficMirrorPortRange.of_json in
      let protocol = field_map json__ "Protocol" Integer.of_json in
      let ruleAction =
        field_map json__ "RuleAction" TrafficMirrorRuleAction.of_json in
      let ruleNumber = field_map json__ "RuleNumber" Integer.of_json in
      let trafficDirection =
        field_map json__ "TrafficDirection" TrafficDirection.of_json in
      let trafficMirrorFilterId =
        field_map json__ "TrafficMirrorFilterId" String_.of_json in
      let trafficMirrorFilterRuleId =
        field_map json__ "TrafficMirrorFilterRuleId" String_.of_json in
      make ?tags ?description ?sourceCidrBlock ?destinationCidrBlock
        ?sourcePortRange ?destinationPortRange ?protocol ?ruleAction
        ?ruleNumber ?trafficDirection ?trafficMirrorFilterId
        ?trafficMirrorFilterRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the Traffic Mirror rule."]
module TrafficMirrorNetworkService =
  struct
    type nonrec t =
      | Amazon_dns 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Amazon_dns -> "amazon-dns" | Non_static_id s -> s
    let of_string =
      function | "amazon-dns" -> Amazon_dns | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TrafficMirrorNetworkService"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TrafficMirrorNetworkService" j)
    let to_json = simple_to_json to_value
  end
module SubnetIpv6CidrBlockAssociation =
  struct
    type nonrec t =
      {
      associationId: SubnetCidrAssociationId.t option
        [@ocaml.doc "The ID of the association."];
      ipv6CidrBlock: String_.t option [@ocaml.doc "The IPv6 CIDR block."];
      ipv6CidrBlockState: SubnetCidrBlockState.t option
        [@ocaml.doc "The state of the CIDR block."];
      ipv6AddressAttribute: Ipv6AddressAttribute.t option
        [@ocaml.doc
          "Public IPv6 addresses are those advertised on the internet from Amazon Web Services. Private IP addresses are not and cannot be advertised on the internet from Amazon Web Services."];
      ipSource: IpSource.t option
        [@ocaml.doc
          "The source that allocated the IP address space. byoip or amazon indicates public IP address space allocated by Amazon or space that you have allocated with Bring your own IP (BYOIP). none indicates private space."]}
    let make ?associationId =
      fun ?ipv6CidrBlock ->
        fun ?ipv6CidrBlockState ->
          fun ?ipv6AddressAttribute ->
            fun ?ipSource ->
              fun () ->
                {
                  associationId;
                  ipv6CidrBlock;
                  ipv6CidrBlockState;
                  ipv6AddressAttribute;
                  ipSource
                }
    let to_value x =
      structure_to_value
        [("associationId",
           (Option.map x.associationId ~f:SubnetCidrAssociationId.to_value));
        ("ipv6CidrBlock", (Option.map x.ipv6CidrBlock ~f:String_.to_value));
        ("ipv6CidrBlockState",
          (Option.map x.ipv6CidrBlockState ~f:SubnetCidrBlockState.to_value));
        ("ipv6AddressAttribute",
          (Option.map x.ipv6AddressAttribute ~f:Ipv6AddressAttribute.to_value));
        ("ipSource", (Option.map x.ipSource ~f:IpSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipSource =
        (Option.map ~f:IpSource.of_xml) (Xml.child xml_arg0 "ipSource") in
      let ipv6AddressAttribute =
        (Option.map ~f:Ipv6AddressAttribute.of_xml)
          (Xml.child xml_arg0 "ipv6AddressAttribute") in
      let ipv6CidrBlockState =
        (Option.map ~f:SubnetCidrBlockState.of_xml)
          (Xml.child xml_arg0 "ipv6CidrBlockState") in
      let ipv6CidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipv6CidrBlock") in
      let associationId =
        (Option.map ~f:SubnetCidrAssociationId.of_xml)
          (Xml.child xml_arg0 "associationId") in
      make ?ipSource ?ipv6AddressAttribute ?ipv6CidrBlockState ?ipv6CidrBlock
        ?associationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipSource = field_map json__ "IpSource" IpSource.of_json in
      let ipv6AddressAttribute =
        field_map json__ "Ipv6AddressAttribute" Ipv6AddressAttribute.of_json in
      let ipv6CidrBlockState =
        field_map json__ "Ipv6CidrBlockState" SubnetCidrBlockState.of_json in
      let ipv6CidrBlock = field_map json__ "Ipv6CidrBlock" String_.of_json in
      let associationId =
        field_map json__ "AssociationId" SubnetCidrAssociationId.of_json in
      make ?ipSource ?ipv6AddressAttribute ?ipv6CidrBlockState ?ipv6CidrBlock
        ?associationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an association between a subnet and an IPv6 CIDR block."]
module StaleIpPermission =
  struct
    type nonrec t =
      {
      fromPort: Integer.t option
        [@ocaml.doc
          "If the protocol is TCP or UDP, this is the start of the port range. If the protocol is ICMP or ICMPv6, this is the ICMP type or -1 (all ICMP types)."];
      ipProtocol: String_.t option
        [@ocaml.doc
          "The IP protocol name (tcp, udp, icmp, icmpv6) or number (see Protocol Numbers)."];
      ipRanges: IpRanges.t option
        [@ocaml.doc
          "The IP ranges. Not applicable for stale security group rules."];
      prefixListIds: PrefixListIdSet.t option
        [@ocaml.doc
          "The prefix list IDs. Not applicable for stale security group rules."];
      toPort: Integer.t option
        [@ocaml.doc
          "If the protocol is TCP or UDP, this is the end of the port range. If the protocol is ICMP or ICMPv6, this is the ICMP code or -1 (all ICMP codes)."];
      userIdGroupPairs: UserIdGroupPairSet.t option
        [@ocaml.doc
          "The security group pairs. Returns the ID of the referenced security group and VPC, and the ID and status of the VPC peering connection."]}
    let make ?fromPort =
      fun ?ipProtocol ->
        fun ?ipRanges ->
          fun ?prefixListIds ->
            fun ?toPort ->
              fun ?userIdGroupPairs ->
                fun () ->
                  {
                    fromPort;
                    ipProtocol;
                    ipRanges;
                    prefixListIds;
                    toPort;
                    userIdGroupPairs
                  }
    let to_value x =
      structure_to_value
        [("fromPort", (Option.map x.fromPort ~f:Integer.to_value));
        ("ipProtocol", (Option.map x.ipProtocol ~f:String_.to_value));
        ("ipRanges", (Option.map x.ipRanges ~f:IpRanges.to_value));
        ("prefixListIds",
          (Option.map x.prefixListIds ~f:PrefixListIdSet.to_value));
        ("toPort", (Option.map x.toPort ~f:Integer.to_value));
        ("groups",
          (Option.map x.userIdGroupPairs ~f:UserIdGroupPairSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userIdGroupPairs =
        (Option.map ~f:UserIdGroupPairSet.of_xml)
          (Xml.child xml_arg0 "groups") in
      let toPort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "toPort") in
      let prefixListIds =
        (Option.map ~f:PrefixListIdSet.of_xml)
          (Xml.child xml_arg0 "prefixListIds") in
      let ipRanges =
        (Option.map ~f:IpRanges.of_xml) (Xml.child xml_arg0 "ipRanges") in
      let ipProtocol =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipProtocol") in
      let fromPort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "fromPort") in
      make ?userIdGroupPairs ?toPort ?prefixListIds ?ipRanges ?ipProtocol
        ?fromPort ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userIdGroupPairs =
        field_map json__ "UserIdGroupPairs" UserIdGroupPairSet.of_json in
      let toPort = field_map json__ "ToPort" Integer.of_json in
      let prefixListIds =
        field_map json__ "PrefixListIds" PrefixListIdSet.of_json in
      let ipRanges = field_map json__ "IpRanges" IpRanges.of_json in
      let ipProtocol = field_map json__ "IpProtocol" String_.of_json in
      let fromPort = field_map json__ "FromPort" Integer.of_json in
      make ?userIdGroupPairs ?toPort ?prefixListIds ?ipRanges ?ipProtocol
        ?fromPort ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a stale rule in a security group."]
module AllocationStrategy =
  struct
    type nonrec t =
      | LowestPrice 
      | Diversified 
      | CapacityOptimized 
      | CapacityOptimizedPrioritized 
      | PriceCapacityOptimized 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LowestPrice -> "lowestPrice"
      | Diversified -> "diversified"
      | CapacityOptimized -> "capacityOptimized"
      | CapacityOptimizedPrioritized -> "capacityOptimizedPrioritized"
      | PriceCapacityOptimized -> "priceCapacityOptimized"
      | Non_static_id s -> s
    let of_string =
      function
      | "lowestPrice" -> LowestPrice
      | "diversified" -> Diversified
      | "capacityOptimized" -> CapacityOptimized
      | "capacityOptimizedPrioritized" -> CapacityOptimizedPrioritized
      | "priceCapacityOptimized" -> PriceCapacityOptimized
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AllocationStrategy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AllocationStrategy" j)
    let to_json = simple_to_json to_value
  end
module ExcessCapacityTerminationPolicy =
  struct
    type nonrec t =
      | NoTermination 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NoTermination -> "noTermination"
      | Default -> "default"
      | Non_static_id s -> s
    let of_string =
      function
      | "noTermination" -> NoTermination
      | "default" -> Default
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ExcessCapacityTerminationPolicy"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ExcessCapacityTerminationPolicy" j)
    let to_json = simple_to_json to_value
  end
module FleetType =
  struct
    type nonrec t =
      | Request 
      | Maintain 
      | Instant 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Request -> "request"
      | Maintain -> "maintain"
      | Instant -> "instant"
      | Non_static_id s -> s
    let of_string =
      function
      | "request" -> Request
      | "maintain" -> Maintain
      | "instant" -> Instant
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration FleetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FleetType" j)
    let to_json = simple_to_json to_value
  end
module LaunchSpecsList =
  struct
    type nonrec t = SpotFleetLaunchSpecification.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SpotFleetLaunchSpecification.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SpotFleetLaunchSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"LaunchSpecsList"
        ~of_json:SpotFleetLaunchSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module LaunchTemplateConfigList =
  struct
    type nonrec t = LaunchTemplateConfig.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LaunchTemplateConfig.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:LaunchTemplateConfig.of_xml)
    let of_json j =
      list_of_json ~kind:"LaunchTemplateConfigList"
        ~of_json:LaunchTemplateConfig.of_json j
    let to_json v = composed_to_json to_value v
  end
module LoadBalancersConfig =
  struct
    type nonrec t =
      {
      classicLoadBalancersConfig: ClassicLoadBalancersConfig.t option
        [@ocaml.doc "The Classic Load Balancers."];
      targetGroupsConfig: TargetGroupsConfig.t option
        [@ocaml.doc "The target groups."]}
    let make ?classicLoadBalancersConfig =
      fun ?targetGroupsConfig ->
        fun () -> { classicLoadBalancersConfig; targetGroupsConfig }
    let to_value x =
      structure_to_value
        [("classicLoadBalancersConfig",
           (Option.map x.classicLoadBalancersConfig
              ~f:ClassicLoadBalancersConfig.to_value));
        ("targetGroupsConfig",
          (Option.map x.targetGroupsConfig ~f:TargetGroupsConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetGroupsConfig =
        (Option.map ~f:TargetGroupsConfig.of_xml)
          (Xml.child xml_arg0 "targetGroupsConfig") in
      let classicLoadBalancersConfig =
        (Option.map ~f:ClassicLoadBalancersConfig.of_xml)
          (Xml.child xml_arg0 "classicLoadBalancersConfig") in
      make ?targetGroupsConfig ?classicLoadBalancersConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetGroupsConfig =
        field_map json__ "TargetGroupsConfig" TargetGroupsConfig.of_json in
      let classicLoadBalancersConfig =
        field_map json__ "ClassicLoadBalancersConfig"
          ClassicLoadBalancersConfig.of_json in
      make ?targetGroupsConfig ?classicLoadBalancersConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the Classic Load Balancers and target groups to attach to a Spot Fleet request."]
module OnDemandAllocationStrategy =
  struct
    type nonrec t =
      | LowestPrice 
      | Prioritized 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LowestPrice -> "lowestPrice"
      | Prioritized -> "prioritized"
      | Non_static_id s -> s
    let of_string =
      function
      | "lowestPrice" -> LowestPrice
      | "prioritized" -> Prioritized
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration OnDemandAllocationStrategy"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"OnDemandAllocationStrategy" j)
    let to_json = simple_to_json to_value
  end
module SpotMaintenanceStrategies =
  struct
    type nonrec t =
      {
      capacityRebalance: SpotCapacityRebalance.t option
        [@ocaml.doc
          "The Spot Instance replacement strategy to use when Amazon EC2 emits a signal that your Spot Instance is at an elevated risk of being interrupted. For more information, see Capacity rebalancing in the Amazon EC2 User Guide."]}
    let make ?capacityRebalance = fun () -> { capacityRebalance }
    let to_value x =
      structure_to_value
        [("capacityRebalance",
           (Option.map x.capacityRebalance ~f:SpotCapacityRebalance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capacityRebalance =
        (Option.map ~f:SpotCapacityRebalance.of_xml)
          (Xml.child xml_arg0 "capacityRebalance") in
      make ?capacityRebalance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capacityRebalance =
        field_map json__ "CapacityRebalance" SpotCapacityRebalance.of_json in
      make ?capacityRebalance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The strategies for managing your Spot Instances that are at an elevated risk of being interrupted."]
module TagSpecificationList =
  struct
    type nonrec t = TagSpecification.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagSpecification.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"TagSpecificationList"
        ~of_json:TagSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetCapacityUnitType =
  struct
    type nonrec t =
      | Vcpu 
      | Memory_mib 
      | Units 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Vcpu -> "vcpu"
      | Memory_mib -> "memory-mib"
      | Units -> "units"
      | Non_static_id s -> s
    let of_string =
      function
      | "vcpu" -> Vcpu
      | "memory-mib" -> Memory_mib
      | "units" -> Units
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TargetCapacityUnitType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TargetCapacityUnitType" j)
    let to_json = simple_to_json to_value
  end
module IpPermission =
  struct
    type nonrec t =
      {
      ipProtocol: String_.t option
        [@ocaml.doc
          "The IP protocol name (tcp, udp, icmp, icmpv6) or number (see Protocol Numbers). Use -1 to specify all protocols. When authorizing security group rules, specifying -1 or a protocol number other than tcp, udp, icmp, or icmpv6 allows traffic on all ports, regardless of any port range you specify. For tcp, udp, and icmp, you must specify a port range. For icmpv6, the port range is optional; if you omit the port range, traffic for all types and codes is allowed."];
      fromPort: Integer.t option
        [@ocaml.doc
          "If the protocol is TCP or UDP, this is the start of the port range. If the protocol is ICMP or ICMPv6, this is the ICMP type or -1 (all ICMP types)."];
      toPort: Integer.t option
        [@ocaml.doc
          "If the protocol is TCP or UDP, this is the end of the port range. If the protocol is ICMP or ICMPv6, this is the ICMP code or -1 (all ICMP codes). If the start port is -1 (all ICMP types), then the end port must be -1 (all ICMP codes)."];
      userIdGroupPairs: UserIdGroupPairList.t option
        [@ocaml.doc
          "The security group and Amazon Web Services account ID pairs."];
      ipRanges: IpRangeList.t option [@ocaml.doc "The IPv4 address ranges."];
      ipv6Ranges: Ipv6RangeList.t option
        [@ocaml.doc "The IPv6 address ranges."];
      prefixListIds: PrefixListIdList.t option
        [@ocaml.doc "The prefix list IDs."]}
    let make ?ipProtocol =
      fun ?fromPort ->
        fun ?toPort ->
          fun ?userIdGroupPairs ->
            fun ?ipRanges ->
              fun ?ipv6Ranges ->
                fun ?prefixListIds ->
                  fun () ->
                    {
                      ipProtocol;
                      fromPort;
                      toPort;
                      userIdGroupPairs;
                      ipRanges;
                      ipv6Ranges;
                      prefixListIds
                    }
    let to_value x =
      structure_to_value
        [("ipProtocol", (Option.map x.ipProtocol ~f:String_.to_value));
        ("fromPort", (Option.map x.fromPort ~f:Integer.to_value));
        ("toPort", (Option.map x.toPort ~f:Integer.to_value));
        ("groups",
          (Option.map x.userIdGroupPairs ~f:UserIdGroupPairList.to_value));
        ("ipRanges", (Option.map x.ipRanges ~f:IpRangeList.to_value));
        ("ipv6Ranges", (Option.map x.ipv6Ranges ~f:Ipv6RangeList.to_value));
        ("prefixListIds",
          (Option.map x.prefixListIds ~f:PrefixListIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefixListIds =
        (Option.map ~f:PrefixListIdList.of_xml)
          (Xml.child xml_arg0 "prefixListIds") in
      let ipv6Ranges =
        (Option.map ~f:Ipv6RangeList.of_xml)
          (Xml.child xml_arg0 "ipv6Ranges") in
      let ipRanges =
        (Option.map ~f:IpRangeList.of_xml) (Xml.child xml_arg0 "ipRanges") in
      let userIdGroupPairs =
        (Option.map ~f:UserIdGroupPairList.of_xml)
          (Xml.child xml_arg0 "groups") in
      let toPort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "toPort") in
      let fromPort =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "fromPort") in
      let ipProtocol =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipProtocol") in
      make ?prefixListIds ?ipv6Ranges ?ipRanges ?userIdGroupPairs ?toPort
        ?fromPort ?ipProtocol ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefixListIds =
        field_map json__ "PrefixListIds" PrefixListIdList.of_json in
      let ipv6Ranges = field_map json__ "Ipv6Ranges" Ipv6RangeList.of_json in
      let ipRanges = field_map json__ "IpRanges" IpRangeList.of_json in
      let userIdGroupPairs =
        field_map json__ "UserIdGroupPairs" UserIdGroupPairList.of_json in
      let toPort = field_map json__ "ToPort" Integer.of_json in
      let fromPort = field_map json__ "FromPort" Integer.of_json in
      let ipProtocol = field_map json__ "IpProtocol" String_.of_json in
      make ?prefixListIds ?ipv6Ranges ?ipRanges ?userIdGroupPairs ?toPort
        ?fromPort ?ipProtocol ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the permissions for a security group rule."]
module SecondarySubnetIpv4CidrBlockAssociation =
  struct
    type nonrec t =
      {
      associationId: SecondarySubnetCidrAssociationId.t option
        [@ocaml.doc "The association ID for the IPv4 CIDR block."];
      cidrBlock: String_.t option [@ocaml.doc "The IPv4 CIDR block."];
      state: SecondarySubnetCidrBlockAssociationState.t option
        [@ocaml.doc "The state of the CIDR block association."];
      stateReason: String_.t option
        [@ocaml.doc
          "The reason for the current state of the CIDR block association."]}
    let make ?associationId =
      fun ?cidrBlock ->
        fun ?state ->
          fun ?stateReason ->
            fun () -> { associationId; cidrBlock; state; stateReason }
    let to_value x =
      structure_to_value
        [("associationId",
           (Option.map x.associationId
              ~f:SecondarySubnetCidrAssociationId.to_value));
        ("cidrBlock", (Option.map x.cidrBlock ~f:String_.to_value));
        ("state",
          (Option.map x.state
             ~f:SecondarySubnetCidrBlockAssociationState.to_value));
        ("stateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "stateReason") in
      let state =
        (Option.map ~f:SecondarySubnetCidrBlockAssociationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let cidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidrBlock") in
      let associationId =
        (Option.map ~f:SecondarySubnetCidrAssociationId.of_xml)
          (Xml.child xml_arg0 "associationId") in
      make ?stateReason ?state ?cidrBlock ?associationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state =
        field_map json__ "State"
          SecondarySubnetCidrBlockAssociationState.of_json in
      let cidrBlock = field_map json__ "CidrBlock" String_.of_json in
      let associationId =
        field_map json__ "AssociationId"
          SecondarySubnetCidrAssociationId.of_json in
      make ?stateReason ?state ?cidrBlock ?associationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an IPv4 CIDR block associated with a secondary subnet."]
module SecondaryNetworkIpv4CidrBlockAssociation =
  struct
    type nonrec t =
      {
      associationId: SecondaryNetworkCidrAssociationId.t option
        [@ocaml.doc "The association ID for the IPv4 CIDR block."];
      cidrBlock: String_.t option [@ocaml.doc "The IPv4 CIDR block."];
      state: SecondaryNetworkCidrBlockAssociationState.t option
        [@ocaml.doc "The state of the CIDR block association."];
      stateReason: String_.t option
        [@ocaml.doc
          "The reason for the current state of the CIDR block association."]}
    let make ?associationId =
      fun ?cidrBlock ->
        fun ?state ->
          fun ?stateReason ->
            fun () -> { associationId; cidrBlock; state; stateReason }
    let to_value x =
      structure_to_value
        [("associationId",
           (Option.map x.associationId
              ~f:SecondaryNetworkCidrAssociationId.to_value));
        ("cidrBlock", (Option.map x.cidrBlock ~f:String_.to_value));
        ("state",
          (Option.map x.state
             ~f:SecondaryNetworkCidrBlockAssociationState.to_value));
        ("stateReason", (Option.map x.stateReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stateReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "stateReason") in
      let state =
        (Option.map ~f:SecondaryNetworkCidrBlockAssociationState.of_xml)
          (Xml.child xml_arg0 "state") in
      let cidrBlock =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "cidrBlock") in
      let associationId =
        (Option.map ~f:SecondaryNetworkCidrAssociationId.of_xml)
          (Xml.child xml_arg0 "associationId") in
      make ?stateReason ?state ?cidrBlock ?associationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stateReason = field_map json__ "StateReason" String_.of_json in
      let state =
        field_map json__ "State"
          SecondaryNetworkCidrBlockAssociationState.of_json in
      let cidrBlock = field_map json__ "CidrBlock" String_.of_json in
      let associationId =
        field_map json__ "AssociationId"
          SecondaryNetworkCidrAssociationId.of_json in
      make ?stateReason ?state ?cidrBlock ?associationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an IPv4 CIDR block associated with a secondary network."]
module SecondaryInterfaceIpv4Address =
  struct
    type nonrec t =
      {
      privateIpAddress: String_.t option
        [@ocaml.doc "The private IPv4 address."]}
    let make ?privateIpAddress = fun () -> { privateIpAddress }
    let to_value x =
      structure_to_value
        [("privateIpAddress",
           (Option.map x.privateIpAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateIpAddress =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "privateIpAddress") in
      make ?privateIpAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateIpAddress =
        field_map json__ "PrivateIpAddress" String_.of_json in
      make ?privateIpAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a private IPv4 address for a secondary interface."]
module PropagatingVgw =
  struct
    type nonrec t =
      {
      gatewayId: String_.t option
        [@ocaml.doc "The ID of the virtual private gateway."]}
    let make ?gatewayId = fun () -> { gatewayId }
    let to_value x =
      structure_to_value
        [("gatewayId", (Option.map x.gatewayId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "gatewayId") in
      make ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayId = field_map json__ "GatewayId" String_.of_json in
      make ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a virtual private gateway propagating route."]
module Route =
  struct
    type nonrec t =
      {
      destinationCidrBlock: String_.t option
        [@ocaml.doc "The IPv4 CIDR block used for the destination match."];
      destinationIpv6CidrBlock: String_.t option
        [@ocaml.doc "The IPv6 CIDR block used for the destination match."];
      destinationPrefixListId: String_.t option
        [@ocaml.doc "The prefix of the Amazon Web Services service."];
      egressOnlyInternetGatewayId: String_.t option
        [@ocaml.doc "The ID of the egress-only internet gateway."];
      gatewayId: String_.t option
        [@ocaml.doc "The ID of a gateway attached to your VPC."];
      instanceId: String_.t option
        [@ocaml.doc "The ID of a NAT instance in your VPC."];
      instanceOwnerId: String_.t option
        [@ocaml.doc
          "The ID of Amazon Web Services account that owns the instance."];
      natGatewayId: String_.t option [@ocaml.doc "The ID of a NAT gateway."];
      transitGatewayId: String_.t option
        [@ocaml.doc "The ID of a transit gateway."];
      localGatewayId: String_.t option
        [@ocaml.doc "The ID of the local gateway."];
      carrierGatewayId: CarrierGatewayId.t option
        [@ocaml.doc "The ID of the carrier gateway."];
      networkInterfaceId: String_.t option
        [@ocaml.doc "The ID of the network interface."];
      origin: RouteOrigin.t option
        [@ocaml.doc
          "Describes how the route was created. CreateRouteTable - The route was automatically created when the route table was created. CreateRoute - The route was manually added to the route table. EnableVgwRoutePropagation - The route was propagated by route propagation. Advertisement - The route was created dynamically by Amazon VPC Route Server."];
      state: RouteState.t option
        [@ocaml.doc
          "The state of the route. The blackhole state indicates that the route's target isn't available (for example, the specified gateway isn't attached to the VPC, or the specified NAT instance has been terminated)."];
      vpcPeeringConnectionId: String_.t option
        [@ocaml.doc "The ID of a VPC peering connection."];
      coreNetworkArn: CoreNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the core network."];
      odbNetworkArn: OdbNetworkArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ODB network."];
      ipAddress: String_.t option
        [@ocaml.doc
          "The next hop IP address for routes propagated by VPC Route Server into VPC route tables."]}
    let make ?destinationCidrBlock =
      fun ?destinationIpv6CidrBlock ->
        fun ?destinationPrefixListId ->
          fun ?egressOnlyInternetGatewayId ->
            fun ?gatewayId ->
              fun ?instanceId ->
                fun ?instanceOwnerId ->
                  fun ?natGatewayId ->
                    fun ?transitGatewayId ->
                      fun ?localGatewayId ->
                        fun ?carrierGatewayId ->
                          fun ?networkInterfaceId ->
                            fun ?origin ->
                              fun ?state ->
                                fun ?vpcPeeringConnectionId ->
                                  fun ?coreNetworkArn ->
                                    fun ?odbNetworkArn ->
                                      fun ?ipAddress ->
                                        fun () ->
                                          {
                                            destinationCidrBlock;
                                            destinationIpv6CidrBlock;
                                            destinationPrefixListId;
                                            egressOnlyInternetGatewayId;
                                            gatewayId;
                                            instanceId;
                                            instanceOwnerId;
                                            natGatewayId;
                                            transitGatewayId;
                                            localGatewayId;
                                            carrierGatewayId;
                                            networkInterfaceId;
                                            origin;
                                            state;
                                            vpcPeeringConnectionId;
                                            coreNetworkArn;
                                            odbNetworkArn;
                                            ipAddress
                                          }
    let to_value x =
      structure_to_value
        [("destinationCidrBlock",
           (Option.map x.destinationCidrBlock ~f:String_.to_value));
        ("destinationIpv6CidrBlock",
          (Option.map x.destinationIpv6CidrBlock ~f:String_.to_value));
        ("destinationPrefixListId",
          (Option.map x.destinationPrefixListId ~f:String_.to_value));
        ("egressOnlyInternetGatewayId",
          (Option.map x.egressOnlyInternetGatewayId ~f:String_.to_value));
        ("gatewayId", (Option.map x.gatewayId ~f:String_.to_value));
        ("instanceId", (Option.map x.instanceId ~f:String_.to_value));
        ("instanceOwnerId",
          (Option.map x.instanceOwnerId ~f:String_.to_value));
        ("natGatewayId", (Option.map x.natGatewayId ~f:String_.to_value));
        ("transitGatewayId",
          (Option.map x.transitGatewayId ~f:String_.to_value));
        ("localGatewayId", (Option.map x.localGatewayId ~f:String_.to_value));
        ("carrierGatewayId",
          (Option.map x.carrierGatewayId ~f:CarrierGatewayId.to_value));
        ("networkInterfaceId",
          (Option.map x.networkInterfaceId ~f:String_.to_value));
        ("origin", (Option.map x.origin ~f:RouteOrigin.to_value));
        ("state", (Option.map x.state ~f:RouteState.to_value));
        ("vpcPeeringConnectionId",
          (Option.map x.vpcPeeringConnectionId ~f:String_.to_value));
        ("coreNetworkArn",
          (Option.map x.coreNetworkArn ~f:CoreNetworkArn.to_value));
        ("odbNetworkArn",
          (Option.map x.odbNetworkArn ~f:OdbNetworkArn.to_value));
        ("ipAddress", (Option.map x.ipAddress ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ipAddress") in
      let odbNetworkArn =
        (Option.map ~f:OdbNetworkArn.of_xml)
          (Xml.child xml_arg0 "odbNetworkArn") in
      let coreNetworkArn =
        (Option.map ~f:CoreNetworkArn.of_xml)
          (Xml.child xml_arg0 "coreNetworkArn") in
      let vpcPeeringConnectionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "vpcPeeringConnectionId") in
      let state =
        (Option.map ~f:RouteState.of_xml) (Xml.child xml_arg0 "state") in
      let origin =
        (Option.map ~f:RouteOrigin.of_xml) (Xml.child xml_arg0 "origin") in
      let networkInterfaceId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "networkInterfaceId") in
      let carrierGatewayId =
        (Option.map ~f:CarrierGatewayId.of_xml)
          (Xml.child xml_arg0 "carrierGatewayId") in
      let localGatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "localGatewayId") in
      let transitGatewayId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "transitGatewayId") in
      let natGatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "natGatewayId") in
      let instanceOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceOwnerId") in
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceId") in
      let gatewayId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "gatewayId") in
      let egressOnlyInternetGatewayId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "egressOnlyInternetGatewayId") in
      let destinationPrefixListId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "destinationPrefixListId") in
      let destinationIpv6CidrBlock =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "destinationIpv6CidrBlock") in
      let destinationCidrBlock =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "destinationCidrBlock") in
      make ?ipAddress ?odbNetworkArn ?coreNetworkArn ?vpcPeeringConnectionId
        ?state ?origin ?networkInterfaceId ?carrierGatewayId ?localGatewayId
        ?transitGatewayId ?natGatewayId ?instanceOwnerId ?instanceId
        ?gatewayId ?egressOnlyInternetGatewayId ?destinationPrefixListId
        ?destinationIpv6CidrBlock ?destinationCidrBlock ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddress = field_map json__ "IpAddress" String_.of_json in
      let odbNetworkArn =
        field_map json__ "OdbNetworkArn" OdbNetworkArn.of_json in
      let coreNetworkArn =
        field_map json__ "CoreNetworkArn" CoreNetworkArn.of_json in
      let vpcPeeringConnectionId =
        field_map json__ "VpcPeeringConnectionId" String_.of_json in
      let state = field_map json__ "State" RouteState.of_json in
      let origin = field_map json__ "Origin" RouteOrigin.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" String_.of_json in
      let carrierGatewayId =
        field_map json__ "CarrierGatewayId" CarrierGatewayId.of_json in
      let localGatewayId = field_map json__ "LocalGatewayId" String_.of_json in
      let transitGatewayId =
        field_map json__ "TransitGatewayId" String_.of_json in
      let natGatewayId = field_map json__ "NatGatewayId" String_.of_json in
      let instanceOwnerId =
        field_map json__ "InstanceOwnerId" String_.of_json in
      let instanceId = field_map json__ "InstanceId" String_.of_json in
      let gatewayId = field_map json__ "GatewayId" String_.of_json in
      let egressOnlyInternetGatewayId =
        field_map json__ "EgressOnlyInternetGatewayId" String_.of_json in
      let destinationPrefixListId =
        field_map json__ "DestinationPrefixListId" String_.of_json in
      let destinationIpv6CidrBlock =
        field_map json__ "DestinationIpv6CidrBlock" String_.of_json in
      let destinationCidrBlock =
        field_map json__ "DestinationCidrBlock" String_.of_json in
      make ?ipAddress ?odbNetworkArn ?coreNetworkArn ?vpcPeeringConnectionId
        ?state ?origin ?networkInterfaceId ?carrierGatewayId ?localGatewayId
        ?transitGatewayId ?natGatewayId ?instanceOwnerId ?instanceId
        ?gatewayId ?egressOnlyInternetGatewayId ?destinationPrefixListId
        ?destinationIpv6CidrBlock ?destinationCidrBlock ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a route in a route table."]